'GAME GAMEPAD 1 BG 0 BG COPY 0,0,20,16 TO 0,0 'SX,SY MAINCHR'S POSITION SPRITE 0,8,8,1 SPRITE 0 PAL 1 SX=1 SY=1 'NYUURYOKU DO IF UP(0) THEN CALL MOVEPLAYER(SX,SY,0,-1) IF DOWN(0) THEN CALL MOVEPLAYER(SX,SY,0,1) IF LEFT(0) THEN CALL MOVEPLAYER(SX,SY,-1,0) IF RIGHT(0) THEN CALL MOVEPLAYER(SX,SY,1,0) WAIT VBL LOOP SUB MOVEPLAYER(X,Y,DX,DY) C=CELL.C(X+DX,Y+DY) IF C=0 THEN FOR I=1 TO 8 SPRITE 0,X*8+DX*I,Y*8+DY*I, WAIT VBL NEXT I X=X+DX Y=Y+DY END IF END SUB #1:MAIN PALETTES 053F2F0000383400003C0C00003F3C00 000B2024003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 3C7EFF99FFFF7E3C0000006600241800 CC33CC33CC33CC33FFFFFFFFFFFFFFFF 183C5ADBFF7E3C180000242400241800 #3:MAIN BG 00001410020402040204020402040204 02040204020402040204020402040000 00000000000000000000000002040004 00040004000400040004000400000000 00000004020400000000000000000000 00000000020400040204000402040004 02040004020400000204000002040000 00000000000000000000000002040000 00000000000000000000000000000000 00000000020400000000000000000000 00000000020400000204000002040000 02040000020400000204000002040000 00000000000000000000000002040000 00000000000000000000000000000000 00040000020400000000000000000000 00000000020400000204000002040000 02040000020400040204000002040000 00000000000000000000000002040000 00000000000000000000000000040000 00000000020400000000000000000000 00000000020400040204000402040004 02040004020400000204000002040000 00000000000000000000000002040004 00040004000400040000000000000000 00000000020400000000000000000000 00000000020402040204020402040204 02040204020402040204020402040000 00000000000000000000000000040000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000400000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000