RANDOMIZE TIMER REM WAS8BIT IF CELL.C(19,15)=0 THEN BG 1 FOR I=1 TO 100 C=RND(1)+5 IF RND(20)=0 THEN C=RND(3)+1 FLIP RND(1),0 CELL RND(19),RND(13),C NEXT I BG 0 FOR X=1 TO 18 FLIP RND(1),0 IF RND(2)=0 THEN CELL X,15,7 NEXT X CELL 19,15,15 END IF DO FOR Y=0 TO 15 FOR X=0 TO 19 BG 1 C1=CELL.C(X,Y) IF C1>0 THEN IF C1>16 THEN CELL X,Y,C1-16 ELSE IF C1<5 THEN 'FISH R=RND(20) IF R>18 THEN IF C1=1 THEN CELL X,Y,18 IF C1=2 THEN CELL X,Y,17 IF C1=3 THEN CELL X,Y,20 IF C1=4 THEN CELL X,Y,19 ELSE IF R=0 THEN IF C1<3 THEN DX=X-1 ELSE DX=X+1 DY=RND(2)-1+Y IF DX>=0 AND DX<=19 THEN XX=DX ELSE XX=X IF DY>=0 AND DY<=15 AND RND(5)=0 THEN YY=DY ELSE YY=Y CC=CELL.C(XX,YY) IF CC=0 THEN CELL X,Y,0 FLIP 0,0 CELL XX,YY,C1+16 ELSE IF (CC=5 OR CC=6) AND RND(1)=0 THEN PLAY 0,90,2 SOUND 0 IF RND(10)>0 THEN CELL X,Y,0 ELSE PLAY 0,60,1 SOUND 1 FLIP 0,0 CELL XX,YY,C1+16 ELSE IF C1=1 THEN CELL X,Y,19 IF C1=2 THEN CELL X,Y,20 IF C1=3 THEN CELL X,Y,17 IF C1=4 THEN CELL X,Y,18 END IF END IF ELSE IF RND(10000)=0 THEN PLAY 1,50,1 SOUND 1 CELL X,Y,0 END IF ELSE IF C1=5 OR C1=6 THEN 'KELP R=RND(100) IF R=0 THEN DX=RND(2)-1 DY=RND(2)-1 CX=CELL.C(X+DX,Y+DY) IF CX=0 THEN IF RND(10)>0 THEN CELL X,Y,0 CELL X+DX,Y+DY,C1 END IF ELSE IF R<10 THEN TINT X,Y FLIP RND(1),RND(1) END IF END IF END IF BG 0 C0=CELL.C(X,Y) IF C0>0 THEN 'SEAWEED IF C0<9 AND RND(1000)=0 THEN FLIP RND(1),0 CELL X,Y,C0+1 ELSE IF C0=9 AND RND(1000)=0 THEN FLIP RND(1),0 CELL X+RND(2)-1,Y-1,7 END IF END IF IF Y=19 AND C0=0 AND RND(1000)=0 THEN CELL X,Y,7 NEXT X NEXT Y ISAVE=(ISAVE+1) MOD 300 WAIT VBL LOOP #1:MAIN PALETTES 0628092600383400003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 00003A7C3A0000000000002000000000 0000003A7C3A00000000000020000000 00005C3E5C0000000000000400000000 0000005C3E5C00000000000004000000 00000000000000000000104000080000 00000000000000000000001040002000 00000000000028100000000000002810 00000028100028100000002810002810 A045022810002810A045022810002810 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 88A85070508040800205020502472A6A 00000000000000000000000000000000 00003A7C3A0000000000002000000000 0000003A7C3A00000000000020000000 00005C3E5C0000000000000400000000 0000005C3E5C00000000000004000000 #15:MAIN SOUND 3800000010FF00001800100010FF0000 08006060000000002800303019FE0000 38002020000000003800505000000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000