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 TIMEOUT=TIMER+100 COUNT=0 C=1 N=0 ITOUCH=0 ISCORE=0 IX=0 IY=0 IDIR=0 BG 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 BG 1 TEXT 6,0,STR$(SUM) WAIT 15 TEXT 6,0," " END IF END IF WAIT VBL LOOP SUB SCOREIT(I) TRACE I ISCORE=ISCORE+SCORENUM(I) 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 1B073100003F3F0B002F0C0000303C00 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 #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 00100010001000100010000836080000 00000000000000000000000000003610 00080008000800080008000800080008 00080008360800000000000000000000 00000000000026102710271027102710 27102710271027102710271037000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000