home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / WakeRace.dxr / Internal_18_Init Game Over Script.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  1.3 KB  |  43 lines
  1. global gPlayer, geEnemyList, gFinalPoints
  2.  
  3. on prepareFrame me
  4.   repeat with i = 1 to count(gFinalPoints) - 1
  5.     repeat with j = i + 1 to count(gFinalPoints)
  6.       if gFinalPoints[j][2] > gFinalPoints[i][2] then
  7.         tmp = gFinalPoints[j]
  8.         gFinalPoints[j] = gFinalPoints[i]
  9.         gFinalPoints[i] = tmp
  10.       end if
  11.     end repeat
  12.   end repeat
  13.   theSprite = 401
  14.   playerFinish = 0
  15.   playerPoints = 0
  16.   repeat with n = 1 to count(gFinalPoints)
  17.     if gFinalPoints[n][1] = gPlayer.pMySpriteNum then
  18.       playerFinish = n
  19.       playerPoints = gFinalPoints[n][2]
  20.       next repeat
  21.     end if
  22.     theEnemyNum = e_findEnemyFromSpriteNum(gFinalPoints[n][1])
  23.   end repeat
  24.   if playerFinish > 1 then
  25.     playerPlaceMod = 0
  26.     repeat with i = playerFinish - 1 down to 1
  27.       if gFinalPoints[i][2] = playerPoints then
  28.         playerPlaceMod = playerPlaceMod - 1
  29.       end if
  30.     end repeat
  31.     playerFinish = playerFinish + playerPlaceMod
  32.   end if
  33.   member("Final Score Total").text = "Your Score: " & string(playerPoints)
  34.   member("Final Ranking Total").text = "You Ranked #" & string(playerFinish)
  35.   if playerFinish = 1 then
  36.     member("Win/Lose").text = "You Win!"
  37.     puppetSound(2, "win")
  38.   else
  39.     member("Win/Lose").text = "Give It Another Try"
  40.     puppetSound(2, "lose")
  41.   end if
  42. end
  43.