home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / SirTommy.dxr / Internal_9.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  2.9 KB  |  124 lines

  1. global points, win, pootimer, stock, tableau
  2.  
  3. on checkwin
  4.   if points = (52 * 10) then
  5.     win = "yes"
  6.     pootimer = timeout("poo").new(150, #gotoit)
  7.   else
  8.     checklose()
  9.   end if
  10. end
  11.  
  12. on gotoit
  13.   pootimer.forget()
  14.   go("gameover")
  15. end
  16.  
  17. on checklose
  18.   if stock.cards.count = 0 then
  19.     repeat with shits = 1 to tableau.count
  20.       if tableau[shits].getcardcount() = 0 then
  21.         next repeat
  22.       end if
  23.       repeat with asshole = 11 to 14
  24.         if sprite(asshole).member.name = "empty" then
  25.           if getValue(sprite(tableau[shits].getlastcard().spnum).member.name) = 1 then
  26.             abort()
  27.           end if
  28.         end if
  29.         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
  30.           abort()
  31.         end if
  32.       end repeat
  33.     end repeat
  34.     win = "no"
  35.     pootimer = timeout("poo").new(50, #gotoit)
  36.   end if
  37. end
  38.  
  39. on getValue arg
  40.   if (arg contains "hearts") or (arg contains "spades") then
  41.     return getOff(chars(arg, 1, arg.length - 7))
  42.   else
  43.     if arg contains "diamonds" then
  44.       return getOff(chars(arg, 1, arg.length - 9))
  45.     else
  46.       if arg contains "clubs" then
  47.         return getOff(chars(arg, 1, arg.length - 6))
  48.       end if
  49.     end if
  50.   end if
  51. end
  52.  
  53. on getOff numba
  54.   if numba = "ace" then
  55.     return 1
  56.   else
  57.     if numba = "two" then
  58.       return 2
  59.     else
  60.       if numba = "three" then
  61.         return 3
  62.       else
  63.         if numba = "four" then
  64.           return 4
  65.         else
  66.           if numba = "five" then
  67.             return 5
  68.           else
  69.             if numba = "six" then
  70.               return 6
  71.             else
  72.               if numba = "seven" then
  73.                 return 7
  74.               else
  75.                 if numba = "eight" then
  76.                   return 8
  77.                 else
  78.                   if numba = "nine" then
  79.                     return 9
  80.                   else
  81.                     if numba = "ten" then
  82.                       return 10
  83.                     else
  84.                       if numba = "jack" then
  85.                         return 11
  86.                       else
  87.                         if numba = "queen" then
  88.                           return 12
  89.                         else
  90.                           if numba = "king" then
  91.                             return 13
  92.                           end if
  93.                         end if
  94.                       end if
  95.                     end if
  96.                   end if
  97.                 end if
  98.               end if
  99.             end if
  100.           end if
  101.         end if
  102.       end if
  103.     end if
  104.   end if
  105. end
  106.  
  107. on getSuit arg
  108.   if arg contains "hearts" then
  109.     return #hearts
  110.   else
  111.     if arg contains "diamonds" then
  112.       return #diamonds
  113.     else
  114.       if arg contains "clubs" then
  115.         return #clubs
  116.       else
  117.         if arg contains "spades" then
  118.           return #spades
  119.         end if
  120.       end if
  121.     end if
  122.   end if
  123. end
  124.