0~~~¾¾¾ÿÿÿ~þ~ÿ~~ÿÿ~ÿ~~þÿ~~ÿÿ 0ÿÿÿÿÿÿÿÿ2Tv˜ºÜþïÍ«‰gE#2Tv˜ºÜþ2Tv˜ºÜþ` w333033303330333033303330333w333p355SUU3U53S3333333w333033303330333033303330333w333p3S33U53U53S3333333w333033303330333033303330333w333p3330333333w333033303330333033303330333w333p33303333333333333#""# #"#""#""!""! !"!""!""23303330333033303S503UU03UU03UU03SU333333333S53UU3UU3UU3U5303330333033S033U03SU03UU03UU03SU333333533U33U53UU3UU3U530333033303303030303033333330330333303033303330330330330330330333333333333303303303 """ """ """ " """ """ """033U033S0333033303330333333wU33533333333333333333pw033U033S0333033303330333333wU33533333333333333333pw0330330333033303330333333w033033333333333333333pw03033033033303330333333w0333033333333333333pwpwwwgvwwvgwwvgwwffwwvgwvwwg`ffPUUUDTUUTEUUDTUUTEUUDTUTUUE@DDw[µ[°[µ[Pµ[µPµ[µ°[µ[°[µ[Pµ[µwµ[µpµ[µ [µ[[µ[µ[µ µ[µ [µ[wwwwww73ww33w33w05w0UwSw²wwww3sww33ww33pw5pw5pw3pwpw°º« »º«»»«º»»º«»»º«»º»»« ªª �˜‰ ™˜‰™™‰ˆ™™™‰™™‰˜™˜™™‰€ˆˆPµ[µ°[µ[°[µ[Pµ[µPµ[µ°[µ[°[µ[Pµ[µ[µ[µ[µ µ[µ [µ[[µ[µ[µ µ[µ [µ[w²»w²»w²»w²»w²»w""wwwww»pw»pw»pw»pw»pw"wwpwwwwwwPµ[µ°[µ[°[µ[Pµ[µPµ[µ°[µ[[µ[w[µ[µ[µ µ[µ [µ[[µ[µ[µ µ[µpw >À?"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" """""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""  """""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" """""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" " " """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""°»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»333""""""""""""""""""""""""""""""""""""""""""""""""""°»»»»»»»»»»»»»»»»»»»»3»³3»»3»»»»»»;3³»»»;³»»»»»»»»»»»»»»»»»»»»»»»»#""""""""""""""""""""""""""""""""""""""""""""""""""""°»»»»»»»»»»»»»»»»»»»»3»³»»33»3³»3³;³;»3³;³;»3³;3³»»»»»»»»»»»»»»»»»# """"""""""""""""""""""""""""""""""""""""""""""""""°»»»»»»»»»»»»»»»»»»»»3»³3;»3;³3;³;;³;;³;;3³;³3;³;»»»»»»»»»»»»»»»»»#"""""""""""""""""""""""""""""""""""""""""""""""""""°»»»»»»»»»»»»»»»»»»»»;3»3;»3;3»;³;;3³;³;;³;;3»;³»»»»»»»»»»»»»»»»»»#""""""""""""""""""""""""""""""""""""""""""""""""""""°»»»»»»»»»»»»»»»»»»»»»³»3»33»3³»3³;³»»3³;³;»3³;³»»»»»»»»»»»»»»»»»»#""""""""""""""""""""""""""""""""""""""""""""""""""""°»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»""""""""""""""""""""""""""""""""""""""""""""""""""`ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff""""""""""""""""""""""""""""""""""""""""""""""""""`3cffffcfffffffff3fff6f6ffffffff6fffff63ff6c6cf66ffffffffffff3fffffff""""""""""""""""""""""""""""""""""""""""""""""""""`fc3f6ccc6cf6fccfcc6c3c3c6cccfcc3fffff6f66fcfcf66fc66f3f3f666ffffffff""""""""""""""""""""""""""""""""""""""""""""""""""`fc6ccf3f3ffcc3ff3fcc6f6fcc3ff6f6fffff6c66fcfcf6366666c66ffc63fffffff""""""""""""""""""""""""""""""""""""""""""""""""""`cccccf3ffcfcccffcc3f6f6f3fcffcc6fffff6f66fcfcf666666f66cf6666fffffff""""""""""""""""""""""""""""""""""""""""""""""""""`6f3c6ccc3ff6fcff3f6cfcfc6ccffcc3cffff6ff36363f66fcf36cf3f6663fffffff""""""""""""""""""""""""""""""""""""""""""""""""""`ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff""""""""""""""""""""""""""""""""""""""""""""""""""`ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff""""""""""""""""""""""""""""""""""""""""""""""""""`ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff""""""""""""""""""""""""""""""""""""""""""""""""""`3cfffff3fffcfffff3fffffffffffffffffff63ffffffffff6ffff666fff6fff63ff""""""""""""""""""""""""""""""""""""""""""""""""""`6fcc6ffcc3ffccfccfcffffffffffffffffff6ffc6666ffcfcf6cf66f6cf3f66f6ff""""""""""""""""""""""""""""""""""""""""""""""""""`6fccccf3f6cc3ff6f6fffffffffffffffffff6c66666cf6663ff3f6c66666ffcfcff""""""""""""""""""""""""""""""""""""""""""""""""""`6f3cccfcfccccffcccfffffffffffffffffff6f66666ff66fcf66f6666666f666fff""""""""""""""""""""""""""""""""""""""""""""""""""`6f3c6ffcf3cccffcc3cffffffffffffffffff6ffcf36fffcfcf63f66666f3f666fff""""""""""""""""""""""""""""""""""""""""""""""""""`ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff""""""""""""""""""""""""""""""""""""""""""""""""""`ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff""""""""""""""""""""""""""""""""""""""""""""""""""`ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff""""""""""""""""""""""""""""""""""""""""""""""""""`3ccfffffffffffcffffcccfffcfff3ffffffff3fcffff6ff6ffcf636cffff6ffff63""""""""""""""""""""""""""""""""""""""""""""""""""`6f3fcc6c6cf6f6ff3ffccf3f6cfccfcffffff6f63666cff36c63f6ffc66f36cf6666""""""""""""""""""""""""""""""""""""""""""""""""""`6fcc3fccccfcc3cf6cf3fcccccf6f6ffffffffcfc6cf366666fcf6cfc666c66ffc63""""""""""""""""""""""""""""""""""""""""""""""""""`6fcccf3f3ffcc6ffccfcccccccfccfcfffffff6fc6f6666366fcf6ffc66f666f6666""""""""""""""""""""""""""""""""""""""""""""""""""`6fcccf6c6cf6f6ff3cfccccc6cfcc3fffffff6cf66f636f666f6f6f63f36c66f6663""""""""""""""""""""""""""""""""""""""""""""""""""`fffffffffffffffffffffffffffffffffffffffffffffffcffffffffffffffffffff""""""""""""""""""""""""""""""""""""""""""""""""""`ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff""""""""""""""""""""""""""""""""""""""""""""""""""`ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff""""""""""""""""""""""""""""""""""""""""""""""""""`6c6fffffcffcf6ffffccfffffffffffffffff6cffffff6cf636cffff6ffff63fffff""""""""""""""""""""""""""""""""""""""""""""""""""`cf3ccc3ff6c3f3cfccccfffffffffffffffff66fc666cfcf6ffc66f36cf6666fffff""""""""""""""""""""""""""""""""""""""""""""""""""`6f6f3f6cccccc6ff6f3cfffffffffffffffff636666f3fcf6cfc666c66ffc63fffff""""""""""""""""""""""""""""""""""""""""""""""""""`fc6fcfccc3ccc6ffccfcfffffffffffffffff6c66f366fcf6ffc66f666f66f6fffff""""""""""""""""""""""""""""""""""""""""""""""""""`3ffccf3ccfcccfcfccfcfffffffffffffffff66fcf66363f6f63f36c66f66f6fffff""""""""""""""""""""""""""""""""""""""""""""""""""`fffffffff6ffffffffffffffffffffffffffffffffcfffffffffffffffffffffffff""""""""""""""""""""""""""""""""""""""""""""""""""`ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff""""""""""""""""""""""""""""""""""""""""""""""""""`ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff""""""""""""""""""""""""""""""""""""""""""""""""""`3c3fffffcffff3cfffffffffffffffffffffffffffffffffffffffffffffffffffff""""""""""""""""""""""""""""""""""""""""""""""""""`cf6fcc6c3ffcccffffffffffffffffffffffffffffffffffffffffffffffffffffff""""""""""""""""""""""""""""""""""""""""""""""""""`3f6fcc3fccf6f3ffffffffffffffffffffffffffffffffffffffffffffffffffffff""""""""""""""""""""""""""""""""""""""""""""""""""`cf6fccfcccfccfcfffffffffffffffffffffffffffffffffffffffffffffffffffff""""""""""""""""""""""""""""""""""""""""""""""""""`cf3c6c3fccfcc3ffffffffffffffffffffffffffffffffffffffffffffffffffffff""""""""""""""""""""""""""""""""""""""""""""""""""`ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff""""""""""""""""""""""""""""""""""""""""""""""""""`ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff""""""""""""""""""""""""""""""""""""""""""""""""""`ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff""""""""""""""""""""""""""""""""""""""""""""""""""`ffffffffffffffffffffff63ff6cffff6cff6cffffffffffffffffffffffffffffff""""""""""""""""""""""""""""""""""""""""""""""""""`fffffffffffffffffffffff66f66f36cfcf666666c66ffffffffffffffffffffffff""""""""""""""""""""""""""""""""""""""""""""""""""`fffffffffffffffffffffffcff6666f3fcfc666cf366ffffffffffffffffffffffff""""""""""""""""""""""""""""""""""""""""""""""""""`ffffffffffffffffffffff6f6f666c66fc6f666f6663ffffffffffffffffffffffff""""""""""""""""""""""""""""""""""""""""""""""""""`ffffffffffffffffffffff63ff6cf36363ff6c6f6363ffffffffffffffffffffffff""""""""""""""""""""""""""""""""""""""""""""""""""`ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff""""""""""""""""""""""""""""""""""""""""""""""""""`ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff""""""""""""""""""""""""""""""""""""""""""""""""""`ffffffffffffffffffffffffffffffffffffff""""""""""""""""""""""""""""""""""""""""""""""""""`ffffffffffff333333`f333333`f333333`f333333`f333333`ffffffffffff""""""""""""""""""""""""""""""""""""""""""""""""""`ffffffffffff0U533S3f000333f0303f00333f000333ffffffffffff""""""""""""""""""""""""""""""""""""""""""""""""""`ffffffffffff05333U5f000330f03000f030330f000330ffffffffffff""""""""""""""""""""""""""""""""""""""""""""""""""`ffffffffffff0U333U5f033f030f03333f03333ffffffffffff""""""""""""""""""""""""""""""""""""""""""""""""""`ffffffffffff03533S3f0003f030f003333f000333ffffffffffff""""""""""""""""""""""""""""""""""""""""""""""""""`ffffffffffff0U33333f0003333f00333f0033333f0003333ffffffffffff""""""""""""""""""""""""""""""""""""""""""""""""""`ffffffffffff0333333f0333333f0333333f0333333f0333333ffffffffffff""""""""""""""""""""""""""""""""""""""""""""""""""`ffffffffffff0333333f0333333f0333333f0333333f0333333ffffffffffff""""""""""""""""""""""""""""""""""""""""""""""""""`ffffffffffff0333333f0333333f0333333f0333333f0333333ffffffffffff""""""""""""""""""""""""""""""""""""""""""""""""""`ffffffffffff033S533f033033f033033f03333f03333ffffffffffff""""""""""""""""""""""""""""""""""""""""""""""""""`ffffffffffff033UU33f0303f0303f03333f03333ffffffffffff""""""""""""""""""""""""""""""""""""""""""""""""""`ffffffffffff03SUU53f033f033f03333f03333ffffffffffff""""""""""""""""""""""""""""""""""""""""""""""""""`ffffffffffff03UUUU3f033f033f033033f033033ffffffffffff""""""""""""""""""""""""""""""""""""""""""""""""""`ffffffffffff03UUUU3f033f033f033033f033033ffffffffffff""""""""""""""""""""""""""""""""""""""""""""""""""`ffffffffffff03SUU53fÿÿÿÿÿÿÿÿf0303f0303fÿÿÿÿÿÿÿÿffffffffffff""""""""""""""""""""""""""""""""""""""""""""""""""`ffffffffffff033UU33fÿÿÿÿÿÿÿÿf033033f0303fÿÿÿÿÿÿÿÿffffffffffff""""""""""""""""""""""""""""""""""""""""""""""""""`ffffffffffff033S533fÿÿÿÿÿÿÿÿf033033f03333fÿÿÿÿÿÿÿÿffffffffffff""""""""""""""""""""""""""""""""""""""""""""""""""`ffffffffffff0333333fÿÿÿÿÿÿÿÿf0333333f033033fÿÿÿÿÿÿÿÿffffffffffff""""""""""""""""""""""""""""""""""""""""""""""""""`ffffffffffff0333333fÿÿÿÿÿÿÿÿf0333333f0333333fÿÿÿÿÿÿÿÿffffffffffff""""""""""""""""""""""""""""""""""""""""""""""""""`ffffffffffff0333333f0333333f0333333f0333333f0333333ffffffffffff""""""""""""""""""""""""""""""""""""""""""""""""""`ffffffffffff0333333f0333333f0333333f0333333f0333333ffffffffffff""""""""""""""""""""""""""""""""""""""""""""""""""`ffffffffffff333333`f333333`f333333`f333333`f333333`ffffffffffff""""""""""""""""""""""""""""""""""""""""""""""""""`ffffffffffffffffffffffffffffffffffffff""""""""""""""""""""""""""""""""""""""""""""""""""`ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff""""""""""""""""""""""""""""""""""""""""""""""""""`ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff""""""""""""""""""""""""""""""""""""""""""""""""""`ÝÝffffÖmfÝfffÝfÖÝffffffffffffffff6cff6ffffffffcfffffcf3f6ff3fffffcf3""""""""""""""""""""""""""""""""""""""""""""""""""`ÝfmÖÝfÝÝmÝffÖÝfÝÖmfffffffffffffff666cff3f36ff666ffc6c66f6f6f6fff6c66""""""""""""""""""""""""""""""""""""""""""""""""""`ÝÝfÝÖmÖmfffffÝfÝmmfffffffffffffff63f366c66fff63ff63fc66ffffcff63fc66""""""""""""""""""""""""""""""""""""""""""""""""""`ÝfmÝmfÖmfÝfffÝfÝfmfffffffffffffff6c666f66c6ff666ffcfc66f6ff66ffffc66""""""""""""""""""""""""""""""""""""""""""""""""""`ÝÝfÖÝffÝmÝffÖÝmÖÝffffffffffffffff666366cf3fff66ffff636cf6f6cffff636c""""""""""""""""""""""""""""""""""""""""""""""""""`ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff""""""""""""""""""""""""""""""""""""""""""""""""""`ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""«-- title: Videopoker -- author: ElStep Games -- desc: Classic Videopoker -- site: electroblaststep.github.io -- license: MIT License (Copyright (C) 2026 ElectroBlastStep) -- version: 1.0 -- script: lua local RANKS = {2,3,4,5,6,7,8,9,10,"J","Q","K","A"} local WIN_TABLE = { [1] = "Jacks or Better", [2] = "Two Pair", [3] = "Three of a Kind", [4] = "Straight", [5] = "Flush", [6] = "Full House", [7] = "Four of a Kind", [8] = "Straight Flush", [9] = "Royal Flush" } local balance = 500 local bet = 10 local mult = 0 local comb = "Let's Play!" local comb_color = 0 local deck = {} local hold = {false, false, false, false, false} local mwp = false -- mouse was pressed :) local drag = false local ShowWin = true local wx = 120 -(120 // 2) local wy = 68 -(76 // 2) local ox, oy = 0, 0 -- I can dream about you -- If I can't hold you tonight local WaitFor = "Deal" local top = 6 function Raise(num) if num > 0 then bet = math.min(balance, math.min(bet + 10, 990)) else bet = math.max(bet + num, 10) end end -- Ti dumal budet bass naebal function CheckComb() local ranks = {} local suits = {0, 0, 0, 0} local rank_counts = {} for i = 1, 13 do rank_counts[i] = 0 end for i = 1, 5 do local card = deck[i] local r = (card - 1) % 13 + 1 local s = math.ceil(card / 13) table.insert(ranks, r) rank_counts[r] = rank_counts[r] + 1 suits[s] = suits[s] + 1 end table.sort(ranks) local flush = false for s = 1, 4 do if suits[s] == 5 then flush = true end end local straight = false if ranks[2] == ranks[1]+1 and ranks[3] == ranks[2]+1 and ranks[4] == ranks[3]+1 and ranks[5] == ranks[4]+1 then straight = true elseif ranks[1] == 1 and ranks[2] == 2 and ranks[3] == 3 and ranks[4] == 4 and ranks[5] == 13 then straight = true end local pairs = 0 local three = false local four = false local job = false for r = 1, 13 do local count = rank_counts[r] if count == 4 then four = true elseif count == 3 then three = true elseif count == 2 then pairs = pairs + 1 if r >= 10 then job = true end end end if straight and flush and ranks[5] == 13 and ranks[4] == 12 then return "Royal Flush" elseif straight and flush then return "Straight Flush" elseif four then return "Four of a Kind" elseif three and pairs == 1 then return "Full House" elseif flush then return "Flush" elseif straight then return "Straight" elseif three then return "Three of a Kind" elseif pairs == 2 then return "Two Pair" elseif pairs == 1 and job then return "Jacks or Better" end return "No Win" end function DrawCard(card, x, y, i) local mx, my, pressed = mouse() local click = pressed and not mwp local sprite = 1 local c = 0 if mx >= x and mx <= x + 16 and my >= y and my <= y + 24 then if click and WaitFor == "Draw" then hold[i] = not hold[i] end end if card <= 13 then sprite = 5 elseif card <= 26 then sprite = 1 c = 5 elseif card <= 39 then sprite = 3 c = 5 else sprite = 7 end local index = (card - 1) % 13 + 1 local text = RANKS[index] spr(sprite, x, y, 7, 1, 0, 0, 2, 3) print(text, x + 2, y + 2, c, false, 1, true) if hold[i] then rect(x, y + 15, 16, 5, 15) end end function Deal() comb_color = 0 for i = 1, 52 do deck[i] = i end for i = 52, 2, -1 do local j = math.random(i) deck[i], deck[j] = deck[j], deck[i] end top = 6 comb = "Hold & Draw!" WaitFor = "Draw" end function Draw() for i = 1, 5 do if not hold[i] then deck[i] = deck[top] top = top + 1 end end comb = CheckComb() for k,v in pairs(WIN_TABLE) do if v == comb then comb_color = k mult = k end end hold = {false, false, false, false, false} WaitFor = "Deal" balance = balance + bet * mult end function Icon() local mx, my, pressed = mouse() local click = pressed and not mwp spr(51, 12, 120 - 16, 7, 1, 0, 0, 2, 2) print("VideoPoker", 2, 122, 3, false, 1, true) if mx >= 12 and mx <= 40 and my >= (120-16) and my <= 126 then if click then ShowWin = not ShowWin end end end function Window(w,h) local mx, my, pressed = mouse() local click = pressed and not mwp local cs = 9 rect(wx, wy, w, h, 6) rect(wx, wy, w, 8, 11) rectb(wx, wy, w, h, 0) print("VideoPoker", wx + 42, wy + 2, 3) if mx >= wx + (w - 9) and mx <= wx + w and my >= wy and my <= wy + 7 then if pressed then cs = 10 else cs = 9 end if click then ShowWin = not ShowWin end else cs = 9 end spr(cs, wx + (w - 8), wy, 7) local c = 3 for i = 1, 5 do if i == comb_color then c = 15 else c = 3 end print(WIN_TABLE[i] .. " x" .. i, wx + 2, wy + 2 + (i * 8) - 1, c, false, 1, true) end for i = 6, 9 do if i == comb_color then c = 15 else c = 3 end print(WIN_TABLE[i] .. " x" .. i, wx + 77, wy + 2 + (i * 8) - 41, c, false, 1, true) end for i = 1, 5 do local card = deck[i] DrawCard(card, wx + (w - 88) // 2 + (i - 1) * 18, wy + (h - 34), i) end print("Z: Deal/Draw", wx + 47, wy + 49, 3, false, 1, true) print("Bet: " .. bet, wx + 2, wy + h - 8, 13) print("Raise: A: +10 | S: -10", wx + 69, wy + h - 8, 3, false, 1, true) if WaitFor == "Deal" then rect(wx + 1, wy + 48, w - 2, 8, 15) print("Deal", wx + 58, wy + 49, 3) end if btnp(6) then Raise(10) elseif btnp(7) then Raise(-10) end if click then if mx >= wx and mx <= wx +(w - 9) and my >= wy and my <= wy + 7 then ox = mx - wx oy = my - wy drag = true return end end if drag then if pressed then if drag then wx = mx - ox wy = my - oy end else drag = false end return end end function BOOT() Deal() end function TIC() cls(2) print(balance, 200, 2, 0) if ShowWin then Window(140, 90) else Icon() end if btnp(4) then if WaitFor == "Deal" then balance = math.max(balance - bet, 0) Deal() elseif WaitFor == "Draw" then Draw() end end local _, _, pressed = mouse() mwp = pressed end