0
 Ї ------------------------------------------$ Ї Pixel Fandango Space Fighter X0 Ї ------------------------------------------( Ї ChangeLog (over V1)2 Ї + Multicolour entities< Ї + High ScoreF Ї + StarsP Ї + Better sounds.Z Ї + Aliens dont bomb near bottom of screend Ї + 2nd alien design!n Ї + 2nd aliens enter from RHS"x Ї + Bonus collection and modes&В Ї + Fix player explosion disappearМ Ї + Fix alternate wave bugЦ Ї + High wave0а Ї ------------------------------------------к ы 1┤ юЕ Є_ShowError╛ Ї Set sound envelopes...,╚ т 1,1,4,-4,4,10,20,10,127,0,0,-1,100,100-╥ т 2,129,3,5,2,10,20,10,127,0,0,-5,126,126-▄ т 3,129,0,0,0,10,10,10,127,5,0,-5,126,126ц Ї Set colour palette...Ё я 19,1,5,0,0,0· я 19,2,6,0,0,0я 19,3,3,0,0,0COL_EXPLODE=3Ї Entity States..."DEAD_ENTITY=0,,ALIEN_LIVE=20:ALIEN_EXPLODE=ALIEN_LIVE-16ALIEN_RND_WAVE=22@BONUS_TIME=10JMIN_BOMB_HEIGHT=4201TPLAYER_LIVE=250: PLAYER_EXPLODE=PLAYER_LIVE-1"^Ї Base entity field offsets...heENTITY_SIZE=25reTYPE=0|eSIZE=1ЖeIMAGE=2РeSTATE=6ЪeXPOS=7дeYPOS=11оeHWIDTH=15╕eHHEIGHT=16┬eXCENTRE=17╠eYCENTRE=21&╓Ї Special fields above base entity%рeFLIGHT_PATH_INDEX=eENTITY_SIZE+0$ъeFLIGHT_PATH_SIDE=eENTITY_SIZE+1ЇЇ Entity types;■ePLAYER=0:eBULLET=1:eBOMB=2:eALIEN=3:eBONUS=4:eSHIELD=5&Ї Entity part drawing instructions$dMOVE=1:dDRAW=2:dCOLOUR=3:dEND=0Ї Bonus Modes3&bmNONE=0:bmLIFE=1:bmSHIELD=2:bm2SHOT=3:bmCONT=470bmMAX=bmCONT:bmTIME=500:bmTIMESHOW=50:bmMSGSHOW=100:Ї Other global settings..."DBOMB_SPEED=12: BULLET_SPEED=20)NPLAYER_START_X=600: PLAYER_START_Y=400XЇ ------------------------------------------#bЇ Populate static data for game0lЇ ------------------------------------------vЇ&АЇ Create alien flight path data...К▐ pathData% 550ФFLIGHT_PATH_SIZE=255ЮFLIGHT_PATH_IX_LHS=220иFLIGHT_PATH_IX_RHS=1000▓FLIGHT_PATH_IY=9501╝endOfPathData%=д_InitFlightPattern(pathData%)╞▐ starData% 64╨STARS_SIZE=32)┌endOfStarDate%=д_InitStars(starData%)&фЇ Add graphic image definitions...ю▐ images% 450°workImage%=images%rocketImage%=workImage%-workImage%=д_AddRocketImage(rocketImage%)alien1Image%=workImage%- workImage%=д_AddAlien1Image(alien1Image%)*alien2Image%=workImage%-4workImage%=д_AddAlien2Image(alien2Image%)>bulletImage%=workImage%-HworkImage%=д_AddBulletImage(bulletImage%)RexplosionImage%=workImage%3\workImage%=д_AddExplosionImage(explosionImage%)!fbigExplosionImage%=workImage%9pworkImage%=д_AddBigExplosionImage(bigExplosionImage%)zbonusImage%=workImage%+ДworkImage%=д_AddBonusImage(bonusImage%)ОshieldImage%=workImage%-ШworkImage%=д_AddShieldImage(shieldImage%)вЇ Allocate entity space...мpNext%=0╢▐ entities% 28000└Ї ------------------------------------------╩Ї Program control loop0╘Ї ------------------------------------------▐HighScore%=1000шHighWave%=10Єї№Ї Player's rocket...pRocket%=entities%)rX%=PLAYER_START_X:rY%=PLAYER_START_YRpNext%=д_InitEntity(ePLAYER, 0, pRocket%, rocketImage%, PLAYER_LIVE, rX%, rY%)$Ї Bonus object....pBonus%=pNext%A8pNext%=д_InitEntity(eBONUS, 0, pBonus%, bonusImage%, 0, 0, 0)BЇ Shield object...LpShield%=pNext%DVpNext%=д_InitEntity(eSHIELD, 0, pShield%, shieldImage%, 0, 0, 0)`Ї Aliens...jMaxAliens%=20tpAliens%=pNext%~у A=0 ╕ MaxAliens%zИpNext%=д_InitAlien(eALIEN, pNext%, alien1Image%, DEAD_ENTITY, FLIGHT_PATH_IX_LHS, FLIGHT_PATH_IY, FLIGHT_PATH_SIZE, 0)Тэ AЬЇ Bullets...жMaxBullets%=30░pBullets%=pNext%║у B=0 ╕ MaxBullets%B─pNext%=д_InitEntity(eBULLET, 0, pNext%, bulletImage%, 0, 0, 0)╬э B╪pNextBullet%=pBullets%тpEndBullets%=pNext%ьЇ Bombs...ЎMaxBombs%=50 pBombs%=pNext%
