home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / AntiGravityBall.dxr / 00022.ls < prev    next >
Encoding:
Text File  |  2002-01-31  |  664 b   |  24 lines
  1. on splitMap
  2.   tempTerrain = member("Old level Data 1").text.value
  3.   section1 = []
  4.   section2 = []
  5.   repeat with wSection = 1 to 700
  6.     if wSection <= 400 then
  7.       add(section1, tempTerrain[wSection])
  8.       next repeat
  9.     end if
  10.     add(section2, tempTerrain[wSection])
  11.   end repeat
  12.   member("level Data 1").text = string(section1)
  13.   member("level Data 2").text = string(section2)
  14. end
  15.  
  16. on extendmap wmap
  17.   tempTerrain = member("Level Data " & string(wmap)).text.value
  18.   repeat with wAdd = 1 to 10
  19.     add(tempTerrain, [1, 1, 1, 1, 1])
  20.     addAt(tempTerrain, 1, [1, 1, 1, 1, 1])
  21.   end repeat
  22.   member("level Data " & string(wmap)).text = string(tempTerrain)
  23. end
  24.