home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / siegfried70.lua < prev    next >
Encoding:
Text File  |  2003-05-25  |  1.6 KB  |  53 lines
  1. --Siegfried Fennig 25.05.2003 Rev.1
  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.          fill_floor("fl-swamp", i-1,line, 1,1)
  17.       elseif c == "o" then
  18.          oxyd( i-1, line)
  19.       elseif c == "r" then
  20.          set_stone("st-marble",i-1,line)
  21.       elseif c == "w" then
  22.          set_stone("st-break_acwhite",i-1,line)
  23.       elseif c == "s" then
  24.          set_stone("st-switch",i-1,line, {action="onoff", target="laser"})
  25.       elseif c == "S" then
  26.          set_stone("st-switch",i-1,line, {action="onoff", target="laser"})
  27.       elseif c == "l" then
  28.          set_attrib(laser(i-1,line, FALSE, EAST), "name", "laser")
  29.       elseif c == "a" then
  30.          set_actor("ac-blackball", i-.5,line+.5, {player=0})
  31.       elseif c == "d" then
  32.          document(i-1,line,"Let there be light!")
  33.         end
  34.     end
  35. end
  36. --              01234567890123456789
  37. renderLine(00, "                    ")
  38. renderLine(01, " o         #### oro ")
  39. renderLine(02, "           ####  r  ")
  40. renderLine(03, "           ####  r  ")
  41. renderLine(04, "           #### sr  ")
  42. renderLine(05, "           rrrrrrr  ")
  43. renderLine(06, "l         dwwwwwww  ")
  44. renderLine(07, "           rrrrrrr  ")
  45. renderLine(08, "           #### Sr  ")
  46. renderLine(09, "           ####  r  ")
  47. renderLine(10, "    a      ####  r  ")
  48. renderLine(11, " o         #### oro ")
  49. renderLine(12, "                    ")
  50. --              01234567890123456789
  51.  
  52. oxyd_shuffle()
  53.