home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / siegfried80.lua < prev    next >
Text File  |  2003-03-26  |  2KB  |  55 lines
  1. --Siegfried Fennig 26.03.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-abyss", 0, 0, level_width, level_height)
  11. fill_floor("fl-himalaya", 2, 2, 16, 9)
  12.  
  13. function renderLine( line, pattern)
  14.     for i=1, strlen(pattern) do
  15.       local c = strsub( pattern, i, i)
  16.       if c =="g" then
  17.          set_stone("st-glass1",i-1,line)
  18.       elseif c == "o" then
  19.          oxyd( i-1, line)
  20.       elseif c == "m" then
  21.          mirror3(i-1,line,0,0,2)
  22.       elseif c == "n" then
  23.          mirrorp(i-1,line,0,0,3)
  24.       elseif c == "p" then
  25.          mirrorp(i-1,line,0,1,3)
  26.       elseif c == "e" then
  27.          set_attrib(laser(i-1,line, TRUE, EAST), "name", "laser1")
  28.       elseif c == "w" then
  29.          set_attrib(laser(i-1,line, TRUE, WEST), "name", "laser2")
  30.       elseif c == "a" then
  31.          set_actor("ac-blackball", i-.5,line+.5, {player=0})
  32.          set_item("it-yinyang", i-1, line+.5)
  33.       elseif c == "b" then
  34.          set_actor("ac-whiteball", i-.5,line+.5, {player=1})
  35.          set_item("it-yinyang", i-1, line+.5)
  36.         end
  37.     end
  38. end
  39. --              01234567890123456789
  40. renderLine(00, "        o  o        ")
  41. renderLine(01, "                    ")
  42. renderLine(02, "o  n    mg m  n    o")
  43. renderLine(03, "         g          ")
  44. renderLine(04, "         g          ")
  45. renderLine(05, "     mm  gb  mm     ")
  46. renderLine(06, "e  p mm mggm mm p  w")
  47. renderLine(07, "     mm  ag  mm     ")
  48. renderLine(08, "          g         ")
  49. renderLine(09, "          g         ")
  50. renderLine(10, "o  n    m gm  n    o")
  51. renderLine(11, "                    ")
  52. renderLine(12, "     o        o     ")
  53. --              01234567890123456789
  54.  
  55. oxyd_shuffle()