home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / siegfried78.lua < prev    next >
Encoding:
Text File  |  2003-03-24  |  3.5 KB  |  90 lines
  1. --Siegfried Fennig 22.03.2003 Rev.0
  2.  
  3. levelw = 58
  4. levelh = 13
  5.  
  6. create_world(levelw, levelh)
  7. --draw_border("st-rock5")
  8. enigma.ConserveLevel = FALSE
  9. oxyd_default_flavor = "b"
  10. fill_floor("fl-rough", 0,0, level_width,level_height)
  11.  
  12. function renderLine( line, pattern)
  13.     for i=1, strlen(pattern) do
  14.       local c = strsub( pattern, i, i)
  15.       if c == "g" then
  16.          set_stone("st-glass1",i-1,line)
  17.       elseif c == "f" then
  18.          fill_floor("fl-rough", i-1,line, 1,1)
  19.       elseif c == "#" then
  20.          fill_floor("fl-abyss", i-1,line, 1,1)
  21.       elseif c == "w" then
  22.          fill_floor("fl-water", i-1,line, 1,1)
  23.       elseif c == "h" then
  24.          set_stone("st-glass1_hole",i-1,line)
  25.       elseif c == "z" then
  26.          set_stone("st-wood",i-1,line)
  27.       elseif c == "b" then
  28.          set_stone("st-glass2_hole",i-1,line)
  29.       elseif c == "r" then
  30.          set_stone("st-rock5", i-1,line)
  31.       elseif c == "y" then
  32.          set_stone("st-bolder", i-1,line, {direction=NORTH})
  33.       elseif c == "i" then
  34.          set_stone("st-stoneimpulse", i-1,line)
  35.       elseif c == "l" then
  36.          set_attrib(laser(i-1,line, FALSE, NORTH), "name", "laser")
  37.       elseif c == "m" then
  38.          mirror3(i-1,line,0,0, 1)
  39.       elseif c == "n" then
  40.          mirrorp(i-1,line,0,1, 4)
  41.       elseif c == "p" then
  42.          mirrorp(i-1,line,0,1, 3)
  43.       elseif c == "q" then
  44.          mirrorp(i-1,line,0,0, 4)
  45.       elseif c == "(" then
  46.          mirrorp(i-1,line,0,0, 2)
  47.       elseif c == ")" then
  48.          mirrorp(i-1,line,0,0, 3)
  49.       elseif c == "!" then
  50.          mirrorp(i-1,line,0,0, 1)
  51.       elseif c == "s" then
  52.          mirror3(i-1,line,0,0, 4)
  53.       elseif c == "c" then
  54.          set_stone("st-coinslot", i-1,line, {action="onoff", target="laser"})
  55.       elseif c == "t" then
  56.          set_item("it-trigger", i-1,line, {action="openclose", target="door"})
  57.       elseif c == "d" then
  58.          doorh( i-1,line, {name="door"})
  59.       elseif c == "o" then
  60.          oxyd( i-1, line)
  61.       elseif c == "a" then
  62.          set_actor("ac-blackball", i-.5,line+.5, {player=0})
  63.         end
  64.     end
  65. end
  66. --                        1         2         3         4         5
  67. --              0123456789012345678901234567890123456789012345678901234567
  68. renderLine(00, "rrrrrrrrrrrrrrrrrrr####################rrrrrrrrrrrrrrrrrrr")
  69. renderLine(01, "r  gng        gyg r####################r     g q         r")
  70. renderLine(02, "r  ggg        gwg r####################r  q  g mm   gggggr")
  71. renderLine(03, "r  ggg        gwg r#########o##########r     g  m   pgirrr")
  72. renderLine(04, "r )gng q    ! gwg  bbbbbbbbbbbbbbbbbbbb   (  g      rii  r")
  73. renderLine(05, "r  ggg     mm gwg  bbbbbbbbbbbbbbbbbbbb      g      ri   r")
  74. renderLine(06, "o          mm gwg  bbbbbbbbbbbbbbbbbbbb            tzi   o")
  75. renderLine(07, "r             gwg  bbbbbbbbbbbbbbbbbbbb     hih     ri   r")
  76. renderLine(08, "r  a          gwg r#########o##########r    hir s   ri   r")
  77. renderLine(09, "r             gwg r####################r    hir gggggirdrr")
  78. renderLine(10, "r      m    m gwg r####################r  ( hiz     ggg gr")
  79. renderLine(11, "r                 r####################r    hi g         r")
  80. renderLine(12, "rrlcrrrrrrrrrrrrrrr####################rrrrrrrrrrrrrrrrrrr")
  81. --              0123456789012345678901234567890123456789012345678901234567
  82. --                        1         2         3         4         5
  83.  
  84. oxyd_shuffle()
  85.  
  86. set_item("it-coin",19, 4,{value=1})
  87. set_item("it-coin",34, 4,{value=1})
  88. set_item("it-coin",25, 7,{value=1})
  89. set_item("it-coin",36, 7,{value=1})
  90.