General Information
Author: Sam Teague
Language: ACTION!
MODULE; BACKTRAK.ACT ; by Sam Teague BYTE Stick0=$278, Trig0=$D010, ChBas=$2F4, Time=$14, MemTop=$6A, Color0=$2C4, Color1=$2C5, Color2=$2C6, Color3=$2C7, Color4=$2C8, GraCtl=$D01D, GPrior=$26F, SDmaCtl=$22F, PMBase=$D407, Nmien=$D40E, WSync=$D40A, Con=$D01F, Atract=$4D, HPos0=$D000, HPos1=$D001, HPos2=$D002, HPos3=$D003, PMColor0=$2C0, PMColor1=$2C1, PMColor2=$2C2, PMColor3=$2C3, P0PF=$D004, P2PF=$D006, P3PF=$D007, P0PL=$D00C, HPosM0=$D004, HPosM1=$D005, HPosM2=$D006, HPosM3=$D007, HitClr=$D01E, CrSinh=$2F0, StickFlag, SpaceFlag, Dots, OldMemTop, Screen, Speed, X, Y, X0, Y0, X1, Y1, X2, Y2, X3, Y3, OldX0, OldY0, OldX2, OldY2, OldX3, OldY3, RobotCount1, RobotCount2, BirdCount, Image0, Image1, DotSound, BonusSound, DoorSound, Lives, StartSpeed INT RobotSpeed1, RobotSpeed2, BirdDist, RobotDist1, RobotDist2, Score, HighScore CARD VDsLst=$200, SDLst=$230, ScRam=$58 BYTE POINTER PMRam, Player0, Player1, Player2, Player3, MissleBase BYTE ARRAY String(10) ; GOOD GUY PLAYER BYTE ARRAY Player0Data0= ;DOWN [0 0 0 24 36 36 36 24 60 24 0 0 0 0], Player0Data1= ;UP [0 0 0 24 60 60 60 24 60 24 0 0 0 0], Player0Data2= ;LEFT [0 0 0 24 44 44 44 24 56 24 0 0 0 0], Player0Data3= ;RIGHT [0 0 0 24 52 52 52 24 28 24 0 0 0 0] ; BIRD PLAYER BYTE ARRAY Player1Data0= [0 0 0 24 36 60 24 219 126 60 36 0 0 0], Player1Data1= [0 0 0 24 36 60 24 24 126 255 36 0 0 0], Player1Data2= [0 0 0 24 36 60 24 24 255 60 36 0 0 0] ; ROBOT PLAYER BYTE ARRAY Player2Data0= [0 0 0 255 152 60 102 219 189 36 66 0 0 0], Player2Data1= [0 0 0 60 56 60 102 219 189 36 24 0 0 0], Player2Data2= [0 0 0 255 29 60 102 219 189 36 24 0 0 0], Player2Data3= [0 0 0 60 28 60 102 219 189 36 36 0 0 0] ;FACE, HANDS & FEET PLAYER BYTE ARRAY Player3Data0= [0 0 0 0 36 36 36 0 189 0 153 0 0 0], Player3Data1= [0 0 0 0 36 36 36 0 189 0 153 0 0 0], Player3Data2= [0 0 0 0 36 36 36 0 1 0 44 0 0 0], Player3Data3= [0 0 0 0 36 36 36 0 128 0 52 0 0 0] CARD ARRAY PMData0(4), PMData1(4), PMData2(4), PMData3(4), MissleData(4) PROC Move_Set() BYTE i, chnum, bit BYTE POINTER base, dest BYTE ARRAY chars= [ 255 255 255 255 255 255 255 255 127 127 127 127 127 127 127 0 0 254 254 254 254 254 254 254 254 254 254 254 254 254 254 0 0 127 127 127 127 127 127 127 0 255 255 255 255 255 255 255 127 127 127 127 127 127 127 127 254 254 254 254 254 254 254 254 0 90 60 66 66 60 90 0 0 255 231 129 129 231 255 0 0 254 254 254 254 254 254 0 0 0 0 24 36 24 0 0 0 126 126 126 126 126 126 126 126 126 126 126 126 126 126 0 0 127 127 127 127 127 127 0 0 255 255 255 255 255 255 0 126 126 126 126 126 126 126 126 255 255 255 255 255 255 255 0 0 24 24 126 24 60 102 0] MemTop==-8 Graphics(17) SDmaCtl=0 base=(MemTop)*$100 MoveBlock(base,$E000,$400) bit=0 chnum=1 DO dest=base+8*chnum FOR i=0 TO 7 DO dest^=chars(bit) dest==+1 bit==+1 OD IF chnum=1 THEN chnum=3 ELSEIF chnum<12 THEN chnum==+1 ELSEIF chnum=12 THEN chnum=14 ELSEIF chnum=14 THEN chnum=15 ELSEIF chnum=15 THEN chnum=26 ELSEIF chnum=26 THEN chnum=27 ELSEIF chnum=27 THEN chnum=29 ELSEIF chnum=29 THEN chnum=30 ELSEIF chnum=30 THEN chnum=32 ELSEIF chnum=32 THEN chnum=56 ELSEIF chnum=56 THEN chnum=57 FI UNTIL chnum>56 OD RETURN PROC Dli=*() BYTE color1=$D017, color2=$D018 [$48 ; PHA $8D WSync] ; STA WSync color1=14 ; Luminance color2=4 ; Gray background [$68 ; PLA $40] ; RTI PROC SetDLI() VDsLst=Dli Nmien=$C0 RETURN PROC Delay(BYTE jiffies) jiffies==+Time DO UNTIL jiffies=Time OD RETURN BYTE FUNC CheckLocate(BYTE x0,y0) BYTE errflag errflag=0 IF x0>53 AND x0<200 AND y0>26 AND y0<200 THEN errflag=1 FI RETURN(errflag) PROC Song() BYTE ctr FOR ctr=1 TO 2 DO Sound(0,108,10,8) Delay(18) Sound(0,96,10,8) Delay(9) Sound(0,91,10,8) Delay(9) Sound(0,81,10,8) Delay(18) Sound(0,91,10,8) Delay(9) Sound(0,96,10,8) Delay(9) OD Sound(0,121,10,8) Delay(18) Sound(0,108,10,8) Delay(9) Sound(0,96,10,8) Delay(9) Sound(0,91,10,8) Delay(18) Sound(0,96,10,8) Delay(9) Sound(0,108,10,8) Delay(9) Sound(0,121,10,8) Delay(54) Sound(0,0,0,0) Delay(10) RETURN PROC Color(BYTE C0, BYTE C1, BYTE C2, BYTE C3, BYTE C4) Color0=C0 Color1=C1 Color2=C2 Color3=C3 Color4=C4 RETURN PROC Sype(BYTE ARRAY temp_str BYTE POINTER address) BYTE i BYTE ARRAY ataint=[$40 $00 $20 $60] FOR i=1 TO temp_str(0) DO IF temp_str(i)#155 THEN address^=ataint((temp_str(i) RSH 5)&3)%(temp_str(i)&$9F) address==+1 FI OD RETURN PROC High_Score() StrI(HighScore,String) Sype(String,ScRam+493) Sype(" ",ScRam+468) RETURN PROC BGNoise() BYTE N=[40], S=[50], bgcount=[0] bgcount==+1 IF bgcount=5 THEN Sound(0,N,10,2) N==+2 IF N>=S THEN N==-4 S=N IF S=40 THEN S=50 FI FI bgcount=0 FI RETURN PROC Inst() Graphics(0) CrSinh=1 Color(0,8,0,8,0) SDmaCtl=$00 Position(0,1) Print(" ") Sype("BACKTRACK",ScRam+14) Sype("Your Mission is to get all of the",ScRam+81) Sype("pulsating globules in the maze with",ScRam+121) Sype("as little backtracking as possible.",ScRam+161) Sype("Each globule is worth one point. Each",ScRam+201) Sype("empty space will cost you one point.",ScRam+241) Sype("You have 3 lives. If you touch one of",ScRam+281) Sype("the robots you lose a life. An extra ",ScRam+321) Sype("life is awarded at 3,000 points. If",ScRam+361) Sype("you touch the bird it will cost you 50",ScRam+401) Sype("points. If you open one of the doors",ScRam+441) Sype("in the walls you will recieve 100 extra",ScRam+481) Sype("points. If you touch a multi-color ",ScRam+521) Sype("bonus globule your score is increased",ScRam+561) Sype("by the number of globules you've ",ScRam+601) Sype("already gotten on that maze. You must ",ScRam+641) Sype("return to home base after getting all ",ScRam+681) Sype("the globules. There are 3 screens. ",ScRam+721) Sype("When you finish screen 3 you are ",ScRam+761) Sype("returned to screen 1 and the action ",ScRam+801) Sype("speeds up. Press the fire button to ",ScRam+841) Sype("pause. Move the stick to resume play.",ScRam+881) Sype(" PRESS START FOR GAME.",ScRam+921) SDmaCtl=62 DO UNTIL Con=6 OD DO UNTIL Con#6 OD RETURN PROC Title() Graphics(17) Color(118,50,22,8,0) Sype("BACK TRACK",ScRam+65) Sype("by",ScRam+149) Sype("sam teague",ScRam+165) Sype("press option",ScRam+304) Sype("FOR LEVEL",ScRam+325) Sype("press select",ScRam+364) Sype("FOR INSTRUCTIONS",ScRam+382) Sype("press start",ScRam+424) Sype("TO PLAY",ScRam+446) Speed=3 DO UNTIL Con#6 OD DO Delay(10) IF Con=3 THEN Sype(" ",ScRam+244) Speed==-1 IF Speed=0 THEN Speed=3 FI FI IF Speed=3 THEN Sype("BEGINNER",ScRam+246) ELSEIF Speed=2 THEN Sype("INTERMEDIATE",ScRam+244) ELSEIF Speed=1 THEN Sype("ADVANCED",ScRam+246) FI IF Con=5 THEN Inst() EXIT FI UNTIL Con=6 OR Trig0=0 OD StartSpeed=Speed DO UNTIL Con#6 AND Trig0#0 OD RETURN PROC Reset() Zero(PMRam+$300,$500) X0=64 Y0=197 X1=47 Y1=29 X2=88 Y2=101 X3=160 Y3=101 RobotSpeed1=4 RobotSpeed2=4 RobotDist1=0 RobotDist2=0 RobotCount1=7 RobotCount2=7 OldX0=X0 OldY0=Y0 OldX2=X2 OldY2=Y2 OldX3=X3 OldY3=Y3 BirdCount=0 BirdDist=0 StickFlag=7 Image0=0 Image1=0 DotSound=0 BonusSound=0 DoorSound=0 RETURN PROC Hit_Bad_Guy() SndRst() DoorSound=0 BonusSound=0 Sound(0,81,10,8) Delay(5) Sound(0,91,10,8) Delay(5) Sound(0,96,10,8) Delay(5) Sound(0,108,10,8) Delay(5) Sound(0,121,10,8) Delay(10) SndRst() RETURN PROC Modify_Display_List() CARD dlistaddr=$230 BYTE POINTER dlistpntr dlistpntr=dlistaddr+26 dlistpntr^==+128 ; Set DLI dlistpntr=dlistaddr+28 dlistpntr^=2 ; Graphics 0 line RETURN PROC Init() Screen=1 Lives=3 Score=0 Dots=0 PMData0(0)=Player0Data0 PMData0(1)=Player0Data1 PMData0(2)=Player0Data2 PMData0(3)=Player0Data3 PMData1(0)=Player1Data0 PMData1(1)=Player1Data2 PMData1(2)=Player1Data1 PMData1(3)=Player1Data2 PMData2(0)=Player2Data0 PMData2(1)=Player2Data1 PMData2(2)=Player2Data2 PMData2(3)=Player2Data3 PMData3(0)=Player2Data0 PMData3(1)=Player2Data1 PMData3(2)=Player2Data2 PMData3(3)=Player2Data3 MissleData(0)=Player3Data0 MissleData(1)=Player3Data1 MissleData(2)=Player3Data2 MissleData(3)=Player3Data3 PMRam=(MemTop)*$100 MissleBase=PMRam+$300 Player0=PMRam+$400 Player1=PMRam+$500 Player2=PMRam+$600 Player3=PMRam+$700 Zero(PMRam+$300,$500) ChBas=MemTop PMBase=MemTop Modify_Display_List() GPrior=17 GraCtl=3 PMColor0=66 PMColor1=34 PMColor2=6 PMColor3=162 Reset() High_Score() RETURN PROC Maze1() SDmaCtl=$00 Sype("!@@@@@@@@@@@@@@@@@@!",ScRam) Sype(")(",ScRam+20) Sype(")&'$&'$(",ScRam+40) Sype(")#!!!%&$#!!!%(",ScRam+60) Sype(")(!)(!!)(!)(",ScRam+80) Sype("!$#@%&!!!!$#@%&!",ScRam+100) Sype("!)(!!!!)(!",ScRam+120) Sype("!!$&!!!!!!$&!!",ScRam+140) Sype("@@@,;@@@@@@@@,;@@@",ScRam+160) Sype(" ",ScRam+180) Sype("$*;==========,*&",ScRam+200) Sype(")(",ScRam+220) Sype(")&',;'$(",ScRam+240) Sype(")(!@%&$#@!)(",ScRam+260) Sype(")()&!!!!$()(",ScRam+280) Sype(")()&'!!!!!!'$()(",ScRam+300) Sype(")()(!!!!!!!!)()(",ScRam+320) Sype(")#%#@@@@@@@@%#%(",ScRam+340) Sype(")(",ScRam+360) Sype("!==='==,;==!",ScRam+380) Sype(") #(!!!!",ScRam+400) Sype(") (!!!!",ScRam+420) Sype("!!!!!!",ScRam+440) SDmaCtl=62 RETURN
PROC Maze2() SDmaCtl=$00 Sype("!@@@@@@@@@@@@@@@@@@!",ScRam) Sype(")(",ScRam+20) Sype(")&'$&=====$(",ScRam+40) Sype(")#@%#@%(!)(",ScRam+60) Sype(")&$(!)(",ScRam+80) Sype("!'===$#@@%#@)(",ScRam+100) Sype("!%(!%:(",ScRam+120) Sype(")&$()&'=,*(",ScRam+140) Sype("%;@%#%;@@@%/#",ScRam+160) Sype(" &') ",ScRam+180) Sype("'$&====@@)&",ScRam+200) Sype("!)#!!!@@%>(",ScRam+220) Sype("!)(!%&===,>(",ScRam+240) Sype("!!$#%&)>(",ScRam+260) Sype("!!)&!!!)&',*>(",ScRam+280) Sype("!@@===@@@@%()>(",ScRam+300) Sype(")()&)(",ScRam+320) Sype(");=======,()()(",ScRam+340) Sype(")()()(",ScRam+360) Sype("!=='$(%#)(",ScRam+380) Sype(") #@@@@@@%::(",ScRam+400) Sype(") /(",ScRam+420) Sype("!!'!",ScRam+440) SDmaCtl=62 RETURN
PROC Maze3() SDmaCtl=$00 Sype("!@@@@@@@@@@@@@@@@@@!",ScRam) Sype(")(",ScRam+20) Sype(")(",ScRam+40) Sype(")(",ScRam+60) Sype(")(",ScRam+80) Sype("%#",ScRam+100) Sype(" ** ",ScRam+120) Sype("$&",ScRam+140) Sype(")(",ScRam+160) Sype(")(",ScRam+180) Sype(")(",ScRam+200) Sype(")(",ScRam+220) Sype("!',;'!",ScRam+240) Sype(" #!@%&$#@!% ",ScRam+260) Sype(" )&!!!!$( ",ScRam+280) Sype(" )&'!!!!!!'$( ",ScRam+300) Sype(" )(!!!!!!!!)( ",ScRam+320) Sype(" )#@@@@@@@@%( ",ScRam+340) Sype(" &)($ ",ScRam+360) Sype("!@@@'==,;=='!!!!",ScRam+380) Sype(") :(!!!!",ScRam+400) Sype(") (!!!!",ScRam+420) Sype("!!!!!!",ScRam+440) SDmaCtl=62 RETURN
PROC Life_Display() BYTE ctr Sype(" ",ScRam+477) FOR ctr=1 TO Lives DO Sype("X",ScRam+476+ctr) OD RETURN
PROC Over() Sype("**************",ScRam+103) Sype("* game over *",ScRam+123) Sype("*press start*",ScRam+143) Sype("**************",ScRam+163) DO UNTIL Con=6 OR Trig0=0 OD IF Score>HighScore THEN HighScore=Score FI Score=0 Dots=0 Lives=3 High_Score() Screen=1 Speed=StartSpeed Color(194,10,240,246,0) Maze1() Life_Display() DO UNTIL Trig0#0 AND Con#6 OD RETURN
PROC NextMaze() Reset() SndRst() Song() Dots=0 Screen==+1 IF Screen=2 THEN Color(114,8,240,246,0) Maze2() ELSEIF Screen=3 THEN Color(20,10,240,246,0) Maze3() ELSEIF Screen=4 THEN Speed==-1 IF Speed<1 THEN Speed=1 FI Color(194,10,240,246,0) Screen=1 Maze1() FI RETURN
PROC PosPlayer() HitClr=0 HPosM0=X0 HPosM1=X0+2 HPosM2=X0+4 HPosM3=X0+6 HPos0=X0 MoveBlock(Player0+Y0,PMData0(Image1) ,14) HPos1=X1 MoveBlock(Player1+Y1,PMData1(Image0) ,14) HPos2=X2 MoveBlock(Player2+Y2,PMData2(Image0) ,14) HPos3=X3 MoveBlock(Player3+Y3,PMData3(Image0) ,14) MoveBlock(MissleBase+Y0, MissleData(Image1),14) RETURN
PROC Score_Display() StrI(Score,String) Sype(" ",ScRam+468) Sype(String,ScRam+468) RETURN
PROC Flash() BYTE blink blink==+1 IF blink>7 THEN IF Color1>10 THEN Color1=10 ELSE Color1=54 FI Color2=Rand(255) blink=0 FI RETURN
PROC Sounds() IF DoorSound THEN DoorSound==-1 IF DoorSound<15 THEN Sound(2,72,10,8) Sound(3,60,10,8) ELSE Sound(2,60,10,8) Sound(3,47,10,8) FI ELSEIF BonusSound THEN BonusSound==-1 IF BonusSound<15 THEN Sound(2,29,10,8) Sound(3,35,10,8) ELSE Sound(2,35,10,8) Sound(3,45,10,8) FI ELSE Sound(2,0,0,0) Sound(3,0,0,0) FI IF DotSound THEN DotSound==-1 Sound(1,125,10,8) ELSE Sound(1,0,0,0) FI RETURN
PROC Pause() SndRst() DO UNTIL Stick(0)<>15 OD RETURN PROC Animate() BYTE count count==+1 IF count>4 THEN count=0 Image0==+1 IF Image0=4 THEN Image0=0 FI FI RETURN
PROC Move_Stick() BYTE stickdir StickFlag==+1 IF StickFlag>7 THEN ; Go through tunnel IF X0<48 THEN X0=200 ELSEIF X0>200 THEN X0=48 FI OldX0=X0 OldY0=Y0 stickdir=Stick0 StickFlag=0 IF SpaceFlag=1 THEN X=(X0-46)/8 Y=(Y0-24)/8 IF X0<80 AND Y0>184 THEN Score==+1 FI IF CheckLocate(X0,Y0)=1 THEN IF Locate(X,Y)=' THEN Score==-1 FI FI FI IF stickdir=15 OR stickdir=10 OR stickdir=6 OR stickdir=9 OR stickdir=5 THEN SpaceFlag=0 ELSE SpaceFlag=1 Atract=0 FI FI IF stickdir=14 THEN Y0==-1 Image1=1 ELSEIF stickdir=7 THEN X0==+1 Image1=3 ELSEIF stickdir=13 THEN Y0==+1 Image1=0 ELSEIF stickdir=11 THEN X0==-1 Image1=2 FI RETURN
PROC Move_Bird() BYTE dir, time, count=[0] count==+1 IF BirdCount THEN BirdCount==-1 FI IF count=Speed THEN IF BirdDist<1 THEN dir=Rand(9) BirdDist=Rand(40) FI IF BirdCount=0 THEN IF dir=1 THEN Y1==-1 ELSEIF dir=2 THEN X1==+1 Y1==-1 ELSEIF dir=3 THEN X1==+1 ELSEIF dir=4 THEN X1==+1 Y1==+1 ELSEIF dir=5 THEN Y1==+1 ELSEIF dir=6 THEN X1==-1 Y1==+1 ELSEIF dir=7 THEN X1==-1 ELSEIF dir=8 THEN X1==-1 Y1==-1 FI FI BirdDist==-1 count=0 FI RETURN
INT FUNC ABS(INT i) IF i<0 THEN i=-i FI RETURN(i)
PROC Move_Robot1() BYTE robotdir INT disx, disy RobotSpeed1==+1 IF RobotSpeed1>Speed-1 THEN RobotSpeed1=0 RobotCount1==+1 IF RobotCount1>7 THEN RobotCount1=0 IF X2<48 THEN X2=200 ELSEIF X2>200 THEN X2=48 FI OldX2=X2 OldY2=Y2 RobotDist1==-1 IF RobotDist1<1 THEN RobotDist1=Rand(8) IF Rand(3)#2 THEN disx=ABS(X0-X2) disy=ABS(Y0-Y2) IF disx>disy THEN IF X2>X0 THEN robotdir=4 ELSE robotdir=2 FI ELSE IF Y2>Y0 THEN robotdir=1 ELSE robotdir=3 FI FI ELSE robotdir=Rand(5) FI FI FI ;Adjust coordinates for robot IF robotdir=1 THEN Y2==-1 ELSEIF robotdir=2 THEN X2==+1 ELSEIF robotdir=3 THEN Y2==+1 ELSEIF robotdir=4 THEN X2==-1 FI FI RETURN
PROC Move_Robot2() BYTE robotdir INT disx, disy RobotSpeed2==+1 IF RobotSpeed2>Speed-1 THEN RobotSpeed2=0 RobotCount2==+1 IF RobotCount2>7 THEN RobotCount2=0 IF X3<48 THEN X3=200 ELSEIF X3>200 THEN X3=48 FI OldX3=X3 OldY3=Y3 RobotDist2==-1 IF RobotDist2<1 THEN RobotDist2=Rand(8) IF Rand(3)#2 THEN disx=ABS(X0-X3) disy=ABS(Y0-Y3) IF disx>disy THEN IF X3>X0 THEN robotdir=4 ELSE robotdir=2 FI ELSE IF Y3>Y0 THEN robotdir=1 ELSE robotdir=3 FI FI ELSE robotdir=Rand(5) FI FI FI ;Adjust coordinates for robot IF robotdir=1 THEN Y3==-1 ELSEIF robotdir=2 THEN X3==+1 ELSEIF robotdir=3 THEN Y3==+1 ELSEIF robotdir=4 THEN X3==-1 FI FI RETURN
BYTE FUNC Hit_Man(BYTE playfield) RETURN(P0PF&playfield)
BYTE FUNC Hit_Robot1(BYTE playfield) RETURN(P2PF&playfield) BYTE FUNC Hit_Robot2(BYTE playfield) RETURN(P3PF&playfield) PROC Collisions() CARD offset X=(X0-46)/8 Y=(Y0-24)/8 offset=(Y*20)+X ;Man hits super globule IF CheckLocate(X0,Y0)=1 THEN IF Hit_Man(4) THEN IF Locate(X,Y)='* THEN Sype(" ",ScRam+offset) Score==+Dots BonusSound=30 FI ;Man hits door ELSEIF Hit_Man(8) THEN IF Locate(X,Y)=' THEN Score==+101 Sype(" ",ScRam+offset) DoorSound=30 FI ;Man hits dot ELSEIF Hit_Man(2) THEN IF Locate(X,Y)=' THEN Sype(" ",ScRam+offset) Score==+2 Dots==+1 DotSound=2 FI FI FI ;Man hits wall IF Hit_Man(1) THEN X0=OldX0 Y0=OldY0 StickFlag=7 Score==+1 IF X0<80 AND Y0>184 THEN Score==-1 FI FI ;Robot1 hits wall IF Hit_Robot1(1) THEN X2=OldX2 Y2=OldY2 RobotCount1=7 RobotDist1=1 FI ;Robot1 hits door IF Hit_Robot1(8) THEN X=(X2-46)/8 Y=(Y2-24)/8 IF Locate(X,Y)=' THEN offset=(Y*20)+X Sype(" ",ScRam+offset) FI FI ;Robot2 hits wall IF Hit_Robot2(1) THEN X3=OldX3 Y3=OldY3 RobotCount2=7 RobotDist2=1 FI ;Robot2 hits door IF Hit_Robot2(8) THEN X=(X3-46)/8 Y=(Y3-24)/8 IF Locate(X,Y)=' THEN offset=(Y*20)+X Sype(" ",ScRam+offset) FI FI ;Man hits bird IF P0PL=2 THEN Zero(PMRam+$500,$100) Score==-50 X1=47 Y1=29 BirdCount=100 Hit_Bad_Guy() FI ;Man hits a robot IF P0PL=4 OR P0PL=8 THEN Lives==-1 Life_Display() Hit_Bad_Guy() Reset() FI ;Bird hits boundry IF X1>192 THEN X1==-2 BirdDist=0 FI IF X1<47 THEN X1==+2 BirdDist=0 FI IF Y1>200 THEN Y1==-2 BirdDist=0 FI IF Y1<29 THEN Y1==+2 BirdDist=0 FI RETURN
PROC Checks() BYTE extra_life IF Score=0 THEN extra_life=0 FI IF Trig0=0 THEN Pause() FI IF Dots>172 AND X0<74 AND Y0>192 AND Screen=1 THEN NextMaze() ELSEIF Dots>177 AND X0<74 AND Y0>192 AND Screen=2 THEN NextMaze() ELSEIF Dots>252 AND X0<74 AND Y0>192 AND Screen=3 THEN NextMaze() FI IF extra_life=0 AND Score>2999 THEN Lives==+1 Life_Display() extra_life=1 FI IF Lives<1 THEN Life_Display() Over() FI RETURN
PROC Game() Reset() DO Flash() BGNoise() Collisions() Move_Stick() Move_Bird() Move_Robot1() Move_Robot2() Animate() Sounds() PosPlayer() Score_Display() Checks() Delay(1) IF Con=6 THEN EXIT FI OD RETURN
PROC Main() HighScore=0 DO OldMemTop=MemTop Title() SDmaCtl=0 Move_Set() Init() SetDLI() Color(194,8,240,246,0) Maze1() Sype("SCORE",ScRam+462) Sype("HIGH SCORE",ScRam+482) Life_Display() PosPlayer() SndRst() Game() IF Score>HighScore THEN HighScore=Score FI HPos0=0 HPos1=0 HPos2=0 HPos3=0 HPosM0=0 HPosM1=0 HPosM2=0 HPosM3=0 SndRst() MemTop=OldMemTop OD RETURN
}}}