home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / WaterFight.dxr / 00001.ls next >
Encoding:
Text File  |  2002-01-25  |  2.0 KB  |  58 lines
  1. on exitFrame me
  2.   global maximumClouds, cloudEffectSO, maximumDrops, dropEffectSO, monsterData, monasterInitialLocs, monsterhitRange, totalValidTargets, playerScore, levelTime
  3.   initializeConstants()
  4.   initializeDrops()
  5.   initializeBeams()
  6.   initializeClouds()
  7.   liqPrefix = "Water"
  8.   minPool = cloudEffectSO + 1
  9.   maxPool = cloudEffectSO + maximumClouds
  10.   minDrop = dropEffectSO + 1
  11.   maxDrop = dropEffectSO + maximumDrops
  12.   repeat with whichP = minPool to maxPool
  13.     set the member of sprite whichP to liqPrefix & " Pool"
  14.   end repeat
  15.   repeat with whichP = minDrop to maxDrop
  16.     set the member of sprite whichP to liqPrefix & " Drop"
  17.   end repeat
  18.   repeat with wSp = 7 to 10
  19.     sprite(wSp).locZ = the top of sprite wSp
  20.   end repeat
  21.   repeat with wSp = 11 to 22
  22.     sprite(wSp).locZ = the bottom of sprite wSp - 25
  23.   end repeat
  24.   sprite(131).locZ = 999
  25.   monsterData = []
  26.   repeat with whichMonster = 1 to 12
  27.     monsterBit = [0, 1, -75, the loc of sprite (10 + whichMonster), 0, 0]
  28.     add(monsterData, monsterBit)
  29.   end repeat
  30.   monasterInitialLocs = []
  31.   repeat with whichLoc = 1 to 12
  32.     add(monasterInitialLocs, the loc of sprite (whichLoc + 10))
  33.   end repeat
  34.   monsterhitRange = []
  35.   repeat with whichLoc = 1 to 12
  36.     hitRect = rect(0, 0, 0, 0)
  37.     hitRect.left = the left of sprite (whichLoc + 10)
  38.     hitRect.right = the right of sprite (whichLoc + 10)
  39.     hitRect.top = the top of sprite (whichLoc + 10) + 25
  40.     hitRect.bottom = the bottom of sprite (whichLoc + 10) + 25
  41.     add(monsterhitRange, hitRect)
  42.   end repeat
  43.   repeat with whichMonster = 11 to 21
  44.     set the locV of sprite whichMonster to 600
  45.   end repeat
  46.   totalValidTargets = 0
  47.   playerScore = [0, 0, 0]
  48.   levelTime = [1, 0, 60]
  49.   member("Level Score").text = "0"
  50.   if levelTime[2] < 10 then
  51.     member("Level Time").text = string(levelTime[1]) & ":0" & string(levelTime[2])
  52.   else
  53.     member("Level Time").text = string(levelTime[1]) & ":" & string(levelTime[2])
  54.   end if
  55.   member("Level number").text = "L1"
  56.   member("Level Score").text = "0"
  57. end
  58.