home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / BaseDefender.dxr / 00002.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  2.1 KB  |  68 lines
  1. on exitFrame me
  2.   global playerViewPoint, shipData, specialPlayerStats, gFrameTimer, scanRotation, scanMod, bgAnchorRecord, totalEnemyShips, levelCompleteDelay, playerlevel
  3.   if (gFrameTimer + 1) < the ticks then
  4.     gFrameTimer = the ticks
  5.     playerViewPoint = shipData[1][4][1] - point(2900, 2200)
  6.     moveShips()
  7.     moveBulletData()
  8.     runStarField()
  9.     moveParticles()
  10.     movePowerups()
  11.     scanRotation = scanRotation - 4
  12.     if scanRotation < 0 then
  13.       scanRotation = 360
  14.     end if
  15.     sprite(781).rotation = scanRotation
  16.     updateMiniMap()
  17.     if specialPlayerStats[5] > 0 then
  18.       specialPlayerStats[5] = specialPlayerStats[5] - 1
  19.       if specialPlayerStats[5] > 0 then
  20.         set the width of sprite 777 to 38 - integer((1000 - specialPlayerStats[5]) / 1000.0 * 38)
  21.       else
  22.         set the width of sprite 777 to 0
  23.         member("Mega Cannon Status").text = "Ready"
  24.       end if
  25.     end if
  26.     anchorPoint = point(0, 0) - (playerViewPoint / 100)
  27.     repeat with wX = 1 to 2
  28.       repeat while anchorPoint[wX] < 1
  29.         anchorPoint[wX] = anchorPoint[wX] + [580, 440][wX]
  30.       end repeat
  31.     end repeat
  32.     anchorPoint[1] = anchorPoint[1] mod 580
  33.     anchorPoint[2] = anchorPoint[2] mod 440
  34.     if bgAnchorRecord <> anchorPoint then
  35.       set the loc of sprite 1 to anchorPoint
  36.       set the loc of sprite 2 to anchorPoint + point(-580, 0)
  37.       set the loc of sprite 3 to anchorPoint + point(0, -440)
  38.       set the loc of sprite 4 to anchorPoint + point(-580, -440)
  39.       bgAnchorRecord = anchorPoint
  40.     end if
  41.     if shipData[1][1] = 0 then
  42.       if levelCompleteDelay > 0 then
  43.         levelCompleteDelay = levelCompleteDelay - 1
  44.         go(the frame)
  45.       else
  46.         go(30)
  47.       end if
  48.     else
  49.       if totalEnemyShips = 0 then
  50.         if levelCompleteDelay > 0 then
  51.           levelCompleteDelay = levelCompleteDelay - 1
  52.           go(the frame)
  53.         else
  54.           if playerlevel >= 4 then
  55.             go(25)
  56.           else
  57.             go(20)
  58.           end if
  59.         end if
  60.       else
  61.         go(the frame)
  62.       end if
  63.     end if
  64.   else
  65.     go(the frame)
  66.   end if
  67. end
  68.