home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / TroyReturns.dxr / 00325.ls < prev    next >
Encoding:
Text File  |  2002-01-31  |  630 b   |  19 lines
  1. on exitFrame me
  2.   global playerScore, levelScore, totalScore, updateTextFields, playerData, playerInventory
  3.   lifeBonus = 0
  4.   repeat while playerInventory[1] >= 100
  5.     playerInventory[1] = playerInventory[1] - 100
  6.     lifeBonus = lifeBonus + 1
  7.   end repeat
  8.   lifeBonus = lifeBonus * 1
  9.   playerInventory[3] = playerInventory[3] + lifeBonus
  10.   playerScore = playerScore + levelScore
  11.   levelScore = 0
  12.   member("Life Award Tally").text = string(lifeBonus)
  13.   member("Total Score Tally").text = string(playerScore)
  14.   repeat with whichDisp = 480 to 500
  15.     sprite(whichDisp).locZ = 9999
  16.   end repeat
  17.   playSound("level_complete", 1)
  18. end
  19.