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