GAMEPAD 1 X=0 Y=0 BX=0 BY=0 PX=10 PY=7 BLX=-3 BLY=0 B1X=-1 B1Y=16 P1X=0 P1Y=0 P2X=0 P2Y=0 EX=6 EY=6 STX=0 STY=0 DIR=0 STIME=200 SPEED=1 ENMY=0 GRAVITY=1 AIRTIME=0 LOADING=1 LTIME=10 SPAWN=1 GEA=1 TIMES=0 DIGTIMES=0 ENMYTIME=0 ARANGE=9 SHOOT=0 RANTIME=10 BULLETSPEED=0.7 HA_SUCKED_IN=0 HEALTH=10 SELECTED=1 SBLOCK=46 BG 1 BG COPY 0,0,32,32 TO BX,BY PAUSE OFF DO SPRITE 13 PAL 4 IF RIGHT TAP(0) OR LEFT TAP(0) AND NOT BUTTON(0,0) AND NOT BUTTON(0,1) THEN TIMES=4 BG 1 IF LEFT TAP(0) AND CELL.C(X-0.1,Y)=60 AND NOT BUTTON(0,0) AND NOT BUTTON(0,0) THEN ADD X,-1 ADD P1X,-1 END IF IF RIGHT TAP(0) AND CELL.C(X+1,Y)=60 AND NOT BUTTON(0,0) AND NOT BUTTON(0,0) THEN ADD X,1 ADD P1X,1 END IF BG 0 SPRITE 17 PAL 2 SPRITE 17,53,1,SBLOCK IF SELECTED=1 THEN SBLOCK=46 IF SELECTED=2 THEN SBLOCK=60 IF SELECTED=3 THEN SBLOCK=61 IF SELECTED=4 THEN SBLOCK=62 IF SELECTED=5 THEN SBLOCK=63 IF SELECTED=6 THEN SBLOCK=64 IF SELECTED=7 THEN SELECTED=1 IF PAUSE AND DOWN(0) THEN IF NOT BUTTON(0,1) THEN IF NOT BUTTON(0,0) THEN ADD SELECTED,1 END IF END IF END IF IF SPRITE HIT(9,15) THEN ADD HEALTH,-1.5 BULL=0 END IF IF RANTIME<1 THEN RANTIME=10 ADD RANTIME,-1 BG 1 IF CELL.C(X,Y+1)=63 THEN IF CELL.C(X-0.1,Y)=0 THEN IF TIMES=3 THEN ADD X,-1 END IF END IF IF CELL.C(X,Y+1)=64 THEN IF CELL.C(X+1,Y)=0 THEN IF TIMES=3 THEN ADD X,1 END IF END IF BG 0 BG 0 IF LOADING=0 THEN BG FILL 0,0 TO 20,16 CHAR 0 IF ENMY=1 THEN IF P2Y>EY THEN ADD P2Y,-0.125 IF P2YEX THEN ADD P2X,-0.125 IF P2XX THEN ADD P1X,-0.125 IF P1XY THEN ADD P1Y,-0.125 IF P1Y9 THEN TIMES=0 ELSE ADD TIMES,1 END IF IF X>19 THEN BG 1 BG COPY 0,0,32,32 TO BX,BY BG 0 RANDOMIZE BLY EX=(RND(1)*8)+10 RANDOMIZE GEA ADD GEA,1 RANDOMIZE GEA LOADING=1 SPAWN=1 'Y=0 BLX=-3 BLY=0 B1X=-1 B1Y=16 EY=1 P2Y=1 P2X=EX IF RANTIME<5 THEN ENMY=1 ELSE ENMY=0 SPRITE OFF 13 END IF IF X<0 THEN BG 1 BG COPY 0,0,32,32 TO BX,BY BG 0 RANDOMIZE BLY EX=(RND(1)*8) RANDOMIZE GEA ADD GEA,-1 RANDOMIZE GEA LOADING=1 SPAWN=18 'Y=0 BLX=-3 BLY=0 B1X=-1 B1Y=16 EY=1 P2Y=1 P2X=EX IF RANTIME<5 THEN ENMY=1 ELSE ENMY=0 SPRITE OFF 13 END IF IF AIRTIME>0 THEN ADD AIRTIME,-0.5 IF B1X>19 THEN 'CELL X,Y,2 END IF IF B1X=19 THEN Y=0 'BG FILL 0,0 TO 20,16 CHAR 0 LTIME=1 END IF BG 1 IF LTIME=1 THEN IF NOT CELL.C(X,Y+1)=0 THEN LOADING=0 LTIME=0 BG 0 BG FILL 0,0 TO 20,16 CHAR 0 BG 1 END IF END IF BG 0 BG 1 IF B1Y>0 THEN ADD B1Y,-1 ELSE B1Y=16 IF B1X<19 THEN ADD B1X,1 ELSE B1X=25 'ENMY=1 'IF RANTIME<5 THEN ENMY=1 ELSE ENMY=0 END IF END IF 'ENEMY AI IF NOT CELL.C(P2X,P2Y)=0 THEN ADD P2Y,-1 ADD EY,-1 END IF IF CELL.C(P2X,P2Y+1)=0 THEN ADD P2Y,0.1 EY=P2Y END IF IF LOADING=0 THEN IF ENMYTIME<1 THEN ENMYTIME=80 END IF ADD ENMYTIME,-1 'ALSO ENEMY AI IF ENMYTIME=1 THEN IF EXX THEN SPRITE 13 FLIP 1,0 IF CELL.C(EX-1,EY)=0 AND NOT CELL.C(EX,EY+1)=0 THEN ADD EX,-1 ELSE IF CELL.C(EX-1,EY-1)=0 THEN ADD EX,-1 ADD EY,-1 'ADD P2Y,-1 'ADD P2X,-1 END IF END IF END IF END IF END IF BG 1 IF NOT CELL.C((EX),(EY+0.9))=0 THEN ADD P2Y,-0.4 END IF PAL 2 IF CELL.C(B1X,B1Y)=0 AND CELL.C(B1X-1,B1Y-1)=30 THEN CELL B1X,B1Y,30 END IF IF CELL.C(B1X-1,B1Y+1)=30 AND CELL.C(B1X,B1Y)=0 AND CELL.C(B1X,B1Y+1)=30 THEN PAL 2 IF RND(10)0 THEN ADD STIME,-1 ELSE STIME=200 IF ENMY=1 THEN IF STIME=5 THEN IF EX-ARANGEX AND EY+0.5>Y AND EY-0.5150 OR STX<0 OR SPRITE HIT(15,9) OR NOT CELL.C(STX/8,STY/8)=0 THEN BULL=0 END IF IF BULL=1 THEN SPRITE 15 PAL 4 SPRITE 15,STX,STY,7 ELSE SPRITE OFF 15 END IF BG 0 IF LEFT(0) AND NOT BUTTON(0,0) AND NOT BUTTON(0,1) THEN BG 1 IF CELL.C(X-1,Y)=0 THEN BG 0 IF TIMES=5 THEN ADD PX,SPEED*10 ADD X,-SPEED END IF END IF END IF IF RIGHT(0) AND NOT BUTTON(0,0) AND NOT BUTTON(0,1) THEN BG 1 IF CELL.C(X+1,Y)=0 THEN BG 0 IF TIMES=5 THEN ADD PX,-SPEED*10 ADD X,SPEED END IF END IF END IF IF UP TAP(0) AND NOT BUTTON(0,0) AND NOT BUTTON(0,1) AND NOT CELL.C(X,Y)=60 THEN BG 1 IF NOT CELL.C(X,Y+1)=0 AND CELL.C(X,Y-1)=0 THEN BG 0 ADD Y,-1 AIRTIME=10 END IF END IF IF BUTTON(0,0) AND LEFT(0) THEN BG 0 CELL X-1,Y,51 BG 1 SPRITE 14,(X-1)*8,Y*8,1 IF NOT CELL.C(X-1,Y)=0 THEN CELL X-1,Y,0 'CELL X+1,Y,46 BG 0 END IF END IF IF BUTTON(0,0) AND RIGHT(0) THEN BG 0 CELL X+1,Y,3 BG 1 SPRITE 14,(X+1)*8,(Y*8),1 IF NOT CELL.C(X+1,Y)=0 THEN CELL X+1,Y,0 'CELL X-1,Y,46 BG 0 END IF END IF IF BUTTON(0,0) AND DOWN(0) AND NOT LEFT(0) AND NOT RIGHT(0) THEN BG 0 CELL X,Y+1,35 BG 1 SPRITE 14,(X)*8,(Y+1)*8,1 IF NOT CELL.C(X,Y+1)=0 THEN CELL X,Y+1,0 'CELL X,Y-1,46 BG 0 END IF END IF IF BUTTON(0,0) AND UP(0) AND NOT LEFT(0) AND NOT RIGHT(0) THEN BG 0 CELL X,Y-1,19 BG 1 SPRITE 14,(X)*8,(Y-1)*8,1 IF NOT CELL.C(X,Y-1)=0 THEN CELL X,Y-1,0 'CELL X,Y+1,46 BG 0 END IF END IF BG 0 IF BUTTON(0,1) AND LEFT(0) AND NOT DOWN(0) THEN BG 1 IF NOT CELL.C(X-1,Y)=30 THEN CELL X-1,Y,SBLOCK BG 0 END IF END IF IF BUTTON(0,1) AND RIGHT(0) AND NOT DOWN(0) THEN BG 1 IF NOT CELL.C(X+1,Y)=30 THEN CELL X+1,Y,SBLOCK BG 0 END IF END IF IF BUTTON(0,1) AND UP(0) THEN BG 1 IF NOT CELL.C(X,Y-1)=30 THEN CELL X,Y-1,SBLOCK BG 0 END IF END IF IF BUTTON(0,1) AND DOWN(0) THEN BG 1 IF NOT CELL.C(X,Y+1)=30 THEN CELL X,Y+1,SBLOCK BG 0 END IF END IF IF BUTTON(0,1) AND DOWN(0) AND LEFT(0) THEN BG 1 IF NOT CELL.C(X-1,Y+1)=30 THEN CELL X-1,Y+1,SBLOCK BG 0 END IF END IF IF BUTTON(0,1) AND DOWN(0) AND RIGHT(0) THEN BG 1 IF NOT CELL.C(X+1,Y+1)=30 THEN CELL X+1,Y+1,SBLOCK BG 0 END IF END IF IF CELL.C(X-1,Y)=2 THEN CELL X-1,Y,0 END IF IF CELL.C(X+1,Y-1)=2 THEN CELL X+1,Y-1,0 END IF IF CELL.C(X-1,Y-1)=2 THEN CELL X-1,Y-1,0 END IF IF CELL.C(X+1,Y)=2 THEN CELL X+1,Y,0 END IF IF CELL.C(X-1,Y+1)=2 THEN CELL X-1,Y+1,0 END IF IF CELL.C(X,Y-1)=2 THEN CELL X,Y-1,0 END IF IF CELL.C(X+1,Y+1)=2 THEN CELL X+1,Y+1,0 END IF IF CELL.C(X,Y+1)=2 THEN CELL X,Y+1,0 END IF BG 1 IF TIMES=0 THEN IF CELL.C(X,Y+1)=0 AND AIRTIME=0 AND NOT CELL.C(X,Y)=60 AND NOT BUTTON(0,1) THEN ADD Y,GRAVITY END IF END IF BG 0 IF LOADING=0 THEN WAIT VBL 'BG 1 'BG COPY 0,0,32,32 TO BX,BY 'BG 0 'CELL X,Y,2 BG 0 IF LOADING=1 THEN X=SPAWN PAL 1 BG FILL 0,0 TO 20,16 CHAR 6 SPRITE 12 SIZE 2 SPRITE 12 PAL 3 SPRITE 12,66,60,16 ELSE SPRITE OFF 12 END IF BG 0 IF LOADING=1 THEN SPRITE 9 PAL 1 ELSE SPRITE 9 PAL 0 IF ENMY=0 THEN P2X=-2 EX=-2 END IF SPRITE 61 SIZE 3 SPRITE 61,63,0,39 IF HEALTH>0 THEN SPRITE 60,71,0,24 ELSE SPRITE OFF 60 IF HEALTH>5 THEN SPRITE 59,79,0,25 ELSE SPRITE OFF 59 IF HEALTH>9 THEN SPRITE 58,87,0,26 ELSE SPRITE OFF 58 IF HEALTH<1 THEN HA_SUCKED_IN=1 IF HA_SUCKED_IN=1 THEN SPRITE OFF 9 END END IF LOOP #1:MAIN PALETTES 2F0A09100000000000291910003F3F3F 00202A39003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 00000000080000000000000008000000 0000000024240000003C7E7EFFFFFF7E 000000C0B8C00000000006C7BFC70600 00000808909254550000080890925455 01060E0E3830100860D0A25000000000 FFFFFFFFFFFFFFFF0000000000000000 0000003C000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 0000000000000000FF818181818181FF 00000000000000000000000000000000 00000000000000000000000000000000 408050B09474FC5B8060F0E878DC2BF6 00000000000000000000000000000000 00000000000000000000000000000000 0000000000000000009D95DD00808081 000000000000000000CC4AAC0000C020 00000000000000008033ABA903000101 000000080808141C1C3E3E080808141C 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000007F7F000000 0000000000000000000000FFFF000000 0000000000000000000000FEFE000000 00000000000000000000000000000000 00000000000000000000000000000000 EA6BEDAED2EDFFFFB5BDD2FBFFF7FEFF 12A65DB7B5F5FFFFED5FFAEE7BDFBEF7 A5D3FA4F37FBDE7F5A3DEFFEFBADFFFF 0000000000000000828488B0C1868890 00000000000000001008050284681008 00000000000000000101814325190503 1C140808080000001C140808083E3E1C 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 0000AEAAEEA8A8000000000000000000 0000FF8080FF00000000000000000000 0000FF0000FF00000000000000000000 0000FF0101FF00000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 000000031D030000000060E3FDE36000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00FF0000000000FFFFFF00000000FFFF FFFFFFFFFFFFFFFF00BB00EE00BB00EE FE80808080808080010101010101017F 000103070F1F3F7F0103070F1F3F7FFF 0080C0E0F0F8FCFE80C0E0F0F8FCFEFF #3:MAIN BG 00001410000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 000000001E0200000000000000000000 00000000000000000000000000000000 0000000000000000000000001E020000 00000000000000000000000000000000 00000000000000000000000000000000 000000001E0200000000000000000000 00000000000000000000000000000000 0000000000000000000000001E020000 00000000000000000000000000000000 00000000000000000000000000000000 000000001E0200000000000000000000 00000000000000000000000000000000 0000000000000000000000001E021E02 1E021E021E021E021E021E021E021E02 1E021E021E021E021E021E021E021E02 1E021E02 #15:MAIN SOUND 2800303A000000001800846C003A0000 08006060000000002800303019FE0000 38002020000000003800505000000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 40404040004040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 2C0F0000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000