home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / siegfried86.lua < prev    next >
Encoding:
Text File  |  2003-04-21  |  2.2 KB  |  62 lines
  1. --Siegfried Fennig 21.04.2003 Rev.0
  2.  
  3. levelw = 20
  4. levelh = 13
  5.  
  6. create_world(levelw, levelh)
  7. enigma.ConserveLevel = FALSE
  8. oxyd_default_flavor = "c"
  9. fill_floor("fl-abyss", 0, 0, level_width, level_height)
  10. fill_floor("fl-gray", 1, 2, 18, 9)
  11.  
  12. function renderLine( line, pattern)
  13.     for i=1, strlen(pattern) do
  14.       local c = strsub( pattern, i, i)
  15.       if c =="N" then
  16.          set_stone("st-oneway_black",i-1,line,{orientation=enigma.NORTH})
  17.       elseif c == "n" then
  18.          set_stone("st-oneway_white",i-1,line,{orientation=enigma.NORTH})
  19.       elseif c == "E" then
  20.          set_stone("st-oneway_black",i-1,line,{orientation=enigma.EAST})
  21.       elseif c == "e" then
  22.          set_stone("st-oneway_white",i-1,line,{orientation=enigma.EAST})
  23.       elseif c == "S" then
  24.          set_stone("st-oneway_black",i-1,line,{orientation=enigma.SOUTH})
  25.       elseif c == "s" then
  26.          set_stone("st-oneway_white",i-1,line,{orientation=enigma.SOUTH})
  27.       elseif c == "W" then
  28.          set_stone("st-oneway_black",i-1,line,{orientation=enigma.WEST})
  29.       elseif c == "w" then
  30.          set_stone("st-oneway_white",i-1,line,{orientation=enigma.WEST})
  31.       elseif c == "h" then
  32.          set_stone("st-wood",i-1,line)
  33.       elseif c == "r" then
  34.          set_stone("st-greenbrown",i-1,line)
  35.       elseif c == "o" then
  36.          oxyd( i-1, line)
  37.       elseif c == "a" then
  38.          set_actor("ac-blackball", i-.5,line+.5, {player=0})
  39.          set_item("it-yinyang", i-1, line+.5)
  40.       elseif c == "b" then
  41.          set_actor("ac-whiteball", i-.5,line+.5, {player=1})
  42.          set_item("it-yinyang", i-1, line+.5)
  43.         end
  44.     end
  45. end
  46. --              01234567890123456789
  47. renderLine(00, "                    ")
  48. renderLine(01, "    o   o   o   o   ")
  49. renderLine(02, " rrrnrrrNrrrnrrrNrr ")
  50. renderLine(03, "oW r   e  S       eo")
  51. renderLine(04, " r  h h W n rr r hr ")
  52. renderLine(05, "ow r r rrNnr  w h Eo")
  53. renderLine(06, " r h r  Wbae hr r r ")
  54. renderLine(07, "oW rr r rsSrr  N  eo")
  55. renderLine(08, " r  h  E h  r r h r ")
  56. renderLine(09, "ow   rn   r   r   Eo")
  57. renderLine(10, " rrrSrrrsrrrSrrrsrr ")
  58. renderLine(11, "    o   o   o   o   ")
  59. renderLine(12, "                    ")
  60. --              01234567890123456789
  61.  
  62. oxyd_shuffle()