100 Plus Great Games 2/100PLUSV2.BIN/games/AuldLangSyn.dxr/00004.ls

Text File | 2002-01-25 | 696 b | 35 lines

on addfoundation obj
  global foundation
  foundation()
end

on addreserve
  global reserve
end

on dealcards
  global stock
end

on shuffle
  templist1 = []
  templist2 = []
  repeat with rank in ["two", "three", "four", "five", "six", "seven", "eight", "nine", "ten", "jack", "queen", "king"]
    repeat with suit in ["hearts", "clubs", "spades", "diamonds"]
      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