home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / siegfried93.lua < prev    next >
Encoding:
Text File  |  2003-05-09  |  2.6 KB  |  77 lines
  1. --Siegfried Fennig 09.05.2003 Rev.0
  2.  
  3. levelw = 20
  4. levelh = 13
  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.  
  11. function renderLine( line, pattern)
  12.     for i=1, strlen(pattern) do
  13.       local c = strsub( pattern, i, i)
  14.       if c =="r" then
  15.          set_stone("st-rock5",i-1,line)
  16.       elseif c == "N" then
  17.          set_stone("st-oneway",i-1,line, {orientation=enigma.NORTH})
  18.       elseif c == "W" then
  19.          set_stone("st-oneway",i-1,line, {orientation=enigma.WEST})
  20.       elseif c == "w" then
  21.          set_stone("st-wood",i-1,line)
  22.       elseif c == "1" then
  23.          set_item("it-trigger",i-1,line, {action="openclose", target="door1"})
  24.       elseif c == "(" then
  25.          doorv( i-1,line, {name="door1"})
  26.       elseif c == "2" then
  27.          set_item("it-trigger",i-1,line, {action="openclose", target="door2"})
  28.       elseif c == ")" then
  29.          doorv( i-1,line, {name="door2"})
  30.       elseif c == "3" then
  31.          set_item("it-trigger",i-1,line, {action="openclose", target="door3"})
  32.       elseif c == "!" then
  33.          doorv( i-1,line, {name="door3"})
  34.       elseif c == "4" then
  35.          set_item("it-trigger",i-1,line, {action="openclose", target="door4"})
  36.       elseif c == "?" then
  37.          doorv( i-1,line, {name="door4"})
  38.       elseif c == "B" then
  39.          set_stone("st-blocker",i-1,line)
  40.       elseif c == "x" then
  41.          set_stone("st-bolder", i-1,line, {direction=NORTH})
  42.       elseif c == "y" then
  43.          set_stone("st-bolder", i-1,line, {direction=SOUTH})
  44.       elseif c == "z" then
  45.          set_stone("st-bolder", i-1,line, {direction=WEST})
  46.       elseif c == "S" then
  47.          set_stone("st-break_acblack",i-1,line)
  48.       elseif c == "#" then
  49.          set_floor("fl-abyss",i-1,line)
  50.       elseif c == "o" then
  51.          oxyd( i-1, line)
  52.       elseif c == "a" then
  53.          set_actor("ac-blackball", i-.5,line+.5, {player=0})
  54.         end
  55.     end
  56. end
  57. --              01234567890123456789
  58. renderLine(00, "rororrrrrrorrrrrrror")
  59. renderLine(01, "r   r  yyr   #()!? r")
  60. renderLine(02, "rrB B  Szr  o#rrrr o")
  61. renderLine(03, "r rrr r      ##### r")
  62. renderLine(04, "r   r r wrrNw    W r")
  63. renderLine(05, "r r r r       ow r r")
  64. renderLine(06, "r r r r rrro rr  r r")
  65. renderLine(07, "r r   r r     ar r r")
  66. renderLine(08, "r  rrrr rrrr rr  r r")
  67. renderLine(09, "rr B   B    Szrrrr o")
  68. renderLine(10, "rrr rrr rrwwwwr   Sr")
  69. renderLine(11, "r     r   1234   rxr")
  70. renderLine(12, "rorrrorrrrrrrrrrrror")
  71. --              01234567890123456789
  72.  
  73. oxyd_shuffle()
  74.  
  75. set_item("it-dynamite", 8, 4)
  76. set_item("it-dynamite",10, 9)
  77. set_item("it-hammer",17, 1)