RANDOMIZE TIMER REM WAS8BIT GAMEPAD 1 DIM ISPR(8),HFLIP(8),VFLIP(8) DIM XDIR(8),YDIR(8) FOR I=0 TO 7 READ XDIR(I),YDIR(I) NEXT I DATA 0,-1, 1,-1, 1,0, 1,1, 0,1, -1,1, -1,0, -1,-1 FOR I=0 TO 7 SPRITE.A I,(,,,,3) READ ISPR(I),VFLIP(I),HFLIP(I) NEXT I DATA 5,0,0, 1,0,0, 9,0,0 DATA 1,1,0, 5,1,0, 1,1,1 DATA 9,0,1, 1,0,1 EX=5*8 EY=4*8 PX=9*8 PY=8*8 IDIR=0 IDIR2=0 SPRITE 1,PX,PY,ISPR(IDIR) SPRITE.A 1,(,HFLIP(IDIR),VFLIP(IDIR),,) SPRITE 2,EX,EY,ISPR(IDIR2) SPRITE.A 2,(,HFLIP(IDIR2),VFLIP(IDIR2),,) PAUSE OFF RESET: WAIT VBL SPRITE.A 1,(INT(RND*8)) SPRITE.A 2,(INT(RND*8)) DO IF LEFT TAP (0) THEN IDIR=(IDIR+7) MOD 8 IF RIGHT TAP (0) THEN IDIR=(IDIR+1) MOD 8 IF LEFT TAP (0) OR RIGHT TAP (0) THEN SPRITE 1,PX,PY,ISPR(IDIR) SPRITE.A 1,(,HFLIP(IDIR),VFLIP(IDIR),,) WAIT VBL END IF ICOMP=INT(RND*100) IF ICOMP=3 THEN IDIR2=(IDIR2+7) MOD 8 IF ICOMP=6 THEN IDIR2=(IDIR2+1) MOD 8 IF ICOMP=3 OR ICOMP=6 THEN SPRITE 2,PX,PY,ISPR(IDIR2) SPRITE.A 2,(,HFLIP(IDIR2),VFLIP(IDIR2),,) WAIT VBL END IF IF PAUSE THEN GOTO RESET CALL XYWRAP(PX,PY,XDIR(IDIR),YDIR(IDIR)) SPRITE 1,PX,PY, CALL XYWRAP(EX,EY,XDIR(IDIR2),YDIR(IDIR2)) SPRITE 2,EX,EY, WAIT VBL LOOP SUB XYWRAP(X,Y,DX,DY) XMAX=19*8 YMAX=15*8 X=X+DX Y=Y+DY IF Y<0 THEN Y=YMAX IF X<0 THEN X=XMAX IF X>XMAX THEN X=0 IF Y>YMAX THEN Y=0 END SUB #1:MAIN PALETTES 2A30201000382410003C2814000C0804 000F0A05001707030033221100231202 #2:MAIN CHARACTERS 00000000000000000000000000000000 00000000000001030000000000000000 0000000000E0F0F80000000000000000 00000000000000100000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 000000000000001F0000000000000000 00000000000000F80000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000101010000000000000000 000000E0F070F0F00000000000800000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 03010000000000000000000000000000 FC7EFFFF7F7F3F3F0080000000000000 0804069FFCFCF8F80000041E3C1C0800 00000000804000000000000000000000 000000000F1F1F1B0000000000000004 01030303FFFFFFFF0103030300000000 80C0C0C0FFFFFFFF80C0C0C000000000 00000000F0F8F8D80000000000000020 000406060507070F0000000002000008 03030303070707FF00000000000000F8 F0F0F0F0F0F0FEFF0000000000000E0F 00000080808080800000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 000000003C1B0F070000000000040000 1F0F070F1F38F0E00000000C1E387020 FCFEFFFFFFFF3F0D0000000000000002 00000080C0E0F0F00000000000000000 07000000000000000000000000000000 FFFF0F01010101010000000101010101 FFFFF080808080800000008080808080 E0000000000000000000000000000000 0F070705060604000800000200000000 FF07070703030303F800000000000000 FFFEF0F0F0F0F0F00F0E000000000000 80808080800000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 03070200000000000006020000000000 E0E0D070301000000000200000000000 03010000000000000000000000000000 E0C00000000000000000000000000000 00000000000000000000000000000000 0F377F01000000000008000100000000 F0ECFE80000000000010008000000000 00000000000000000000000000000000 00000000000000000000000000000000 01010100000000000000000000000000 F0F070F0E00000000000800000000000