home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / CarribeanPoker.dxr / Internal_1.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  622 b   |  18 lines
  1. global gCardSprites, gDeck, gBet, gHand, gBetUI, gPokerHands, gPlayerUI
  2.  
  3. on prepareFrame me
  4.   set the floatPrecision to 10
  5.   gCardSprites = [#player: [], #dealer: []]
  6.   gPlayerUI = [:]
  7.   gDeck = new(script("deckCards"))
  8.   gBet = new(script("bet manager"), 500, member("credit balance"), member("bet amount"))
  9.   gHand = [#player: new(script("hands")), #dealer: new(script("hands"))]
  10.   gBetUI = []
  11.   gButton = [#deal: 0, #lastBet: 0, #fold: 0, #callbet: 0]
  12.   gPokerHands = [#pair, #twopairs, #threeofakind, #straight, #flush, #fullhouse, #fourofakind, #straightflush, #royalflush]
  13. end
  14.  
  15. on exitFrame me
  16.   go("Play Game")
  17. end
  18.