home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / siegfried81.lua < prev    next >
Encoding:
Text File  |  2003-05-06  |  1.5 KB  |  52 lines
  1. --Siegfried Fennig 01.04.2003 Rev.0
  2.  
  3. levelw = 20
  4. levelh = 13
  5.  
  6. create_world(levelw, levelh)
  7. draw_border("st-greenbrown")
  8. enigma.ConserveLevel = FALSE
  9. oxyd_default_flavor = "a"
  10. fill_floor("fl-abyss", 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 == "e" then
  22.          set_stone("st-turnstile-e",i-1,line)
  23.       elseif c == "x" then
  24.          set_stone("st-turnstile-w",i-1,line)
  25.       elseif c == "b" then
  26.          set_stone("st-greenbrown",i-1,line)
  27.       elseif c == "w" then
  28.          set_floor("fl-wood",i-1,line)
  29.       elseif c == "o" then
  30.          oxyd( i-1, line)
  31.         end
  32.     end
  33. end
  34. --              01234567890123456789
  35. renderLine(00, " o                  ")
  36. renderLine(01, " wwnwwwwwnwwwwww  o ")
  37. renderLine(02, "   t     t   o  t w ")
  38. renderLine(03, " ww wwwww ww   wsww ")
  39. renderLine(04, "  w wwwww ww   ww w ")
  40. renderLine(05, "  wbwwwwwnwwwwwww w ")
  41. renderLine(06, "  bw     t       t  ")
  42. renderLine(07, "  nwwwwww wwww wwsw ")
  43. renderLine(08, "  te     t  ww ww w ")
  44. renderLine(09, "  wwwwwwwsw ww ww w ")
  45. renderLine(10, "  w       w  xt   w ")
  46. renderLine(11, " ow       wwww ww o ")
  47. renderLine(12, "               o    ")
  48. --              01234567890123456789
  49.  
  50. oxyd_shuffle()
  51.  
  52. set_actor("ac-blackball", 5.5, 4.5, {player=0})