' JONK EEYE'S POKER ' 2021 LOSTCADESOFT BY BGELAIS GAMEPAD 1 DIM GLOBAL DECK(52),PLAYER_HAND(5),JONK_HAND(5) GLOBAL JONK_FACE,JONK_SAY$,JONK_SCORE GLOBAL PLAYER_SAY$,PLAYER_SCORE GLOBAL JONK_WINS,PLAYER_WINS JONK_WINS=0 PLAYER_WINS=0 IDLE=64 HAPPY=68 SAD=72 GLOBAL PILE FOR I=1 TO 52 DECK(I)=I NEXT I JONK_FACE=IDLE INTRO: CALL SHUFFLE PILE=52 FOR I=1 TO 5 JONK_HAND(I)=DECK(PILE) DEC PILE PLAYER_HAND(I)=DECK(PILE) DEC PILE NEXT I CLS BG 1 BG COPY 0,0,20,16 TO 0,0 JONK_FACE=HAPPY BG 0 FOR T=1 TO 720 CLS 0 CALL HUD PAL RND(6) TEXT 0,13,"- TODAY'S RECORDS -" PAL 4 TEXT 3,14,"JONK...."+STR$(JONK_WINS)+" WINS" PAL 5 TEXT 3,15,"PLAYER.."+STR$(PLAYER_WINS)+" WINS" WINDOW 5,0,15,4,0 IF T>=0 THEN CLW PAL 4 PRINT"PLAY AGAINST MEON A DRAW POKERCARD BATTLE!" END IF IF T>=240 THEN PAL 5 CLW PRINT"SCORE WITH SUM OF 5 CARDS'S OPEN HAND A-K=1-13 PTS" END IF IF T>=480 THEN PAL 6 CLW PRINT"WINNER ARE THE ONE WHO SCORE HIGHER WHEN DECK'S OUT." END IF WINDOW 0,0,19,15,0 PAL 0 IF TIMER MOD 60<30 THEN TEXT 4,11,"[/] TO START" WAIT VBL IF BUTTON TAP(0) THEN EXIT NEXT T SPRITE OFF TITLE: TIMEOUT=TIMER+600 CLS BG 1 BG COPY 20,0,20,16 TO 0,0 PAL 5 TEXT 1,14,"@2021 LOSTCADESOFT" TEXT 7,15,"BY BGELAIS" BG 0 FOR I=-128 TO 0 STEP 2 SCROLL 1,0,I PAL 0 IF TIMER MOD 60<30 THEN TEXT 4,11,"[/] TO START" WAIT VBL NEXT I REPEAT CLS 0 PAL 0 IF TIMER MOD 60<30 THEN TEXT 4,11,"[/] TO START" WAIT VBL IF BUTTON TAP(0) THEN GOTO GAME UNTIL TIMER>=TIMEOUT GOTO INTRO GAME: CLS TRACK 2,0 BG 1 BG COPY 0,0,20,16 TO 32,0 BG 0 CALL SHUFFLE PILE=52 FOR I=1 TO 5 JONK_HAND(I)=DECK(PILE) DEC PILE PLAYER_HAND(I)=DECK(PILE) DEC PILE NEXT I PLAYER: X=3 JONK_SAY$="YOU PLAY!" JONK_FACE=IDLE PLAYER_SAY$=" <> CHOOSE [ DRAW" REPEAT IF TIMER MOD 30=0 THEN JONK_FACE=64+8*RND(1) CALL HUD PAL 0 FLIP 0,0 CELL 2+X*2,11, 1 X=X+(LEFT TAP(0))-(RIGHT TAP(0)) IF X>5 THEN X=5 IF X<1 THEN X=1 WAIT VBL UNTIL BUTTON TAP(0,0) XTO=X*2 CALL MOVECARD(XTO,9) PLAYER_HAND(X)=DECK(PILE) DEC PILE CALL HUD JONK: JONK_SAY$="I PLAY! CHECK THIS OUT DUDE!" JONK_FACE=HAPPY PLAYER_SAY$="" TIMEOUT=TIMER+180 REPEAT X=INT(RND(4)+1) V=JONK_HAND(X) MOD 13 IF V=0 THEN V=13 CALL HUD PAL 0 FLIP 0,1 CELL 2+X*2,4, 1 FLIP 0,0 WAIT 10 IF V<=9 THEN EXIT UNTIL TIMER>=TIMEOUT XTO=X*2 CALL MOVECARD(XTO,5) JONK_HAND(X)=DECK(PILE) DEC PILE CALL HUD IF PILE>0 THEN GOTO PLAYER GAMEOVER: IF JONK_SCORE>PLAYER_SCORE THEN JONK_FACE=HAPPY JONK_SAY$="WELL, I WIN MY CAN OF PEAS DUDE! THANKS FOR PLAYING!" TRACK 1,0 INC JONK_WINS ELSE IF JONK_SCORE0 THEN CALL CARD(16,7,0) PAL 0 TEXT 17,8,STR$(PILE) END IF JONK_SCORE=0 FOR I=1 TO 5 CALL CARD(2+I*2,5,JONK_HAND(I)) V=JONK_HAND(I) MOD 13 IF V=0 THEN V=13 ADD JONK_SCORE,V NEXT I PLAYER_SCORE=0 FOR I=1 TO 5 CALL CARD(2+I*2,9,PLAYER_HAND(I)) V=PLAYER_HAND(I) MOD 13 IF V=0 THEN V=13 ADD PLAYER_SCORE,V NEXT I PAL 1 TEXT 15,5,STR$(JONK_SCORE) TEXT 15,10,STR$(PLAYER_SCORE) END SUB SUB SHUFFLE RANDOMIZE TIMER FOR I=1 TO 52 SWAP DECK(RND(51)+1),DECK(RND(51)+1) NEXT I END SUB SUB CARD(XC,YC,C) PAL 1 CELL XC,YC,2+C FLIP 1,1 CELL XC,YC+1,2+C FLIP 0,0 END SUB SUB MOVECARD(XTO,YTO) XTO=XTO*8 YTO=YTO*8 X=14*8 Y=7*8 SPRITE OFF 1 SPRITE 1 SIZE 1 PAL 1 REPEAT X=X-2 Y=Y+(YTOY) SPRITE 1,X+16,Y,109 WAIT VBL UNTIL X<=XTO AND Y=YTO SPRITE OFF 1 PLAY 0,50,10 SOUND 4 END SUB #1:MAIN PALETTES 003F3A0000303F0000240804003A1516 000C2A15000B2A15003C2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 E0A0B0ACAA818181E0E0F0FCFEFFFFFF FFABD5BBD5AFD5AB00542A442A502A54 40A0E0A0A5070702BF5F1F5F5AF8F8FD E020E080E50707021FDF1F7F1AF8F8FD E0206020E50707021FDF9FDF1AF8F8FD A0A0E020250707025F5F1FDFDAF8F8FD E080E020E50707021F7F1FDF1AF8F8FD E080E0A0E50707021F7F1F5F1AF8F8FD E0202020250707021FDFDFDFDAF8F8FD E0A0E0A0E50707021F5F1F5F1AF8F8FD E0A0E020250707021F5F1FDFDAF8F8FD B8A8A8B80507070247575747FAF8F8FD 7020A0E0050707028FDF5F1FFAF8F8FD E0A0E0F0050707021F5F1F0FFAF8F8FD A0C0A0A0050707025F3F5F5FFAF8F8FD 40A0E0A4AE1F0E04BF5F1F5B51E0F1FB E020E084EE1F0E041FDF1F7B11E0F1FB E0206024EE1F0E041FDF9FDB11E0F1FB A0A0E0242E1F0E045F5F1FDBD1E0F1FB E080E024EE1F0E041F7F1FDB11E0F1FB E080E0A4EE1F0E041F7F1F5B11E0F1FB E02020242E1F0E041FDFDFDBD1E0F1FB E0A0E0A4EE1F0E041F5F1F5B11E0F1FB E0A0E0242E1F0E041F5F1FDBD1E0F1FB B8A8A8BC0E1F0E0447575743F1E0F1FB 7020A0E40E1F0E048FDF5F1BF1E0F1FB E0A0E0F40E1F0E041F5F1F0BF1E0F1FB A0C0A0A40E1F0E045F3F5F5BF1E0F1FB 40A0E0A0A2050207FFFFFFFFFFFFFFFF E020E080E2050207FFFFFFFFFFFFFFFF E0206020E2050207FFFFFFFFFFFFFFFF A0A0E02022050207FFFFFFFFFFFFFFFF E080E020E2050207FFFFFFFFFFFFFFFF E080E0A0E2050207FFFFFFFFFFFFFFFF E020202022050207FFFFFFFFFFFFFFFF E0A0E0A0E2050207FFFFFFFFFFFFFFFF E0A0E02022050207FFFFFFFFFFFFFFFF B8A8A8B802050207FFFFFFFFFFFFFFFF 7020A0E002050207FFFFFFFFFFFFFFFF E0A0E0F002050207FFFFFFFFFFFFFFFF A0C0A0A002050207FFFFFFFFFFFFFFFF 40A0E0A2A7070207FFFFFFFFFFFFFFFF E020E082E7070207FFFFFFFFFFFFFFFF E0206022E7070207FFFFFFFFFFFFFFFF A0A0E02227070207FFFFFFFFFFFFFFFF E080E022E7070207FFFFFFFFFFFFFFFF E080E0A2E7070207FFFFFFFFFFFFFFFF E020202227070207FFFFFFFFFFFFFFFF E0A0E0A2E7070207FFFFFFFFFFFFFFFF E0A0E02227070207FFFFFFFFFFFFFFFF B8A8A8BA07070207FFFFFFFFFFFFFFFF 7020A0E207070207FFFFFFFFFFFFFFFF E0A0E0F207070207FFFFFFFFFFFFFFFF A0C0A0A207070207FFFFFFFFFFFFFFFF 00060F0F07030100FFF9F0F0F8FCFEFF 0060F0F0E0C08000FF9F0F0F1F3F7FFF 000103070F070301FFFEFCF8F0F8FCFE 0080C0E0F0E0C080FF7F3F1F0F1F3F7F 0000010204020001FFFFFFFFFCFFFFFF 0080C0A010A080C0FFFFFFFF9FFFFFFF 0001030400010300FFFFFFFCF8FFFFFF 0080C0C000008000FFFFFFDF1F7FBFFF 0000000000000000FFFFFFFFFFFFFFFF 00000000000000000000000000000004 00000000000100001E7DDF1B0D030701 00000000008068FF004000E0F8F8FFFF 00000000000000800000000010B8F8F8 00000000000000000000010101000000 00000400000104000378FFFF0D370F07 000000000000C2FFA0000040F0D3FFFF 00000000000000800000000030F8F8F0 00000000000000000000000000000004 00000000000000000F7CFFAF030D0303 00000000001080289000C080F0D8F9FF 0000000000000000000000002030F0F0 3F7FE0C0C0C0C0C0001F3F7F7F7F7F7F FCFE03010101010100F8FCFEFEFEFEFE FFFF00000000000000FFFFFFFFFFFFFF C0C0C0C0C0C0C0C07F7F7F7F7F7F7F7F 00000000000000010404040101010303 01077F07330F5F3F0308C0FCDCF4B4EC FFFFFFC7FBE3EDFF0101007E667E3A1C 8000C080C0C0C0C0F8F0F46040182060 00000000000000000008000101030103 030F3F1F07773F7F0608C0F8F8DCF880 FEFEFF8FB3C3EFFF0301007AEE3E1C00 008000808080C0C0F0E0C8C000604058 00000000000000000406040000000303 011F030303331B0F03207EFEFEEEF6F4 7FFFFFC7C7DBFDF5860000787F77170A 8000400080C0C0C0F0F0E8E060001020 C0C0C0C0C0C0603F7F7F7F7F7F3F1F00 01010101010306FCFEFEFEFEFEFCF800 00000000000000FFFFFFFFFFFFFFFF00 0101010101010101FEFEFEFEFEFEFEFE 01050404060200001B0D0D0F06020000 FFFBF4FF7F677F3F0C0C8F8EFCFFCC7E FFFFFFFFFFDFFEFC0080C00103F7E78E C0C090B04000000058E8F0D080800000 0101000004020000030B0D0D02040000 FFFFFFFF7F77303C08080F0E8497C04C FFFF7FFFFFDE1E780000800101C30346 A080C0E0C000000058F8F08080800000 01000004060200000B0D0D0604000000 FBFBFBF8793F203DE4848687CEE4FF4E FFFFFF3FFFFF0EFC000080C00103F767 C0C080A0E00000006858D0F0A0C08000 0000000000000000FFFFFFFFFFFFFFFF FFABD5BBD5AFD5AB00542A442A502A54 00000000000000000000000000000000 00000000000000000000000000000000 0000000000000000000000031F7F7FFF 1F0F0F020703000038181CFFF8FCFFFF F8F0C010E08000000C3878EF1F7FFFFF 000000000000000000000080F8FEFEFF 0000000000000000000000071F3F7FFF 1D0F0F0F05030000373818F0FBFCFFFF 78F0F0F0208000008C08182FDF7FFFFF 000000000000000000000080F8FEFEFF 0000000000000000000000071F3F7FFF 0F0F070B070300003E1808F7F8FCFFFF F8F0E0B0E08000008C1838EF1F7FFFFF 000000000000000000000080F8FEFEFF 00000000000000000000000000000000 ABD5AFD5BBD5ABFF542A502A442A5400 00000000000000000000000000000000 00000000000000000000000000000000 FC202E2A2E6E6E000000000004000000 0000CAEEACAAAA000000000000000000 3F20233A23223B000000000000000000 0000A53D1909CD000000000000000000 0000D30AC301E3000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 0000001F10101010007F7F6060606060 000000F80000000000F8FC0606060606 0000000304081010001F3F7C78706060 000000F80000000000FCFE0606060606 00101010101000000060606060607F7F 000000020408183000060E1C3870E0C0 0000001F10101000007F7F606060607F 000000FE0000000000FEFE00000000C0 0000001F10101010007F7F6060606060 000000F80000000000F8FC0606060606 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 001F1010101010707F60606060606000 02FC000000000000FC00000000000000 101010101000007F60606060607F7F00 00000000000002FC06060E1E3EFEFC00 001F1010101010107F60606060606060 000000E02010000FE0E0F0181E0F0F00 001F10101000007F7F606060607F7F00 00C00000000000F8C000000000F8F800 001F1010101010707F60606060606000 021C80400000003EFCE070383C3C3C00 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00181C1C1C0C180C00000404040C000C 006C7E36120000000000121212000000 00247E3F367E3F120000001B12001B12 00083E3F1E3F1F040000000710011704 0062753A142E57230000113204081123 001C3E3A7E773A1D00000A021013001D 00181C3C180000000000040C18000000 000C1E3C38180C060000060C08000006 0030180C0E1E3C180000000002060C18 0000241A7E3F2C120000000200270812 0000181C7E3F1C0C000000040027040C 00000000181C3C180000000000040C18 000000007E3F000000000000003F0000 0000000000181C0C000000000000040C 00060F1E3C787020000003060C183020 003C7E7F777F3F1E000018110119031E 00183C1C1C1C7E3F000004040404003F 003C7E3F1E3C7E3F00001833060C003F 003C7E3F06673F1E000018330001031E 0066777F3F0707030000110139010103 007E7F7C3E077F3E00001F003801033E 001C3E7C7E773F1E00000E001811031E 007E3F0F1E3C381800003903060C0818 003C7E3F7E773F1E000018031811031E 003C7E3F1F673F1E000018011901031E 000000180C180C00000000000C000C00 000000180C183C18000000000C000C18 003C7E7F7F7F7F3E000008191909433E 0000007E3F7E3F00000000003F003F00 003C7E7F7F7F7F3E000010191911433E 003C7E3F1E0C180C00001833060C000C 3C425A53535B423E0000000101010002 00183C7E7F7F77330000001801191133 007C7E7F7E777F3E000018031811033E 003C7E7370763F1E000018131010031E 00787C76777F7E3C000010101113063C 007E7F787C707E3F00001F001C10003F 007E7F787C70703000001F001C101030 003C7E7E77773F1E00001E101111031E 0066777F7F7777330000110119111133 003C1E1C1C1C3C1E000006040404001E 001E0F0707673F1E000009010101031E 00667F7E7C7C76330000130604101033 0060707070707E3F000010101010003F 0042677F7F7F77330000010101191133 0066777F7F7777330000010111111133 003C7E7777773F1E000018111111031E 007C7E7F7E707030000018031E101030 003C7E777B7D3E1F000018111111001F 007C7E7F7E7C76330000180306101033 003E7F3C1E077F3E00001F001801033E 007E3F1C1C1C1C0C000027040404040C 0066777777773F1E000011111111031E 00667777773F1E0C000011111103060C 0066777F7F7F73210000110101193121 00663F1E3C7E77330000030600181133 0066773F1E1C1C0C000011030604040C 007E3F1E3C787E3F000033060C18003F 003C7F7F7F7F7F3E000019253D25433E 006030180C0603010000000000000101 003C7E7F7F7F7F3E00003C292539433E 00183C7E330000000000001833000000 0000000000007E3F000000000000003F #3:MAIN BG 00004010000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00004003410342034303000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00005003510352035303000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 000000004C024E024E024E024E024E02 4E024E024E024E024E024E024E024E02 4E024E024E024E024E024D0200000000 00000000000000000000000000000000 00006003610362036303000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 000000004F026C026C026C026C026C02 6C026C026C026C026C026C026C026C02 6C026C026C026C026C025F0200000000 00000000000080018101820183018401 850170037103720373038A018B010000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 000000004F026C026C026C026C026C02 6C026C026C026C026C026C026C026C02 6C026C026C026C026C025F0200000000 00000000000090019101920193019401 950196019701980199019A019B010000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 000000004F026C026C026C026C026C02 6C026C026C026C026C026C026C026C02 6C026C026C026C026C025F0200000000 000000000000A001A101A201A301A401 A501A601A701A801A901AA01AB010000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 000000004F026C026C026C026C026C02 6C026C026C026C026C026C026C026C02 6C026C026C026C026C025F0200000000 000000000000B001B101B201B301B401 B501B601B701B801B901BA01BB010000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 000000004F026C026C026C026C026C02 6C026C026C026C026C026C026C026C02 6C026C026C026C026C025F0200000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 000000004F026C026C026C026C026C02 6C026C026C026C026C026C026C026C02 6C026C026C026C026C025F0200000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 000000005C025E025E025E025E025E02 5E025E025E025E025E025E025E025E02 5E025E025E025E025E025D0200000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000 #15:MAIN SOUND 6805300A000000001800846C003A0000 08006060000000002800303019FE0000 78082020000000003800505000000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 310F00330F00350F00360F0000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 2E0F002D0F002C0F002B0F0000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 250FE3310F00250F00350F00250F0038 0F00250F002C0F00290F00290F003A0F 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000