100 Plus Great Games 2/100PLUSV2.BIN/games/BlackHole.dxr/00066.ls

Text File | 2002-01-25 | 657 b | 25 lines

on shuffle
  templist1 = []
  templist2 = []
  repeat with rank in ["ace", "two", "three", "four", "five", "six", "seven", "eight", "nine", "ten", "jack", "queen", "king"]
    repeat with suit in ["hearts", "clubs", "spades", "diamonds"]
      if (rank = "ace") and (suit = "spades") then
        next repeat
      end if
      templist1.add([#rank: rank, #suit: suit])
    end repeat
  end repeat
  repeat while templist1.count > 0
    tempholder = templist1[random(templist1.count)]
    templist2.add(tempholder)
    templist1.deleteOne(tempholder)
  end repeat
  return templist2
end

on gotoit
  global pootimer
  pootimer.forget()
  go("gameover")
end