home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / CarribeanPoker.dxr / Internal_9.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  2.1 KB  |  50 lines
  1. global gHand, gDeck, gCardSprites, gStockCard, gButton, gMessageBox, gPlayerUI
  2.  
  3. on dealCardsOut
  4.   tempCardSprites = []
  5.   repeat with who in [#player, #dealer]
  6.     repeat with cardIndex = 1 to gCardSprites[who].count
  7.       tempCardSprites.add(gCardSprites[who][cardIndex])
  8.     end repeat
  9.   end repeat
  10.   repeat while gHand[#player].returnCardCount() < 5
  11.     repeat while gStockCard.loc <> gStockCard.pOriginalLoc
  12.       updateStage()
  13.     end repeat
  14.     gHand[#player].addCard(gDeck._DrawCard())
  15.     puppetSound(4, "deal card")
  16.     repeat while not gHand[#player].throwComplete(gStockCard, tempCardSprites[gHand[#player].returnCardCount()])
  17.       gHand[#player].throwCard(gStockCard, tempCardSprites[gHand[#player].returnCardCount()])
  18.       updateStage()
  19.     end repeat
  20.     gStockCard.visible = 0
  21.     tempCardSprites[gHand[#player].returnCardCount()].member = member(gHand[#player]._cards[gHand[#player].returnCardCount()].mGetImage())
  22.     gStockCard.loc = gStockCard.pOriginalLoc
  23.     gStockCard.visible = 1
  24.     updateStage()
  25.   end repeat
  26.   repeat while gHand[#dealer].returnCardCount() < 5
  27.     repeat while gStockCard.loc <> gStockCard.pOriginalLoc
  28.       updateStage()
  29.     end repeat
  30.     gHand[#dealer].addCard(gDeck._DrawCard())
  31.     puppetSound(4, "deal card")
  32.     repeat while not gHand[#dealer].throwComplete(gStockCard, tempCardSprites[gHand[#player].returnCardCount() + gHand[#dealer].returnCardCount()])
  33.       gHand[#player].throwCard(gStockCard, tempCardSprites[gHand[#player].returnCardCount() + gHand[#dealer].returnCardCount()])
  34.       updateStage()
  35.     end repeat
  36.     gStockCard.visible = 0
  37.     if gHand[#dealer].returnCardCount() < 5 then
  38.       tempCardSprites[gHand[#player].returnCardCount() + gHand[#dealer].returnCardCount()].member = member("backofcard")
  39.     else
  40.       tempCardSprites[gHand[#player].returnCardCount() + gHand[#dealer].returnCardCount()].member = member(gHand[#dealer]._cards[gHand[#dealer].returnCardCount()].mGetImage())
  41.     end if
  42.     gStockCard.loc = gStockCard.pOriginalLoc
  43.     gStockCard.visible = 1
  44.     updateStage()
  45.   end repeat
  46.   gPlayerUI[#callbet].toggleActive(#on)
  47.   gPlayerUI[#fold].toggleActive(#on)
  48.   gMessageBox.text = "Please call the bet or fold"
  49. end
  50.