' ' GAME: CANT STOP ME NOW ' ---------------------- ' ' INSTRUCTIONS, HOW TO PLAY.... ' ' SELECT DIFFICULTY LEVEL ' EASY = 6DICE, ' AVE = 5DICE, ' HARD = 4DICE, ' ' 1) HIT "ROLL" BUTTON TO ROLL NEW DICE ' 2) DRAG DICE AROUND TO ALIGN DICE BELOW A TARGET ' (LIMIT: ONLY THE BOTTOM MOST TARGET CAN BE REMOVED) ' 3) TRY TO GET DICE SUM IN STACK TO REMOVE BOTTOM TARGET ' (LIMIT: MAX OF 3 DICE IN A STACK) ' 4) HIT "PAY" BUTTON TO SCORE ' 5) GAME ENDS IF YOU CANNOT REMOVE AT LEAST ONE TARGET ' REM 1EA #12,#2 REM 2EA #11,#3 REM 3EA #10,#4 REM 4EA #9,#5 REM 5EA #8,#6 REM 10EA #7 SPRITE 0,,,96 SPRITE 1,0,112,14 SPRITE 1 PAL 2 SIZE 1 SPRITE 2,144,112,70 SPRITE 2 PAL 2 SIZE 1 REM SPRITE 3,40,112,78 REM SPRITE 3 PAL 1 SIZE 1 FOR I=4 TO 9 SPRITE I,,, SPRITE I SIZE 1 NEXT I CELL SIZE 1,1 RANDOMIZE TIMER TOUCHSCREEN REM WAS8BIT GLOBAL ISCORE DIM GOAL(12),FIND(127),STACK(40),DICE(6),THROW(6),TALLY(9) FOR I=1 TO 6 READ DICE(I) NEXT I DATA 2,4,6,8,10,12 FOR I=2 TO 12 READ GOAL(I) NEXT I DATA 32,34,36,38,40,42,44,46,64,66,68 FOR I=1 TO 40 READ STACK(I) NEXT I DATA 2,3,3,4,4,4,5,5,5,5,6,6,6,6,6 DATA 7,7,7,7,7,7,7,7,7,7 DATA 8,8,8,8,8,9,9,9,9,10,10,10,11,11,12 FIND(32)=2 FIND(34)=3 FIND(36)=4 FIND(38)=5 FIND(40)=6 FIND(42)=7 FIND(44)=8 FIND(46)=9 FIND(64)=10 FIND(66)=11 FIND(68)=12 '''''''' NEW_GAME: CLS WAIT 60 BG 0 PAL 1 TEXT 0,0," CAN'T STOP ME NOW" TEXT 0,2,"====================" TEXT 0,3," EASY 6 DICE" TEXT 0,4,"====================" TEXT 0,6,"====================" TEXT 0,7," MEDIUM 5 DICE " TEXT 0,8,"====================" TEXT 0,10,"====================" TEXT 0,11," HARD 4 DICE" TEXT 0,12,"====================" ILEVEL=3 WHILE ILEVEL=3 WHILE NOT TAP WAIT VBL WEND ILEVEL=((TOUCH.Y\8)-2)\4 WEND IF ILEVEL=0 THEN DICEMAX=6 BONUS=10 BG TINT 0,2 TO 19,4 PAL 0 ELSE IF ILEVEL=1 THEN DICEMAX=5 BONUS=20 BG TINT 0,6 TO 19,8 PAL 0 ELSE DICEMAX=4 BONUS=30 BG TINT 0,10 TO 19,12 PAL 0 END IF WAIT 60 CLS ISCORE=0 IROUND=0 BG 1 PAL 1 BG FILL 0,0 TO 9,3 CHAR 98 ''''''''' NEW_BOARD: ID=1 FOR M=85 TO 1 STEP -6 PLAY 3,M,ID SOUND 3 INC ID WAIT 6 NEXT M CALL SCOREIT(IROUND*10,100) BG 0 PAL 1 INC IROUND TEXT 7,14,"LVL "+STR$(IROUND) NUMBER 7,15,ISCORE,6 IDEAL=40 BG 1 PAL 0 WHILE IDEAL>0 X=RND(9) Y=RND(3) CHECK=CELL.C(X,Y) IF CHECK=0 OR CHECK=98 THEN CELL X,Y,GOAL(STACK(IDEAL)) DEC IDEAL END IF WEND ''''''''' NEXT_TURN: SPRITE 1 PAL 1 DO WHILE TOUCH SPRITE 0,TOUCH.X,TOUCH.Y, IF SPRITE HIT(0) THEN IF HIT=1 THEN GOTO ROLL_DICE END IF WEND WAIT VBL LOOP ''''''''' ROLL_DICE: SPRITE 1 PAL 2 SPRITE OFF 4 TO 9 PLAY 0,90,1 SOUND 0 WAIT VBL RWAIT=15 WHILE RWAIT>0 FOR I=1 TO DICEMAX THROW(I)=RND(5)+1 PLAY 0,RND(9),1 SOUND 0 RESET: SPRITE 3+I,RND(9)*16,(RND(2)+4)*16,DICE(THROW(I)) IF SPRITE HIT(3+I) THEN GOTO RESET NEXT I WAIT VBL DEC RWAIT WEND ''''''''' SORT_DICE: SPRITE 2 PAL 1 IDRAG=0 DO IF TOUCH THEN SPRITE 0,TOUCH.X,TOUCH.Y, IF SPRITE HIT(0) THEN IF HIT=2 THEN GOTO TALLY_UP END IF IF IDRAG=0 THEN IF SPRITE HIT(0) THEN IF HIT>3 THEN IDRAG=HIT OX=SPRITE.X(HIT) OY=SPRITE.Y(HIT) END IF ELSE XX=((TOUCH.X-8)\16)*16 YY=((TOUCH.Y-8)\16)*16 IF YY<64 THEN YY=64 IF YY>96 THEN YY=96 SPRITE IDRAG,XX,YY, END IF ELSE IF IDRAG>0 THEN SPRITE OFF 0 IF SPRITE HIT(IDRAG) THEN SPRITE IDRAG,OX,OY, END IF IDRAG=0 END IF END IF WAIT VBL LOOP '''''''' TALLY_UP: GAMEOVER=1 SPRITE 2 PAL 2 FOR I=0 TO 9 TALLY(I)=0 NEXT I FOR I=1 TO DICEMAX ADD TALLY(SPRITE.X(3+I)\16),THROW(I) NEXT I BG 1 FOR CX=0 TO 9 C=0 CY=3 WHILE (C=0 OR C>90) AND CY>=0 C=CELL.C(CX,CY) DEC CY WEND INC CY CFIND=FIND(C) TRACE CFIND,TALLY(CX) IF CFIND=TALLY(CX) AND CFIND>0 AND CFIND<90 THEN PAL 1 CELL CX,CY,98 CALL SCOREIT(CFIND+BONUS,1) GAMEOVER=0 END IF NEXT CX SPRITE OFF 4 TO 9 WAIT 60 RCHECK=0 CALL CHECKROUND(RCHECK) IF GAMEOVER=1 THEN CLS BG 0 PAL 0 TEXT 6,7,"GAME OVER" TEXT 7,14,"LVL "+STR$(IROUND) NUMBER 7,15,ISCORE,6 PLAY 3,20,90 SOUND 3 WAIT 180 BG TINT 0,0 TO 19,15 PAL 3 WHILE NOT TOUCH WAIT VBL WEND GOTO NEW_GAME END IF IF RCHECK=0 THEN GOTO NEXT_TURN ELSE GOTO NEW_BOARD SUB SCOREIT(I,IS) BG 0 PAL 1 IF IS=1 THEN PLAY 2,40,10 SOUND 2 FOR II=1 TO I ADD ISCORE,IS PLAY 1,60,1 SOUND 1 NUMBER 7,15,ISCORE,6 WAIT 3 NEXT II BG 1 END SUB SUB CHECKROUND(I) BG 1 I=1 FOR X=0 TO 9 FOR Y=0 TO 3 IF CELL.C(X,Y)<>98 THEN I=0 NEXT Y NEXT X END SUB #1:MAIN PALETTES 1500300C002A3F000000150000000015 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 00000000000000000000000000000000 0000000000000103071F3F7F7FFFFEFC 00000000000080C0E0F8FCFEFEFF7F3F 0000000000000000071F3F7F7FFFFFFF 0000307878300000E0F8CC8686CFFFFF 0000000000000103071F3F7F7FFFFEFC 00003078783080C0E0F8CC8686CF7F3F 00000C1E1E0C0000071F336161F3FFFF 0000307878300000E0F8CC8686CFFFFF 00000C1E1E0C0103071F336161F3FEFC 00003078783080C0E0F8CC8686CF7F3F 00000C1E1E0C3078071F336161F3CF87 0000307878300C1EE0F8CC8686CFF3E1 071F3F7F47DADAC600071F3F3F7F7F7F E0F8FCFE6AABABAB00E0F8FCFCFEFEFE 00000000000000000000000000000000 00000000000000000000000000000000 0301000000000000FCFEFF7F7F3F1F07 C0800000000000003F7FFFFEFEFCF8E0 00000C1E1E0C0000FFFFF36161331F07 0000000000000000FFFFFFFEFEFCF8E0 03010C1E1E0C0000FCFEF36161331F07 C0800000000000003F7FFFFEFEFCF8E0 00000C1E1E0C0000FFFFF36161331F07 0000307878300000FFFFCF8686CCF8E0 03010C1E1E0C0000FCFEF36161331F07 C0803078783000003F7FCF8686CCF8E0 78300C1E1E0C000087CFF36161331F07 1E0C307878300000E1F3CF8686CCF8E0 DADADA5B7F3F1F077F7F7F3F3F1F0700 ABABAB6AFEFCF8E0FEFEFEFCFCF8E000 071F3F7F7FFFFFFF071F3C7B77FFFFFF E0F8FCFEFEFFFFFFE0F83CDEEEEFDF3F 071F3F7F7FFFFFFF071F3C7B77FFFFFE E0F8FCFEFEFFFFFFE0F83CDEEEEFDF3F 071F3F7F7FFFFFFF071F377777F7F7F0 E0F8FCFEFEFFFFFFE0F8ECEEEEEFEF0F 071F3F7F7FFFFFFF071F307777F7F0FF E0F8FCFEFEFFFFFFE0F80CFEFEFF3FDF 071F3F7F7FFFFFFF071F3C7B77F7F7F4 E0F8FCFEFEFFFFFFE0F83CDEFEFFFF3F 071F3F7F7FFFFFFF071F307F7FFFFFFF E0F8FCFEFEFFFFFFE0F80CEEEEEFEFEF 071F3F7F7FFFFFFF071F3C7B77F7FBFC E0F8FCFEFEFFFFFFE0F83CDEEEEFDF3F 071F3F7F7FFFFFFF071F3C7B77F7FBFC E0F8FCFEFEFFFFFFE0F83CDEEEEFCF2F FFFFFF7F7F3F1F07FEFDFB77703F1F07 FFFFFFFEFEFCF8E0FFFFFFFE0EFCF8E0 FFFFFF7F7F3F1F07FFFFF77B7C3F1F07 FFFFFFFEFEFCF8E0DFEFEFDE3EFCF8E0 FFFFFF7F7F3F1F07FFFFFF7F7F3F1F07 FFFFFFFEFEFCF8E0EFEFEFEEEEFCF8E0 FFFFFF7F7F3F1F07FFFFF77B7C3F1F07 FFFFFFFEFEFCF8E0DFEFEFDE3EFCF8E0 FFFFFF7F7F3F1F07F3F7F77B7C3F1F07 FFFFFFFEFEFCF8E0DFEFEFDE3EFCF8E0 FFFFFF7F7F3F1F07FFFFFF7F7F3F1F07 FFFFFFFEFEFCF8E0EFEFEFEEEEFCF8E0 FFFFFF7F7F3F1F07FBF7F77B7C3F1F07 FFFFFFFEFEFCF8E0DFEFEFDE3EFCF8E0 FFFFFF7F7F3F1F07FFFFFF7B7C3F1F07 FFFFFFFEFEFCF8E0EFEFEFDE3EFCF8E0 071F3F7F7FFFFFFF071F376675F5F5F5 E0F8FCFEFEFFFFFFE0F80CF6FAFBFBFB 071F3F7F7FFFFFFF071F376777F7F7F7 E0F8FCFEFEFFFFFFE0F8DC9EDEDFDFDF 071F3F7F7FFFFFFF071F376677F7F7F7 E0F8FCFEFEFFFFFFE0F80CF6FAFBF7EF 071F3F7F47DADAC600031F3F3F7F7F7F E0F8FCFE6AABABAB00E0F8FCFCFEFEFE 071F3F7F47DAC6DA00071F3F3F7F7F7F E0F8FCFE6AABABAB00E0F8FCFCFEFEFE 071F3F7F47DAC6DA00071F3F3F7F7F7F E0F8FCFE6AABABAB00E0F8FCFCFEFEFE 071F3F7F47DAC6DA00071F3F3F7F7F7F E0F8FCFE6AABABAB00E0F8FCFCFEFEFE 071F3F7F47DAC6DA071F3F7F47DAC6DA E0F8FCFE6AABABABE0F8FCFE6AABABAB FFFFFF7F7F3F1F07F5F5F576633F1F07 FFFFFFFEFEFCF8E0FBFBFBF60EFCF8E0 FFFFFF7F7F3F1F07F7F7F777633F1F07 FFFFFFFEFEFCF8E0DFDFDFDE8EFCF8E0 FFFFFF7F7F3F1F07F7F7F776623F1F07 FFFFFFFEFEFCF8E0DFBF7FFE02FCF8E0 DEDEDE5E7F3F1F077F7F7F3F3F1F0700 37B7B7B6FEFCF8E0FEFEFEFCFCF8E000 DBFFFE7F7F3F1E077F7F7F3F3F1F0700 6BFF3FBF3EBC38E0FEFEFEFEFCF8E000 DBFFFE7F7E3E1E077F7F7F3F3F1F0700 6BFF3FBF3EFC38E0FEFEFEFEFCF8E000 DBFFFE7F7F3F1E077F7F7F3F3F1F0700 6BFF7F7F7E7C38E0FEFEFEFEFCF8E000 DBFFFF7F7F3F1F07DBFFFF7F7F3F1F07 6BFFFFFEFEFCF8E06BFFFFFEFEFCF8E0 80000000000000000000000000000000 00000000000000000000000000000000 00000200080022000000020008002000 00004000100044000000400010000400 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00220008000200000020000800020000 00440010004000000004001000400000 #15:MAIN SOUND 3800F022000000000800110000000000 2300F09910F4BF000800F07711FF0000 38002020000000003800505000000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000