home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / AntiGravityBall.dxr / 00009.ls < prev    next >
Encoding:
Text File  |  2002-01-31  |  1.4 KB  |  47 lines
  1. on initializeConstants
  2.   global terrainSO, screenDimensions, screenTileSize, paletteSO, bgOffset, playerSO, monsterSO, pickupSO
  3.   terrainSO = 100
  4.   screenDimensions = point(5, 10)
  5.   screenTileSize = 50
  6.   paletteSO = 400
  7.   bgOffset = point(170, -5)
  8.   playerSO = 250
  9.   monsterSO = 255
  10.   pickupSO = 280
  11. end
  12.  
  13. on loadLevel wlevel
  14.   global terrainData_Type
  15.   lastLevelSaved = wlevel
  16.   terrainData_Type = member("level Data " & string(wlevel)).text.value
  17. end
  18.  
  19. on initializeterrainSet
  20.   global terrainRef
  21.   terrainRef = []
  22.   membername = ["BlankTile"]
  23.   add(terrainRef, [membername, 1, 1, 0, 0])
  24.   membername = ["BlankTile"]
  25.   add(terrainRef, [membername, 0, 0, 0, 0])
  26.   membername = ["ForwardTile"]
  27.   add(terrainRef, [membername, 1, 1, 0, 0])
  28.   membername = ["BackTile"]
  29.   add(terrainRef, [membername, 1, 1, 0, 0])
  30.   membername = ["Jump Tile"]
  31.   add(terrainRef, [membername, 1, 1, 0, 0])
  32.   membername = ["Normal Tile"]
  33.   add(terrainRef, [membername, 1, 1, 0, 0])
  34.   membername = ["Normal Tile"]
  35.   add(terrainRef, [membername, 1, 1, 0, 0])
  36.   membername = ["Normal Tile"]
  37.   add(terrainRef, [membername, 1, 1, 0, 0])
  38.   membername = ["Normal Tile"]
  39.   add(terrainRef, [membername, 1, 1, 0, 0])
  40.   membername = ["Normal Tile"]
  41.   add(terrainRef, [membername, 1, 1, 0, 0])
  42.   membername = ["Normal Tile"]
  43.   add(terrainRef, [membername, 1, 1, 0, 0])
  44.   membername = ["Normal Tile"]
  45.   add(terrainRef, [membername, 1, 1, 0, 0])
  46. end
  47.