home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / EntertheTroy.dxr / 00003.ls < prev    next >
Encoding:
Text File  |  2002-01-31  |  2.9 KB  |  82 lines
  1. on exitFrame me
  2.   global playerViewpoint, anchorViewPoint, playerLocData, playerSO, screenTileSize, updateTextFields, animDelay, animNumber, gFrameTimer, terrainData_Type, locksOpened, maxLocks, lockedOffReigon, playerHealth, portalIndex, playerInventory, playerlevel, updateScoreDisplayNOW, playerScore, levelScore
  3.   if (gFrameTimer + 1) < the ticks then
  4.     gFrameTimer = the ticks
  5.     animNumber = animNumber + 1
  6.     moveSpeed = findDistance(playerViewpoint, anchorViewPoint)
  7.     moveAim = findAngle(playerViewpoint, anchorViewPoint)
  8.     locY = integer(cos(moveAim * PI / 180) * -(moveSpeed * 0.10000000000000001))
  9.     locX = integer(sin(moveAim * PI / 180) * (moveSpeed * 0.10000000000000001))
  10.     viewChangerooRec = playerViewpoint / screenTileSize
  11.     playerViewpoint = playerViewpoint + point(locX, locY)
  12.     if playerViewpoint[1] < 20 then
  13.       playerViewpoint[1] = 20
  14.     end if
  15.     if playerViewpoint[2] < 20 then
  16.       playerViewpoint[2] = 20
  17.     end if
  18.     xView = ((count(terrainData_Type[1]) - 11) * screenTileSize) + 20
  19.     yView = ((count(terrainData_Type) - 11) * screenTileSize) + 20
  20.     if playerViewpoint[1] > xView then
  21.       playerViewpoint[1] = xView
  22.     end if
  23.     if playerViewpoint[2] > yView then
  24.       playerViewpoint[2] = yView
  25.     end if
  26.     viewChangerooNew = playerViewpoint / screenTileSize
  27.     movePlayer()
  28.     moveMonsters()
  29.     movePickups()
  30.     repositionTerrain()
  31.     if viewChangerooRec <> viewChangerooNew then
  32.       redrawTerrainPics()
  33.     end if
  34.     randomValue = point(playerLocData[3][1], playerLocData[3][2])
  35.     moveParticles()
  36.     if locksOpened = maxLocks then
  37.       repeat with wY = lockedOffReigon[2] to lockedOffReigon[4]
  38.         repeat with wX = lockedOffReigon[1] to lockedOffReigon[3]
  39.           rpoint = (point(wX, wY) * 50) - 25
  40.           addPickup(1, 1, rpoint, point(random(3) - 2, -1 - random(4)))
  41.           terrainData_Type[wY][wX] = 1
  42.         end repeat
  43.       end repeat
  44.       locksOpened = 0
  45.       redrawTerrainPics()
  46.     end if
  47.     repeat with wBulb = 1 to 3
  48.       if wBulb <= playerHealth then
  49.         set the member of sprite (410 + wBulb) to "Health Bulb On"
  50.         next repeat
  51.       end if
  52.       set the member of sprite (410 + wBulb) to "Health Bulb Off"
  53.     end repeat
  54.     if inside(playerLocData[3], portalIndex[1]) = 1 then
  55.       if playerlevel >= 3 then
  56.         go(35)
  57.       else
  58.         go(30)
  59.       end if
  60.     else
  61.       if playerLocData[11] > 200 then
  62.         if playerInventory[3] > 0 then
  63.           playerlevel = playerlevel - 1
  64.           playerInventory[3] = playerInventory[3] - 1
  65.           playerInventory[1] = 0
  66.           go(5)
  67.         else
  68.           go(40)
  69.         end if
  70.       else
  71.       end if
  72.     end if
  73.     if updateScoreDisplayNOW = 1 then
  74.       if updateTextFields = 1 then
  75.         member("Score Display").text = string(playerScore + levelScore)
  76.       end if
  77.       updateScoreDisplayNOW = 0
  78.     end if
  79.   end if
  80.   go(the frame)
  81. end
  82.