home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / Flea.dxr / Internal_6.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  3.3 KB  |  132 lines
  1. global points, pootimer, win, tableau, crappo, stock, waste
  2.  
  3. on checkwin arg
  4.   if arg <> 0 then
  5.     if tableau[sprite(arg).row].getcardcount() = 13 then
  6.       if (tableau[sprite(arg).row].cards[1].rank = "ace") and (tableau[sprite(arg).row].cards[13].rank = "king") then
  7.         points = points + 100
  8.         tableau[sprite(arg).row].cards.deleteAll()
  9.         crappo = timeout("crappo").new(50, #vanish, sprite(arg))
  10.         if points = 400 then
  11.           win = "yes"
  12.           pootimer = timeout("poo").new(150, #gotoit)
  13.         end if
  14.       end if
  15.     end if
  16.   end if
  17.   checklose()
  18. end
  19.  
  20. on checklose
  21.   if stock.cards.count = 0 then
  22.     if waste.cards.count = 0 then
  23.       repeat with shit = 22 to 30
  24.         if sprite(shit).member.name = "empty" then
  25.           abort()
  26.         end if
  27.         repeat with cakes = 22 to 30
  28.           if sprite(cakes).member.name = "empty" then
  29.             abort()
  30.           end if
  31.           if ((getValue(sprite(shit).member.name) = (getValue(sprite(cakes).member.name) + 1)) or (getValue(sprite(shit).member.name) = (getValue(sprite(cakes).member.name) - 1))) and (getSuit(sprite(shit).member.name) = getSuit(sprite(cakes).member.name)) then
  32.             abort()
  33.           end if
  34.         end repeat
  35.       end repeat
  36.       win = "no"
  37.       pootimer = timeout("poo").new(130, #gotoit)
  38.     end if
  39.   end if
  40. end
  41.  
  42. on gotoit
  43.   pootimer.forget()
  44.   go("gameover")
  45. end
  46.  
  47. on getValue arg
  48.   if (arg contains "hearts") or (arg contains "spades") then
  49.     return getOff(chars(arg, 1, arg.length - 7))
  50.   else
  51.     if arg contains "diamonds" then
  52.       return getOff(chars(arg, 1, arg.length - 9))
  53.     else
  54.       if arg contains "clubs" then
  55.         return getOff(chars(arg, 1, arg.length - 6))
  56.       end if
  57.     end if
  58.   end if
  59. end
  60.  
  61. on getOff numba
  62.   if numba = "ace" then
  63.     return 1
  64.   else
  65.     if numba = "two" then
  66.       return 2
  67.     else
  68.       if numba = "three" then
  69.         return 3
  70.       else
  71.         if numba = "four" then
  72.           return 4
  73.         else
  74.           if numba = "five" then
  75.             return 5
  76.           else
  77.             if numba = "six" then
  78.               return 6
  79.             else
  80.               if numba = "seven" then
  81.                 return 7
  82.               else
  83.                 if numba = "eight" then
  84.                   return 8
  85.                 else
  86.                   if numba = "nine" then
  87.                     return 9
  88.                   else
  89.                     if numba = "ten" then
  90.                       return 10
  91.                     else
  92.                       if numba = "jack" then
  93.                         return 11
  94.                       else
  95.                         if numba = "queen" then
  96.                           return 12
  97.                         else
  98.                           if numba = "king" then
  99.                             return 13
  100.                           end if
  101.                         end if
  102.                       end if
  103.                     end if
  104.                   end if
  105.                 end if
  106.               end if
  107.             end if
  108.           end if
  109.         end if
  110.       end if
  111.     end if
  112.   end if
  113. end
  114.  
  115. on getSuit arg
  116.   if arg contains "hearts" then
  117.     return #hearts
  118.   else
  119.     if arg contains "diamonds" then
  120.       return #diamonds
  121.     else
  122.       if arg contains "clubs" then
  123.         return #clubs
  124.       else
  125.         if arg contains "spades" then
  126.           return #spades
  127.         end if
  128.       end if
  129.     end if
  130.   end if
  131. end
  132.