BG FILL 0,0 TO 19,15 CHAR 1 BG FILL 1,1 TO 18,14 CHAR 0 RANDOMIZE TIMER GAMEPAD 1 DIM GLOBAL MX(4),MY(4) FOR I=1 TO 4 READ MX(I),MY(I) NEXT I DATA 0,-1,1,0,0,1,-1,0 FOR I=1 TO 10 CELL RND(17)+1,RND(13)+1,32 NEXT I CELL 1,1,16 IWALK=0 DO BU=UP(0) BD=DOWN(0) BL=LEFT(0) BR=RIGHT(0) BA=BUTTON(0,0) BB=BUTTON(0,1) FOR Y=1 TO 14 FOR X=1 TO 18 C=CELL.C(X,Y) CU=CELL.C(X,Y-1) CD=CELL.C(X,Y+1) CL=CELL.C(X-1,Y) CR=CELL.C(X+1,Y) IF C>47 THEN CELL X,Y,C-32 IF C>=16 AND C<=31 THEN IF BU AND C<>16 THEN CELL X,Y,16 IF BR AND C<>20 THEN CELL X,Y,20 IF BD AND C<>24 THEN CELL X,Y,24 IF BL AND C<>28 THEN CELL X,Y,28 IF (C=16 OR C=20 OR C=24 OR C=28) THEN IF BA THEN CELL X,Y,C+1 IF BB THEN CELL X,Y,C+2 END IF IF (C=17 OR C=21 OR C=25 OR C=29) AND BB THEN CELL X,Y,C+1 IF (C=18 OR C=22 OR C=26 OR C=30) AND BA THEN CELL X,Y,C-1 IF IWALK=0 THEN IF BU AND C=16 AND CU=0 THEN CALL MOVE(16,X,Y,0,-1) IF BR AND C=20 AND CR=0 THEN CALL MOVE(20,X,Y,1,0) IF BD AND C=24 AND CD=0 THEN CALL MOVE(24,X,Y,0,1) IF BL AND C=28 AND CL=0 THEN CALL MOVE(28,X,Y,-1,0) END IF END IF IF C>=32 AND C<=47 THEN RA=RND(50) IF RA THEN RR=0 ELSE RR=1 ACTION=RND(3) IF ACTION=1 THEN IF RR AND C<>32 THEN CELL X,Y,32 IF RR AND C<>36 THEN CELL X,Y,36 IF RR AND C<>40 THEN CELL X,Y,40 IF RR AND C<>44 THEN CELL X,Y,44 ELSE IF ACTION=2 THEN IF (C=32 OR C=36 OR C=40 OR C=44) AND RR THEN CELL X,Y,C+1 IF (C=33 OR C=37 OR C=41 OR C=45) AND RR THEN CELL X,Y,C+1 IF (C=34 OR C=38 OR C=42 OR C=46) AND RR THEN CELL X,Y,C-1 ELSE IF ACTION=3 THEN IF IWALK=0 THEN IF RR AND C=32 AND CU=0 THEN CALL MOVE(32,X,Y,0,-1) IF RR AND C=36 AND CR=0 THEN CALL MOVE(36,X,Y,1,0) IF RR AND C=40 AND CD=0 THEN CALL MOVE(40,X,Y,0,1) IF RR AND C=44 AND CL=0 THEN CALL MOVE(44,X,Y,-1,0) END IF END IF END IF NEXT X NEXT Y ADD IWALK,1,0 TO 10 WAIT VBL LOOP SUB MOVE(C,X,Y,DX,DY) CELL X,Y,0 IF DX=1 OR DY=1 THEN CELL X+DX,Y+DY,C+32 ELSE CELL X+DX,Y+DY,C END IF END SUB #1:MAIN PALETTES 00300C3F00383400003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 55AA55AA55AA55AA55AA55AA55AA55AA 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 0000C3DB3C3C3C000000000000000000 C0C0835B3C3C3C000000000000000000 0303C1DA3C3C3C000000000000000000 00000000183C3C3C0000000000000000 0C0C707878700C0C0000000000000000 070B707878700C0C0000000000000000 0C0C707878700B070000000000000000 0000E0F0F0E000000000000000000000 003C3C3CDBC300000000000000000000 003C3C3CDAC103030000000000000000 003C3C3C5B83C0C00000000000000000 3C3C3C18000000000000000000000000 30300E1E1E0E30300000000000000000 30300E1E1E0ED0E00000000000000000 E0D00E1E1E0E30300000000000000000 0000070F0F0700000000000000000000 00000000000000000000C3DB3C3C3C00 0000000000000000C0C0835B3C3C3C00 00000000000000000303C1DA3C3C3C00 000000000000000000000000183C3C3C 00000000000000000C0C707878700C0C 0000000000000000070B707878700C0C 00000000000000000C0C707878700B07 00000000000000000000E0F0F0E00000 0000000000000000003C3C3CDBC30000 0000000000000000003C3C3CDAC10303 0000000000000000003C3C3C5B83C0C0 00000000000000003C3C3C1800000000 000000000000000030300E1E1E0E3030 000000000000000030300E1E1E0ED0E0 0000000000000000E0D00E1E1E0E3030 00000000000000000000070F0F070000