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Ї Visual parameters..."VIEWER_DIST=150,VIEWER_HEIGHT=14006VIEW_WIDTH=1280@VIEW_Y_OFFSET=260JЇ Entity States...TDEAD_ENTITY=0,^ALIEN_LIVE=20:ALIEN_EXPLODE=ALIEN_LIVE-1hALIEN_RND_WAVE=22rBONUS_TIME=10|MIN_BOMB_HEIGHT=4201ЖPLAYER_LIVE=250: PLAYER_EXPLODE=PLAYER_LIVE-1"РЇ Base entity field offsets...ЪeENTITY_SIZE=25дeTYPE=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;0ePLAYER=0:eBULLET=1:eBOMB=2:eALIEN=3:eBONUS=4:eSHIELD=5&:Ї Entity part drawing instructions$DdMOVE=1:dDRAW=2:dCOLOUR=3:dEND=0NЇ Bonus Modes3XbmNONE=0:bmLIFE=1:bmSHIELD=2:bm2SHOT=3:bmCONT=47bbmMAX=bmCONT:bmTIME=500:bmTIMESHOW=50:bmMSGSHOW=100lЇ Other global settings...!vBOMB_SPEED=8: BULLET_SPEED=20)АPLAYER_START_X=600: PLAYER_START_Y=500КЇ ------------------------------------------#ФЇ Populate static data for game0ЮЇ ------------------------------------------иЇ&▓Ї Create alien flight path data...╝▐ pathData% 550╞FLIGHT_PATH_SIZE=255╨FLIGHT_PATH_IX_LHS=220┌FLIGHT_PATH_IX_RHS=1000фFLIGHT_PATH_IY=8501юendOfPathData%=д_InitFlightPattern(pathData%)°▐ starData% 64STARS_SIZE=32)endOfStarDate%=д_InitStars(starData%)&Ї Add graphic image definitions... ▐ images% 450*workImage%=images%4rocketImage%=workImage%->workImage%=д_AddRocketImage(rocketImage%)Halien1Image%=workImage%-RworkImage%=д_AddAlien1Image(alien1Image%)\alien2Image%=workImage%-fworkImage%=д_AddAlien2Image(alien2Image%)pbulletImage%=workImage%-zworkImage%=д_AddBulletImage(bulletImage%)ДexplosionImage%=workImage%3ОworkImage%=д_AddExplosionImage(explosionImage%)!ШbigExplosionImage%=workImage%9вworkImage%=д_AddBigExplosionImage(bigExplosionImage%)мbonusImage%=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...8pRocket%=entities%)BrX%=PLAYER_START_X:rY%=PLAYER_START_YRLpNext%=д_InitEntity(ePLAYER, 0, pRocket%, rocketImage%, PLAYER_LIVE, rX%, rY%)VЇ Bonus object...`pBonus%=pNext%AjpNext%=д_InitEntity(eBONUS, 0, pBonus%, bonusImage%, 0, 0, 0)tЇ Shield object...~pShield%=pNext%DИpNext%=д_InitEntity(eSHIELD, 0, pShield%, shieldImage%, 0, 0, 0)ТЇ Aliens...ЬMaxAliens%=20жpAliens%=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2pBombs%=pNext%<у B=0 ╕ MaxBombs%@FpNext%=д_InitEntity(eBOMB, 0, pNext%, bulletImage%, 0, 0, 0)Pэ BZpNextBomb%=pBombs%dpEndBombs%=pNext%ncanFire%=0	x█:я 5Вь 0, 328
Мц 0, 3.ЦЇ Uncomment below to see object mem use...3аЇ PRINT "images: "; workImage%-images% " bytes"3кЇ 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#ць 345,640:ё"3D-SPACE-FIGHTER-X"
Ёц 0, 2'·ь 425,1000:ё "HI SCORE:";HighScore%$ь 475,950:ё "HI WAVE:";HighWave%!ь 380,550:ё"(Z) (X) (RETURN)")Ї Pause then clear keyboard buffer..."Є_Pause(100)
,*FX 15&6ь 303,470:ё"PRESS ANY KEY TO PLAY";@Ї Init sound (some emulators pause on first sound call)J╘ 0,-1,200,1: ╘ 1,-1,200,1Ta%=е^╘ 1,1,100,50	h█:я 5rscore%=0|lastScore%=0Жlives%=3РspawnSize%=4Ъwave%=0д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....0Ї ----------------------------------------:їDcycle%=cycle%+1NЄ_DrawStars(starData%, 0)PXч score%>HighScore% М ь 570,1000:ц 0,0:ё "HI:";HighScore%:HighScore%=score%:Sbч score%<>lastScore% М ь 200,1000:ц 0,0:ё "SCORE:";lastScore%:lastScore%=score%0lч msgCountDown%>1 ь 460,550:ц 0,1:ё msgText$5vч msgCountDown%>0 М msgCountDown%=msgCountDown%-12Ач msgCountDown%=1 М ь 460,550:ц 0,0:ё msgText$^Кч bonusMode%=bmLIFE М ь 870,1000:ц 0,0:ё "LIVES:";lives%:lives%=lives%+1:bonusMode%=bmNONE]Фч bonusCountDown%>0 А bonusMode%>bmLIFE М ц 0,0: ь 360,500:ё bonusCountDown% Б bmTIMESHOW7Юч bonusCountDown%=1 М bonusMode%=bmNONE:╘ 1,1,60,10;ич 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)"4pAlienState%=workAlien%+eSTATE~>ч ?(pAlienState%)=BONUS_TIME А bonusMode%=0 А │(20)=1 М Є_DropBonus(pBonus%,!(workAlien%+eXCENTRE),!(workAlien%+eYCENTRE))JHч ?(pAlienState%)=1 М Є_ClearEntity(workAlien%):?(workAlien%+eSTATE)=0qRч ?(pAlienState%)>0 А ?(pAlienState%)<ALIEN_LIVE М ?(pAlienState%)=?(pAlienState%)-1:Є_DrawEntity(workAlien%)(\isAlive%=?(pAlienState%)>=ALIEN_LIVEдfч isAlive% А ?(pPlayerState%)=PLAYER_LIVE А !(workAlien%+eYPOS)>MIN_BOMB_HEIGHT А │(1000)<20 М pNextBomb%=д_DropBomb(workAlien%, pNextBomb%,pBombs%, pEndBombs%)Вpч isAlive% М workAlien%=д_UpdateAlien(workAlien%, pBullets%, pathData%, explosionImage%) Л workAlien%=д_NextEntity(workAlien%),zч isAlive% М nLiveAliens%=nLiveAliens%+1Дэ A}Оч nLiveAliens%=0 А alienSpawn%=0 М alienSpawn%=spawnSize%:wave%=wave%+1:ч spawnSize%<MaxAliens% М spawnSize%=spawnSize%+1dШч cycle% Г 5 = 0 А alienSpawn%>0 М Є_StartAlienForWave(pAliens%,wave%):alienSpawn%=alienSpawn%-1вЇ draw bullets...м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:8	ч ж(-74)=0 А ?(pPlayerState%)=PLAYER_LIVE М canFire%=1aB	ч bonusMode%=bmCONT А ?(pPlayerState%)=PLAYER_LIVE А canFire%=0 А cycle% Г 5 = 0 М canFire%=1ОL	ч bonusMode%=bm2SHOT А canFire%=1 А ж(-74) М pNextBullet%=д_SetWingBullets(pNextBullet%,pBullets%,pEndBullets%,1,rX%+52,rY%+95):canFire%=0КV	ч 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`j	ч bonusMode%<>bmSHIELD А ?(pShield%+eSTATE)=1 М ?(pShield%+eSTATE)=0:Є_ClearEntity(pShield%)%t	Ї Wait for screen refresh sync...	~	*FX19`И	ч newX%<>rX% А ?(pPlayerState%)=PLAYER_LIVE М Є_MoveEntityTo(pRocket%, newX%, rY%):rX%=newX%>Т	ч bonusMode%=bmSHIELD М Є_MoveEntityTo(pShield%, rX%, rY%)_Ь	ч ?(pPlayerState%)<PLAYER_LIVE М ?(pPlayerState%)=?(pPlayerState%)-1:Є_DrawEntity(pRocket%)ж	═{░	ч 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%2
Є_Pause(250)<
¤ 0F
р8P
Ї --------------------------------------------------3Z
Ї Functions to handle graphic image definitions8d
Ї --------------------------------------------------n
Ї x
Ї -------------------------- В
Ї Function to add image defnМ
Ї header information forЦ
Ї collision detection а
Ї --------------------------Bк
▌ д_AddImageHeader(address%, centreX%, centreY%, collnRadius%)┤
?(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%6?(address%+1)=x%@?(address%+2)=y%J=address%+3TЇ:^▌ д_AddImagePartScaled(address%, type%, x%, y%, scale)h?(address%+0)=type%r?(address%+1)=и(x%*scale)|?(address%+2)=и(y%*scale)Ж=address%+3РЇ-Ъ▌ д_AddImagePartColour(address%, colour%)д?(address%+0)=3о?(address%+1)=colour%╕=address%+2┬Ї ╠Ї --------------------------╓Ї Functions to add images рЇ -------------------------- ъ▌ д_AddRocketImage(address%)ЇrScale=0.6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)A0address%=д_AddImagePartScaled(address%, dDRAW, 60, 0, rScale)B:address%=д_AddImagePartScaled(address%, dDRAW, 40, 20, rScale)BDaddress%=д_AddImagePartScaled(address%, dDRAW, 60, 40, rScale)BNaddress%=д_AddImagePartScaled(address%, dDRAW, 80, 40, rScale)BXaddress%=д_AddImagePartScaled(address%, dDRAW, 80, 80, rScale)Cbaddress%=д_AddImagePartScaled(address%, dDRAW, 100, 60, rScale)Claddress%=д_AddImagePartScaled(address%, dDRAW, 70, 120, rScale)Bvaddress%=д_AddImagePartScaled(address%, dDRAW, 80, 80, rScale)BАaddress%=д_AddImagePartScaled(address%, dDRAW, 60, 80, rScale)CКaddress%=д_AddImagePartScaled(address%, dDRAW, 70, 120, rScale)BФaddress%=д_AddImagePartScaled(address%, dDRAW, 40, 60, rScale)BЮaddress%=д_AddImagePartScaled(address%, dDRAW, 60, 80, rScale)Bиaddress%=д_AddImagePartScaled(address%, dDRAW, 60, 40, rScale)▓Ї 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)4?(address%)=dEND>=address%+1 H▌ д_AddShieldImage(address%)RrScale=0.8Q\address%=д_AddImageHeader(address%, и(70*rScale), и(60*rScale), и(64*rScale)).faddress%=д_AddImagePartColour(address%, 1)Apaddress%=д_AddImagePartScaled(address%, dMOVE, 0, 90, rScale)Czaddress%=д_AddImagePartScaled(address%, dDRAW, 40, 130, rScale)DДaddress%=д_AddImagePartScaled(address%, dDRAW, 100, 130, rScale)CОaddress%=д_AddImagePartScaled(address%, dDRAW, 140, 90, rScale)Ш?(address%)=dENDв=address%+1 м▌ д_AddAlien1Image(address%)╢aScale=1.6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)B8address%=д_AddImagePartScaled(address%, dDRAW, 10, 10, aScale)ABaddress%=д_AddImagePartScaled(address%, dDRAW, 20, 0, aScale)ALaddress%=д_AddImagePartScaled(address%, dDRAW, 30, 0, aScale)BVaddress%=д_AddImagePartScaled(address%, dDRAW, 40, 10, aScale).`address%=д_AddImagePartColour(address%, 3)Bjaddress%=д_AddImagePartScaled(address%, dMOVE, 15, 20, aScale)Btaddress%=д_AddImagePartScaled(address%, dDRAW, 35, 20, aScale)B~address%=д_AddImagePartScaled(address%, dDRAW, 35, 30, aScale)BИaddress%=д_AddImagePartScaled(address%, dDRAW, 25, 20, aScale)BТaddress%=д_AddImagePartScaled(address%, dDRAW, 15, 30, aScale)BЬaddress%=д_AddImagePartScaled(address%, dDRAW, 15, 20, aScale).жaddress%=д_AddImagePartColour(address%, 2)B░address%=д_AddImagePartScaled(address%, dDRAW, 25, 10, aScale)B║address%=д_AddImagePartScaled(address%, dDRAW, 35, 20, aScale)─?(address%)=dEND╬=address%+1 ╪▌ д_AddAlien2Image(address%)тaScale=1.6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)A2address%=д_AddImagePartScaled(address%, dDRAW, 20, 0, aScale)B<address%=д_AddImagePartScaled(address%, dDRAW, 10, 10, aScale)BFaddress%=д_AddImagePartScaled(address%, dDRAW, 10, 30, aScale)BPaddress%=д_AddImagePartScaled(address%, dDRAW, 20, 40, aScale).Zaddress%=д_AddImagePartColour(address%, 3)Bdaddress%=д_AddImagePartScaled(address%, dMOVE, 15, 30, aScale)Bnaddress%=д_AddImagePartScaled(address%, dDRAW, 25, 25, aScale)Bxaddress%=д_AddImagePartScaled(address%, dDRAW, 35, 30, aScale)BВaddress%=д_AddImagePartScaled(address%, dDRAW, 35, 20, aScale)BМaddress%=д_AddImagePartScaled(address%, dDRAW, 15, 20, aScale)BЦaddress%=д_AddImagePartScaled(address%, dDRAW, 15, 30, aScale).аaddress%=д_AddImagePartColour(address%, 2)Bкaddress%=д_AddImagePartScaled(address%, dMOVE, 15, 15, aScale)B┤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)26address%=д_AddImagePart(address%, dMOVE, 0, 0)2@address%=д_AddImagePart(address%, dDRAW, 6, 0)3Jaddress%=д_AddImagePart(address%, dDRAW, 6, 16)3Taddress%=д_AddImagePart(address%, dDRAW, 0, 16)2^address%=д_AddImagePart(address%, dDRAW, 0, 0)h?(address%)=dENDr=address%+1#|▌ д_AddExplosionImage(address%)3Жaddress%=д_AddImageHeader(address%, 25, 25, 25).Рaddress%=д_AddImagePartColour(address%, 1)2Ъaddress%=д_AddImagePart(address%, dMOVE, 0, 0)4дaddress%=д_AddImagePart(address%, dDRAW, 10, 20)3о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&0▌ д_AddBigExplosionImage(address%)3:address%=д_AddImageHeader(address%, 50, 50, 50).Daddress%=д_AddImagePartColour(address%, 2)2Naddress%=д_AddImagePart(address%, dMOVE, 0, 0)4Xaddress%=д_AddImagePart(address%, dDRAW, 20, 40)3baddress%=д_AddImagePart(address%, dDRAW, 0, 60)4laddress%=д_AddImagePart(address%, dDRAW, 30, 60)5vaddress%=д_AddImagePart(address%, dDRAW, 40, 100)4Аaddress%=д_AddImagePart(address%, dDRAW, 60, 60)5Кaddress%=д_AddImagePart(address%, dDRAW, 100, 80)4Фaddress%=д_AddImagePart(address%, dDRAW, 80, 40)5Юaddress%=д_AddImagePart(address%, dDRAW, 100, 20)4иaddress%=д_AddImagePart(address%, dDRAW, 70, 20)3▓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)44address%=д_AddImagePart(address%, dDRAW, 10, 10)4>address%=д_AddImagePart(address%, dDRAW, 30, 10)4Haddress%=д_AddImagePart(address%, dDRAW, 20, 40)R?(address%)=dEND\=address%+1fЇ pЇ --------------------------zЇ Proc to draw image from ДЇ data at address in pos x,y ОЇ --------------------------"Ш▌ Є_DrawImage(pImage%, x%, y%)$вЇ Skip the header information...мpImage%=pImage%+3╢Ї 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8ї-BpImage%=д_ClearImagePart(pImage%, x%, y%)L¤ pImage%=0Vс`Ї jЇ --------------------------tЇ Function to draw part ~Ї --------------------------%И▌ д_DrawImagePart(pPart%, x%, y%)&Т=д_RenderImagePart(pPart%, x%, y%) ЬЇ --------------------------жЇ Function to clear part ░Ї --------------------------&║▌ д_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2ч ?pPart%=dEND М =09<Ї Either move or draw to a point in background colour5Fч ?(pPart%)=dCOLOUR М ц 0, ?(pPart%+1): =pPart%+2Padjx=(?(pPart%+1)+x%)Zadjy=?(pPart%+2)+y%dY=adjy/(adjy+VIEWER_DIST)(nadjy=Y*VIEWER_HEIGHT - VIEW_Y_OFFSETxscale=1.5BВadjx=Y*(VIEW_WIDTH*scale/2)+((1-Y)*adjx*scale)- (VIEW_WIDTH/4)$Мч ?(pPart%)=dMOVE М ь adjx, adjy$Цч ?(pPart%)=dDRAW М ▀ adjx, adjyакЇ return next address┤=pPart%+3╛Ї8╚Ї --------------------------------------------------'╥Ї Functions to handle game entities8▄Ї --------------------------------------------------цЇ ЁЇ --------------------------·Ї Initialise a new entityЇ Return next address Ї --------------------------H▌ д_InitEntity(typeId%, addSize%, pEntity%, pImage%, state%, x%, y%)$"Ї Record basic entity parameters,?pEntity%=typeId%+6?(pEntity%+eSIZE)=eENTITY_SIZE+addSize%@!(pEntity%+eIMAGE)=pImage%J?(pEntity%+eSTATE)=state%T!(pEntity%+eXPOS)=x%^!(pEntity%+eYPOS)=y%-hЇ Calc offsets for collision detection.../r?(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╕=pEntity%+?(pEntity%+eSIZE) ┬Ї --------------------------╠Ї Draw or clear an entity ╓Ї --------------------------р▌ Є_DrawEntity(pEntity%)IъЄ_DrawImage(!(pEntity%+eIMAGE), !(pEntity%+eXPOS), !(pEntity%+eYPOS))Їс■▌ Є_ClearEntity(pEntity%)	ц 0,0JЄ_ClearImage(!(pEntity%+eIMAGE), !(pEntity%+eXPOS), !(pEntity%+eYPOS))с&Ї 0Ї --------------------------:Ї Calc collision rangeDЇ based on position, width,NЇ height and radius. XЇ -------------------------- b▌ Є_SetCollnCentre(pEntity%)>l!(pEntity%+eXCENTRE)=!(pEntity%+eXPOS)+?(pEntity%+eHWIDTH)?v!(pEntity%+eYCENTRE)=!(pEntity%+eYPOS)+?(pEntity%+eHHEIGHT)АсКЇ ФЇ --------------------------ЮЇ Move an entity (relative) иЇ --------------------------$▓▌ д_MoveEntity(pEntity%, dx, dy)(╝Ї Only move if state > 0 (is active)8╞ч ?(pEntity%+eSTATE)=0 М =pEntity%+?(pEntity%+eSIZE)╨Є_ClearEntity(pEntity%)┌pX%=!(pEntity%+eXPOS)+dxфpY%=!(pEntity%+eYPOS)+dyюч pX%>1280 М pX%=pX%-1280°ч pX%<0 М pX%=pX%+1280ч pY%>1024 М pY%=pY%-1024ч pY%<0 М pY%=pY%+1024!(pEntity%+eXPOS)=pX% !(pEntity%+eYPOS)=pY%*Є_SetCollnCentre(pEntity%)4Є_DrawEntity(pEntity%)>=pEntity%+?(pEntity%+eSIZE)HЇ RЇ --------------------------\Ї Move an entity (absolute) fЇ --------------------------&p▌ Є_MoveEntityTo(pEntity%, x%, y%)(zЇ Only move if state > 0 (is active)Дч ?(pEntity%+eSTATE)=0 М сОЄ_ClearEntity(pEntity%)Ш!(pEntity%+eXPOS)=x%в!(pEntity%+eYPOS)=y%мЄ_SetCollnCentre(pEntity%)╢Є_DrawEntity(pEntity%)└с╩Ї ╘Ї -------------------------- ▐Ї Get pointer to next entity шЇ --------------------------Є▌ д_NextEntity(pEntity%)№=pEntity%+?(pEntity%+eSIZE)Ї Ї --------------------------Ї Collision Detection"$Ї lhs, rhs, top, bot collision%.Ї range pre calc'd on entity move 8Ї --------------------------2B▌ д_IsCollision(pEntity1%, pEntity2%, radius%),LЇ Only check if both entities are active7Vч ?(pEntity1%+eSTATE)=0 Д ?(pEntity2%+eSTATE)=0 = 05`dX=Ф(!(pEntity1%+eXCENTRE)-!(pEntity2%+eXCENTRE))5jdY=Ф(!(pEntity1%+eYCENTRE)-!(pEntity2%+eYCENTRE)) tч dX<radius% А dY<radius% =1~=08ИЇ --------------------------------------------------ТЇ Specific entity functions8ЬЇ --------------------------------------------------&ж▌ д_UpdateBullet(pBullet%, speed%)░Ї Is bullet active?║pState%=pBullet%+eSTATE0─ч ?(pState%)=0 М =pBullet%+?(pBullet%+eSIZE)?╬ч ?(pState%)=1 М pNext% = д_MoveEntity(pBullet%, 0, speed%)@╪ч ?(pState%)=2 М pNext% = д_MoveEntity(pBullet%, 0, -speed%);тч ?(pState%)=3 М ?(pState%)=0 : Є_ClearEntity(pBullet%)Bьч !(pBullet%+eYPOS)>1000 Д !(pBullet%+eYPOS)<24 М ?(pState%)=3Ў=pBullet%+?(pBullet%+eSIZE)8 Ї --------------------------------------------------C
▌ д_SetBullet(pBullet%, pStartBMem%, pEndBMem%, state%, x%, y%)?(pBullet%+eSTATE)=state%!(pBullet%+eXPOS)=x%(!(pBullet%+eYPOS)=y%2Є_SetCollnCentre(pBullet%)<ч state%=1 М ╘ 2,2,100,1;Fч(pBullet%+?(pBullet%+eSIZE)>=pEndBMem%) М =pStartBMem%P=pBullet%+?(pBullet%+eSIZE)8ZЇ --------------------------------------------------Hd▌ д_SetWingBullets(pBullet%, pStartBMem%, pEndBMem%, state%, x%, y%)NnpNext%=д_SetBullet(pBullet%, pStartBMem%, pEndBMem%, state%, x%-50, y%-50)Fx=д_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%┤=endAddress%8╛Ї --------------------------------------------------#╚▌ Є_AlienHit(pAlien%, pBullet%)╥Є_ClearEntity(pAlien%)#▄?(pAlien%+eSTATE)=ALIEN_EXPLODE&ц!(pAlien%+eIMAGE)=pExplosionImage%Ё?(pBullets%+eSTATE)=3·╘ 0,3,75,1score%=score%+10с8Ї --------------------------------------------------A"▌ Є_CheckAlienCollision(pAlien%, pBullets%, pExplosionImage%)1,Ї If alien is exploding (or dead) then ignore#6cRadius%=?(!(pAlien%+eIMAGE)+2)$@ч ?(pAlien%+eSTATE)<ALIEN_LIVE сJу B=0 ╕ MaxBullets%mTч ?(pBullets%+eSTATE)>0 А д_IsCollision(workAlien%, pBullets%, cRadius%) Є_AlienHit(pAlien%, pBullets%):с*^pBullets%=pBullets%+?(pBullets%+eSIZE)hэ Brс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)╕э B┬=08╠Ї --------------------------------------------------G╓▌ д_UpdateAlien(pAlien%, pBullets%, pFlightPath%, pExplosionImage%)>рЄ_CheckAlienCollision(pAlien%, pBullets%, explosionImage%)&ъfpi%=?(pAlien%+eFLIGHT_PATH_INDEX)Ї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)'0dX=?(pLookUp%):ч dX>128 М dX=128-dX-:ч ?(pAlien%+eFLIGHT_PATH_SIDE)=0 М dX=-dX)DdY=?(pLookUp%+1):ч dY>128 М dY=128-dY"N=д_MoveEntity(pAlien%, dX, dY)8XЇ --------------------------------------------------;b▌ д_DropBomb(pAlien%,pNextBomb%,pStartBMem%, pEndBMem%)cl=д_SetBullet(pNextBomb%,pStartBMem%, pEndBMem%,2,!(workAlien%+eXCENTRE),!(workAlien%+eYCENTRE))8vЇ --------------------------------------------------.А▌ Є_KillPlayer(pPlayer%, pExplosionImage%)КЄ_ClearEntity(pPlayer%)(Фч ?(pPlayer%+eSTATE)<PLAYER_LIVE М с%Ю?(pPlayer%+eSTATE)=PLAYER_EXPLODE'и!(pPlayer%+eIMAGE)=pExplosionImage%▓Є_DrawEntity(pPlayer%)╝╘ 0,3,150,12╞с8╨Ї --------------------------------------------------$┌▌ Є_NewPlayer(pPlayer%, pImage%)фЄ_ClearEntity(pPlayer%)"ю?(pPlayer%+eSTATE)=PLAYER_LIVE°!(pPlayer%+eIMAGE)=pImage%Є_DrawEntity(pPlayer%)сЇ8 Ї --------------------------------------------------!*Ї Alien flight path functions84Ї --------------------------------------------------#>▌ д_InitFlightPattern(address%)Hу N=0 ╕ FLIGHT_PATH_SIZERyBase=╡(((N/4)+5)/7.8)!\X=и(yBase*18):ч X<0 М X=128-X(fY=и(Ы(yBase/0.4)*16):ч Y<0 М Y=128-Y!p?(address%)=X:?(address%+1)=Yzaddress%=address%+2Дэ NО=address%ШЇ*в▌ Є_StartAlienForWave(pAliens%, wave%)мpNext%=pAliens%F╢ч(wave%<ALIEN_RND_WAVE) М alienType%=wave% Г 2 Л alienType%=│(2)-1J└ч alienType%=1 М pAlienImage%=alien1Image% Л pAlienImage%=alien2Image%J╩ч alienType%=1 М startX=FLIGHT_PATH_IX_RHS Л startX=FLIGHT_PATH_IX_LHS╘у A=0 ╕ MaxAliens%П▐ч ?(pNext%+eSTATE)=0 М pNext%=д_InitAlien(eALIEN, pNext%, pAlienImage%, ALIEN_LIVE, startX, FLIGHT_PATH_IY, FLIGHT_PATH_SIZE, alienType%):сшpNext%=д_NextEntity(pNext%)Єэ A№с8Ї --------------------------------------------------Ї Bonus functions8Ї --------------------------------------------------"$▌ Є_DropBonus(pBonus%, x%, y%)&.ч ?(pBonus%+eSTATE)>0 Д y%<400 М сI8pNext%=д_InitEntity(eBONUS, 0, pBonus%, !(pBonus%+eIMAGE), 1, x%, y%)BсLЇ&V▌ Є_UpdateBonus(pBonus%, pPlayer%)`ч ?(pBonus%+eSTATE)=0 М сHjч !(pBonus%+eYPOS)<10 М ?(pBonus%+eSTATE)=0:Є_ClearEntity(pBonus%):с%t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8║ч bonusMode%=bmLIFE М Є_ShowMessage("  EXTRA LIFE!"):─ч bonusMode%=bmSHIELD М Є_ShowMessage("  SHIELDS UP!")9╬ч bonusMode%=bm2SHOT М Є_ShowMessage(" DOUBLE SHOT!")7╪ч bonusMode%=bmCONT М Є_ShowMessage(" SUPER FIRE!").т?(pBonus%+eSTATE)=0:Є_ClearEntity(pBonus%)ьс8ЎЇ -------------------------------------------------- Ї Star background functions8
Ї --------------------------------------------------▌ д_InitStars(address%)у N=1 ╕ STARS_SIZE(?(address%)=│(255)2?(address%+1)=│(255)<address%=address%+2Fэ NP=address%ZЇ$d▌ Є_DrawStars(address%, offset%)noffset%=offset% Г 1024xу 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0┤ч sY%>150 М ц 0,(N+offset%) Б 8:Ё 69,sX%,sY%╛address%=address%+2╚э N╥с8▄Ї --------------------------------------------------цЇ Other useful procedures8ЁЇ --------------------------------------------------·▌ Є_ShowMessage(message$)ч msgCountDown%>0 М сmsgCountDown%=bmMSGSHOWmsgText$=message$"с,▌ Є_Pause(cycles%)6у C=1 ╕ cycles%	@*FX19Jэ CTс^▌ Є_ShowErrorhы 0	r*FX15'|ё "-------------------------------"'Жё "PIXEL FANDANGO  SPACE FIGHTER X""Рё "     www.PixelFandango.com"'Ъё "-------------------------------"дЎ:ё " at line ";Юор 