'====== ====== '====== QU'VATLH QAD ====== '====== ====== '====== BY ====== '====== ====== '====== WAS8BIT ====== '====== ====== TOUCHSCREEN GLOBAL HINUM DIM GLOBAL NUM(10),GETNUM(99) FOR I=1 TO 10 READ NUM(I) NEXT I DATA 2,4,6,8,10,12,14,32,34,36 GETNUM(2)=1 GETNUM(4)=2 GETNUM(6)=3 GETNUM(8)=4 GETNUM(10)=5 GETNUM(12)=6 GETNUM(14)=7 GETNUM(32)=8 GETNUM(34)=9 GETNUM(36)=10 RANDOMIZE TIMER HINUM=3 CELL SIZE 1,1 CELL SIZE 0,1 LOADGAME: COPY $E000,$1000 TO $9000 BG 0 IF CELL.C(0,0)=40 THEN GOTO PLAYGAME NEWGAME: BG 1 FOR Y=0 TO 7 FOR X=0 TO 9 CALL NEWNUM(X,Y) I=RND(30)+30 PLAY 0,I,5 SOUND 0 PLAY 1,I+2,5 SOUND 0 PLAY 2,90-I,5 SOUND 0 PLAY 3,88-I,5 SOUND 0 WAIT 2 NEXT X NEXT Y PLAYGAME: ITOUCH=0 DO IF TOUCH THEN BG 0 IF ITOUCH=0 THEN X1=TOUCH.X\16 Y1=TOUCH.Y\16 BG 1 IF GETNUM(CELL.C(X1,Y1))>0 THEN BG 0 CELL X1,Y1,38 ITOUCH=1 END IF ELSE IF ITOUCH=1 THEN X2=TOUCH.X\16 Y2=TOUCH.Y\16 BG 1 IF GETNUM(CELL.C(X2,Y2))>0 THEN IF X2<>X1 OR Y2<>Y1 THEN BG 0 CELL X2,Y2,38 ITOUCH=2 END IF END IF END IF ELSE CLS 0 IF ITOUCH=1 THEN PLAY 0,45,1 SOUND 0 ELSE IF ITOUCH=2 THEN BG 1 C1=GETNUM(CELL.C(X1,Y1)) C2=GETNUM(CELL.C(X2,Y2)) IF C1=C2 THEN PLAY 1,45,2 SOUND 1 CALL NEWNUM(X1,Y1) IF C2<10 THEN CELL X2,Y2,NUM(C1+1) ELSE CELL X2,Y2,0 END IF ELSE IF C1>C2 THEN PLAY 2,45,2 SOUND 2 CALL NEWNUM(X2,Y2) CELL X1,Y1,NUM(C1-1) ELSE PLAY 2,45,2 SOUND 2 CALL NEWNUM(X1,Y1) CELL X2,Y2,NUM(C2-1) END IF END IF ITOUCH=0 BG 0 CELL 0,0,40 COPY $9000,$1000 TO $E000 HINUM=3 BG 1 FOR X=0 TO 9 FOR Y=0 TO 7 C=GETNUM(CELL.C(X,Y)) IF C>HINUM THEN HINUM=C NEXT Y NEXT X END IF WAIT VBL LOOP SUB NEWNUM(X,Y) R=RND(10) IF R<=7 THEN CELL X,Y,NUM(1) IF R>7 AND R<=9 THEN CELL X,Y,NUM(2) IF R>9 THEN CELL X,Y,NUM(3) END SUB #1:MAIN PALETTES 063F200000383400003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 00000000000000000000000000000000 071F3F7F7FFFFFFF0000000303010101 E0F8FCFEFEFFFFFF0000008080808080 071F3F7F7FFFFFFF0000030706000307 E0F8FCFEFEFFFFFF0000C0E06060E0C0 071F3F7F7FFFFFFF0000030706000101 E0F8FCFEFEFFFFFF0000C0E06060E0C0 071F3F7F7FFFFFFF0000000606060707 E0F8FCFEFEFFFFFF000000606060E0E0 071F3F7F7FFFFFFF0000000707060607 E0F8FCFEFEFFFFFF000000E0E00000E0 071F3F7F7FFFFFFF00000307070E0F0F E0F8FCFEFEFFFFFF0000E0E00000C0E0 071F3F7F7FFFFFFF0000000707000000 E0F8FCFEFEFFFFFF000000E0E0606060 00000000000000000000000000000000 00000000000000000000000000000000 FFFFFF7F7F3F1F070101030300000000 FFFFFFFEFEFCF8E08080C0C000000000 FFFFFF7F7F3F1F070606070700000000 FFFFFFFEFEFCF8E00000E0E000000000 FFFFFF7F7F3F1F070100060703000000 FFFFFFFEFEFCF8E0E06060E0C0000000 FFFFFF7F7F3F1F070000000000000000 FFFFFFFEFEFCF8E06060606000000000 FFFFFF7F7F3F1F070700060703000000 FFFFFFFEFEFCF8E0F07070E0C0000000 FFFFFF7F7F3F1F070E0C0E0703000000 FFFFFFFEFEFCF8E0703070E0C0000000 FFFFFF7F7F3F1F070000000000000000 FFFFFFFEFEFCF8E06060606000000000 071F3F7F7FFFFFFF000003070E0C0D0F E0F8FCFEFEFFFFFF0000C0E07070E0F0 071F3F7F7FFFFFFF000003070E0C0E07 E0F8FCFEFEFFFFFF0000C0E0703070F0 071F3F7F7FFFFFFF000000393B1B1B1B E0F8FCFEFEFFFFFF0000F0F8FC9C0C0C 1820408080000000071F387060C0C0C0 1804020101000000E0F81C0E06030303 40C000000000000040C0000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 FFFFFF7F7F3F1F07070E0E0703000000 FFFFFFFEFEFCF8E0B03070E0C0000000 FFFFFF7F7F3F1F070300000707000000 FFFFFFFEFEFCF8E0F03070E0C0000000 FFFFFF7F7F3F1F071B1B1B3D3C000000 FFFFFFFEFEFCF8E00C9CFCF8F0000000 0000008080402018C0C0C06070381F07 0000000101020418030303060E1CF8E0 #15:MAIN SOUND 21003077100FD0002100F26610F7D000 2D00F26614F710002800303019FE0000 38002020000000003800505000000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000