home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / siegfried74.lua < prev    next >
Text File  |  2003-03-15  |  1KB  |  49 lines
  1. --Siegfried Fennig 1.02.2003 Rev.0
  2.  
  3. levelw = 20
  4. levelh = 13
  5.  
  6. create_world(levelw, levelh)
  7. draw_border("st-marble")
  8. --enigma.ConserveLevel = FALSE
  9. oxyd_default_flavor = "d"
  10. fill_floor("fl-leaves", 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 =="#" then
  16.          set_stone("st-marble",i-1,line)
  17.       elseif c == "o" then
  18.          oxyd( i-1, line)
  19.       elseif c == "h" then
  20.          set_stone("st-marble_hole",i-1,line)
  21.       elseif c == "w" then
  22.          set_stone("st-break_acblack",i-1,line)
  23.       elseif c == "a" then
  24.          set_actor("ac-blackball",i-.5,line+.5,{player=0})
  25.       elseif c == "x" then
  26.          set_stone("st-wood",i-1,line)
  27.       elseif c == "d" then
  28.          dynamite(i-1,line)
  29.         end
  30.     end
  31. end
  32. --              01234567890123456789
  33. renderLine(00, "                    ")
  34. renderLine(01, "     x        x     ")
  35. renderLine(02, "  ################  ")
  36. renderLine(03, "  #o#o#o#  #o#o#o#  ")
  37. renderLine(04, "  #w#w#w#  #w#w#w#  ")
  38. renderLine(05, "  #w#w#w#dd#w#w#w#  ")
  39. renderLine(06, "  hwhw#w#dd#w#whwh  ")
  40. renderLine(07, "  #w#w#w#  #w#w#w#  ")
  41. renderLine(08, "  #w#w#w#  #w#w#w#  ")
  42. renderLine(09, "  #  x   a    x  #  ")
  43. renderLine(10, "  ####w######w####  ")
  44. renderLine(11, "    x          x    ")
  45. renderLine(12, "                    ")
  46. --              01234567890123456789
  47.  
  48. set_item("it-hammer", 5, 1)
  49.