home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / BlindAlleys.dxr / Internal_6.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  753 b   |  30 lines
  1. global points, tableau, reserve, foundation, extras, stock, waste, win
  2.  
  3. on prepareFrame me
  4.   tableau = [:]
  5.   reserve = [:]
  6.   extras = []
  7.   waste = [:]
  8.   foundation = [:]
  9.   stock = new(script("card pile"))
  10.   stock.cards = shuffle()
  11.   points = 0
  12.   win = "no"
  13. end
  14.  
  15. on shuffle me
  16.   unshuffled = []
  17.   shuffled = []
  18.   repeat with rank in ["ace", "two", "three", "four", "five", "six", "seven", "eight", "nine", "ten", "jack", "queen", "king"]
  19.     repeat with suit in ["hearts", "diamonds", "clubs", "spades"]
  20.       unshuffled.add([#rank: rank, #suit: suit])
  21.     end repeat
  22.   end repeat
  23.   repeat while unshuffled.count > 0
  24.     temp = unshuffled[random(unshuffled.count)]
  25.     shuffled.add(temp)
  26.     unshuffled.deleteOne(temp)
  27.   end repeat
  28.   return shuffled
  29. end
  30.