TOUCHSCREEN GLOBAL IPUT,IGREEN,PX,PY,IAIM,AX,AY,HX,HY,ENDGAME REM WAS8BIT IPUT=0 IGREEN=3 ENDGAME=0 NEXT_GREEN: CALL BG_LOAD(IGREEN) CALL SHOW_STATS IF ENDGAME=1 THEN TEXT 5,8,"END GAME" SPRITE 0,,,0 END END IF DO IF TOUCH THEN IF IAIM=0 OR IAIM=1 THEN IAIM=1 AX=TOUCH.X AY=TOUCH.Y SPRITE 1,AX-4,AY-4,1 END IF ELSE IF IAIM=1 THEN DX=AX-PX DY=AY-PY DD=SQR(DX*DX+DY*DY) IF DD<12 THEN SPRITE 1,PX,PY, IAIM=0 ELSE IAIM=2 SPRITE 1,0,0,0 INC IPUT CALL SHOW_STATS END IF END IF IF IAIM=2 THEN CH=DX*DY IF CH<1 AND CH>-1 THEN IAIM=0 AX=PX AY=PY SPRITE 1,AX,AY,1 ELSE OX=PX OY=PY PX=PX+DX/60 DX=DX*0.99 PY=PY+DY/60 DY=DY*0.99 IF PX>159 THEN PX=0 IF PX<0 THEN PX=159 IF PY<0 THEN PY=127 IF PY>127 THEN PY=0 SPRITE 0,PX,PY, IF DX>0 THEN CHX=PX+4 ELSE CHX=PX IF DY>0 THEN CHY=PY+4 ELSE CHY=PY CHIT=CELL.C(CHX\8,CHY\8) IF CHIT=4 THEN SPRITE 0,HX,HY, PLAY 0,50,60 PLAY 1,60,60 WAIT 129 INC IGREEN CALL SHOW_STATS GOTO NEXT_GREEN END IF IF CHIT=3 THEN XHIT=CELL.C(CHX\8,OY\8) YHIT=CELL.C(OX\8,CHY\8) IF XHIT=3 THEN PLAY 0,80,1 DX=-DX PX=OX END IF IF YHIT=3 THEN PLAY 1,75,1 DY=-DY PY=OY END IF END IF END IF END IF END IF W=(W+1) MOD 10 IF W=0 THEN WAIT VBL LOOP SUB SHOW_STATS BG 0 PAL 1 TEXT 0,0,"GREEN "+STR$(IGREEN-2)+" " TEXT 10,0,"PUTS "+STR$(IPUT)+" " BG 1 END SUB SUB BG_LOAD(BG_FILE_NUM) BG SOURCE ROM(BG_FILE_NUM) BG 1 BG COPY 0,0,20,16 TO 0,0 ENDGAME=1 FOR X=0 TO 19 FOR Y=0 TO 15 CH=CELL.C(X,Y) IF CH=4 THEN HX=X*8 HY=Y*8 ENDGAME=0 END IF IF CH=2 THEN PX=X*8 PY=Y*8 AX=PX AY=PY CELL X,Y,0 SPRITE 0,PX,PY,2 IAIM=0 SPRITE 1,PX,PY,1 END IF NEXT Y NEXT X END SUB #1:MAIN PALETTES 08353F04003F3F04002A1504003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 BA5492FE9254BA000000000000000000 00000000000000000000103810000000 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 00182442422418000018244242241800 010214180C000000010214180C000000 0000080F080000000000080F08000000 0000000C181402010000000C18140201 000000001C080808000000001C080808 00000030182840800000003018284080 00000010F010000000000010F0100000 80402818300000008040281830000000 10101038000000001010103800000000 #3:GREEN 1 00001410030003000300030003000300 03000300030003000300030003000300 03000300030003000300030000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000300000000000000000000000000 00000000000002000000000003000000 00000000000000000000030000000000 00000000000000000000000000000000 00000300030003000300000000000000 00000300000000000000000000000000 00000000000000000000030003000000 00000000000000000000000000000000 00000000000000000000000000000000 00000300030000000000000000000000 00000000000000000000000000000000 00000000000000000000030003000000 00000000000000000000000000000000 00000000000000000000000000000000 00000300030000000000030000000000 00000000000000000000000000000000 00000300030003000000030003000000 00000300000000000000000000000000 00000000000000000000000000000000 00000300030000000000030003000300 00000000000000000000000000000000 00000000000000000000030003000000 00000000000003000000000000000000 00000000000000000000000000000000 00000300030000000000000000000300 03000300000000000000000000000000 00000000000000000000030003000000 04000000000000000000000000000000 00000300000000000000000000000000 00000300030010001100120000000000 00000000000000000000030000000000 00000000000000000000030003000300 03000300030003000300030003000300 03000300030003000300030003000300 03000300 #4:GREEN 2 00001410030000000300030003000300 03000300030003000300030003000300 03000300030003000000030003000000 03000000000000000000000000000000 00000000000000000000000000000300 00000300030000000300000000000000 00000000000000000000000000000000 00000000000003000000030003000000 03000000000000000000000000000200 00000000000000000000000000000300 00000300030000000000000000000000 00000000000000000000000000000000 00000000000000000000030003000000 00000000000003000000000000000000 00000000000003000000000000000000 00000300030000000000000000000000 00000000000000000000000000000000 00000000000000000000030003000000 00000000000000000000000000000000 00000000000000000000000000000000 00000300030000000000000003000300 03000300030003000300030003000300 03000300000000000000030003000000 00000000000000000000000000000000 00000000000000000000000000000000 00000300030000000000000000000000 00000000000003000000000000000000 00000000000000000000030003000000 00000000030000000000000000000000 00000000000000000000030000000000 00000300030000000000000000000000 00000300000004000000030000000000 00000000000000000000030003000000 03000000000000000000000000000000 00000000000000000000000000000300 00000300030010000300120000000000 00000000000003000000000000000000 00000000000003000000030003000000 03000300030003000300030003000300 03000300030003000300030003000300 00000300 #5:GREEN 3 00001410000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000003000300 03000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000030000000000000000000300 00000000000000000300000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000300000000000000 00000000030000000000000000000000 00000000000000000000000000000000 00000000000003000000000000000000 00000000000000000000000000000000 03000000000000000000000000000000 00000000000000000000000003000000 00000000000002000300000003000000 00000300000004000000030000000000 03000000030000000000000000000000 03000000000000000000000000000000 00000000000000000000000003000000 00000000000000000000000000000000 00000000000003000000000000000000 00000000000000000000000000000000 00000000000000000300000000000000 00000000030000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000030000000000000000000300 00000000000000000300000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000003000300 03000000000000000000000000000000 00000000