home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / siegfried102.lua < prev    next >
Text File  |  2003-07-27  |  4KB  |  93 lines
  1. --Siegfried Fennig 27.07.2003 Rev.0
  2.  
  3. levelw = 20
  4. levelh = 25
  5.  
  6. create_world(levelw, levelh)
  7. enigma.ConserveLevel = FALSE
  8. oxyd_default_flavor = "d"
  9. fill_floor("fl-rough", 0,0, level_width,level_height)
  10. SetDefaultAttribs("it-wormhole", {range = 1.0, strength = 10})
  11.  
  12. function renderLine( line, pattern)
  13.     for i=1, strlen(pattern) do
  14.       local c = strsub( pattern, i, i)
  15.       if c == "b" then
  16.          set_stone("st-break_bolder",i-1,line)
  17.       elseif c == "o" then
  18.          oxyd( i-1, line)
  19.       elseif c == "g" then
  20.          set_stone("st-grate1",i-1,line)
  21.       elseif c == "x" then
  22.          set_stone("st-blocker",i-1,line)
  23.       elseif c == "r" then
  24.          set_stone("st-stone1",i-1,line)
  25.       elseif c == "i" then
  26.          set_stone("st-stoneimpulse",i-1,line)
  27.       elseif c == "y" then
  28.          set_stone("st-brake",i-1,line)
  29.       elseif c == "w" then
  30.          set_floor("fl-water",i-1,line)
  31.       elseif c == "s" then
  32.          set_stone("st-swap",i-1,line)
  33.       elseif c == "L" then
  34.          set_stone("st-rotator_move-left",i-1,line)
  35.       elseif c == "R" then
  36.          set_stone("st-rotator_move-right",i-1,line)
  37.       elseif c == "B" then
  38.          set_stone("st-bolder", i-1,line, {direction=NORTH})
  39.       elseif c == "E" then
  40.          set_stone("st-oneway",i-1,line, {orientation=enigma.EAST})
  41.       elseif c == "1" then
  42.          set_stone("st-timeswitch",i-1,line, {action="openclose", target="door1"})
  43.       elseif c == "2" then
  44. --         set_stone("st-door",i-1,line, {name="door1",  type="h"})
  45.          set_stone("st-door_a",i-1,line, {name="door1",  type="h"})
  46.       elseif c == "3" then
  47.          set_stone("st-timeswitch",i-1,line, {action="openclose", target="door2"})
  48.       elseif c == "4" then
  49. --         set_stone("st-door",i-1,line, {name="door2",  type="h"})
  50.          set_stone("st-door_a",i-1,line, {name="door2",  type="h"})
  51.       elseif c == "5" then
  52.          set_stone("st-timeswitch",i-1,line, {action="openclose", target="door3"})
  53.       elseif c == "6" then
  54. --         set_stone("st-door",i-1,line, {name="door3",  type="h"})
  55.          set_stone("st-door_a",i-1,line, {name="door3",  type="h"})
  56.       elseif c == "z" then
  57.          set_item("it-wrench",i-1,line)
  58.       elseif c == "f" then
  59.          set_item("it-flagblack",i-1,line)
  60.       elseif c == "W" then
  61.          set_item("it-wormhole",i-1,line, {targetx=" 1.5",targety="20.5"})
  62.       elseif c == "a" then
  63.          set_actor("ac-blackball", i-.5,line+.5, {player=0})
  64.         end
  65.     end
  66. end
  67. --              01234567890123456789
  68. renderLine(00, "rrrrrrrrrrrrrrrrrrrr")
  69. renderLine(01, "rrR     R          r")
  70. renderLine(02, "rR                 r")
  71. renderLine(03, "r      rxrr        r")
  72. renderLine(04, "rrxrrrrrzar        r")
  73. renderLine(05, "r    Wryfsrrrrr    r")
  74. renderLine(06, "r b   rggxggggr    r")
  75. renderLine(07, "r b   rgsrrRrgr    r")
  76. renderLine(08, "r b   rgR   rgr    r")
  77. renderLine(09, "r b   rgr rBrgr    r")
  78. renderLine(10, "r b   rgr   Rgr    r")
  79. renderLine(11, "r b   rgrRrrrgr    r")
  80. renderLine(12, "r b   rgggggggr    r")
  81. renderLine(13, "r b   rrrrrrrrr    r")
  82. renderLine(14, "r b   r            r")
  83. renderLine(15, "r b   r            r")
  84. renderLine(16, "r b   r            r")
  85. renderLine(17, "r   rrr            r")
  86. renderLine(18, "r   riiiiiiiiiiiiiii")
  87. renderLine(19, "r         i     i  i")
  88. renderLine(20, "r L iiii1 iiiii E  i")
  89. renderLine(21, "rwwwi     i   i6i ri")
  90. renderLine(22, "rwwwi23iiii45 i rosi")
  91. renderLine(23, "rwowi       i   i ri")
  92. renderLine(24, "rrrriiiiiiiiiiiiiiii")
  93. --              01234567890123456789