REM ORIGINAL BY G-9 REM REMIXED BY WAS8BIT CELL SIZE 0,1 BG 1 BG COPY 0,0,20,16 TO 0,0 RANDOMIZE TIMER TOUCHSCREEN DIM GLOBAL CHARNUM(9),BOARD(5,5),SCORENUM(5) FOR I=1 TO 9 READ CHARNUM(I) NEXT I DATA 2,4,6,8,10,12,14,34,36 FOR I=1 TO 5 READ SCORENUM(I) NEXT I DATA 1,5,10,25,100 GLOBAL ISCORE,TIMEOUT,ILEVEL,OUTS COUNT=0 C=1 N=0 ITOUCH=0 ISCORE=0 IX=0 IY=0 IDIR=0 ILEVEL=1 CALL LEVELIT(0) OUTS=3 BG 0 PAL 0 FOR X=1 TO 5 FOR Y=1 TO 5 CELL X,Y,CHARNUM(RND(8)+1) NEXT Y NEXT X DO IF TOUCH THEN TX=(TOUCH.X\16) TY=(TOUCH.Y\16) IF TX>0 AND TY>0 AND TX<6 AND TY<6 THEN BG 0 C=CELL.C(TX,TY) CALL CHR2NUM(C,N) IF ITOUCH=0 AND N>0 THEN ITOUCH=1 IDIR=0 REM 1=H,2=V,-1=FAIL IX=TX IY=TY TINT TX,TY PAL 1 PLAY 0,90,1 ELSE IF (TX<>IX OR TY<>IY) AND IDIR=0 THEN IDIR=-1 IF TX<>IX AND TY=IY THEN IDIR=1 IF TY<>IY AND TX=IX THEN IDIR=2 IF IDIR=-1 THEN BG TINT 1,1 TO 5,5 PAL 0 END IF IF IDIR>0 THEN IF IDIR=1 AND TX<>IX AND TY=IY THEN TINT TX,TY PAL 2 IF IDIR=2 AND TY<>IY AND TX=IX THEN TINT TX,TY PAL 2 IF TX<>IX AND TY<>IY THEN IDIR=-1 BG TINT 1,1 TO 5,5 PAL 0 END IF END IF END IF END IF ELSE IF ITOUCH=1 THEN ITOUCH=0 WAIT 15 SUM=0 BG 0 FOR Y=1 TO 5 FOR X=1 TO 5 C=CELL.C(X,Y) A=CELL.A(X,Y) CALL CHR2NUM(C,N) IF A>0 THEN SUM=SUM+N NEXT X NEXT Y IPOW=0 IF SUM/5=SUM\5 AND SUM>0 THEN FOR Y=1 TO 5 FOR X=1 TO 5 A=CELL.A(X,Y) IF A>0 THEN PAL 3 CELL X,Y,CHARNUM(RND(8)+1) INC IPOW PLAY 0,70,1 WAIT 5 END IF NEXT X NEXT Y CALL SCOREIT(IPOW) END IF BG 0 BG TINT 1,1 TO 5,5 PAL 0 IF IPOW=0 THEN PLAY 1,30,5 DEC OUTS IF OUTS=0 THEN BG 1 NUMBER 17,11,OUTS,1 TEXT 5,13,"FOUL OUT" WAIT 15 PLAY 1,30,90 WAIT 90 END END IF END IF BG 1 TEXT 6,0,STR$(SUM) WAIT 15 TEXT 6,0," " END IF END IF BG 1 PAL 3 TT=TIMEOUT-TIMER IF TT<0 THEN IF ILEVEL<5 THEN CALL LEVELIT(1) ELSE TEXT 5,13,"GAME OVER" PLAY 0,30,90 WAIT 90 END END IF END IF NUMBER 14,8,TT,4 NUMBER 17,11,OUTS,1 WAIT VBL LOOP SUB LEVELIT(I) PLAY 1,60,90 ILEVEL=ILEVEL+I BG 1 PAL 1 TEXT 6,14,"LEVEL "+STR$(ILEVEL) TIMEOUT=TIMER+(6-ILEVEL)*1000 END SUB SUB SCOREIT(I) TRACE I ISCORE=ISCORE+SCORENUM(I)*ILEVEL BG 1 PAL 1 NUMBER 13,5,ISCORE,6 END SUB SUB CHR2NUM(CHR,NUM) IF CHR<=14 THEN NUM=CHR/2 ELSE NUM=(CHR-18)/2 END IF END SUB #1:MAIN PALETTES 1B073100003F3F0B002F0C000030300B 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 00000000000000000000000000000000 3F7FE0C0C1C3C7C10000000000000000 FCFE0703838383830000000000000000 3F7FE0C0C7CFCCC00000000000000000 FCFE0703E3F333E30000000000000000 3F7FE0C0CFCFC0C30000000000000000 FCFE0703E3F373E30000000000000000 3F7FE0C0C1C3C7C60000000000000000 FCFE0703E3E363630000000000000000 3F7FE0C0CFCFCCCF0000000000000000 FCFE0703F3F303E30000000000000000 3F7FE0C0C7CFCCCF0000000000000000 FCFE0703E3E303E30000000000000000 3F7FE0C0CFCFC0C00000000000000000 FCFE0703F3F333630000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 C1C1CFCFC0E07F3F0000000000000000 8383F3F30307FEFC0000000000000000 C3CECFCFC0E07F3F0000000000000000 8303F3F30307FEFC0000000000000000 C3C0CFCFC0E07F3F0000000000000000 E373F3E30307FEFC0000000000000000 CFCFC0C0C0E07F3F0000000000000000 F3F363630307FEFC0000000000000000 CFC0CFC7C0E07F3F0000000000000000 F333F3E30307FEFC0000000000000000 CFCCCFC7C0E07F3F0000000000000000 F333F3E30307FEFC0000000000000000 C3C0C0C1C1E07F3F0000000000000000 E3C3C3838307FEFC0000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 3F7FE0C0C7CFCCC70000000000000000 FCFE0703E3F333E30000000000000000 3F7FE0C0C7CFCCCF0000000000000000 FCFE0703E3F333F30000000000000000 00001F3F3F3838380000000000000000 0000FFFFFF0000000000000000000000 38007E6E627E7E000010003C3C3C0000 FFBA93AABBBABBFF00446D5445444500 FFC6BBBA83BABBFF003845447D444500 FF82EFEEEFEEEFFF007C111011101100 FEBABA82BABABAFE0044447C44444400 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 CFCCCFC7C0E07F3F0000000000000000 F333F3E30307FEFC0000000000000000 C7C0CFC7C0E07F3F0000000000000000 F333F3E30307FEFC0000000000000000 38383838383838380000000000000000 1C1C1CFCFCF800000000000000000000 00000000000000000000000000000000 FF86BB86AFB6BBFF0078457851484500 FFBABBBABBBAC7FF0044454445443900 FFC2BFC6FBFA87FF003C413805047900 FEBABA82BABABAFE0044447C44444400 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 0000000000000000FF00FF00FF00324A 0000000000004844FF00FF00FF001700 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000004A4A4A4A4A4A4A31 44444444444444040000000000000080 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 000000000000000000FF00FF00FF0000 000000000000000000FF00FF00FF0000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000010101010107 #3:MAIN BG 00001410000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000002600 27002700270027002700270027002700 27002708260800000000000000000000 00000000000036000000000000000000 00000000000000000008000836080000 29002A002B002C000000000000003600 00000000000000000000000000000000 000800083608000039003A003B003C00 00000000000036000000000000000000 00000000000000000008000836082700 27002700270027002700000000003600 00000000000000000000000000000000 00080008360800000000000000000000 00000000000036000000000000000000 00000000000000000008000836080000 00000000000000000000000000003600 00000000000000000000000000000000 00080008360827002700270027002700 27000000000036000000000000000000 00000000000000000008000836082800 00000000000000000000000000003600 00000000000000000000000000000000 00080008360827002700270027002700 27000000000036100010001000100010 00100010001000100010000836080003 40034103420300000000000000003610 00080008000800080008000800080008 00080008360800035003510352030000 00000000000026102710271027102710 27102710271027102710271037000003 60036103620300000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000