home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / AceToKing.dxr / 00015.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  406 b   |  24 lines
  1. global deck, curr
  2.  
  3. on exitFrame me
  4.   startTimer()
  5.   shuffle()
  6. end
  7.  
  8. on shuffle
  9.   deck = []
  10.   curr = 0
  11.   repeat with blah = 1 to 13
  12.     append(deck, blah)
  13.   end repeat
  14.   repeat with blah = 1 to 150
  15.     repeat with bla2 = 1 to 150
  16.       temp1 = random(13)
  17.       temp2 = random(13)
  18.       placeholder = deck[temp2]
  19.       deck[temp2] = deck[temp1]
  20.       deck[temp1] = placeholder
  21.     end repeat
  22.   end repeat
  23. end
  24.