home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / Sultan.dxr / scripts_2_card.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  3.1 KB  |  140 lines
  1. property spnum, membername, membernumber, rank, suit, suitcolor, rankvalue, location
  2.  
  3. on new me, myspnum
  4.   me.spnum = myspnum
  5.   me.membername = get_membername()
  6.   me.membernumber = get_membernumber()
  7.   me.rank = get_rank()
  8.   me.rankvalue = get_rankvalue()
  9.   me.suit = get_suit()
  10.   me.suitcolor = get_suitcolor()
  11.   me.rankvalue = get_rankvalue()
  12.   me.location = get_location()
  13.   return me
  14. end
  15.  
  16. on get_spnum me
  17.   return me.spnum
  18. end
  19.  
  20. on get_membername me
  21.   return member(sprite(spnum).memberNum, "playing cards").name
  22. end
  23.  
  24. on get_membernumber me
  25.   return member(sprite(spnum).memberNum, "playing cards").number
  26. end
  27.  
  28. on get_rank me
  29.   repeat with i = 1 to string(member(sprite(spnum).memberNum, "playing cards").name).length
  30.     if member(sprite(spnum).memberNum, "playing cards").name.char[i] = "_" then
  31.       exit repeat
  32.     end if
  33.   end repeat
  34.   return chars(member(sprite(spnum).memberNum, "playing cards").name, 1, i - 1)
  35. end
  36.  
  37. on get_suit me
  38.   repeat with i = 1 to string(member(sprite(spnum).memberNum, "playing cards").name).length
  39.     if member(sprite(spnum).memberNum, "playing cards").name.char[i] = "_" then
  40.       exit repeat
  41.     end if
  42.   end repeat
  43.   return chars(member(sprite(spnum).memberNum, "playing cards").name, i + 1, string(member(sprite(spnum).memberNum, "playing cards").name).length)
  44. end
  45.  
  46. on get_suitcolor me
  47.   repeat with i = 1 to string(member(sprite(spnum).memberNum, "playing cards").name).length
  48.     if member(sprite(spnum).memberNum, "playing cards").name.char[i] = "_" then
  49.       exit repeat
  50.     end if
  51.   end repeat
  52.   asuit = chars(member(sprite(spnum).memberNum, "playing cards").name, i + 1, string(member(sprite(spnum).memberNum).name).length)
  53.   if (asuit = "diamonds") or (asuit = "hearts") then
  54.     return "red"
  55.   else
  56.     return "black"
  57.   end if
  58. end
  59.  
  60. on get_rankvalue me
  61.   repeat with i = 1 to string(member(sprite(spnum).memberNum, "playing cards").name).length
  62.     if member(sprite(spnum).memberNum, "playing cards").name.char[i] = "_" then
  63.       exit repeat
  64.     end if
  65.   end repeat
  66.   arank = chars(member(sprite(spnum).memberNum, "playing cards").name, 1, i - 1)
  67.   case arank of
  68.     "ace":
  69.       return 1
  70.     "two":
  71.       return 2
  72.     "three":
  73.       return 3
  74.     "four":
  75.       return 4
  76.     "five":
  77.       return 5
  78.     "six":
  79.       return 6
  80.     "seven":
  81.       return 7
  82.     "eight":
  83.       return 8
  84.     "nine":
  85.       return 9
  86.     "ten":
  87.       return 10
  88.     "jack":
  89.       return 11
  90.     "queen":
  91.       return 12
  92.     "king":
  93.       return 13
  94.   end case
  95. end
  96.  
  97. on get_location me
  98.   return sprite(spnum).loc
  99. end
  100.  
  101. on set_spnum me, newspnum
  102.   me.spnum = newspnum
  103. end
  104.  
  105. on compare_suit me, acard02
  106.   if me.suit = acard02.suit then
  107.     return 1
  108.   else
  109.     return 0
  110.   end if
  111. end
  112.  
  113. on compare_rank me, acard02
  114.   if me.rank = acard02.rank then
  115.     return 1
  116.   else
  117.     return 0
  118.   end if
  119. end
  120.  
  121. on compare_suitcolor me, acard02
  122.   if me.suitcolor = acard02.suitcolor then
  123.     return 1
  124.   else
  125.     return 0
  126.   end if
  127. end
  128.  
  129. on compare_rankvalue me, acard02
  130.   if me.rankvalue = (acard02.rankvalue + 1) then
  131.     return 1
  132.   else
  133.     if (me.rank = "ace") and (acard02.rank = "king") then
  134.       return 1
  135.     else
  136.       return 0
  137.     end if
  138.   end if
  139. end
  140.