GAMEPAD 1 BG 1 BG COPY 0,0,20,16 TO 0,0 BG 0 GLOBAL SCORE SCORE=0 PAL 1 NUMBER 15,0,SCORE,5 GLOBAL PLAYER,DOT,PILL,PLAYERPASS,PLAYERLEFT,PLAYERRIGHT PLAYER=23 DOT=22 PILL=21 PLAYERPASS=18 PLAYERLEFT=19 PLAYERRIGHT=20 PX=9 PY=9 PAL 1 CELL 9,9,PLAYER DO IF RIGHT(0) THEN CALL MOVEPLAYER(PX,PY,1,0) IF LEFT(0) THEN CALL MOVEPLAYER(PX,PY,-1,0) IF DOWN(0) THEN CALL MOVEPLAYER(PX,PY,0,1) IF UP(0) THEN CALL MOVEPLAYER(PX,PY,0,-1) WAIT 5 LOOP SUB MOVEPLAYER(X,Y,MX,MY) XCHECK=X+MX YCHECK=Y+MY BG 1 CELLCHECK=CELL.C(XCHECK,YCHECK) BG 0 IF CELLCHECK=0 OR (CELLCHECK>=16 AND CELLCHECK<=31) THEN CELL X,Y,0 X=X+MX Y=Y+MY IF CELLCHECK=PLAYERLEFT THEN X=19 IF CELLCHECK=PLAYERRIGHT THEN X=0 IF MX<0 OR MY<0 THEN XFLIP=1 ELSE XFLIP=0 CELL X,Y,PLAYER+XFLIP IF CELLCHECK=DOT THEN BG 1 CELL X,Y,0 BG 0 PLAY 0,70,1 SCORE=SCORE+10 NUMBER 15,0,SCORE,5 END IF END IF END SUB #1:MAIN PALETTES 00070302003C2814003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 007E7E7E7E7E7E00FFFFFFE7E7FFFFFF 0018245A5A24180000183C66663C1800 00002442422400000000246666240000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 0018245A5A24180000183C66663C1800 000010307E3010000000000000000000 0000080C7E0C08000000000000000000 00182442422418000000183C3C180000 00000018180000000000000000000000 3E7CF8F0F0F87C3E0020200000000000 7C3E1F0F0F1F3E7C0004040000000000 #3:MAIN BG 00001410010001000100010001000100 01000100010001000100010001000100 01000100010001000100010001001501 16011601160116011601160116011601 16011601160116011601160116011601 15010100010016010100010016010100 01001601010001000100010001000100 01001601010001001601010001001601 16011601160101001601160116011601 16011601160116010100160116011601 16010100010016010100010016010100 16010100010001000100010001001601 01001601010001001601010001001601 16010100160101001601000000000000 00000000000016010100160101001601 00000100010001001601010016010100 16010100010002000200010001001601 01001601010016010100010013011201 16010100160116011601010000000000 00000000010016011601160101001601 12011401010001001601010016010100 16010100010001000100010001001601 01001601010016010100010001001601 16010100160101001601000000000000 00000000000016010100160101001601 16010100010016010100010016010100 16010100010001000100010001001601 01001601010001001601010001001601 16011601160116011601160116011601 16011601160116011601160116011601 16010100010016010100160101001601 01001601010001000100010016010100 16010100160101001601010001001601 01001601010016010100160101000100 01000100160101001601010016010100 16010100010015011601160116011601 16011601160116011601160116011601 16011601160116011501010001000100 01000100010001000100010001000100 01000100010001000100010001000100 01000100