home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / siegfried75.lua < prev    next >
Text File  |  2003-07-09  |  2KB  |  54 lines
  1. --Siegfried Fennig 16.03.2003 Rev.0
  2.  
  3. levelw = 20
  4. levelh = 13
  5.  
  6. create_world(levelw, levelh)
  7. draw_border("st-wood")
  8. enigma.ConserveLevel = FALSE
  9. enigma.SetCompatibility("oxyd1")
  10. oxyd_default_flavor = "d"
  11. fill_floor("fl-wood", 0,0, level_width,level_height)
  12. function renderLine( line, pattern)
  13.     for i=1, strlen(pattern) do
  14.       local c = strsub( pattern, i, i)
  15.       if c =="#" then
  16.          set_floor("fl-abyss",i-1,line)
  17.       elseif c == "o" then
  18.          oxyd( i-1, line)
  19.       elseif c == "b" then
  20.          set_stone("st-bombs",i-1,line)
  21.       elseif c == "x" then
  22.          set_item("it-blackbomb",i-1,line)
  23.       elseif c == "a" then
  24.          set_actor("ac-blackball",i-.5,line+.5,{player=0})
  25.       elseif c == "e" then
  26.          set_item("it-extralife",i-1,line)
  27.       elseif c == "c" then
  28.          set_item("it-crack",i-1,line,{type=3})
  29.       elseif c == "w" then
  30.          set_stone("st-wood",i-1,line)
  31.       elseif c == "d" then
  32.          dynamite(i-1,line)
  33.         end
  34.     end
  35. end
  36. --              01234567890123456789
  37. renderLine(00, "                    ")
  38. renderLine(01, " o   b    #####o### ")
  39. renderLine(02, "   ##x### ##### ### ")
  40. renderLine(03, "  # #x### ##### ### ")
  41. renderLine(04, " d# #x### ##### ### ")
  42. renderLine(05, "  #  xx  a d  #b  o ")
  43. renderLine(06, "  #######cc##  d# o ")
  44. renderLine(07, "    #bxxxxxe##### # ")
  45. renderLine(08, " o### ########### # ")
  46. renderLine(09, " #### ########### # ")
  47. renderLine(10, " #### ########### # ")
  48. renderLine(11, " ###o             # ")
  49. renderLine(12, "                    ")
  50. --              01234567890123456789
  51.  
  52. oxyd_shuffle()
  53. set_stones("st-wood", {{ 3, 6}})
  54.