REM FOR DOREEL SUB DIM GLOBAL SNUM(6) DIM GLOBAL YREEL(6) FOR I=1 TO 6 READ SNUM(I) NEXT I DATA 4,8,12,64,68,72 REM WASHAW GAMES TOUCHSCREEN RANDOMIZE TIMER REM BET BUTTONS SPRITE 0,0,0,3 SPRITE.A 0,(0,0,0,0,0) SPRITE 11,8*16,8*12,132 SPRITE.A 11,(3,0,0,1,3) SPRITE 12,8*12,8*12,136 SPRITE.A 12,(3,0,0,1,3) SPRITE 13,8*8,8*12,140 SPRITE.A 13,(3,0,0,1,3) SPRITE 14,8*4,8*12,76 SPRITE.A 14,(3,0,0,1,3) SPRITE 15,8*0,8*12,204 SPRITE.A 15,(3,0,0,1,3) DIM BASEWIN(6) BASEWIN(1)=100 BASEWIN(2)=50 BASEWIN(3)=10 BASEWIN(4)=5 BASEWIN(5)=1 BASEWIN(6)=0 REM SINGLES=$0 REM DOUBLES=X1 REM TRIPLES=X3 REM QUADS=X10 REM ANY WIN+ANY POOPY=$0 REM ALL POOPY=$10,000 REM REELS SETUP, 4 REELS, 16 IMAGES PER REEL DIM REEL(4,16) DIM REELPOS(4) DIM REELOPOS(4) DIM NUM(6) FOR I=1 TO 16 II=I IF I>6 THEN II=I-6 IF I>11 THEN II=I-11 REEL(1,I)=II REEL(2,I)=II REEL(3,I)=7-II REEL(4,I)=7-II NEXT I FOR II=1 TO 20 P1=INT(RND*16)+1 P2=P1 WHILE P2=P1 P2=INT(RND*16)+1 WEND R=INT(RND*2)+2 SWAP REEL(R,P1),REEL(R,P2) NEXT II FOR I=1 TO 4 REELPOS(I)=INT(RND*16)+1 NEXT I REM BACK BG ATTR (0,0,0,0,0) BG 1 BG FILL 0,0 TO 19,16 CHAR 2 ATTR (0,0,0,1,0) BG 0 BG FILL 0,0 TO 19,16 CHAR 1 BG FILL 2,6 TO 17,9 CHAR 0 REM FRONT BACKGROUND BG 0 ATTR(4,,,1,) CELL 2,0,16 CELL 16,0,18 CELL 2,3,48 CELL 16,3,50 FOR X=3 TO 15 CELL X,0,17 NEXT X FOR X=3 TO 15 CELL X,3,49 NEXT X CELL 2,1,32 CELL 2,2,32 CELL 16,1,34 CELL 16,2,34 TEXT 3,1,"ABCDEF" TEXT 3,2,"QRSTUV" ATTR(0,,,,) CELL 0,4,16 CELL 19,4,18 CELL 0,11,48 CELL 19,11,50 FOR X=1 TO 18 CELL X,4,17 CELL X,11,49 NEXT X FOR Y=5 TO 10 CELL 0,Y,32 CELL 19,Y,34 NEXT Y IWIN=0 GLOBAL ICOIN GLOBAL FNUM FNUM=0 CASH=100 FOR I=1 TO 4 CALL DOREEL(I,0,REEL(I,REELPOS(I)),REEL(I,REELPOS(I))) NEXT I REPLAY: SPRITE.A 11,(3,0,0,1,3) SPRITE.A 12,(3,0,0,1,3) SPRITE.A 13,(3,0,0,1,3) SPRITE.A 14,(3,0,0,1,3) SPRITE.A 15,(3,0,0,1,3) ATTR(4,,,1,) NUMBER 9,1,CASH,7 NUMBER 9,2,IWIN,7 IROLL=1 ATTR(0,,,1,) D=INT(RND*2)*2-1 CALL DOFLASH(0,0,D) II=0 WHILE NOT TOUCH WI=(WI+1) MOD 5 IF WI=0 THEN II=(II+1) MOD 4 CALL DOFLASH(II,FNUM,D) WAIT VBL WEND SPRITE 0,TOUCH.X,TOUCH.Y,3 IF SPRITE HIT(0) THEN IF HIT<>11 AND HIT<>12 AND HIT<>13 AND HIT<>14 AND HIT<>15 THEN GOTO REPLAY IF HIT=15 AND CASH<10000 THEN GOTO REPLAY IF HIT=14 AND CASH<1000 THEN GOTO REPLAY IF HIT=13 AND CASH<100 THEN GOTO REPLAY IF HIT=12 AND CASH<10 THEN GOTO REPLAY IF HIT=11 AND CASH<1 THEN GOTO REPLAY IF HIT=11 THEN SPRITE.A 11,(7,0,0,1,3) CASH=CASH-1 ICOIN=1 END IF IF HIT=12 THEN SPRITE.A 12,(7,0,0,1,3) CASH=CASH-10 ICOIN=10 END IF IF HIT=13 THEN SPRITE.A 13,(7,0,0,1,3) CASH=CASH-100 ICOIN=100 END IF IF HIT=14 THEN SPRITE.A 14,(7,0,0,1,3) CASH=CASH-1000 ICOIN=1000 END IF IF HIT=15 THEN SPRITE.A 15,(7,0,0,1,3) CASH=CASH-10000 ICOIN=10000 END IF ELSE GOTO REPLAY END IF ATTR(4,,,1,) NUMBER 9,1,CASH,7 DO ATTR(0,0,0,1,0) WI=(WI+1) MOD 5 IF WI=0 THEN II=(II+1) MOD 4 CALL DOFLASH(II,1,D) IF INT(RND*5)=0 THEN PLAY 2,60,2 SOUND 2 IROLL=IROLL+1 IF IROLL>4 THEN GOSUB CHECKROLL P$=STR$(PAY) IWIN=PAY IF PAY=0 THEN FNUM=0 IF PAY>0 THEN FNUM=2 IF PAY>5000 THEN FNUM=3 D=INT(RND*2)*2-1 FI=0 FOR I=1 TO 6 ATTR(0,,,,) NUMBER 9,2,IWIN,7 WAIT 5 ATTR(4,,,,) NUMBER 9,2,IWIN,7 WAIT 5 NEXT I END IF FOR I=1 TO LEN(P$) IPAY=VAL(MID$(P$,I,1)) TENS=10^(LEN(P$)-I) FOR DD=1 TO IPAY CASH=CASH+TENS IWIN=IWIN-TENS ATTR(4,,,1,) NUMBER 9,1,CASH,7 NUMBER 9,2,IWIN,7 PLAY 0,80,5 SOUND 0 ATTR(0,,,,) FOR II=1 TO 15 WI=(WI+1) MOD 5 IF WI=0 THEN FI=(FI+1) MOD 4 CALL DOFLASH(FI,FNUM,D) WAIT VBL NEXT II NEXT DD NEXT I GOTO REPLAY END IF END IF FOR I=IROLL TO 4 REELOPOS(I)=REELPOS(I) REELPOS(I)=REELPOS(I)+1 IF REELPOS(I)>16 THEN REELPOS(I)=1 REM NUMBER I+5,6,REEL(I,REELPOS(I)),1 NEXT I FOR YI=0 TO 10 FOR I=IROLL TO 4 CALL DOREEL(I,YI,REEL(I,REELPOS(I)),REEL(I,REELOPOS(I))) NEXT I PLAY 1,20,1 SOUND 1 WAIT VBL NEXT YI REM WAIT VBL LOOP REM RPOS=0 RESETS GRAPHICS REM RPOS>0 MOVES SPRITES REM SPR1=NEW SPR2=OLD SUB DOREEL(RNUM,RPOS,SPR1,SPR2) Z=50 I=(RNUM-1)*2 X=16+(16*I) Y=8 I1=I+1 I2=I+2 IF RPOS=0 THEN YREEL(RNUM)=Y SPRITE I1+Z,X,Y,SNUM(SPR1) SPRITE.A I1+Z,(SPR1,0,0,0,3) SPRITE I2+Z,X,Y+40,SNUM(SPR2) SPRITE.A I2+Z,(SPR2,0,0,0,3) ELSE YREEL(RNUM)=YREEL(RNUM)+4 SPRITE I1+Z,,YREEL(RNUM), SPRITE I2+Z,,YREEL(RNUM)+40, END IF END SUB CHECKROLL: FOR I=1 TO 6 NUM(I)=0 NEXT I PAY=0 FOR I=1 TO 4 IREEL=REEL(I,REELPOS(I)) NUM(IREEL)=NUM(IREEL)+1 NEXT I IF NUM(6)>0 AND NUM(6)<4 THEN PAY=0 IF NUM(6)=4 THEN PAY=10000 IF NUM(6)=0 THEN FOR I=1 TO 5 IF NUM(I)=2 THEN PAY=PAY+BASEWIN(I) IF NUM(I)=3 THEN PAY=BASEWIN(I)*3 IF NUM(I)=4 THEN PAY=BASEWIN(I)*10 NEXT I END IF PAY=PAY*ICOIN RETURN REM II=0 TO 3 MOVEMENT REM P=0 TO 3 STYLE REM D=-1 OR 1 DIRECTION SUB DOFLASH(II,P,D) I=II PAT=P*16 FOR X=1 TO 18 I=(I+D) MOD 4 IF I<0 THEN I=I+4 CELL X,5,128+I+PAT NEXT X FOR Y=6 TO 9 I=(I+D) MOD 4 IF I<0 THEN I=I+4 CELL 18,Y,128+I+PAT NEXT Y FOR X=18 TO 1 STEP -1 I=(I+D) MOD 4 IF I<0 THEN I=I+4 CELL X,10,128+I+PAT NEXT X FOR Y=9 TO 6 STEP -1 I=(I+D) MOD 4 IF I<0 THEN I=I+4 CELL 1,Y,128+I+PAT NEXT Y END SUB #1:MAIN PALETTES 003F2A1500303F200033203B003C1428 000C0408000B2F0300243A11003C2800 #2:MAIN CHARACTERS 00000000000000000000000000000000 55AA55AA55AA55AAFFFFFFFFFFFFFFFF 8888888822222222AAAAAAAAAAAAAAAA 80000000000000008000000000000000 1E3F3F7FFFFEF8FB1E212060C0818784 00C0F8FFFFFFFFFF00C0380F01000000 071F3F7FFFFFFFFF071C3060C0000000 E0F0F8FC3E9FCFEFE0301804C2613111 00000000000000000000000000000000 010303070F0F1F1F010302040C081810 80C0C0E0E0F0F0F880C0406020301018 00000000000000000000000000000000 000103070F1F3F7F0001030608102060 3FFFFFFFFFFFFFFF3FE0800000000000 FCFFFFFFFFFFFFFFFC07010000000000 0000C0E0F0F8F8FC0000C0601018080C 3F7FE0C0C0C0C0C0003F7F7F7F7F7F7F FFFF00000000000000FFFFFFFFFFFFFF FCFE07030303030300FCFEFEFEFEFEFE 00000000000000000000000000000000 FFFEFEFFFFFF7F7F8081818080C04060 FF3F3FFFFFFFFFFF00C0C00000000000 FEFEFEFFFFFFFFFF0101010000000000 7F7F7FFFFFFFFFFE8181810101010306 000000FFFFFFFF7F000000FF8080C060 3F3F7FFFFFFFFFFD302060C000000002 FCFCFFFFFFFFFFEF0C04070000000010 0000FFFFFEFCF8F00000FF03060C0810 7FFFFFFFFFFFFFFF40C0808080808080 C7830101010387FF387CFEFEFEFC7800 F0E0E0E0E0F0FFFF0F1F1F1F1F0F0000 7C3E3E3E3F7FFFFF84C6C2C2C3810101 C0C0C0C0C0C0C0C07F7F7F7F7F7F7F7F 00000000000000000000000000000000 0303030303030303FEFEFEFEFEFEFEFE 00000000000000000000000000000000 3F3F1F0F070303012030180C06020301 FFF3F9FCFFFFFFFF000C060300000000 FFEFCF1FFFFFFFFF001030E000000000 FCF8F8F0F0E0E0C00C08181030206040 0F070301000000010C06030100000001 FDFFFFFD7C7EF7F7020000C24341C888 EFFFFFF7F70FFFFF1000000809F10000 F0E0C080808080801060C08080808080 FFFFFFF9F8FCFEFF80808086878381C0 FFFFFFFFFF7F0F00000000000080F0FF FFFFFFFFFFFEFC0000000000000103FF FFFFFF9F1F3F7FFF01010161E1C18101 C0C0C0C0C0E07F3F7F7F7F7F7F7F3F00 000000000000FFFFFFFFFFFFFFFFFF00 030303030307FEFCFEFEFEFEFEFEFC00 00000000000000000000000000000000 00000000000000000000000000000000 FF7F3F1F0F070301C04031190C060301 FFFFFFFEFCFCF8F000C00102C40C18F0 80000000000000000000000000000000 0307070F0F0F1F1F0306040C0808181F F3FFFFFEFCF0C0000C0001061C70C000 FFFFFF7F1F0701000000C0781C070100 C0C0E0E0F0F8F878C04060203018C878 7F7F3F1F1F0F070340603010180C0603 80F8FFFEFFFEFFFF7F070001000100FF 0107FFBF7FBFFFFFFEF80040804000FF FFFFFEFCFCF8E0C0010302040C1860C0 00000000000000000000000000000000 010307070F0F1F3F010306040C081830 C0C0E0F0F8FCFCFEC0402030180C0402 00000000000000000000000000000000 00000001070F1E3D00000001060C1932 1F7FFFFFFFFFDF9F1F70C08000002060 C0F0FCFEFFFFCF03C0301C060139CC03 000000000080C0C0000000000080C040 00000000000000000000000000000000 0103070F0F1F3F3F0103060C08183020 F0F8FCFCFEFEFFFFF0180C0406020301 00000000000000000000000000000000 0000000102040910000000000103070F 0718608000008C9200071F7FFFFFFFFF E01806010000639400E0F8FEFFFFFFFF 00000080402010880000000080C0E0F0 00000001030F1F3F00000001030E1830 7F7FFFFFF7F3F9FF60408080080C0600 FFFFFFFFCFDF9FFF0301000030206000 008080E0F0FCFEFF00808060301C0603 3D7F77EFF0FFFFFF226048D08F808080 BFFEFCB878F0F0E043060C4898103020 01000000000000000100000000000000 E0E0600000000000E0E0600000000000 00000000010103030000000001010302 3F7FFFFFFFE7C1C12040C08080183E3E FFFFFFFFFFE7C3C30100000000183C3C 8080C0C0E0E0F0F08080C04060203010 10202040418080800F1F1F3F3F7F7F7F 92928C80D0100000FFFFFFFFFFFFFFFF 9494630000000000FFFFFFFFFFFFFFFF 8884040202010101F0F8F8FCFCFEFEFE 7FFFFF7F3F1F0F0340C0C06030180E03 FFFFFFFBFCFFFFFF0000000403000000 FFFFDF9F3FFFFFFF00002060C0000000 FFFFFEFCF8F0E0C00103020C183060C0 FFFFFFFFFF7F7F3F80808080C2426220 E0E0E0F0F8F8FCFE2020203008080406 00000000000000000000000000000000 00000000000020600000000000002060 0307070F1F1F3F7F0204040C18103060 C1E1E3FFFFFFFFFF3E1E1C0000000000 C3C3E7FFFFFFFFF93C3C180000000006 E0E0F0F8FCFCFEFE202010080C040602 80808142442422117F7F7F3F3F1F1F0F 0000C609101009C6FFFFFFFFFFFFFFFF 0000282CAAA92828FFFFFFFFFFFFFFFF 010141424244C448FEFEFEFCFCF8F8F0 01000000000000000100000000000000 FE7E7F1F0F070300814170180C060300 BFBF7FFEFCF8F0E0414183060C1830E0 80000000000000008000000000000000 3F1F070300000000301C060300000000 FFFFFFFFFF7F0F0103000080C0780F01 00C1FFFFFFFFFFFE00C17F0000010306 E0E0C0C080800000E0A040C080800000 7FFFFFFFFFFF7F3F40C0808080C0603F 87010080E0F8FFFF78FEFF7F1F0700FF F08001071F1FFFFF0F7FFEF8E0E000FF FEFEFEFEFEFEFCF80202020202060CF8 10080402010000000F07030100000000 0000000080601807FFFFFFFF7F1F0700 00000000010618E0FFFFFFFFFEF8E000 0810204080000000F0E0C08000000000 FFFFFFFFFFFFFFFFC3810000000081C3 FFC399BDBD99C3FFFFFFE7C3C3E7FFFF FFFFE7DBDBE7FFFFFFFFFFE7E7FFFFFF FFFFFFE7E7FFFFFFFFFFFFFFFFFFFFFF 0000000102040810000000000103070F 071860800000010000071F7FFFFFFFFF E01806010000808000E0F8FEFFFFFFFF 00000080402010080000000080C0E0F0 0000000102040810000000000103070F 0718608000000C0400071F7FFFFFFFFF E01806010000609000E0F8FEFFFFFFFF 00000080402010080000000080C0E0F0 0000000102040810000000000103070F 071860800000311200071F7FFFFFFFFF E018060100008C5200E0F8FEFFFFFFFF 00000080402010080000000080C0E0F0 FFFFFFFFFFFFFFFFFFC381818181C3FF FFFFFFFFFFFFFFFFFFFFE7C3C3E7FFFF FFFFFFFFFFFFFFFFFFFFE7C3C3E7FFFF FFFFFFFFFFFFFFFFFFC381818181C3FF 10202040408080800F1F1F3F3F7F7F7F 0000000001000000FFFFFFFFFFFFFFFF 80808080C0000000FFFFFFFFFFFFFFFF 0804040202010101F0F8F8FCFCFEFEFE 10202040408080800F1F1F3F3F7F7F7F 040404040E000000FFFFFFFFFFFFFFFF 9090909060000000FFFFFFFFFFFFFFFF 0804040202010101F0F8F8FCFCFEFEFE 10202040408080800F1F1F3F3F7F7F7F 1212121239000000FFFFFFFFFFFFFFFF 525252528C000000FFFFFFFFFFFFFFFF 0804040202010101F0F8F8FCFCFEFEFE FFFFFFFFFFFFFFFFC3810000000081C3 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFC3810000000081C3 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 80808142442422117F7F7F3F3F1F1F0F 0000C609101009C6FFFFFFFFFFFFFFFF 0000282CAAA92828FFFFFFFFFFFFFFFF 010141424244C448FEFEFEFCFCF8F8F0 80808142442422117F7F7F3F3F1F1F0F 0000C609101009C6FFFFFFFFFFFFFFFF 0000282CAAA92828FFFFFFFFFFFFFFFF 010141424244C448FEFEFEFCFCF8F8F0 80808142442422117F7F7F3F3F1F1F0F 0000C609101009C6FFFFFFFFFFFFFFFF 0000282CAAA92828FFFFFFFFFFFFFFFF 010141424244C448FEFEFEFCFCF8F8F0 FFFFE7DBDBE7FFFF7EBDDBE7E7DBBD7E FFFFFFFFFFFFFFFFFFBDDBE7E7DBBDFF FFFFFFFFFFFFFFFFFFFFDBE7E7DBFFFF FFFFFFF7EFFFFFFFFFFFFFEFF7FFFFFF 10080402010000000F07030100000000 0000000080601807FFFFFFFF7F1F0700 00000000010618E0FFFFFFFFFEF8E000 0810204080000000F0E0C08000000000 10080402010000000F07030100000000 0000000080601807FFFFFFFF7F1F0700 00000000010618E0FFFFFFFFFEF8E000 0810204080000000F0E0C08000000000 10080402010000000F07030100000000 0000000080601807FFFFFFFF7F1F0700 00000000010618E0FFFFFFFFFEF8E000 0810204080000000F0E0C08000000000 0000000000000000FFFFFFFFFFFFFFFF 0018181818001800FFE7E7E7E7FFE7FF 006C6C2400000000FF9393DBFFFFFFFF 00247E24247E2400FFDB81DBDB81DBFF 00083E380E3E0800FFF7C1C7F1C1F7FF 0062640810264600FF9D9BF7EFD9B9FF 001C34386E643A00FFE3CBC7919BC5FF 0018183000000000FFE7E7CFFFFFFFFF 000C183030180C00FFF3E7CFCFE7F3FF 0030180C0C183000FFCFE7F3F3E7CFFF 000024187E182400FFFFDBE781E7DBFF 000018187E181800FFFFE7E781E7E7FF 0000000102040E12000000000103070F 071860800000304900071F7FFFFFFFFF E01806010000885500E0F8FEFFFFFFFF 00000080402090480000000080C0E0F0 003C666E76663C00FFC399918999C3FF 0018381818187E00FFE7C7E7E7E781FF 003C660C18307E00FFC399F3E7CF81FF 003C660C06663C00FFC399F3F999C3FF 0066667E06060600FF999981F9F9F9FF 007E607C06067C00FF819F83F9F983FF 001C307C66663C00FFE3CF839999C3FF 007E060C18303000FF81F9F3E7CFCFFF 003C663C66663C00FFC399C39999C3FF 003C663E06663C00FFC399C1F999C3FF 0000001800180000FFFFFFE7FFE7FFFF 0000001800183000FFFFFFE7FFE7CFFF 12222242478080800F1F1F3F3F7F7F7F 4949484832020000FFFFFFFFFFFFFFFF 5555880000000000FFFFFFFFFFFFFFFF 4844840202010101F0F8F8FCFCFEFEFE 003C666E6E603C00FFC39991919FC3FF 1F3F7F7F7F7F3F1FFFFCFBF7F7FBFCFF FFFFFFFFFFFFFFFFFF7CBBF7F0B777FF FFFFFFFFFFFFFFFFFFF877B93EB7B8FF FFFFFFFFFFFFFFFFFFED6DEDE16DEDFF 0080C1C1C1C18000FFFFFFFFFFFFFFFF 7CFEFFFFFFFFFE7CFFC7BBBFA3BBC7FF 003C606E66663C00FFC39F919999C3FF 0066667E66666600FF999981999999FF 003C181818183C00FFC3E7E7E7E7C3FF 001E060606663C00FFE1F9F9F999C3FF 00666C78786C6600FF999387879399FF 80808142442422117F7F7F3F3F1F1F0F 0000C609101009C6FFFFFFFFFFFFFFFF 0000282CAAA92828FFFFFFFFFFFFFFFF 010141424244C448FEFEFEFCFCF8F8F0 007C667C60606000FF8399839F9F9FFF 1F3F7F7F7F7F3F1FFFF7F7FBFBFDFEFF FFFFFFFFFFFFFFFFFFDFDFAEAE75FBFF FFFFFFFFFFFFFFFFFF4177F7F7F7C1FF FFFFFFFFFFFFFFFFFFBD9DADB5B9BDFF 0080C1C1C1C18000FFFFFFFFFFFFFFFF 7CFEFFFFFFFFFE7CFFC7BBBFA3BBC7FF 0066667E7E664200FF9999818199BDFF 00663C183C666600FF99C3E7C39999FF 0066663C18181800FF9999C3E7E7E7FF 007E0C1830607E00FF81F3E7CF9F81FF 003C303030303C00FFC3CFCFCFCFC3FF 10080402010000000F07030100000000 0000000080601807FFFFFFFF7F1F0700 00000000010618E0FFFFFFFFFEF8E000 0810204080000000F0E0C08000000000 #15:MAIN SOUND 280030BB000450003800000010000000 3800F000000000002800303019FE0000 38002020000000003800505000000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000