home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / SeaInvaders.dxr / 00010.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  1023 b   |  38 lines
  1. on exitFrame me
  2.   global playerLocData, playerSO, targetSO, bulletSO, maxBullets, enemySO, maxEnemies, fallSpeed, holdingShot, playerLives, playerlevel, playerScore, simultaneousEnemies, enemyArmyleft, winDelay
  3.   playerLocData = [1, 2900, 0, #L]
  4.   playerSO = 11
  5.   targetSO = 9
  6.   bulletSO = 11
  7.   maxBullets = 6
  8.   initializeBullets()
  9.   init_ParticleConstants()
  10.   init_Particles()
  11.   enemySO = 20
  12.   maxEnemies = 12
  13.   fallSpeed = point(25, 10)
  14.   initializeEnemies()
  15.   holdingShot = 0
  16.   simultaneousEnemies = 0
  17.   enemyArmyleft = 0
  18.   case playerlevel of
  19.     1:
  20.       simultaneousEnemies = 4
  21.       enemyArmyleft = 30
  22.     2:
  23.       simultaneousEnemies = 6
  24.       enemyArmyleft = 40
  25.     3:
  26.       simultaneousEnemies = 7
  27.       enemyArmyleft = 50
  28.     4:
  29.       simultaneousEnemies = 8
  30.       enemyArmyleft = 75
  31.   end case
  32.   member("Lives Display").text = string(playerLives)
  33.   member("Round Display").text = string(playerlevel)
  34.   member("Pearls Display").text = "0"
  35.   member("Score Display").text = string(playerScore)
  36.   winDelay = 30
  37. end
  38.