GAMEPAD 1 RANDOMIZE TIMER REM WAS8BIT DIM D(15),X(15),Y(15),ESTEP(15),ETYPE(15),ED(15),TSTEP(15),ADJ(15) DIM DX(8),DY(8) FOR I=1 TO 8 READ DX(I),DY(I) NEXT I DATA 0,-1,1,-1,1,0,1,1,0,1,-1,1,-1,0,-1,-1 YMAX=8*16 XMAX=8*20 DIM EVADE(4,8) FOR I=1 TO 4 FOR II=1 TO 8 READ EVADE(I,II) NEXT II NEXT I DATA 0,-1,1,1,0,-1,-1,1 DATA 0,1,-1,-1,0,1,1,-1 DATA 1,1,1,1,1,1,1,1 DATA -1,-1,-1,-1,-1,-1,-1,-1 D(0)=1 IMAX=15 X(0)=80 Y(0)=40 SPRITE 0,80,40,1 SPRITE 0 PAL 1 FOR I=1 TO IMAX ESTEP(I)=0 SPRITE I,I*8,I*8,3 SPRITE I PAL 2 X(I)=I*8 Y(I)=I*8 D(I)=3 NEXT I WAIT 1 FRAME=0 BG 1 PAL 3 DIM YY(15) FOR I=1 TO 15 YY(I)=I NEXT I FOR I=1 TO 100 Y1=RND(14)+1 Y2=RND(14)+1 SWAP YY(Y1),YY(Y2) NEXT I FOR I=1 TO 15 CELL 18-I,YY(I),9+RND(1) NEXT I DO IF RIGHT TAP(0) THEN ADD D(0),1,1 TO 8 IF LEFT TAP(0) THEN ADD D(0),-1,1 TO 8 FI=(FI+1) MOD 3 IF FI=0 THEN ADD FRAME,1,0 TO 2 X(0)=(X(0)+DX(D(0))+XMAX) MOD XMAX Y(0)=(Y(0)+DY(D(0))+YMAX) MOD YMAX SPRITE 0,X(0),Y(0),D(0)+(16*FRAME) FOR I=1 TO IMAX IF ESTEP(I)<>0 THEN DD=ED(I) IF TSTEP(I)>0 THEN DEC TSTEP(I) IF TSTEP(I)=0 THEN TSTEP(I)=10 SD=EVADE(ETYPE(I),ESTEP(I)) ADD ED(I),SD,1 TO 8 DD=ED(I) INC ESTEP(I) IF ESTEP(I)=9 THEN ESTEP(I)=0 END IF ELSE DD=D(I) IF ADJ(I)<>0 AND TSTEP(I)>0 THEN DEC TSTEP(I) IF TSTEP(I)=0 THEN ADD D(I),ADJ(I),1 TO 8 ADJ(I)=0 END IF END IF END IF X(I)=(X(I)+DX(DD)+XMAX) MOD XMAX Y(I)=(Y(I)+DY(DD)+YMAX) MOD YMAX SPRITE I,X(I),Y(I),DD+(16*FRAME) IF ESTEP(I)=0 AND RND(1000)=0 THEN ETYPE(I)=RND(3)+1 ED(I)=D(I) ESTEP(I)=1 TSTEP(I)=10 END IF IF ADJ(I)=0 THEN C=CELL.C(X(I)\8,Y(I)\8) IF C=9 THEN ADJ(I)=1 ELSE IF C=10 THEN ADJ(I)=-1 IF C=9 OR C=10 THEN TSTEP(I)=120 END IF NEXT I WAIT VBL LOOP #1:MAIN PALETTES 08303C380025300000152A0000080828 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 0C08773608081C000C00080800000000 111B0806536030000101040800000000 00040C4C734D0C04000000000D010000 0030605306081A130000000008040003 003810106CEE10300000000010100030 000C06CA6010D8880000000010208080 2030B2CE32302000000080B000000000 C8581060CA060C00C000201000000000 3C7EFFFFFFFF7E3C00003C4646200000 3C7EFFFFFFFF7E3C0000384488606000 3C7EFFFFFFFF7E3C00003C6262040000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000020081000000000080000100000 1808773608081C001800080800000000 131A0806536030000300040800000000 00040C4D734C0C04000000010D000000 0030605306081B110000000008040101 003810106CEE10180000000010100018 000C06CA601058C800000000102000C0 203032CEB2302000000000B080000000 88D81060CA060C008080201000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00001008000000000000100002080000 1408773608081C001400080800000000 121B0806536030000201040800000000 00040C4D724D0C04000000010C010000 0030605306081B120000000008040102 003810106CEE10280000000010100028 000C06CA6010D8480000000010208040 2030B24EB23020000000803080000000 48D81060CA060C004080201000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000004002400000020000400200000 00000836080800000000000800000000 000010101C2000000000000800000000 00000808340808000000000008000000 0000201C101000000000000008000000 000010106C1000000000000010000000 00000438080800000000000010000000 0010102C101000000000001000000000 00000808380400000000001000000000