home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / TroyReturns.dxr / 00203.ls < prev    next >
Encoding:
Text File  |  2002-01-31  |  933 b   |  37 lines
  1. global terrainData_Type, lastLevelSaved, updateTextFields, terrainRef, paletteScroll
  2.  
  3. on saveCleanMap wlevel
  4.   terrainData_Type = []
  5.   mapSizeX = 80
  6.   mapSizeY = 40
  7.   repeat with whichY = 1 to mapSizeY
  8.     oneLiner = []
  9.     repeat with whichX = 1 to mapSizeX
  10.       add(oneLiner, 4)
  11.     end repeat
  12.     add(terrainData_Type, oneLiner)
  13.   end repeat
  14.   if wlevel <> 0 then
  15.     member("level Data " & string(wlevel)).text = string(terrainData_Type)
  16.   end if
  17. end
  18.  
  19. on saveCurrentMap wlevel
  20.   member("level Data " & wlevel).text = string(terrainData_Type)
  21. end
  22.  
  23. on loadLevel wlevel
  24.   lastLevelSaved = wlevel
  25.   terrainData_Type = member("level Data " & string(wlevel)).text.value
  26. end
  27.  
  28. on updatePaletteTextures
  29.   global paletteSO
  30.   maxScroll = count(terrainRef) - 10
  31.   repeat with wRep = 1 to 10
  32.     wSprite = paletteSO + wRep
  33.     memName = terrainRef[paletteScroll + wRep][1][1]
  34.     set the member of sprite wSprite to memName
  35.   end repeat
  36. end
  37.