"Fly 'n' Shoot" game model from Chapters 1 & 9 of PSiCC2 NOTE: Requries QP5. Tunnel Active Object uint32_t rnd; rnd = (BSP_random() & 0xFFU); /* reduce the top wall thickness 18.75% of the time */ if ((rnd < 48U) && (me->wall_thickness_top > 0U)) { --me->wall_thickness_top; } /* reduce the bottom wall thickness 18.75% of the time */ if ((rnd > 208U) && (me->wall_thickness_bottom > 0U)) { --me->wall_thickness_bottom; } rnd = (BSP_random() & 0xFFU); /* grow the bottom wall thickness 19.14% of the time */ if ((rnd < 49U) && ((GAME_TUNNEL_HEIGHT - me->wall_thickness_top - me->wall_thickness_bottom) > me->wall_gap)) { ++me->wall_thickness_bottom; } /* grow the top wall thickness 19.14% of the time */ if ((rnd > 207U) && ((GAME_TUNNEL_HEIGHT - me->wall_thickness_top - me->wall_thickness_bottom) > me->wall_gap)) { ++me->wall_thickness_top; } /* advance the Tunnel by 1 game step to the left * and copy the Tunnel layer to the main frame buffer */ BSP_advanceWalls(me->wall_thickness_top, me->wall_thickness_bottom); uint32_t rnd = (BSP_random() & 0xFFU); if (me->last_mine_x > 0U) { --me->last_mine_x; /* shift the last Mine 1 position to the left */ } /* last mine far enough? */ if ((me->last_mine_x + GAME_MINES_DIST_MIN < GAME_TUNNEL_WIDTH) && (rnd < 8U)) /* place the mines only 5% of the time */ { uint8_t n; for (n = 0U; n < Q_DIM(me->mines); ++n) { /*look for disabled mines */ if (me->mines[n] == (QHsm *)0) { break; } } if (n < Q_DIM(me->mines)) { /* a disabled Mine found? */ rnd = (BSP_random() & 0xFFFFU); if ((rnd & 1U) == 0U) { /* choose the type of the mine */ me->mines[n] = me->mine1_pool[n]; } else { me->mines[n] = me->mine2_pool[n]; } /* new Mine is planted by the end of the tunnel */ me->last_mine_x = GAME_TUNNEL_WIDTH - 8U; /* choose a random y-position for the Mine in the Tunnel */ rnd %= (GAME_TUNNEL_HEIGHT - me->wall_thickness_top - me->wall_thickness_bottom - 4U); me->last_mine_y = (uint8_t)(me->wall_thickness_top + 2U + rnd); Q_SIG(me->mines[n]) = MINE_PLANT_SIG; Q_PAR(me->mines[n]) = (me->last_mine_x | (me->last_mine_y << 8)); QHSM_DISPATCH(me->mines[n]); /* direct dispatch */ } } uint8_t n; for (n = 0; n < GAME_MINES_MAX; ++n) { if (me->mines[n] != (QHsm *)0) { /* is the mine used? */ Q_SIG(me->mines[n]) = sig; Q_PAR(me->mines[n]) = par; QHSM_DISPATCH(me->mines[n]); } } uint8_t n; for (n = 0; n < GAME_MINES_MAX; ++n) { QHSM_INIT(me->mine1_pool[n]); /* initial tran. for Mine1 */ QHSM_INIT(me->mine2_pool[n]); /* initial tran. for Mine2 */ } BSP_randomSeed(1234U); /* seed the pseudo-random generator */ Q_ASSERT((Q_PAR(me) < GAME_MINES_MAX) && (me->mines[Q_PAR(me)] != (QHsm *)0)); me->mines[Q_PAR(me)] = (QHsm *)0; QActive_armX(&me->super, 0U, BSP_TICKS_PER_SEC/2U, BSP_TICKS_PER_SEC/2U); /* periodic */ me->blink_ctr = 10U; BSP_paintString(24U, (GAME_TUNNEL_HEIGHT / 2U) - 8U, "Quantum LeAps"); BSP_paintString(16U, (GAME_TUNNEL_HEIGHT / 2U) + 0U, "state-machine.com"); BSP_paintString(1U, GAME_TUNNEL_HEIGHT - 18U, "Fire missile: BTN0"); BSP_paintString(1U, GAME_TUNNEL_HEIGHT - 10U, "Fly ship up: BTN1"); BSP_updateScreen(); QActive_disarmX(&me->super, 0U); --me->blink_ctr; /* toggle the blink couner */ me->blink_ctr == 0U else BSP_paintString(24U + 8U*6U, (GAME_TUNNEL_HEIGHT / 2U) - 8U, "LeaPs"); BSP_updateScreen(); (me->blink_ctr & 1U) != 0U BSP_paintString(24U + 8U*6U, (GAME_TUNNEL_HEIGHT / 2U) - 8U, "LeAps"); BSP_updateScreen(); me->last_mine_x = 0U; /* last mine at right edge of the tunnel */ me->last_mine_y = 0U; /* set the tunnel properties... */ me->wall_thickness_top = 0U; me->wall_thickness_bottom = 0U; me->wall_gap = GAME_WALLS_GAP_Y; /* clear the tunnel walls */ BSP_clearWalls(); QActive_armX(&me->super, 0U, BSP_TICKS_PER_SEC/2U, BSP_TICKS_PER_SEC/2U); /* periodic */ me->blink_ctr = 20U*2U; /* 20s timeout total */ QActive_disarmX(&me->super, 0U); Tunnel_advance(me); if (me->blink_ctr != 0U) { /* add the text bitmap into the frame buffer */ BSP_paintString((GAME_TUNNEL_WIDTH - 10U*6U)/2U, (GAME_TUNNEL_HEIGHT - 4U)/2U, "Press BTN0"); } BSP_updateScreen(); --me->blink_ctr; me->blink_ctr == 0 me->wall_gap = GAME_WALLS_GAP_Y; QACTIVE_POST(&AO_Ship, TAKE_OFF_SIG, 0); Tunnel_dispatchToAllMines(me, MINE_RECYCLE_SIG, 0); /* render this frame on the display */ BSP_updateScreen(); Tunnel_advance(me); Tunnel_plantMine(me); Tunnel_dispatchToAllMines(me, Q_SIG(me), Q_PAR(me)); uint8_t x = (uint8_t)Q_PAR(me); uint8_t y = (uint8_t)(Q_PAR(me) >> 8); uint8_t bmp = (uint8_t)(Q_PAR(me) >> 16); /* did the Ship/Missile hit the tunnel wall? */ if (BSP_isWallHit(bmp, x, y)) { QACTIVE_POST(&AO_Ship, HIT_WALL_SIG, 0); } BSP_paintBitmap(x, y, bmp); Tunnel_dispatchToAllMines(me, Q_SIG(me), Q_PAR(me)); uint8_t x = (uint8_t)Q_PAR(me); uint8_t y = (uint8_t)(Q_PAR(me) >> 8); uint8_t bmp = (uint8_t)(Q_PAR(me) >> 16); /* did the Ship/Missile hit the tunnel wall? */ if (BSP_isWallHit(bmp, x, y)) { QACTIVE_POST(&AO_Missile, HIT_WALL_SIG, 0); } BSP_paintBitmap(x, y, bmp); Tunnel_dispatchToAllMines(me, Q_SIG(me), Q_PAR(me)); BSP_paintBitmap((uint8_t)Q_PAR(me), (uint8_t)(Q_PAR(me) >> 8), (uint8_t)(Q_PAR(me) >> 16)); BSP_paintBitmap((uint8_t)Q_PAR(me), (uint8_t)(Q_PAR(me) >> 8), (uint8_t)(Q_PAR(me) >> 16)); BSP_updateScore((uint16_t)Q_PAR(me)); /* increase difficulty of the game: * the tunnel gets narrower as the score goes up */ me->wall_gap = (uint8_t)(GAME_WALLS_GAP_Y - (uint16_t)Q_PAR(me)/100U); if (me->wall_gap < GAME_WALLS_MIN_GAP_Y) { me->wall_gap = GAME_WALLS_MIN_GAP_Y; } BSP_clearWalls(); BSP_updateScore((uint16_t)Q_PAR(me)); BSP_updateScreen(); QActive_armX(&me->super, 0U, BSP_TICKS_PER_SEC/2U, BSP_TICKS_PER_SEC/2U); /* periodic */ me->blink_ctr = 5U*2U; /* 5s timeout */ BSP_paintString((GAME_TUNNEL_WIDTH - 6U * 9U) / 2U, (GAME_TUNNEL_HEIGHT / 2U) - 4U, "Game Over"); BSP_updateScreen(); QActive_disarmX(&me->super, 0U); BSP_updateScore(0); /* update the score on the display */ --me->blink_ctr; BSP_paintString((GAME_TUNNEL_WIDTH - 6U*9U) / 2U, (GAME_TUNNEL_HEIGHT / 2U) - 4U, (((me->blink_ctr & 1) != 0) ? "Game Over" : " ")); BSP_updateScreen(); me->blink_ctr == 0 BSP_displayOff(); /* power down the display */ QActive_armX(&me->super, 0U, BSP_TICKS_PER_SEC*3U, 0U); /* 3 sec */ QActive_disarmX(&me->super, 0U); BSP_displayOn(); /* power up the display */ uint32_t rnd = BSP_random(); /* clear the screen frame buffer */ BSP_clearFB(); BSP_paintString((uint8_t)(rnd % (GAME_TUNNEL_WIDTH - 10U*6U)), (uint8_t) (rnd % (GAME_TUNNEL_HEIGHT - 8U)), "Press BTN0"); BSP_updateScreen(); QActive_armX(&me->super, 0U, BSP_TICKS_PER_SEC/3U, 0U);/* 1/3 sec */ QActive_disarmX(&me->super, 0U); BSP_clearFB(); BSP_updateScreen(); /* clear the screen */ BSP_clearFB(); BSP_updateScreen(); QF_stop(); /* stop QF and cleanup */ Ship Active Object fixed point in 14s2 representation me->score = 0; /* reset the score */ QACTIVE_POST(&AO_Tunnel, SCORE_SIG, me->score); /* lauch the ship from the initial position */ me->x = GAME_SHIP_X; me->y = (GAME_SHIP_Y << 2); /* move the Ship up or down depending on the button state */ if (BSP_isThrottle()) { if (me->y > 0) { me->y -= 1U; } } else { if (me->y < (GAME_TUNNEL_HEIGHT << 2)) { me->y += 1U; } } /* tell the Tunnel to draw the Ship and test for hits */ QACTIVE_POST(&AO_Tunnel, SHIP_IMG_SIG, (SHIP_BMP << 16) | me->x | ((me->y >> 2) << 8)); ++me->score; /* increment the score for surviving another tick */ if ((me->score % 10) == 0) { /* is the score "round"? */ QACTIVE_POST(&AO_Tunnel, SCORE_SIG, me->score); } QACTIVE_POST(&AO_Missile, MISSILE_FIRE_SIG, me->x | (((me->y >> 2) - 1 + SHIP_HEIGHT) & 0xFFU) << 8); me->score += (uint16_t)Q_PAR(me); /* the score will be sent to the Tunnel by the next TIME_TICK */ me->exp_ctr = 0; me->exp_ctr < 15 ++me->exp_ctr; /* tell the Tunnel to draw the current stage of Explosion */ QACTIVE_POST(&AO_Tunnel, EXPLOSION_SIG, ((EXPLOSION0_BMP + (me->exp_ctr >> 2)) << 16) | me->x | ((((me->y >> 2) - 4U + SHIP_HEIGHT) & 0xFFU) << 8)); else QACTIVE_POST(&AO_Tunnel, GAME_OVER_SIG, me->score); Missile Active Object me->x = (uint8_t)Q_PAR(me); /* init position from the Ship */ me->y = (uint8_t)(Q_PAR(me) >> 8); me->x + GAME_MISSILE_SPEED_X < GAME_TUNNEL_WIDTH me->x += me->speed; /*tell the Tunnel to draw the Missile and test for wall hits*/ QACTIVE_POST(&AO_Tunnel, MISSILE_IMG_SIG, (MISSILE_BMP << 16) | me->x | (me->y << 8)); else /* tell the Ship the score for destroing this Mine */ QACTIVE_POST(&AO_Ship, Q_SIG(me), Q_PAR(me)); /* re-arm immediately & let the destroyed Mine do the exploding */ me->exp_ctr = 0; (me->x >= GAME_SPEED_X) && (me->exp_ctr < 15) ++me->exp_ctr; /* advance the explosion counter */ me->x -= me->speed; /* move the explosion by one step */ /* tell the Tunnel to render the current stage of Explosion */ QACTIVE_POST(&AO_Tunnel, EXPLOSION_SIG, ((EXPLOSION0_BMP + (me->exp_ctr >> 2)) << 16) | (me->x + 3) | ((int)me->y - 4) << 8); else /* explosion finished or moved outside the game */ The Mine1 orthogonal component me->x = (uint8_t)Q_PAR(me); me->y = (uint8_t)(Q_PAR(me) >> 8); /* tell the Tunnel that this mine is becoming disabled */ QACTIVE_POST(&AO_Tunnel, MINE_DISABLED_SIG, MINE_ID(me)); me->x >= GAME_SPEED_X me->x -= GAME_SPEED_X; /* move the mine 1 step */ /* tell the Tunnel to draw the Mine */ QACTIVE_POST(&AO_Tunnel, MINE_IMG_SIG, (MINE1_BMP << 16) | me->x | (me->y << 8)); else uint8_t x = (uint8_t)Q_PAR(me); uint8_t y = (uint8_t)(Q_PAR(me) >> 8); uint8_t bmp = (uint8_t)(Q_PAR(me) >> 16); BSP_doBitmapsOverlap(MINE1_BMP, me->x, me->y, bmp, x, y) QACTIVE_POST(&AO_Ship, HIT_MINE_SIG, 1); /* go straight to 'disabled' and let the Ship do * the exploding */ uint8_t x = (uint8_t)Q_PAR(me); uint8_t y = (uint8_t)(Q_PAR(me) >> 8); uint8_t bmp = (uint8_t)(Q_PAR(me) >> 16); BSP_doBitmapsOverlap(MINE1_BMP, me->x, me->y, bmp, x, y) /* post the score for destroying Mine type-1 */ QACTIVE_POST(&AO_Missile, DESTROYED_MINE_SIG, 25); me->exp_ctr = 0; (me->x >= GAME_SPEED_X) && (me->exp_ctr < 15) ++me->exp_ctr; /* advance the explosion counter */ me->x -= GAME_SPEED_X; /* move explosion by 1 step */ /* tell the Game to render the current stage of Explosion */ QACTIVE_POST(&AO_Tunnel, EXPLOSION_SIG, ((EXPLOSION0_BMP + (me->exp_ctr >> 2)) << 16) | (me->x + 1) | (((int)me->y - 4 + 2)) << 8); else The Mine2 orthogonal component me->x = (uint8_t)Q_PAR(me); me->y = (uint8_t)(Q_PAR(me) >> 8); /* tell the Tunnel that this mine is becoming disabled */ QACTIVE_POST(&AO_Tunnel, MINE_DISABLED_SIG, MINE_ID(me)); me->x >= GAME_SPEED_X me->x -= GAME_SPEED_X; /* move the mine 1 step */ /* tell the Tunnel to draw the Mine */ QACTIVE_POST(&AO_Tunnel, MINE_IMG_SIG, (MINE2_BMP << 16) | me->x | (me->y << 8)); else uint8_t x = (uint8_t)Q_PAR(me); uint8_t y = (uint8_t)(Q_PAR(me) >> 8); uint8_t bmp = (uint8_t)(Q_PAR(me) >> 16); BSP_doBitmapsOverlap(MINE2_BMP, me->x, me->y, bmp, x, y) QACTIVE_POST(&AO_Ship, HIT_MINE_SIG, 2); /* go straight to 'disabled' and let the Ship do the exploding */ uint8_t x = (uint8_t)Q_PAR(me); uint8_t y = (uint8_t)(Q_PAR(me) >> 8); uint8_t bmp = (uint8_t)(Q_PAR(me) >> 16); BSP_doBitmapsOverlap(MINE2_MISSILE_BMP, me->x, me->y, bmp, x, y) /* NOTE: Mine type-2 is nastier than Mine type-1. * The type-2 mine can hit the Ship with any of its * "tentacles". However, it can be destroyed by the * Missile only by hitting its center, defined as * a smaller bitmap MINE2_MISSILE_BMP. */ /* post the score for destroying Mine type-2 */ QACTIVE_POST(&AO_Missile, DESTROYED_MINE_SIG, 45); me->exp_ctr = 0; (me->x >= GAME_SPEED_X) && (me->exp_ctr < 15) ++me->exp_ctr; /* advance the explosion counter */ me->x -= GAME_SPEED_X; /* move explosion by 1 step */ /* tell the Game to render the current stage of Explosion */ QACTIVE_POST(&AO_Tunnel, EXPLOSION_SIG, ((EXPLOSION0_BMP + (me->exp_ctr >> 2)) << 16) | (me->x + 1) | (((int)me->y - 4 + 2)) << 8); else uint8_t n; Tunnel *me = &AO_Tunnel; QActive_ctor(&me->super, Q_STATE_CAST(&Tunnel_initial)); for (n = 0; n < GAME_MINES_MAX; ++n) { me->mine1_pool[n] = Mine1_ctor(n); /* instantiate Mine1 in the pool */ me->mine2_pool[n] = Mine2_ctor(n); /* instantiate Mine2 in the pool */ me->mines[n] = (QHsm *)0; /* mine 'n' is unused */ } me->last_mine_x = 0; /* the last mine at the right edge of the tunnel */ me->last_mine_y = 0; Ship *me = &AO_Ship; QActive_ctor(&me->super, Q_STATE_CAST(&Ship_initial)); me->x = GAME_SHIP_X; me->y = (GAME_SHIP_Y << 2); Missile *me = &AO_Missile; QActive_ctor(&me->super, Q_STATE_CAST(&Missile_initial)); me->speed = speed; Mine1 *me; Q_REQUIRE(id < GAME_MINES_MAX); me = &l_mine1[id]; QHsm_ctor(&me->super, Q_STATE_CAST(&Mine1_initial)); return &me->super; Mine2 *me; Q_REQUIRE(id < GAME_MINES_MAX); me = &l_mine2[id]; QHsm_ctor(&me->super, Q_STATE_CAST(&Mine2_initial)); return &me->super; #ifndef GAME_H #define GAME_H enum GameSignals { /* signals used in the game */ TIME_TICK_SIG = Q_USER_SIG, /* published from tick ISR */ PLAYER_TRIGGER_SIG, /* posted by Player (ISR) to trigger the Missile */ PLAYER_QUIT_SIG, /* posted by Player (ISR) to quit the game */ GAME_OVER_SIG, /* posted by Ship when it finishes exploding */ PLAYER_SHIP_MOVE_SIG, /* posted by Player (ISR) to the Ship to move it */ TAKE_OFF_SIG, /* from Tunnel to Ship to grant permission to take off */ HIT_WALL_SIG, /* from Tunnel to Ship when Ship hits the wall */ HIT_MINE_SIG, /* from Mine to Ship or Missile when it hits the mine */ SHIP_IMG_SIG, /* from Ship to the Tunnel to draw and check for hits */ MISSILE_IMG_SIG, /* from Missile the Tunnel to draw and check for hits */ MINE_IMG_SIG, /* posted by Mine to the Tunnel to draw the mine */ MISSILE_FIRE_SIG, /* posted by Ship to the Missile to fire */ DESTROYED_MINE_SIG, /* from Missile to Ship when Missile destroyed Mine */ EXPLOSION_SIG, /* from any exploding object to render the explosion */ MINE_PLANT_SIG, /* from Tunnel to the Mine to plant it */ MINE_DISABLED_SIG,/* from Mine to Tunnel when it becomes disabled */ MINE_RECYCLE_SIG, /* posted by Tunnel to Mine to recycle the mine */ SCORE_SIG /* from Ship to Tunnel to adjust game level based on score */ }; /* active objects ..........................................................*/ extern struct Tunnel AO_Tunnel; extern struct Ship AO_Ship; extern struct Missile AO_Missile; $declare(AOs::Tunnel_ctor) $declare(AOs::Ship_ctor) $declare(AOs::Missile_ctor) /* common constants and shared helper functions ............................*/ #define GAME_TUNNEL_WIDTH BSP_SCREEN_WIDTH #define GAME_TUNNEL_HEIGHT (BSP_SCREEN_HEIGHT - 10U) #define GAME_MINES_MAX 5U #define GAME_MINES_DIST_MIN 10U #define GAME_SPEED_X 1U #define GAME_MISSILE_SPEED_X 2U #define GAME_SHIP_X 10U #define GAME_SHIP_Y (GAME_TUNNEL_HEIGHT / 2U) #define GAME_WALLS_GAP_Y 50U #define GAME_WALLS_MIN_GAP_Y 20U enum GameBitmapIds { SHIP_BMP, MISSILE_BMP, MINE1_BMP, MINE2_BMP, MINE2_MISSILE_BMP, EXPLOSION0_BMP, EXPLOSION1_BMP, EXPLOSION2_BMP, EXPLOSION3_BMP, MAX_BMP }; /* instantiation of the Mines orthogonal components */ $declare(AOs::Mine1_ctor) $declare(AOs::Mine2_ctor) #endif /* GAME_H */ #include "qpn.h" #include "game.h" #include "bsp.h" /* Q_DEFINE_THIS_MODULE("missile") */ /* encapsulated delcaration of the Missile active object -------------------*/ $declare(AOs::Missile) /* global objects ----------------------------------------------------------*/ Missile AO_Missile; /* Active object definition ------------------------------------------------*/ $define(AOs::Missile_ctor) $define(AOs::Missile) #include "qpn.h" #include "game.h" #include "bsp.h" /* Q_DEFINE_THIS_MODULE(ship) */ #define SHIP_WIDTH 5U #define SHIP_HEIGHT 3U /* encapsulated delcaration of the Ship active object ----------------------*/ $declare(AOs::Ship) /* global objects ----------------------------------------------------------*/ Ship AO_Ship; /* Active object definition ------------------------------------------------*/ $define(AOs::Ship_ctor) $define(AOs::Ship) #include "qpn.h" #include "game.h" #include "bsp.h" Q_DEFINE_THIS_MODULE("tunnel") /* local objects -----------------------------------------------------------*/ $declare(AOs::Tunnel) /* global objects ----------------------------------------------------------*/ Tunnel AO_Tunnel; /* Active object definition ================================================*/ $define(AOs::Tunnel_ctor) $define(AOs::Tunnel) #include "qpn.h" #include "game.h" #include "bsp.h" Q_DEFINE_THIS_MODULE("mine1") /* encapsulated delcaration of the Mine1 HSM -------------------------------*/ $declare(AOs::Mine1) /* local objects -----------------------------------------------------------*/ static Mine1 l_mine1[GAME_MINES_MAX]; /* a pool of type-1 mines */ /* helper macro to provide the ID of this mine */ #define MINE_ID(me_) ((me_) - l_mine1) /* Mine1 class definition --------------------------------------------------*/ $define(AOs::Mine1_ctor) $define(AOs::Mine1) #include "qpn.h" #include "game.h" #include "bsp.h" Q_DEFINE_THIS_MODULE("mine2") /* encapsulated delcaration of the Mine2 HSM -------------------------------*/ $declare(AOs::Mine2) /* local objects -----------------------------------------------------------*/ static Mine2 l_mine2[GAME_MINES_MAX]; /* a pool of type-2 mines */ /* helper macro to provide the ID of this mine */ #define MINE_ID(me_) ((me_) - l_mine2) /* Mine2 class definition --------------------------------------------------*/ $define(AOs::Mine2_ctor) $define(AOs::Mine2)