home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / siegfried92.lua < prev    next >
Encoding:
Text File  |  2003-05-04  |  2.2 KB  |  76 lines
  1. --Siegfried Fennig 04.05.2003 Rev.0
  2.  
  3. levelw = 20
  4. levelh = 13
  5.  
  6. create_world(levelw, levelh)
  7. draw_border("st-rock7")
  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 =="t" then
  16.          set_stone("st-turnstile",i-1,line)
  17.       elseif c == "n" then
  18.          set_stone("st-turnstile-n",i-1,line)
  19.       elseif c == "s" then
  20.          set_stone("st-turnstile-s",i-1,line)
  21.       elseif c == "r" then
  22.          set_stone("st-rock7",i-1,line)
  23.       elseif c == "S" then
  24.          set_stone("st-swap",i-1,line)
  25.       elseif c == "x" then
  26.          set_stone("st-block",i-1,line)
  27.       elseif c == "d" then
  28.          set_stone("st-death",i-1,line)
  29.       elseif c == "g" then
  30.          set_stone("st-grate1",i-1,line)
  31.       elseif c == "h" then
  32.          set_item("it-hollow",i-1,line)
  33.       elseif c == "W" then
  34.          yy1( "white",  i-1, line)
  35.       elseif c == "B" then
  36.          yy1( "black",  i-1, line)
  37.       elseif c == "f" then
  38.          set_stone("st-fakeoxyd",i-1,line)
  39.       elseif c == "o" then
  40.          oxyd( i-1, line)
  41.       elseif c == "#" then
  42.          set_floor("fl-water",i-1,line)
  43.       elseif c == "a" then
  44.          set_actor("ac-blackball", i-.5,line+.5, {player=0})
  45.          set_item("it-yinyang", i-1, line+.5)
  46.       elseif c == "b" then
  47.          set_actor("ac-whiteball", i-.5,line+.5, {player=1})
  48.          set_item("it-yinyang", i-1, line+.5)
  49.         end
  50.     end
  51. end
  52.  
  53. function yy1( color, x, y)
  54.         stone = format( "st-%s1", color)
  55.         set_stone( stone, x, y)
  56.         set_item("it-hollow", x, y)
  57. end
  58.  
  59. --              01234567890123456789
  60. renderLine(00, "               fdod ")
  61. renderLine(01, "     r        gWhBhd")
  62. renderLine(02, "     r    ### ghghBo")
  63. renderLine(03, "     r    ### gBhghd")
  64. renderLine(04, "     n   #### ghghWo")
  65. renderLine(05, "    rt  ###   gWhghd")
  66. renderLine(06, " a   s####    ghghBo")
  67. renderLine(07, "   x r        gBhghd")
  68. renderLine(08, "     W bSx    ghghWf")
  69. renderLine(09, "     r        gWhghd")
  70. renderLine(10, "     r        ghghBf")
  71. renderLine(11, "     r        gBhWhd")
  72. renderLine(12, "               odod ")
  73. --              01234567890123456789
  74.  
  75. oxyd_shuffle()
  76.