у B=0 ╕ MaxBombs%@pNext%=д_InitEntity(eBOMB, 0, pNext%, bulletImage%, 0, 0, 0)э B(pNextBomb%=pBombs%2pEndBombs%=pNext%<canFire%=0	F█:я 5Pь 0, 328
Zц 0, 3.dЇ Uncomment below to see object mem use...3nЇ PRINT "images: "; workImage%-images% " bytes"3xЇ PRINT "entities: "; pNext%-entities% " bytes";ВЇ PRINT "fli-path: "; endOfPathData%-pathData% " bytes"Мь 410,700:ё"PIXEL FANDANGO"&Ць 300,120:ё"www.PIXELFANDANGO.com"'аь 265,70:ё"youTube:@pixel_fandango"
кц 0, 1 ┤ь 395,640:ё"SPACE-FIGHTER-X"
╛ц 0, 2'╚ь 420,1000:ё "HI SCORE:";HighScore%$╥ь 480,950:ё "HI WAVE:";HighWave%!▄ь 380,550:ё"(Z) (X) (RETURN)")цЇ Pause then clear keyboard buffer...ЁЄ_Pause(100)
·*FX 15&ь 303,470:ё"PRESS ANY KEY TO PLAY";Ї Init sound (some emulators pause on first sound call)╘ 0,-1,200,1: ╘ 1,-1,200,1"a%=е,╘ 1,1,100,50	6█:я 5@score%=0JlastScore%=0Tlives%=3^spawnSize%=4hwave%=0rbonusMode%=bmNONE|bonusCountDown%=0ЖmsgCountDown%=0РmsgText$=""0ЪЇ ------------------------------------------дЇ Outer game loop...0оЇ ------------------------------------------╕cycle%=0┬ї'╠Є_NewPlayer(pRocket%, rocketImage%)&╓Є_MoveEntityTo(pRocket%, rX%, rY%)рalienSpawn%=0.ъЇ ----------------------------------------ЇЇ Inner game loop....■Ї ----------------------------------------їcycle%=cycle%+1"Є_DrawStars(starData%, cycle%)P&ч score%>HighScore% М ь 570,1000:ц 0,0:ё "HI:";HighScore%:HighScore%=score%:S0ч score%<>lastScore% М ь 200,1000:ц 0,0:ё "SCORE:";lastScore%:lastScore%=score%0:ч msgCountDown%>1 ь 460,550:ц 0,1:ё msgText$5Dч msgCountDown%>0 М msgCountDown%=msgCountDown%-12Nч msgCountDown%=1 М ь 460,550:ц 0,0:ё msgText$^Xч bonusMode%=bmLIFE М ь 870,1000:ц 0,0:ё "LIVES:";lives%:lives%=lives%+1:bonusMode%=bmNONE]bч bonusCountDown%>0 А bonusMode%>bmLIFE М ц 0,0: ь 360,500:ё bonusCountDown% Б bmTIMESHOW7lч bonusCountDown%=1 М bonusMode%=bmNONE:╘ 1,1,60,10;vч bonusCountDown%>0 М bonusCountDown%=bonusCountDown%-1]Ач bonusCountDown%>0 А bonusMode%>bmLIFE М ц 0,2: ь 360,500:ё bonusCountDown% Б bmTIMESHOWiКч bonusCountDown%>0 А bonusCountDown% Г bmTIMESHOW = 0 М ╘ 3,-15,200 - bonusCountDown% Б bmTIMESHOW,5	Фц 0,3 Юь 200,1000:ё "SCORE:";score% иь 870,1000:ё "LIVES:";lives%▓ч score%=HighScore% ц 0,2!╝ь 570,1000:ё "HI:";HighScore%!╞pPlayerState%=pRocket%+eSTATE╨Ї draw aliens...┌workAlien%=pAliens%фnLiveAliens%=0юу A=0 ╕ MaxAliens%4°Ї Update explosion count (if in exploding state)"pAlienState%=workAlien%+eSTATE~ч ?(pAlienState%)=BONUS_TIME А bonusMode%=0 А │(20)=1 М Є_DropBonus(pBonus%,!(workAlien%+eXCENTRE),!(workAlien%+eYCENTRE))Jч ?(pAlienState%)=1 М Є_ClearEntity(workAlien%):?(workAlien%+eSTATE)=0q ч ?(pAlienState%)>0 А ?(pAlienState%)<ALIEN_LIVE М ?(pAlienState%)=?(pAlienState%)-1:Є_DrawEntity(workAlien%)(*isAlive%=?(pAlienState%)>=ALIEN_LIVEд4ч isAlive% А ?(pPlayerState%)=PLAYER_LIVE А !(workAlien%+eYPOS)>MIN_BOMB_HEIGHT А │(1000)<20 М pNextBomb%=д_DropBomb(workAlien%, pNextBomb%,pBombs%, pEndBombs%)В>ч isAlive% М workAlien%=д_UpdateAlien(workAlien%, pBullets%, pathData%, explosionImage%) Л workAlien%=д_NextEntity(workAlien%),Hч isAlive% М nLiveAliens%=nLiveAliens%+1Rэ A}\ч nLiveAliens%=0 А alienSpawn%=0 М alienSpawn%=spawnSize%:wave%=wave%+1:ч spawnSize%<MaxAliens% М spawnSize%=spawnSize%+1dfч cycle% Г 5 = 0 А alienSpawn%>0 М Є_StartAlienForWave(pAliens%,wave%):alienSpawn%=alienSpawn%-1pЇ draw bullets...zworkBullet%=pBullets%Ду B=0 ╕ MaxBullets%9ОworkBullet%=д_UpdateBullet(workBullet%, BULLET_SPEED)Шэ BвworkBomb%=pBombs%му B=0 ╕ MaxBombs%3╢workBomb%=д_UpdateBullet(workBomb%, BOMB_SPEED)└э B╩Ї draw bonus object...$╘Є_UpdateBonus(pBonus%, pRocket%)▐Ї handle user input...шnewX%=rX%3Єч ж(-98) М newX%=newX%-12:ч newX%<32 М newX%=327№ч ж(-67) М newX%=newX%+12:ч newX%>1150 М newX%=1150:	ч ж(-74)=0 А ?(pPlayerState%)=PLAYER_LIVE М canFire%=1a	ч bonusMode%=bmCONT А ?(pPlayerState%)=PLAYER_LIVE А canFire%=0 А cycle% Г 5 = 0 М canFire%=1О	ч bonusMode%=bm2SHOT А canFire%=1 А ж(-74) М pNextBullet%=д_SetWingBullets(pNextBullet%,pBullets%,pEndBullets%,1,rX%+52,rY%+95):canFire%=0К$	ч bonusMode%<>bm2SHOT А canFire%=1 А ж(-74) М pNextBullet%=д_SetBullet(pNextBullet%,pBullets%,pEndBullets%,1,rX%+52,rY%+95):canFire%=0G.	ч bonusMode%=bmSHIELD А ?(pShield%+eSTATE)=0 М ?(pShield%+eSTATE)=1`8	ч bonusMode%<>bmSHIELD А ?(pShield%+eSTATE)=1 М ?(pShield%+eSTATE)=0:Є_ClearEntity(pShield%)%B	Ї Wait for screen refresh sync...	L	*FX19`V	ч newX%<>rX% А ?(pPlayerState%)=PLAYER_LIVE М Є_MoveEntityTo(pRocket%, newX%, rY%):rX%=newX%>`	ч bonusMode%=bmSHIELD М Є_MoveEntityTo(pShield%, rX%, rY%)_j	ч ?(pPlayerState%)<PLAYER_LIVE М ?(pPlayerState%)=?(pPlayerState%)-1:Є_DrawEntity(pRocket%){t	ч bonusMode%<>bmSHIELD А д_IsPlayerCollision(pRocket%, pBombs%) М Є_KillPlayer(pRocket%, bigExplosionImage%):canFire%=0~	¤ ?(pRocket%+eSTATE)=0&И	ь 870,1000:ц 0,0:ё "LIVES:";lives%Т	lives%=lives%-1Ь	¤ lives%=0ж	ц 0,128:█	░	ц 0,2║	я 5:ь 505,500:ё"GAME OVER"	─	ц 0,3 ╬	ь 200,1000:ё "SCORE:";score%!╪	ь 870,1000:ё "HI:";HighScore%,т	ч wave%>HighWave% М HighWave%=wave%:ц0,1(ь	ь 350,600:ё"YOU REACHED WAVE ";wave%Ў	Є_Pause(250) 
¤ 0

