home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / siegfried94.lua < prev    next >
Text File  |  2003-05-11  |  3KB  |  101 lines
  1. --Siegfried Fennig 12.05.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-leaves", 0, 0, level_width, level_height)
  10.  
  11. function renderLine( line, pattern)
  12.     for i=1, strlen(pattern) do
  13.       local c = strsub( pattern, i, i)
  14.       if c =="r" then
  15.          set_stone("st-rock7",i-1,line)
  16.       elseif c == "w" then
  17.          set_stone("st-wood",i-1,line)
  18.       elseif c == "C" then
  19.          set_item("it-trigger",i-1,line, {action="callback", target="bl1"})
  20.       elseif c == "c" then
  21.          set_stone("st-blocker",i-1,line, {name="blocker1"})
  22.       elseif c == "D" then
  23.          set_item("it-trigger",i-1,line, {action="callback", target="bl2"})
  24.       elseif c == "d" then
  25.          set_stone("st-blocker",i-1,line, {name="blocker2"})
  26.       elseif c == "E" then
  27.          set_item("it-trigger",i-1,line, {action="callback", target="bl3"})
  28.       elseif c == "e" then
  29.          set_stone("st-blocker",i-1,line, {name="blocker3"})
  30.       elseif c == "F" then
  31.          set_item("it-trigger",i-1,line, {action="callback", target="bl4"})
  32.       elseif c == "f" then
  33.          set_stone("st-blocker",i-1,line, {name="blocker4"})
  34.       elseif c == "G" then
  35.          set_item("it-trigger",i-1,line, {action="callback", target="bl5"})
  36.       elseif c == "g" then
  37.          set_stone("st-blocker",i-1,line, {name="blocker5"})
  38.       elseif c == "H" then
  39.          set_item("it-trigger",i-1,line, {action="callback", target="bl6"})
  40.       elseif c == "h" then
  41.          set_stone("st-blocker",i-1,line, {name="blocker6"})
  42.       elseif c == "#" then
  43.          set_floor("fl-water",i-1,line)
  44.       elseif c == "o" then
  45.          oxyd( i-1, line)
  46.       elseif c == "a" then
  47.          set_actor("ac-blackball", i-.5,line+.5, {player=0})
  48.          set_item("it-yinyang", i-1, line+.5)
  49.       elseif c == "b" then
  50.          set_actor("ac-whiteball", i-.5,line+.5, {player=1})
  51.          set_item("it-yinyang", i-1, line+.5)
  52.         end
  53.     end
  54. end
  55. --              01234567890123456789
  56. renderLine(00, "rrrrrrrrrrrrrrrrrrrr")
  57. renderLine(01, "rrrrrrrrrrrrrrrrrrrr")
  58. renderLine(02, "r   rrr  r     r   r")
  59. renderLine(03, "r rw     d  rr  wrgr")
  60. renderLine(04, "r c   rrrr D      Gr")
  61. renderLine(05, "r w #### abe#### rrr")
  62. renderLine(06, "r w #oo#r  E#oo#   r")
  63. renderLine(07, "rrC #oo# Frr#oo#H  r")
  64. renderLine(08, "r rr#### f r####hrrr")
  65. renderLine(09, "r w     r w wr r w r")
  66. renderLine(10, "r       r    r     r")
  67. renderLine(11, "rrrrrrrrrrrrrrrrrrrr")
  68. renderLine(12, "rrrrrrrrrrrrrrrrrrrr")
  69. --              01234567890123456789
  70.  
  71. oxyd_shuffle()
  72.  
  73. function bl1()
  74.         b1=enigma.GetNamedObject("blocker1")
  75.         enigma.SendMessage(b1, "trigger", nil)
  76. end
  77.  
  78. function bl2()
  79.         b1=enigma.GetNamedObject("blocker2")
  80.         enigma.SendMessage(b1, "trigger", nil)
  81. end
  82.  
  83. function bl3()
  84.         b1=enigma.GetNamedObject("blocker3")
  85.         enigma.SendMessage(b1, "trigger", nil)
  86. end
  87.  
  88. function bl4()
  89.         b1=enigma.GetNamedObject("blocker4")
  90.         enigma.SendMessage(b1, "trigger", nil)
  91. end
  92.  
  93. function bl5()
  94.         b1=enigma.GetNamedObject("blocker5")
  95.         enigma.SendMessage(b1, "trigger", nil)
  96. end
  97.  
  98. function bl6()
  99.         b1=enigma.GetNamedObject("blocker6")
  100.         enigma.SendMessage(b1, "trigger", nil)
  101. end