DICESIZE=12 RANDOMIZE TIMER TOUCHSCREEN REM WAS8BIT DIM GLOBAL DICE(7),NUM(7) GLOBAL NMAX NMAX=DICESIZE-1 SCROLL 0,-4,-4 BG 1 PAL 3 CELL 18,2,35 CELL 19,2,36 CELL 18,3,51 CELL 19,3,52 CELL 18,6,33 CELL 19,6,34 CELL 18,7,49 CELL 19,7,50 PAL 2 TEXT 4,3,"QUICK DICE" PAL 4 TEXT 1,8,"GREEN+RED = KEEP" CALL NEWROLL DO IF TOUCH THEN TX=TOUCH.X\16 TY=TOUCH.Y\16 REM NUMBER 0,0,TX,2 REM NUMBER 0,1,TY,2 IF TY=3 AND TX>=1 AND TX<=7 THEN DICE(TX)=(DICE(TX)+1) MOD 2 CALL SHOWEM PLAY 0,90,1 WAIT 15 ELSE IF TY=3 AND TX=9 THEN CALL ROLLEM PLAY 0,50,1 WAIT 15 ELSE IF TY=1 AND TX=9 THEN CALL NEWROLL PLAY 0,70,1 WAIT 15 END IF END IF LOOP SUB NEWROLL FOR II=1 TO 15 BG 0 FOR I=1 TO 7 NUM(I)=RND(NMAX)+1 PAL 2 CELL I*2,6,2+NUM(I) REM NUMBER I*3-4,8,NUM(I),2 DICE(I)=0 NEXT I CALL SHOWEM PLAY 0,20,1 WAIT 3 NEXT II END SUB SUB ROLLEM FOR II=1 TO 15 BG 0 FOR I=1 TO 7 IF DICE(I)=0 THEN NUM(I)=RND(NMAX)+1 PAL 2 CELL I*2,6,2+NUM(I) NEXT I CALL SHOWEM PLAY 0,20,1 WAIT 3 NEXT II END SUB SUB SHOWEM BG 1 FOR I=1 TO 7 PAL DICE(I) II=I*2 CELL II,6,1 CELL II+1,6,2 CELL II,7,17 CELL II+1,7,18 NEXT I END SUB #1:MAIN PALETTES 0B3F2A00000C34000000003F00033C3F 00300C30003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 00003F3F3F3F3F3F007F404040404040 0000FCFCFCFCFCFC00FE020202020202 0000180808081C000000000000000000 00003C043C203C000000000000000000 00003C040C043C000000000000000000 000024243C0404000000000000000000 00003C203C043C000000000000000000 000038203C243C000000000000000000 00003C04040404000000000000000000 00003C243C243C000000000000000000 00003C243C041C000000000000000000 00005C5454545C000000000000000000 00004848484848000000000000000000 00005C445C505C000000000000000000 00000014081400000000000000000000 00000000000000000000000000000000 3F3F3F3F3F3F00004040404040407F00 FCFCFCFCFCFC0000020202020202FE00 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 0000071F3FFFFFFF000000000000312A 0000F0F8FCFFFFFF00000000000024A4 0000071F3FFFFFFF0000000000000C12 0000F0F8FCFFFFFF0000000000009090 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 FFFFFF3F1F0700003229000000000000 FFFFFFFCF8E00000A436000000000000 FFFFFF3F1F0700001E12000000000000 FFFFFFFCF8E0000090D8000000000000