home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / siegfried97.lua < prev    next >
Text File  |  2003-06-22  |  3KB  |  81 lines
  1. --Siegfried Fennig 21.06.2003 Rev.0
  2.  
  3. levelw = 20
  4. levelh = 13
  5.  
  6. create_world(levelw, levelh)
  7. enigma.ConserveLevel = FALSE
  8. oxyd_default_flavor = "d"
  9. fill_floor("fl-abyss", 0, 0, level_width, level_height)
  10. fill_floor("fl-samba", 1, 3, 6, 7)
  11. fill_floor("fl-samba",13, 3, 6, 7)
  12.  
  13. function renderLine( line, pattern)
  14.     for i=1, strlen(pattern) do
  15.       local c = strsub( pattern, i, i)
  16.       if c =="w" then
  17.          set_stone("st-wood",i-1,line)
  18.       elseif c == "r" then
  19.          set_stone("st-rock5",i-1,line)
  20.       elseif c == "s" then
  21.          set_stone("st-mail-s",i-1,line)
  22.       elseif c == "n" then
  23.          set_stone("st-mail-n",i-1,line)
  24.       elseif c == "h" then
  25.          set_item("it-pipe-h",i-1,line)
  26.       elseif c == "v" then
  27.          set_item("it-pipe-v",i-1,line)
  28.       elseif c == "N" then
  29.          set_item("it-pipe-ne",i-1,line)
  30.       elseif c == "E" then
  31.          set_item("it-pipe-es",i-1,line)
  32.       elseif c == "S" then
  33.          set_item("it-pipe-sw",i-1,line)
  34.       elseif c == "W" then
  35.          set_item("it-pipe-wn",i-1,line)
  36.       elseif c == "d" then
  37.          dynamite(i-1,line)
  38.       elseif c == "B" then
  39.          set_stone("st-bombs",i-1,line)
  40.       elseif c == "o" then
  41.          oxyd( i-1, line)
  42.       elseif c == "i" then
  43.          yy1( "white",  i-1, line)
  44.       elseif c == "j" then
  45.          yy1( "black",  i-1, line)
  46.       elseif c == "x" then
  47.          document(i-1,line,"Everything's been counted carefully!")
  48.       elseif c == "y" then
  49.          document(i-1,line,"Parts of the tubes disappear during detonation!")
  50.       elseif c == "a" then
  51.          set_actor("ac-blackball", i-.5,line+.5, {player=0})
  52.          set_item("it-yinyang", i-1, line+.5)
  53.       elseif c == "b" then
  54.          set_actor("ac-whiteball", i-.5,line+.5, {player=1})
  55.          set_item("it-yinyang", i-1, line+.5)     
  56.         end
  57.     end
  58. end
  59.  
  60. function yy1( color, x, y)
  61.         stone = format( "st-%s1", color)
  62.         set_stone( stone, x, y)
  63. end
  64.  
  65. --              01234567890123456789
  66. renderLine(00, "                    ")
  67. renderLine(01, "                    ")
  68. renderLine(02, "                    ")
  69. renderLine(03, " ojrrjo      rnrrrr ")
  70. renderLine(04, " jxd vj      ryEvSr ")
  71. renderLine(05, " r  wvr      rdvvhr ")
  72. renderLine(06, " rWwbwr      rwvwhr ")
  73. renderLine(07, " rhhhhB      BNwahr ")
  74. renderLine(08, " rNEh r      ihhhhi ")
  75. renderLine(09, " rrrrsr      oirrio ")
  76. renderLine(10, "                    ")
  77. renderLine(11, "                    ")
  78. renderLine(12, "                    ")
  79. --              01234567890123456789
  80.  
  81. oxyd_shuffle()