р8
Ї --------------------------------------------------3
Ї Functions to handle graphic image definitions8(
Ї --------------------------------------------------2
Ї <
Ї -------------------------- F
Ї Function to add image defnP
Ї header information forZ
Ї collision detection d
Ї --------------------------Bn
▌ д_AddImageHeader(address%, centreX%, centreY%, collnRadius%)x
?(address%+0)=centreX%В
?(address%+1)=centreY%М
?(address%+2)=collnRadius%Ц
=address%+3 а
Ї --------------------------к
Ї Function to add an image┤
Ї part to defn at address ╛
Ї type: 0=end 1=MOVE, 2=DRAW╚
Ї x,y are coords from TL╥
Ї Returns next free address ▄
Ї ---------------------------ц
▌ д_AddImagePart(address%, type%, x%, y%)Ё
?(address%+0)=type%·
?(address%+1)=x%?(address%+2)=y%=address%+3Ї:"▌ д_AddImagePartScaled(address%, type%, x%, y%, scale),?(address%+0)=type%6?(address%+1)=и(x%*scale)@?(address%+2)=и(y%*scale)J=address%+3TЇ-^▌ д_AddImagePartColour(address%, colour%)h?(address%+0)=3r?(address%+1)=colour%|=address%+2ЖЇ РЇ --------------------------ЪЇ Functions to add images дЇ -------------------------- о▌ д_AddRocketImage(address%)╕rScale=0.8Q┬address%=д_AddImageHeader(address%, и(70*rScale), и(55*rScale), и(67*rScale)).╠address%=д_AddImagePartColour(address%, 2)B╓address%=д_AddImagePartScaled(address%, dMOVE, 80, 40, rScale)Cрaddress%=д_AddImagePartScaled(address%, dDRAW, 100, 20, rScale)Aъaddress%=д_AddImagePartScaled(address%, dDRAW, 80, 0, rScale)AЇaddress%=д_AddImagePartScaled(address%, dDRAW, 60, 0, rScale)B■address%=д_AddImagePartScaled(address%, dDRAW, 40, 20, rScale)Baddress%=д_AddImagePartScaled(address%, dDRAW, 60, 40, rScale)Baddress%=д_AddImagePartScaled(address%, dDRAW, 80, 40, rScale)Baddress%=д_AddImagePartScaled(address%, dDRAW, 80, 80, rScale)C&address%=д_AddImagePartScaled(address%, dDRAW, 100, 60, rScale)C0address%=д_AddImagePartScaled(address%, dDRAW, 70, 120, rScale)B:address%=д_AddImagePartScaled(address%, dDRAW, 80, 80, rScale)BDaddress%=д_AddImagePartScaled(address%, dDRAW, 60, 80, rScale)CNaddress%=д_AddImagePartScaled(address%, dDRAW, 70, 120, rScale)BXaddress%=д_AddImagePartScaled(address%, dDRAW, 40, 60, rScale)Bbaddress%=д_AddImagePartScaled(address%, dDRAW, 60, 80, rScale)Bladdress%=д_AddImagePartScaled(address%, dDRAW, 60, 40, rScale)vЇ left wing.Аaddress%=д_AddImagePartColour(address%, 3)BКaddress%=д_AddImagePartScaled(address%, dMOVE, 40, 20, rScale)AФaddress%=д_AddImagePartScaled(address%, dDRAW, 5, 25, rScale)AЮaddress%=д_AddImagePartScaled(address%, dDRAW, 5, 35, rScale)Bиaddress%=д_AddImagePartScaled(address%, dDRAW, 40, 60, rScale)B▓address%=д_AddImagePartScaled(address%, dDRAW, 40, 20, rScale)╝Ї right wingC╞address%=д_AddImagePartScaled(address%, dMOVE, 100, 20, rScale)C╨address%=д_AddImagePartScaled(address%, dDRAW, 135, 25, rScale)C┌address%=д_AddImagePartScaled(address%, dDRAW, 135, 35, rScale)Cфaddress%=д_AddImagePartScaled(address%, dDRAW, 100, 60, rScale)Cюaddress%=д_AddImagePartScaled(address%, dDRAW, 100, 20, rScale)°?(address%)=dEND=address%+1 ▌ д_AddShieldImage(address%)rScale=0.8Q address%=д_AddImageHeader(address%, и(70*rScale), и(60*rScale), и(64*rScale)).*address%=д_AddImagePartColour(address%, 1)A4address%=д_AddImagePartScaled(address%, dMOVE, 0, 90, rScale)C>address%=д_AddImagePartScaled(address%, dDRAW, 40, 130, rScale)DHaddress%=д_AddImagePartScaled(address%, dDRAW, 100, 130, rScale)CRaddress%=д_AddImagePartScaled(address%, dDRAW, 140, 90, rScale)\?(address%)=dENDf=address%+1 p▌ д_AddAlien1Image(address%)zaScale=1.4QДaddress%=д_AddImageHeader(address%, и(25*aScale), и(20*aScale), и(24*aScale)).Оaddress%=д_AddImagePartColour(address%, 1)BШaddress%=д_AddImagePartScaled(address%, dMOVE, 40, 30, aScale)Bвaddress%=д_AddImagePartScaled(address%, dDRAW, 40, 10, aScale)Aмaddress%=д_AddImagePartScaled(address%, dDRAW, 50, 0, aScale)B╢address%=д_AddImagePartScaled(address%, dDRAW, 50, 20, aScale)B└address%=д_AddImagePartScaled(address%, dDRAW, 30, 40, aScale)B╩address%=д_AddImagePartScaled(address%, dDRAW, 20, 40, aScale)A╘address%=д_AddImagePartScaled(address%, dDRAW, 0, 20, aScale)@▐address%=д_AddImagePartScaled(address%, dDRAW, 0, 0, aScale)Bшaddress%=д_AddImagePartScaled(address%, dDRAW, 10, 10, aScale)BЄaddress%=д_AddImagePartScaled(address%, dDRAW, 10, 30, aScale)B№address%=д_AddImagePartScaled(address%, dDRAW, 10, 10, aScale)Aaddress%=д_AddImagePartScaled(address%, dDRAW, 20, 0, aScale)Aaddress%=д_AddImagePartScaled(address%, dDRAW, 30, 0, aScale)Baddress%=д_AddImagePartScaled(address%, dDRAW, 40, 10, aScale).$address%=д_AddImagePartColour(address%, 3)B.address%=д_AddImagePartScaled(address%, dMOVE, 15, 20, aScale)B8address%=д_AddImagePartScaled(address%, dDRAW, 35, 20, aScale)BBaddress%=д_AddImagePartScaled(address%, dDRAW, 35, 30, aScale)BLaddress%=д_AddImagePartScaled(address%, dDRAW, 25, 20, aScale)BVaddress%=д_AddImagePartScaled(address%, dDRAW, 15, 30, aScale)B`address%=д_AddImagePartScaled(address%, dDRAW, 15, 20, aScale).jaddress%=д_AddImagePartColour(address%, 2)Btaddress%=д_AddImagePartScaled(address%, dDRAW, 25, 10, aScale)B~address%=д_AddImagePartScaled(address%, dDRAW, 35, 20, aScale)И?(address%)=dENDТ=address%+1 Ь▌ д_AddAlien2Image(address%)жaScale=1.4Q░address%=д_AddImageHeader(address%, и(25*aScale), и(20*aScale), и(24*aScale)).║address%=д_AddImagePartColour(address%, 1)B─address%=д_AddImagePartScaled(address%, dMOVE, 20, 40, aScale)B╬address%=д_AddImagePartScaled(address%, dDRAW, 30, 40, aScale)B╪address%=д_AddImagePartScaled(address%, dDRAW, 40, 30, aScale)Bтaddress%=д_AddImagePartScaled(address%, dDRAW, 40, 10, aScale)Aьaddress%=д_AddImagePartScaled(address%, dDRAW, 30, 0, aScale)AЎaddress%=д_AddImagePartScaled(address%, dDRAW, 20, 0, aScale)B address%=д_AddImagePartScaled(address%, dDRAW, 10, 10, aScale)B
address%=д_AddImagePartScaled(address%, dDRAW, 10, 30, aScale)Baddress%=д_AddImagePartScaled(address%, dDRAW, 20, 40, aScale).address%=д_AddImagePartColour(address%, 3)B(address%=д_AddImagePartScaled(address%, dMOVE, 15, 30, aScale)B2address%=д_AddImagePartScaled(address%, dDRAW, 25, 25, aScale)B<address%=д_AddImagePartScaled(address%, dDRAW, 35, 30, aScale)BFaddress%=д_AddImagePartScaled(address%, dDRAW, 35, 20, aScale)BPaddress%=д_AddImagePartScaled(address%, dDRAW, 15, 20, aScale)BZaddress%=д_AddImagePartScaled(address%, dDRAW, 15, 30, aScale).daddress%=д_AddImagePartColour(address%, 2)Bnaddress%=д_AddImagePartScaled(address%, dMOVE, 15, 15, aScale)Bxaddress%=д_AddImagePartScaled(address%, dDRAW, 35, 15, aScale).Вaddress%=д_AddImagePartColour(address%, 3)AМaddress%=д_AddImagePartScaled(address%, dMOVE, 0, 10, aScale)AЦaddress%=д_AddImagePartScaled(address%, dDRAW, 5, 20, aScale)Aаaddress%=д_AddImagePartScaled(address%, dDRAW, 0, 30, aScale)Bкaddress%=д_AddImagePartScaled(address%, dMOVE, 50, 10, aScale)B┤address%=д_AddImagePartScaled(address%, dDRAW, 45, 20, aScale)B╛address%=д_AddImagePartScaled(address%, dDRAW, 50, 30, aScale)╚?(address%)=dEND╥=address%+1 ▄▌ д_AddBulletImage(address%)0цaddress%=д_AddImageHeader(address%, 3, 8, 5).Ёaddress%=д_AddImagePartColour(address%, 3)2·address%=д_AddImagePart(address%, dMOVE, 0, 0)2address%=д_AddImagePart(address%, dDRAW, 6, 0)3address%=д_AddImagePart(address%, dDRAW, 6, 16)3address%=д_AddImagePart(address%, dDRAW, 0, 16)2"address%=д_AddImagePart(address%, dDRAW, 0, 0),?(address%)=dEND6=address%+1#@▌ д_AddExplosionImage(address%)3Jaddress%=д_AddImageHeader(address%, 25, 25, 25).Taddress%=д_AddImagePartColour(address%, 1)2^address%=д_AddImagePart(address%, dMOVE, 0, 0)4haddress%=д_AddImagePart(address%, dDRAW, 10, 20)3raddress%=д_AddImagePart(address%, dDRAW, 0, 30)4|address%=д_AddImagePart(address%, dDRAW, 15, 30)4Жaddress%=д_AddImagePart(address%, dDRAW, 20, 50)4Рaddress%=д_AddImagePart(address%, dDRAW, 30, 30)4Ъaddress%=д_AddImagePart(address%, dDRAW, 50, 40)4дaddress%=д_AddImagePart(address%, dDRAW, 40, 20)4оaddress%=д_AddImagePart(address%, dDRAW, 50, 10)4╕address%=д_AddImagePart(address%, dDRAW, 35, 10)3┬address%=д_AddImagePart(address%, dDRAW, 30, 0)4╠address%=д_AddImagePart(address%, dDRAW, 20, 10)2╓address%=д_AddImagePart(address%, dDRAW, 0, 0)р?(address%)=dENDъ=address%+1&Ї▌ д_AddBigExplosionImage(address%)3■address%=д_AddImageHeader(address%, 50, 50, 50).address%=д_AddImagePartColour(address%, 2)2address%=д_AddImagePart(address%, dMOVE, 0, 0)4address%=д_AddImagePart(address%, dDRAW, 20, 40)3&address%=д_AddImagePart(address%, dDRAW, 0, 60)40address%=д_AddImagePart(address%, dDRAW, 30, 60)5:address%=д_AddImagePart(address%, dDRAW, 40, 100)4Daddress%=д_AddImagePart(address%, dDRAW, 60, 60)5Naddress%=д_AddImagePart(address%, dDRAW, 100, 80)4Xaddress%=д_AddImagePart(address%, dDRAW, 80, 40)5baddress%=д_AddImagePart(address%, dDRAW, 100, 20)4laddress%=д_AddImagePart(address%, dDRAW, 70, 20)3vaddress%=д_AddImagePart(address%, dDRAW, 60, 0)4Аaddress%=д_AddImagePart(address%, dDRAW, 40, 20)2Кaddress%=д_AddImagePart(address%, dDRAW, 0, 0)Ф?(address%)=dENDЮ=address%+1и▌ д_AddBonusImage(address%)3▓address%=д_AddImageHeader(address%, 20, 20, 20).╝address%=д_AddImagePartColour(address%, 2)4╞address%=д_AddImagePart(address%, dMOVE, 20, 40)3╨address%=д_AddImagePart(address%, dDRAW, 0, 20)3┌address%=д_AddImagePart(address%, dDRAW, 20, 0)4фaddress%=д_AddImagePart(address%, dDRAW, 40, 20)4юaddress%=д_AddImagePart(address%, dDRAW, 20, 40)4°address%=д_AddImagePart(address%, dDRAW, 10, 10)4address%=д_AddImagePart(address%, dDRAW, 30, 10)4address%=д_AddImagePart(address%, dDRAW, 20, 40)?(address%)=dEND =address%+1*Ї 4Ї -------------------------->Ї Proc to draw image from HЇ data at address in pos x,y RЇ --------------------------"\▌ Є_DrawImage(pImage%, x%, y%)$fЇ Skip the header information...ppImage%=pImage%+3zЇ Draw each image part...Дї,ОpImage%=д_DrawImagePart(pImage%, x%, y%)Ш¤ pImage%=0вс мЇ --------------------------╢Ї Proc to clear image └Ї --------------------------#╩▌ Є_ClearImage(pImage%, x%, y%)$╘Ї Skip the header information...▐pImage%=pImage%+3шЇ Clear each image part...	Єц 0,0№ї-pImage%=д_ClearImagePart(pImage%, x%, y%)¤ pImage%=0с$Ї .Ї --------------------------8Ї Function to draw part BЇ --------------------------%L▌ д_DrawImagePart(pPart%, x%, y%)&V=д_RenderImagePart(pPart%, x%, y%) `Ї --------------------------jЇ Function to clear part tЇ --------------------------&~▌ д_ClearImagePart(pPart%, x%, y%)'ИЇ Ignore colour change instructions#Тч ?(pPart%)=dCOLOUR М =pPart%+2&Ь=д_RenderImagePart(pPart%, x%, y%) жЇ --------------------------░Ї Function to draw single║Ї part of an image defn─Ї and return next address╬Ї or 0 if its the last part ╪Ї --------------------------'т▌ д_RenderImagePart(pPart%, x%, y%),ьЇ Return 0 if this item is an end markerЎч ?pPart%=dEND М =09 Ї Either move or draw to a point in background colour8
ч ?(pPart%)=dMOVE М ь ?(pPart%+1)+x%, ?(pPart%+2)+y%8ч ?(pPart%)=dDRAW М ▀ ?(pPart%+1)+x%, ?(pPart%+2)+y%5ч ?(pPart%)=dCOLOUR М ц 0, ?(pPart%+1): =pPart%+2(Ї return next address2=pPart%+3<Ї8FЇ --------------------------------------------------'PЇ Functions to handle game entities8ZЇ --------------------------------------------------dЇ nЇ --------------------------xЇ Initialise a new entityВЇ Return next address МЇ --------------------------HЦ▌ д_InitEntity(typeId%, addSize%, pEntity%, pImage%, state%, x%, y%)$аЇ Record basic entity parametersк?pEntity%=typeId%+┤?(pEntity%+eSIZE)=eENTITY_SIZE+addSize%╛!(pEntity%+eIMAGE)=pImage%╚?(pEntity%+eSTATE)=state%╥!(pEntity%+eXPOS)=x%▄!(pEntity%+eYPOS)=y%-цЇ Calc offsets for collision detection.../Ё?(pEntity%+eHWIDTH)=?(!(pEntity%+eIMAGE)+0)0·?(pEntity%+eHHEIGHT)=?(!(pEntity%+eIMAGE)+1)+Ї Reserve space for centreX and centreY+Ї calcs on move for collision detection!(pEntity%+eXCENTRE)=0"!(pEntity%+eYCENTRE)=04,Ї Anything after this is specific to entity type6=pEntity%+?(pEntity%+eSIZE) @Ї --------------------------JЇ Draw or clear an entity TЇ --------------------------^▌ Є_DrawEntity(pEntity%)IhЄ_DrawImage(!(pEntity%+eIMAGE), !(pEntity%+eXPOS), !(pEntity%+eYPOS))rс|▌ Є_ClearEntity(pEntity%)	Жц 0,0JРЄ_ClearImage(!(pEntity%+eIMAGE), !(pEntity%+eXPOS), !(pEntity%+eYPOS))ЪсдЇ оЇ --------------------------╕Ї Calc collision range┬Ї based on position, width,╠Ї height and radius. ╓Ї -------------------------- р▌ Є_SetCollnCentre(pEntity%)>ъ!(pEntity%+eXCENTRE)=!(pEntity%+eXPOS)+?(pEntity%+eHWIDTH)?Ї!(pEntity%+eYCENTRE)=!(pEntity%+eYPOS)+?(pEntity%+eHHEIGHT)■сЇ Ї --------------------------Ї Move an entity (relative) &Ї --------------------------$0▌ д_MoveEntity(pEntity%, dx, dy)(:Ї Only move if state > 0 (is active)8Dч ?(pEntity%+eSTATE)=0 М =pEntity%+?(pEntity%+eSIZE)NЄ_ClearEntity(pEntity%)XpX%=!(pEntity%+eXPOS)+dxbpY%=!(pEntity%+eYPOS)+dylч pX%>1280 М pX%=pX%-1280vч pX%<0 М pX%=pX%+1280Ач pY%>1024 М pY%=pY%-1024Кч pY%<0 М pY%=pY%+1024Ф!(pEntity%+eXPOS)=pX%Ю!(pEntity%+eYPOS)=pY%иЄ_SetCollnCentre(pEntity%)▓Є_DrawEntity(pEntity%)╝=pEntity%+?(pEntity%+eSIZE)╞Ї ╨Ї --------------------------┌Ї Move an entity (absolute) фЇ --------------------------&ю▌ Є_MoveEntityTo(pEntity%, x%, y%)(°Ї Only move if state > 0 (is active)ч ?(pEntity%+eSTATE)=0 М сЄ_ClearEntity(pEntity%)!(pEntity%+eXPOS)=x% !(pEntity%+eYPOS)=y%*Є_SetCollnCentre(pEntity%)4Є_DrawEntity(pEntity%)>сHЇ RЇ -------------------------- \Ї Get pointer to next entity fЇ --------------------------p▌ д_NextEntity(pEntity%)z=pEntity%+?(pEntity%+eSIZE)ДЇ ОЇ --------------------------ШЇ Collision Detection"вЇ lhs, rhs, top, bot collision%мЇ range pre calc'd on entity move ╢Ї --------------------------2└▌ д_IsCollision(pEntity1%, pEntity2%, radius%),╩Ї Only check if both entities are active7╘ч ?(pEntity1%+eSTATE)=0 Д ?(pEntity2%+eSTATE)=0 = 05▐dX=Ф(!(pEntity1%+eXCENTRE)-!(pEntity2%+eXCENTRE))5шdY=Ф(!(pEntity1%+eYCENTRE)-!(pEntity2%+eYCENTRE)) Єч dX<radius% А dY<radius% =1№=08Ї --------------------------------------------------Ї Specific entity functions8Ї --------------------------------------------------&$▌ д_UpdateBullet(pBullet%, speed%).Ї Is bullet active?8pState%=pBullet%+eSTATE0Bч ?(pState%)=0 М =pBullet%+?(pBullet%+eSIZE)?Lч ?(pState%)=1 М pNext% = д_MoveEntity(pBullet%, 0, speed%)@Vч ?(pState%)=2 М pNext% = д_MoveEntity(pBullet%, 0, -speed%);`ч ?(pState%)=3 М ?(pState%)=0 : Є_ClearEntity(pBullet%)Bjч !(pBullet%+eYPOS)>1000 Д !(pBullet%+eYPOS)<24 М ?(pState%)=3t=pBullet%+?(pBullet%+eSIZE)8~Ї --------------------------------------------------CИ▌ д_SetBullet(pBullet%, pStartBMem%, pEndBMem%, state%, x%, y%)Т?(pBullet%+eSTATE)=state%Ь!(pBullet%+eXPOS)=x%ж!(pBullet%+eYPOS)=y%░Є_SetCollnCentre(pBullet%)║ч state%=1 М ╘ 2,2,100,1;─ч(pBullet%+?(pBullet%+eSIZE)>=pEndBMem%) М =pStartBMem%╬=pBullet%+?(pBullet%+eSIZE)8╪Ї --------------------------------------------------Hт▌ д_SetWingBullets(pBullet%, pStartBMem%, pEndBMem%, state%, x%, y%)NьpNext%=д_SetBullet(pBullet%, pStartBMem%, pEndBMem%, state%, x%-50, y%-50)FЎ=д_SetBullet(pNext%, pStartBMem%, pEndBMem%, state%, x%+50, y%-50)8 Ї --------------------------------------------------R
▌ д_InitAlien(type%, pEntity%, pImage%, state%, x%, y%, pathIndex%, pathSide%)IendAddress%=д_InitEntity(type%, 2, pEntity%, pImage%, state%, x%, y%)-?(pEntity%+eFLIGHT_PATH_INDEX)=pathIndex%+(?(pEntity%+eFLIGHT_PATH_SIDE)=pathSide%2=endAddress%8<Ї --------------------------------------------------#F▌ Є_AlienHit(pAlien%, pBullet%)PЄ_ClearEntity(pAlien%)#Z?(pAlien%+eSTATE)=ALIEN_EXPLODE&d!(pAlien%+eIMAGE)=pExplosionImage%n?(pBullets%+eSTATE)=3x╘ 0,3,75,1Вscore%=score%+10Мс8ЦЇ --------------------------------------------------Aа▌ Є_CheckAlienCollision(pAlien%, pBullets%, pExplosionImage%)1кЇ If alien is exploding (or dead) then ignore#┤cRadius%=?(!(pAlien%+eIMAGE)+2)╛ч ?(pAlien%+eSTATE)<20 с╚у B=0 ╕ MaxBullets%m╥ч ?(pBullets%+eSTATE)>0 А д_IsCollision(workAlien%, pBullets%, cRadius%) Є_AlienHit(pAlien%, pBullets%):с*▄pBullets%=pBullets%+?(pBullets%+eSIZE)цэ BЁс8·Ї --------------------------------------------------,▌ д_IsPlayerCollision(pRocket%, pBombs%)$cRadius%=?(!(pRocket%+eIMAGE)+2)у B=0 ╕ MaxBombs%`"ч ?(pBombs%+eSTATE)>0 А д_IsCollision(pRocket%, pBombs%, cRadius%) М ?(pBombs%+eSTATE)=3: =1$,pBombs%=pBombs%+?(pBombs%+eSIZE)6э B@=08JЇ --------------------------------------------------GT▌ д_UpdateAlien(pAlien%, pBullets%, pFlightPath%, pExplosionImage%)>^Є_CheckAlienCollision(pAlien%, pBullets%, explosionImage%)&hfpi%=?(pAlien%+eFLIGHT_PATH_INDEX)rfpi%=fpi%+1%|ч fpi%>=FLIGHT_PATH_SIZE М fpi%=0hЖч fpi%=0 А ?(pAlien%+eFLIGHT_PATH_SIDE)=0 Є_MoveEntityTo(pAlien%,FLIGHT_PATH_IX_RHS, FLIGHT_PATH_IY)hРч fpi%=0 А ?(pAlien%+eFLIGHT_PATH_SIDE)=1 Є_MoveEntityTo(pAlien%,FLIGHT_PATH_IX_LHS, FLIGHT_PATH_IY)&Ъ?(pAlien%+eFLIGHT_PATH_INDEX)=fpi%"дpLookUp%=pFlightPath%+(fpi%*2)'оdX=?(pLookUp%):ч dX>128 М dX=128-dX-╕ч ?(pAlien%+eFLIGHT_PATH_SIDE)=0 М dX=-dX)┬dY=?(pLookUp%+1):ч dY>128 М dY=128-dY"╠=д_MoveEntity(pAlien%, dX, dY)8╓Ї --------------------------------------------------;р▌ д_DropBomb(pAlien%,pNextBomb%,pStartBMem%, pEndBMem%)cъ=д_SetBullet(pNextBomb%,pStartBMem%, pEndBMem%,2,!(workAlien%+eXCENTRE),!(workAlien%+eYCENTRE))8ЇЇ --------------------------------------------------.■▌ Є_KillPlayer(pPlayer%, pExplosionImage%)Є_ClearEntity(pPlayer%)(ч ?(pPlayer%+eSTATE)<PLAYER_LIVE М с%?(pPlayer%+eSTATE)=PLAYER_EXPLODE'&!(pPlayer%+eIMAGE)=pExplosionImage%0Є_DrawEntity(pPlayer%):╘ 0,3,150,12Dс8NЇ --------------------------------------------------$X▌ Є_NewPlayer(pPlayer%, pImage%)bЄ_ClearEntity(pPlayer%)"l?(pPlayer%+eSTATE)=PLAYER_LIVEv!(pPlayer%+eIMAGE)=pImage%АЄ_DrawEntity(pPlayer%)КсФЇ8ЮЇ --------------------------------------------------!иЇ Alien flight path functions8▓Ї --------------------------------------------------#╝▌ д_InitFlightPattern(address%)╞у N=0 ╕ FLIGHT_PATH_SIZE╨yBase=╡(((N/4)+5)/7.8)!┌X=и(yBase*18):ч X<0 М X=128-X(фY=и(Ы(yBase/0.4)*16):ч Y<0 М Y=128-Y!ю?(address%)=X:?(address%+1)=Y°address%=address%+2э N=address%Ї* ▌ Є_StartAlienForWave(pAliens%, wave%)*pNext%=pAliens%F4ч(wave%<ALIEN_RND_WAVE) М alienType%=wave% Г 2 Л alienType%=│(2)-1J>ч alienType%=1 М pAlienImage%=alien1Image% Л pAlienImage%=alien2Image%JHч alienType%=1 М startX=FLIGHT_PATH_IX_RHS Л startX=FLIGHT_PATH_IX_LHSRу A=0 ╕ MaxAliens%П\ч ?(pNext%+eSTATE)=0 М pNext%=д_InitAlien(eALIEN, pNext%, pAlienImage%, ALIEN_LIVE, startX, FLIGHT_PATH_IY, FLIGHT_PATH_SIZE, alienType%):сfpNext%=д_NextEntity(pNext%)pэ Azс8ДЇ --------------------------------------------------ОЇ Bonus functions8ШЇ --------------------------------------------------"в▌ Є_DropBonus(pBonus%, x%, y%)&мч ?(pBonus%+eSTATE)>0 Д y%<400 М сI╢pNext%=д_InitEntity(eBONUS, 0, pBonus%, !(pBonus%+eIMAGE), 1, x%, y%)└с╩Ї&╘▌ Є_UpdateBonus(pBonus%, pPlayer%)▐ч ?(pBonus%+eSTATE)=0 М сHшч !(pBonus%+eYPOS)<10 М ?(pBonus%+eSTATE)=0:Є_ClearEntity(pBonus%):с%ЄpNext%=д_MoveEntity(pBonus%,0,-3)&№radius%=25+?(!(pPlayer%+eIMAGE)+2)(ч ?(pPlayer%+eSTATE)<PLAYER_LIVE М с5ч д_IsCollision(pBonus%, pPlayer%, radius%)=0 М с╘ 3, 2,100,10$bonusMode%=│(4)/.ч bonusMode%<>bmLIFE bonusCountDown%=bmTIME88ч bonusMode%=bmLIFE М Є_ShowMessage("  EXTRA LIFE!"):Bч bonusMode%=bmSHIELD М Є_ShowMessage("  SHIELDS UP!")9Lч bonusMode%=bm2SHOT М Є_ShowMessage(" DOUBLE SHOT!")7Vч bonusMode%=bmCONT М Є_ShowMessage(" SUPER FIRE!").`?(pBonus%+eSTATE)=0:Є_ClearEntity(pBonus%)jс8tЇ --------------------------------------------------~Ї Star background functions8ИЇ --------------------------------------------------Т▌ д_InitStars(address%)Ьу N=1 ╕ STARS_SIZEж?(address%)=│(255)░?(address%+1)=│(255)║address%=address%+2─э N╬=address%╪Ї$т▌ Є_DrawStars(address%, offset%)ьoffset%=offset% Г 1024Ўу N=0 ╕ STARS_SIZE sX%=?(address%)*5/
sY%=1024-((?(address%+1)+offset%)*4) Г 10240Ї Don't show stars at bottom where player is0Ї otherwise we have to keep redrawing player$(ч sY%>146 М ц 0,0:Ё 69,sX%,sY%+402ч sY%>150 М ц 0,(N+offset%) Б 8:Ё 69,sX%,sY%<address%=address%+2Fэ NPс8ZЇ --------------------------------------------------dЇ Other useful procedures8nЇ --------------------------------------------------x▌ Є_ShowMessage(message$)Вч msgCountDown%>0 М сМmsgCountDown%=bmMSGSHOWЦmsgText$=message$аск▌ Є_Pause(cycles%)┤у C=1 ╕ cycles%	╛*FX19╚э C╥с▄▌ Є_ShowErrorцы 0	Ё*FX15'·ё "-------------------------------"'ё "PIXEL FANDANGO  SPACE FIGHTER X""ё "     www.PixelFandango.com"'ё "-------------------------------""Ў:ё " at line ";Ю,р 