BG 1 BG COPY 0,0,20,16 TO 0,0 TOUCHSCREEN IFALL=0 DO IF TOUCH AND IFALL=0 THEN TX=TOUCH.X\8 TY=TOUCH.Y\8 IF CELL.C(TX,TY)=9 AND CELL.C(TX,TY+1)=0 THEN CELL TX,TY+1,1 END IF END IF IFALL=0 FOR Y=15 TO 1 STEP -1 FOR X=0 TO 19 C=CELL.C(X,Y) IF C=1 THEN IF Y=19 THEN CELL X,Y,0 END IF C1=CELL.C(X,Y+1) IF C1=0 THEN IFALL=1 CELL X,Y,0 CELL X,Y+1,1 ELSE IF C1=1 OR C1=3 OR C1=6 THEN L=CELL.C(X-1,Y) R=CELL.C(X+1,Y) P=INT(RND*2) IF L=0 AND (P=0 OR(P=1 AND R<>0)) THEN IFALL=1 CELL X,Y,0 CELL X-1,Y,1 ELSE IF R=0 THEN IFALL=1 CELL X,Y,0 CELL X+1,Y,1 END IF ELSE IF C1=4 THEN FOR IX=X-2 TO X CELL IX,Y+1,0 NEXT IX CELL X-1,Y+1,19 IFALL=1 CELL X,Y,0 CELL X,Y+1,1 ELSE IF C1=5 THEN FOR IX=X TO X+2 CELL IX,Y+1,0 NEXT IX CELL X+1,Y+1,22 IFALL=1 CELL X,Y,0 CELL X,Y+1,1 END IF END IF IF C=19 THEN IF CELL.C(X-1,Y)=0 AND CELL.C(X+1,Y)=0 THEN FOR II=-1 TO 1 CELL X+II,Y,6+II NEXT II END IF ELSE IF C=22 THEN IF CELL.C(X-1,Y)=0 AND CELL.C(X+1,Y)=0 THEN FOR II=-1 TO 1 CELL X+II,Y,3+II NEXT II END IF END IF NEXT X NEXT Y WAIT 5 LOOP #1:MAIN PALETTES 003F2A15003C3830003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 3C4EB7B7CFFF7E3C3C7ECFCFFFFF7E3C C3FF1C0700000000C3FF1C0700000000 00183CFFFF3C180000183CFFFF3C1800 1C7FE380000000001C7FE38000000000 38FEC7010000000038FEC70100000000 00183CFFFF3C180000183CFFFF3C1800 C6FE38E000000000C6FE38E000000000 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF E7C381000081C3E7E7C381000081C3E7 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 667E3C3C3C3C7E66667E3C3C3C3C7E66 00000000000000000000000000000000 00000000000000000000000000000000 667E3C3C3C3C7E66667E3C3C3C3C7E66 #3:MAIN BG 00001410080009000800090008000900 08000900080009000800090008000900 08000900080009000800080000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000200 03000400000002000300040000000200 03000400000002000300040000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000050006000700 00000500060007000000050006000700 00000500060007000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000200 03000400000002000300040000000200 03000400000002000300040000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000020003000400 00000200030004000000020003000400 00000200030004000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000