home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / RayWick002.lua < prev    next >
Text File  |  2003-08-27  |  3KB  |  224 lines
  1. -- Switch - Extra
  2.  
  3. -- Created by Ray Wick
  4.  
  5. --
  6.  
  7.  
  8.  
  9.  
  10. LAND_FLOOR = "fl-wood"
  11.  
  12. SOFT_FLOOR = "fl-hay"
  13.  
  14. WATER_FLOOR = "fl-water"
  15.  
  16. WALL = "st-rock4"
  17.  
  18.  
  19. function color_block( color, x, y)
  20.  
  21.        stone = format( "st-%s4", color)
  22.  
  23.        set_stone( stone, x, y)
  24.  
  25. end
  26.  
  27. level = {
  28.  
  29.     "#@#A######X###L###@#",
  30.  
  31.     "@W   V  @@  W   a V@",
  32.  
  33.     "@W   > ~~~~ <     V@",
  34.  
  35.     "@W   #~~~~~~#     V@",
  36.  
  37.     "@W   ~~~~~~~~     V@",
  38.  
  39.     "@W   ~~~~~~~~     V@",
  40.  
  41.     "#*   ~~~~M~~~   x .#",
  42.  
  43.     "#V+  ~~~~~~~~  #s+W#",
  44.  
  45.     "#V+  ~~~~~~~~  #xsW#",
  46.  
  47.     "#V+  #~~~~~~#  #MsW#",
  48.  
  49.     "#V+  < ~~~~ >  #xsW#",
  50.  
  51.     "#V+  V  +   W  #x+W#",
  52.  
  53.     "####################"
  54.  
  55. }
  56.  
  57.  
  58. cells = {}
  59.  
  60. cells["#"] = function( x, y )
  61.  
  62.     set_stone( WALL, x, y )
  63.  
  64. end
  65.  
  66. cells["*"] = function( x, y )
  67.  
  68.     set_floor( LAND_FLOOR, x, y )
  69.  
  70.     set_actor( "ac-blackball", x+0.5, y+0.5, {player=0} )
  71.  
  72.     set_item( "it-yinyang", x, y+0.5 )
  73.  
  74. end
  75.  
  76. cells["."] = function( x, y )
  77.  
  78.     set_floor( LAND_FLOOR, x, y )
  79.  
  80.     set_actor( "ac-whiteball", x+0.5, y+0.5, {player=1} )
  81.  
  82.     set_item( "it-yinyang", x, y+0.5 )
  83.  
  84. end
  85.  
  86. cells["@"] = function( x, y )
  87.  
  88.     set_floor( LAND_FLOOR, x, y )
  89.  
  90.     oxyd(x,y)
  91.  
  92. end
  93.  
  94. cells["+"] = function( x, y )
  95.  
  96.     set_floor( LAND_FLOOR, x, y )
  97.  
  98.     set_stone( "st-wood", x, y )
  99.  
  100. end
  101.  
  102. cells["~"] = function( x, y )
  103.  
  104.     set_floor( WATER_FLOOR, x, y )
  105.  
  106. end
  107.  
  108. cells["<"] = function( x, y )
  109.  
  110.     set_floor( LAND_FLOOR, x, y )
  111.  
  112.     set_stone( "st-oneway", x, y, {orientation=WEST})
  113.  
  114. end
  115.  
  116. cells[">"] = function( x, y )
  117.  
  118.     set_floor( LAND_FLOOR, x, y )
  119.  
  120.     set_stone( "st-oneway", x, y, {orientation=EAST})
  121.  
  122. end
  123.  
  124. cells["s"] = function( x, y )
  125.  
  126.     set_floor( LAND_FLOOR, x, y )
  127.  
  128.     set_item( "it-blackbomb", x, y )
  129.  
  130.     set_stone( "st-wood", x, y )
  131.  
  132. end
  133.  
  134. cells["x"] = function( x, y )
  135.  
  136.     set_floor( LAND_FLOOR, x, y )
  137.  
  138.     set_item( "it-blackbomb", x, y )
  139.  
  140. end
  141.  
  142. cells[" "] = function( x, y )
  143.  
  144.     set_floor( LAND_FLOOR, x,y )
  145.  
  146. end
  147.  
  148. cells["A"] = function( x, y )
  149.  
  150.     set_floor( LAND_FLOOR, x, y )
  151.  
  152.     set_stone( "st-key_a", x, y, {target="laser", action="onoff" })
  153.  
  154. end
  155.  
  156. cells["L"] = function( x, y )
  157.  
  158.     set_floor( SOFT_FLOOR, x, y )
  159.  
  160.     set_attrib(laser(x, y, FALSE, SOUTH), "name", "laser")
  161.  
  162. end
  163.  
  164. cells["M"] = function( x, y )
  165.  
  166.     set_floor( LAND_FLOOR, x, y )
  167.  
  168.     set_stone( "st-pmirror", x, y, {movable=1, transparent=0, orientation=2 })
  169.  
  170. end
  171.  
  172. cells["V"] = function( x, y )
  173.  
  174.     set_floor( LAND_FLOOR, x, y )
  175.  
  176.     color_block( "black", x, y)
  177.  
  178. end
  179.  
  180. cells["W"] = function( x, y )
  181.  
  182.     set_floor( LAND_FLOOR, x, y )
  183.  
  184.     color_block( "white", x, y)
  185.  
  186. end
  187.  
  188. cells["X"] = function( x, y )
  189.  
  190.     set_stone( "st-bombs", x, y )
  191.  
  192. end
  193.  
  194. cells["a"] = function( x, y )
  195.  
  196.     set_floor( LAND_FLOOR, x, y )
  197.  
  198. --    set_stone( "st-wood", x, y )
  199.  
  200.     set_item( "it-key_a", x, y )
  201.  
  202. end
  203.  
  204.  
  205.  
  206. create_world( strlen(level[1]), getn(level) )
  207.  
  208. for y,line in level do
  209.  
  210.     for x = 1,strlen(line) do
  211.  
  212.         cell = strchar(strbyte(line,x))
  213.  
  214.         cells[cell]( x-1, y-1 )
  215.  
  216.     end
  217.  
  218. end
  219.  
  220. oxyd_shuffle()
  221.  
  222. oxyd_shuffle()
  223.  
  224.