home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / BaseDefender.dxr / 00001.ls next >
Encoding:
Text File  |  2002-01-25  |  2.1 KB  |  61 lines
  1. on exitFrame me
  2.   global playerlevel, levelCompleteDelay, gFrameTimer, specialPlayerStats, playerSelectedWeapon, totalShipsRecord
  3.   initializeConstants()
  4.   initializeStarField()
  5.   playerlevel = playerlevel + 1
  6.   levelCompleteDelay = 80
  7.   gFrameTimer = the ticks
  8.   sprite(789).locZ = 770
  9.   sprite(792).locZ = 770
  10.   sprite(795).locZ = 770
  11.   sprite(798).locZ = 777
  12.   playerSelectedWeapon = 1
  13.   set the member of sprite 787 to "WBG 2"
  14.   set the member of sprite 789 to "WBG 1"
  15.   set the member of sprite 792 to "WBG 1"
  16.   set the member of sprite 795 to "WBG 1"
  17.   set the member of sprite 798 to "WBG 1"
  18.   set the width of sprite 777 to 0
  19.   member("Mega Cannon Status").text = "Ready"
  20.   totalShipsRecord = 0
  21.   initializeShipReferenceIndex()
  22.   initializeShips()
  23.   initializeBullets()
  24.   initializePowerups()
  25.   addShip(1, 1, point(1000, 1000), point(0, 0), random(360))
  26.   addPlayerBase(point(0, 0), 1)
  27.   repeat with wEnemyBase = 1 to playerlevel + 2
  28.     coreDistance = 0
  29.     repeat while coreDistance < 10000
  30.       rSpawn = point(random(30000), random(30000)) - 15000
  31.       coreDistance = findDistance(point(0, 0), rSpawn)
  32.     end repeat
  33.     addEnemyBase(rSpawn, 2)
  34.   end repeat
  35.   member("Ammo Display 1").text = string(specialPlayerStats[2])
  36.   member("Ammo Display 2").text = string(specialPlayerStats[3])
  37.   member("Ammo Display 3").text = string(specialPlayerStats[4])
  38.   initializeParticlereference()
  39.   initializeBulletReferenceIndex()
  40.   initializeParticles()
  41.   initializeMinimap()
  42. end
  43.  
  44. on addPlayerBase baseCenter, baseSide
  45.   addShip(baseSide, 6, baseCenter, point(0, 0), random(360), 0)
  46. end
  47.  
  48. on addEnemyBase baseCenter, baseSide
  49.   addShip(baseSide, 7, baseCenter, point(0, 0), random(360), 0)
  50.   eType = random(4) + 8
  51.   repeat with wEscort = 1 to random(4)
  52.     randomEscortLoc = point(random(3000), random(3000)) - 1500
  53.     addShip(baseSide, eType, baseCenter + randomEscortLoc, point(0, 0), random(360), 1)
  54.   end repeat
  55.   eType = random(3) + 7
  56.   repeat with wEscort = 1 to random(3) - 1
  57.     randomEscortLoc = point(random(3000), random(3000)) - 1500
  58.     addShip(baseSide, eType, baseCenter + randomEscortLoc, point(0, 0), random(360), 1)
  59.   end repeat
  60. end
  61.