home *** CD-ROM | disk | FTP | other *** search
Wrap
global points, win, pootimer, stock, tableau on checkwin if points = (52 * 10) then win = "yes" pootimer = timeout("poo").new(150, #gotoit) else checklose() end if end on gotoit pootimer.forget() go("gameover") end on checklose if stock.cards.count = 0 then repeat with shits = 1 to tableau.count if tableau[shits].getcardcount() = 0 then next repeat end if repeat with asshole = 11 to 14 if sprite(asshole).member.name = "empty" then if getValue(sprite(tableau[shits].getlastcard().spnum).member.name) = 1 then abort() end if end if if (getValue(sprite(tableau[shits].getlastcard().spnum).member.name) = (getValue(sprite(asshole).member.name) + 1)) and (getSuit(sprite(tableau[shits].getlastcard().spnum).member.name) = getSuit(sprite(asshole).member.name)) then abort() end if end repeat end repeat win = "no" pootimer = timeout("poo").new(50, #gotoit) end if end on getValue arg if (arg contains "hearts") or (arg contains "spades") then return getOff(chars(arg, 1, arg.length - 7)) else if arg contains "diamonds" then return getOff(chars(arg, 1, arg.length - 9)) else if arg contains "clubs" then return getOff(chars(arg, 1, arg.length - 6)) end if end if end if end on getOff numba if numba = "ace" then return 1 else if numba = "two" then return 2 else if numba = "three" then return 3 else if numba = "four" then return 4 else if numba = "five" then return 5 else if numba = "six" then return 6 else if numba = "seven" then return 7 else if numba = "eight" then return 8 else if numba = "nine" then return 9 else if numba = "ten" then return 10 else if numba = "jack" then return 11 else if numba = "queen" then return 12 else if numba = "king" then return 13 end if end if end if end if end if end if end if end if end if end if end if end if end if end on getSuit arg if arg contains "hearts" then return #hearts else if arg contains "diamonds" then return #diamonds else if arg contains "clubs" then return #clubs else if arg contains "spades" then return #spades end if end if end if end if end