BG 1 BG COPY 0,0,20,32 TO 0,0 GAMEPAD 1 RANDOMIZE TIMER SPRITE 0,0,0,17 FOR I=1 TO 50 C=0 WHILE C<>3 AND C<>6 X=INT(RND*20) Y=INT(RND*16) C=CELL.C(X,Y) WEND IF C=3 THEN CI=5 ELSE CI=2 FOR II=0 TO 2 CELL X-1+II,Y,CI+II NEXT II NEXT I TEXT 0,16,"===AVALANCHE GAME===" TEXT 0,18,"COMPUTER PLAYER" TEXT 8,20,"POOL" FOR I=1 TO 66 IF I<=54 THEN CA=INT(RND*4)+1 C=0 CC=1 WHILE C<>12 OR CC<>0 X=INT(RND*20) Y=16+INT(RND*16) C=CELL.C(X,Y) CC=CELL.A(X,Y) WEND ATTR(CA) CELL X,Y,12 END IF C=0 CC=1 WHILE C<>1 OR CC<>0 X=INT(RND*20) Y=16+INT(RND*16) C=CELL.C(X,Y) CC=CELL.A(X,Y) WEND ATTR(CA) CELL X,Y,1 NEXT I NEWTURN: WAIT 15 SPRITE 0,-10,-10, FOR Y=0 TO 8*16 STEP 2 SCROLL 1,0,Y WAIT VBL NEXT Y TX=0 TY=0 SPRITE 0,0,0, DO IF RIGHT(0) THEN CALL MOVECURSOR(TX,TY,1,0) IF LEFT(0) THEN CALL MOVECURSOR(TX,TY,-1,0) IF UP(0) THEN CALL MOVECURSOR(TX,TY,0,-1) IF DOWN(0) THEN CALL MOVECURSOR(TX,TY,0,1) IF BUTTON(0,0) THEN C=CELL.C(TX,TY+16) IF C=1 THEN PLAY 0,90,1 MARBLE=CELL.A(TX,TY+16) CELL TX,TY+16,0 GOTO DROPBALL END IF END IF LOOP DROPBALL: SPRITE 0,-10,-10, ATTR MARBLE CELL 0,0,1 WAIT 5 FOR Y=8*16 TO 0 STEP -2 SCROLL 1,0,Y WAIT VBL NEXT Y IFALL=-1 TX=0 TY=0 SPRITE 0,0,0, DO IF IFALL=-1 THEN IF RIGHT(0) THEN CALL MOVECURSOR(TX,TY,1,0) IF LEFT(0) THEN CALL MOVECURSOR(TX,TY,-1,0) IF UP(0) THEN CALL MOVECURSOR(TX,TY,0,-1) IF DOWN(0) THEN CALL MOVECURSOR(TX,TY,0,1) END IF IF BUTTON(0,0) THEN IF CELL.C(TX,TY)=9 AND CELL.C(TX,TY+1)=0 THEN PLAY 0,90,1 SOUND 0 ATTR(MARBLE) CELL TX,TY+1,1 GOTO DOBALL END IF END IF LOOP DOBALL: SPRITE 0,-10,-10, ATTR(0) CELL 0,0,8 DO IFALL=0 FOR Y=15 TO 1 STEP -1 FOR X=0 TO 19 C=CELL.C(X,Y) IF C=1 THEN A=CELL.A(X,Y) IF Y=15 THEN CELL X,Y,0 END IF C1=CELL.C(X,Y+1) IF C1=0 THEN IFALL=1 CELL X,Y,0 ATTR(A) CELL X,Y+1,1 ELSE IF C1=1 OR C1=3 OR C1=6 THEN PLAY 1,90,2 SOUND 1 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 ATTR(A) CELL X-1,Y,1 ELSE IF R=0 THEN IFALL=1 CELL X,Y,0 ATTR(A) CELL X+1,Y,1 END IF ELSE IF C1=4 THEN ATTR(0) PLAY 2,60,2 SOUND 2 FOR IX=X-2 TO X CELL IX,Y+1,0 NEXT IX CELL X-1,Y+1,19 ATTR(A) IFALL=1 CELL X,Y,0 CELL X,Y+1,1 ELSE IF C1=5 THEN ATTR(0) PLAY 2,60,2 SOUND 2 FOR IX=X TO X+2 CELL IX,Y+1,0 NEXT IX CELL X+1,Y+1,22 ATTR(A) IFALL=1 CELL X,Y,0 CELL X,Y+1,1 END IF END IF IF C=19 THEN ATTR(0) 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 ATTR(0) 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 IF IFALL=0 THEN GOTO NEWTURN WAIT 5 LOOP SUB MOVECURSOR(TX,TY,DX,DY) TX=TX+DX TY=TY+DY IF TX<0 THEN TX=0 IF TX>19 THEN TX=19 IF TY<0 THEN TY=0 IF TY>15 THEN TY=15 SPRITE 0,TX*8,TY*8, PLAY 0,30,1 SOUND 3 WAIT 5 END SUB #1:MAIN PALETTES 003F2A15003F2E3C003F2E08003F3A30 003F2B03003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 3C4EB7B7CFFF7E3C3C7ECFCFFFFF7E3C 00811C0700000000C3FF1C0700000000 00183CE7E73C180000183CFFFF3C1800 005DE380000000001C7FE38000000000 00BAC7010000000038FEC70100000000 00183CE7E73C180000183CFFFF3C1800 008238E000000000C6FE38E000000000 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF C3810000000081C3E7C381000081C3E7 FFFFFFFFFFFFFFFF3C7EFFFFFFFF7E3C FFFFFFFFFFFFFFFF0000000000000000 66C381000081C366E7C381000081C3E7 18181818181818181818181818181818 0000001F1F1818180000001F1F181818 000000FFFF000000000000FFFF000000 000000F8F8181818000000F8F8181818 DB810081810081DB1800008181000018 00000000000000000000000000000000 667E001818007E66667E3C24243C7E66 00000000000000000000000000000000 00000000000000000000000000000000 667E001818007E66667E3C24243C7E66 #3:MAIN BG 00001420080009000800090008000900 08000900080009000800090008000900 08000900080009000800080008000000 00000000000000000000000000000000 00000000000000000000000000000000 00000800000000000000000000000000 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 00000000000000000000000008000000 00000000000000000000000000000000 00000000000000000000000000000000 00000800000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 0E000F0000000000000000000F001000 0000000000000000000000000C000C00 0C000000000000000D00010001000100 0100010001000D000000000000000C00 0C000C000C000C000C00000000000000 0D000100010001000100010001000D00 0000000000000C000C000C000C000C00 0C000000000000000D00010001000100 0100010001000D000000000000000C00 0C000C00000000000000000000000000 0D000100010001000100010001000D00 0000000000000000000000000C000C00 0C000000000000000D00010001000100 0100010001000D000000000000000C00 0C000C000C000C000C00000000000000 0D000100010001000100010001000D00 0000000000000C000C000C000C000C00 0C000000000000000D00010001000100 0100010001000D000000000000000C00 0C000C00000000000000000000000000 0D000100010001000100010001000D00 0000000000000000000000000C000C00 0C000000000000000D00010001000100 0100010001000D000000000000000C00 0C000C000C000C000C00000000000000 0D000100010001000100010001000D00 0000000000000C000C000C000C000C00 0C000000000000000D00010001000100 0100010001000D000000000000000C00 0C000C00 #15:MAIN SOUND 2800300A10FF00003800000F000F0000 08006060000000002800303019FE0000 38002020000000003800505000000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000