home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / DuchessLuynes.dxr / Internal_3.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  4.6 KB  |  163 lines
  1. global points, pootimer, win, tableau, crappo, stock, redeals, mysuitb, mysuitt
  2.  
  3. on checkwin arg
  4.   if points = (104 * 10) then
  5.     win = "yes"
  6.     pootimer = timeout("poo").new(150, #gotoit)
  7.   else
  8.     if (stock.cards.count = 0) and (redeals = 3) then
  9.       checklose()
  10.     end if
  11.   end if
  12. end
  13.  
  14. on gotoit
  15.   pootimer.forget()
  16.   go("gameover")
  17. end
  18.  
  19. on checklose
  20.   repeat with shit = 12 to 12
  21.     if sprite(shit).member.name = "empty" then
  22.       next repeat
  23.     end if
  24.     repeat with cakes = 25 to 28
  25.       if sprite(cakes).member.name = "empty" then
  26.         if (getValue(sprite(shit).member.name) = getOff(string(sprite(29).basecard))) and not mysuitb.findPos(string(getSuit(sprite(shit).member.name))) then
  27.           abort()
  28.         end if
  29.         next repeat
  30.       end if
  31.       if (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.     repeat with cakes = 37 to 40
  36.       if sprite(cakes).member.name = "empty" then
  37.         if (getValue(sprite(shit).member.name) = getOff(string(sprite(41).basecard))) and not mysuitt.findPos(string(getSuit(sprite(shit).member.name))) then
  38.           abort()
  39.         end if
  40.         next repeat
  41.       end if
  42.       if (getValue(sprite(shit).member.name) = (getValue(sprite(cakes).member.name) + 1)) and (getSuit(sprite(shit).member.name) = getSuit(sprite(cakes).member.name)) then
  43.         abort()
  44.       end if
  45.     end repeat
  46.   end repeat
  47.   repeat with shit = 17 to 20
  48.     if sprite(shit).member.name = "empty" then
  49.       next repeat
  50.     end if
  51.     repeat with cakes = 25 to 28
  52.       if sprite(cakes).member.name = "empty" then
  53.         if (getValue(sprite(shit).member.name) = getOff(string(sprite(29).basecard))) and not mysuitb.findPos(string(getSuit(sprite(shit).member.name))) then
  54.           abort()
  55.         end if
  56.         next repeat
  57.       end if
  58.       if (getValue(sprite(shit).member.name) = (getValue(sprite(cakes).member.name) - 1)) and (getSuit(sprite(shit).member.name) = getSuit(sprite(cakes).member.name)) then
  59.         abort()
  60.       end if
  61.     end repeat
  62.     repeat with cakes = 37 to 40
  63.       if sprite(cakes).member.name = "empty" then
  64.         if (getValue(sprite(shit).member.name) = getOff(string(sprite(41).basecard))) and not mysuitt.findPos(string(getSuit(sprite(shit).member.name))) then
  65.           abort()
  66.         end if
  67.         next repeat
  68.       end if
  69.       if (getValue(sprite(shit).member.name) = (getValue(sprite(cakes).member.name) + 1)) and (getSuit(sprite(shit).member.name) = getSuit(sprite(cakes).member.name)) then
  70.         abort()
  71.       end if
  72.     end repeat
  73.   end repeat
  74.   win = "no"
  75.   pootimer = timeout("poo").new(130, #gotoit)
  76. end
  77.  
  78. on getValue arg
  79.   if (arg contains "hearts") or (arg contains "spades") then
  80.     return getOff(chars(arg, 1, arg.length - 7))
  81.   else
  82.     if arg contains "diamonds" then
  83.       return getOff(chars(arg, 1, arg.length - 9))
  84.     else
  85.       if arg contains "clubs" then
  86.         return getOff(chars(arg, 1, arg.length - 6))
  87.       end if
  88.     end if
  89.   end if
  90. end
  91.  
  92. on getOff numba
  93.   if numba = "ace" then
  94.     return 1
  95.   else
  96.     if numba = "two" then
  97.       return 2
  98.     else
  99.       if numba = "three" then
  100.         return 3
  101.       else
  102.         if numba = "four" then
  103.           return 4
  104.         else
  105.           if numba = "five" then
  106.             return 5
  107.           else
  108.             if numba = "six" then
  109.               return 6
  110.             else
  111.               if numba = "seven" then
  112.                 return 7
  113.               else
  114.                 if numba = "eight" then
  115.                   return 8
  116.                 else
  117.                   if numba = "nine" then
  118.                     return 9
  119.                   else
  120.                     if numba = "ten" then
  121.                       return 10
  122.                     else
  123.                       if numba = "jack" then
  124.                         return 11
  125.                       else
  126.                         if numba = "queen" then
  127.                           return 12
  128.                         else
  129.                           if numba = "king" then
  130.                             return 13
  131.                           end if
  132.                         end if
  133.                       end if
  134.                     end if
  135.                   end if
  136.                 end if
  137.               end if
  138.             end if
  139.           end if
  140.         end if
  141.       end if
  142.     end if
  143.   end if
  144. end
  145.  
  146. on getSuit arg
  147.   if arg contains "hearts" then
  148.     return #hearts
  149.   else
  150.     if arg contains "diamonds" then
  151.       return #diamonds
  152.     else
  153.       if arg contains "clubs" then
  154.         return #clubs
  155.       else
  156.         if arg contains "spades" then
  157.           return #spades
  158.         end if
  159.       end if
  160.     end if
  161.   end if
  162. end
  163.