home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / siegfried99.lua < prev    next >
Encoding:
Text File  |  2003-07-07  |  3.5 KB  |  102 lines
  1. --Siegfried Fennig 08.07.2003 Rev.0
  2.  
  3. levelw = 20
  4. levelh = 25
  5.  
  6. create_world(levelw, levelh)
  7. draw_border("st-stone1")
  8. enigma.ConserveLevel = FALSE
  9. oxyd_default_flavor = "d"
  10. fill_floor("fl-concrete", 0, 0, level_width, level_height)
  11. fill_floor("fl-abyss", 1, 13, 18, 11)
  12. fill_floor("fl-concrete", 9, 14, 2, 2)
  13.  
  14. function renderLine( line, pattern)
  15.     for i=1, strlen(pattern) do
  16.       local c = strsub( pattern, i, i)
  17.       if c == "g" then
  18.          set_floor("fl-concrete",i-1,line)
  19.       elseif c == "r" then
  20.          set_stone("st-rock3",i-1,line)
  21.       elseif c == "s" then
  22.          set_stone("st-shogun",i-1,line)
  23.       elseif c == "1" then
  24.          set_stone("st-switch",i-1,line, {action="openclose", target="door1"})
  25.       elseif c == "F" then
  26.          doorh( i-1,line, {name="door1"})
  27.       elseif c == "2" then
  28.          set_stone("st-switch",i-1,line, {action="openclose", target="door2"})
  29.       elseif c == "E" then
  30.          doorh( i-1,line, {name="door2"})
  31.       elseif c == "3" then
  32.          set_stone("st-switch",i-1,line, {action="openclose", target="door3"})
  33.       elseif c == "G" then
  34.          doorh( i-1,line, {name="door3"})
  35.       elseif c == "4" then
  36.          set_stone("st-switch",i-1,line, {action="openclose", target="door4"})
  37.       elseif c == "H" then
  38.          doorh( i-1,line, {name="door4"})
  39.       elseif c == "5" then
  40.          set_stone("st-switch",i-1,line, {action="openclose", target="door5"})
  41.       elseif c == "A" then
  42.          doorh( i-1,line, {name="door5"})
  43.       elseif c == "6" then
  44.          set_stone("st-switch",i-1,line, {action="openclose", target="door6"})
  45.       elseif c == "D" then
  46.          doorh( i-1,line, {name="door6"})
  47.       elseif c == "7" then
  48.          set_stone("st-switch",i-1,line, {action="openclose", target="door7"})
  49.       elseif c == "B" then
  50.          doorh( i-1,line, {name="door7"})
  51.       elseif c == "S" then
  52.          shogundot1( i-1,line, {action="openclose", target="door8"})
  53.       elseif c == "C" then
  54.          doorh( i-1,line, {name="door8"})
  55.       elseif c == "X" then
  56.          shogundot1( i-1,line)
  57.       elseif c == "u" then
  58.          set_item("it-umbrella",i-1,line)
  59.       elseif c == "k" then
  60.          set_item("it-coffee",i-1,line)
  61.       elseif c == "h" then
  62.          set_item("it-cherry",i-1,line)
  63.       elseif c == "d" then
  64.          document(i-1,line,"Umbrellas prevent free fall!")
  65.       elseif c == "o" then
  66.          oxyd( i-1, line)
  67.       elseif c == "a" then
  68.          set_actor("ac-blackball", i-.5,line+.5, {player=0})
  69.         end
  70.     end
  71. end
  72. --              01234567890123456789
  73. renderLine(00, "                    ")
  74. renderLine(01, " or              ro ")
  75. renderLine(02, "5ur              ru ")
  76. renderLine(03, " Er              rF ")
  77. renderLine(04, "         SX         ")
  78. renderLine(05, "                    ")
  79. renderLine(06, "                    ")
  80. renderLine(07, "                    ")
  81. renderLine(08, "                    ")
  82. renderLine(09, " Gr              rH ")
  83. renderLine(10, "6ur      a       ru7")
  84. renderLine(11, " or              ro ")
  85. renderLine(12, " ssssssssssssssssss ")
  86. renderLine(13, " rrr    gggg    rrr ")
  87. renderLine(14, " r1r     uh     r2r ")
  88. renderLine(15, " rAr     kd     rBr ")
  89. renderLine(16, "                    ")
  90. renderLine(17, "                    ")
  91. renderLine(18, "                    ")
  92. renderLine(19, "                    ")
  93. renderLine(20, "                    ")
  94. renderLine(21, " rCr            rDr ")
  95. renderLine(22, " r3r            r4r ")
  96. renderLine(23, " rrr            rrr ")
  97. renderLine(24, "                    ")
  98. --              01234567890123456789
  99.  
  100. oxyd_shuffle()
  101.  
  102. set_item("it-umbrella", 4, 12)