home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / WaterFight.dxr / 00004.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  1.4 KB  |  48 lines
  1. on exitFrame me
  2.   global skipFrame, levelScore, levelTime, playerScore, whichLevel, totalValidTargets
  3.   if skipFrame > the ticks then
  4.     go(the frame)
  5.   else
  6.     skipFrame = the ticks + 1
  7.     randPoint = point(random(20) - 10, random(20) - 10)
  8.     moveClouds()
  9.     moveDrops()
  10.     moveBaloon()
  11.     applyMonsters()
  12.     moveMonsters()
  13.     levelTime[3] = levelTime[3] - 1
  14.     if levelTime[3] < 0 then
  15.       levelTime[2] = levelTime[2] - 1
  16.       levelTime[3] = levelTime[3] + 60
  17.       if levelTime[2] < 0 then
  18.         if levelTime[1] > 0 then
  19.           levelTime[1] = levelTime[1] - 1
  20.           levelTime[2] = 59
  21.         end if
  22.       end if
  23.       if levelTime[2] < 10 then
  24.         member("Level Time").text = string(levelTime[1]) & ":0" & string(levelTime[2])
  25.       else
  26.         member("Level Time").text = string(levelTime[1]) & ":" & string(levelTime[2])
  27.       end if
  28.     end if
  29.     if (levelTime[1] = 0) and (levelTime[2] = 0) then
  30.       maxHits = totalValidTargets * 100
  31.       totalhits = (playerScore[1] + playerScore[2]) * 100.0
  32.       accuracy = totalhits / maxHits
  33.       member("Accuracy Tally").text = "Level Accuracy:  " & string(integer(accuracy * 100)) & "%"
  34.       if accuracy >= 0.59999999999999998 then
  35.         if whichLevel < 5 then
  36.           go(15)
  37.         else
  38.           go(20)
  39.         end if
  40.       else
  41.         go(25)
  42.       end if
  43.     else
  44.       go(the frame)
  45.     end if
  46.   end if
  47. end
  48.