home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / siegfried95.lua < prev    next >
Text File  |  2003-05-17  |  7KB  |  221 lines
  1. --Siegfried Fennig 17.05.2003 Rev. 0
  2.  
  3. levelw = 20
  4. levelh = 49
  5.  
  6. create_world(levelw, levelh)
  7. enigma.ConserveLevel = FALSE
  8. oxyd_default_flavor = "d"
  9. fill_floor("fl-normal", 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-rock1",i-1,line)
  16.       elseif c == "R" then
  17.          set_stone("st-rock1_hole",i-1,line)
  18.       elseif c == "1" then
  19.          set_floor("fl-gradient",  i-1,  line, {type=21})
  20.       elseif c == "3" then
  21.          set_floor("fl-gradient",  i-1,  line, {type=23})
  22.       elseif c == "4" then
  23.          set_floor("fl-gradient",  i-1,  line, {type=24})
  24.       elseif c == "D" then
  25.          set_stone("st-death",i-1,line)
  26.       elseif c == "T" then
  27.          set_stone("st-timeswitch",i-1,line)
  28.       elseif c == "e" then
  29.          set_stone("st-timeswitch",i-1,line, {action="callback", target="callback1"})
  30.       elseif c == "f" then
  31.          set_stone("st-timeswitch",i-1,line, {action="callback", target="callback2"})
  32.       elseif c == "g" then
  33.          set_stone("st-timeswitch",i-1,line, {action="callback", target="callback3"})
  34.       elseif c == "h" then
  35.          set_stone("st-timeswitch",i-1,line, {action="callback", target="callback4"})
  36.       elseif c == "i" then
  37.          set_stone("st-timeswitch",i-1,line, {action="callback", target="callback5"})
  38.       elseif c == "j" then
  39.          set_stone("st-timeswitch",i-1,line, {action="callback", target="callback6"})
  40.       elseif c == "k" then
  41.          set_stone("st-timeswitch",i-1,line, {action="callback", target="callback7"})
  42.       elseif c == "l" then
  43.          set_stone("st-timeswitch",i-1,line, {action="callback", target="callback8"})
  44.       elseif c == "m" then
  45.          set_stone("st-timeswitch",i-1,line, {action="callback", target="callback9"})
  46.       elseif c == "E" then
  47.          set_stone("st-timeswitch",i-1,line, {action="callback", target="callback10"})
  48.       elseif c == "F" then
  49.          set_stone("st-timeswitch",i-1,line, {action="callback", target="callback11"})
  50.       elseif c == "G" then
  51.          set_stone("st-timeswitch",i-1,line, {action="callback", target="callback12"})
  52.       elseif c == "H" then
  53.          set_stone("st-timeswitch",i-1,line, {action="callback", target="callback13"})
  54.       elseif c == "L" then
  55.          set_attrib(laser(i-1,line, FALSE, EAST), "name", "laser")
  56.       elseif c == "x" then
  57.          set_attrib(laser(i-1,line, FALSE, SOUTH), "name", "laser1")
  58.       elseif c == "#" then
  59.          set_floor("fl-abyss",i-1,line)
  60.       elseif c == "o" then
  61.          oxyd( i-1, line)
  62.       elseif c == "a" then
  63.          set_actor("ac-blackball", i-.5,line+.5, {player=0})
  64.         end
  65.     end
  66. end
  67. --              01234567890123456789
  68. renderLine(00, "rrrrrrrrrrxrrrrrrrrr")
  69. renderLine(01, "r    T T           r")
  70. renderLine(02, "r    T T           r")
  71. renderLine(03, "r            o     r")
  72. renderLine(04, "r                  r")
  73. renderLine(05, "r  o             TTr")
  74. renderLine(06, "r                  r")
  75. renderLine(07, "r     a          TTr")
  76. renderLine(08, "r            efgh  r")
  77. renderLine(09, "L              oi  r")
  78. renderLine(10, "r        E G lmkj  r")
  79. renderLine(11, "r        F H       r")
  80. renderLine(12, "rrrrrrrrrrRrrrrrrrrr")
  81. renderLine(13, "########r111r#######")
  82. renderLine(14, "########r111r#######")
  83. renderLine(15, "########r111r#######")
  84. renderLine(16, "########r111r#######")
  85. renderLine(17, "########r111r#######")
  86. renderLine(18, "########r111r#######")
  87. renderLine(19, "########r111r#######")
  88. renderLine(20, "rrrrrrrrr111r#######")
  89. renderLine(21, "r44444444411r#######")
  90. renderLine(22, "r14444444441r#######")
  91. renderLine(23, "r11444444444r#######")
  92. renderLine(24, "r111rrrrrrrrr#######")
  93. renderLine(25, "r111r###############")
  94. renderLine(26, "r111r###############")
  95. renderLine(27, "r111r###############")
  96. renderLine(28, "r111r###############")
  97. renderLine(29, "r111r###############")
  98. renderLine(30, "r111r###############")
  99. renderLine(31, "r111r###############")
  100. renderLine(32, "r111rrrrrrrrrrrrrrrr")
  101. renderLine(33, "r113333333333333331r")
  102. renderLine(34, "r133333333333333311r")
  103. renderLine(35, "r333333333333333311r")
  104. renderLine(36, "rrrrrrrrrrrrrrrrr11r")
  105. renderLine(37, "r               r11r")
  106. renderLine(38, "r               r11r")
  107. renderLine(39, "r               r11r")
  108. renderLine(40, "r   o           r11r")
  109. renderLine(41, "r               r11r")
  110. renderLine(42, "r               r11r")
  111. renderLine(43, "r               r11r")
  112. renderLine(44, "r               r11r")
  113. renderLine(45, "r                11r")
  114. renderLine(46, "r                11r")
  115. renderLine(47, "r                11r")
  116. renderLine(48, "rrrrrrrrrrrrrrrrrDDr")
  117. --              01234567890123456789
  118.  
  119. oxyd_shuffle()
  120.  
  121. switch1 = 0
  122. switch2 = 0
  123. switch3 = 0
  124. switch4 = 0
  125. switch5 = 0
  126. switch6 = 0
  127. switch7 = 0
  128. switch8 = 0
  129. switch9 = 0
  130. switch10 = 0
  131. switch11 = 0
  132. switch12 = 0
  133. switch13 = 0
  134.  
  135. function switchaction()
  136.     lasera=enigma.GetNamedObject("laser")
  137.     if switch1 == 1 or switch2 == 1 or switch3 == 1 or
  138.        switch4 == 1 or switch5 == 1 or switch6 == 1 or
  139.        switch7 == 1 or switch8 == 1 or switch9 == 1 then
  140.        enigma.SendMessage(lasera, "on", nil)
  141.     end
  142.     if switch1 == 0 and switch2 == 0 and switch3 == 0 and
  143.        switch4 == 0 and switch5 == 0 and switch6 == 0 and
  144.        switch7 == 0 and switch8 == 0 and switch9 == 0 then
  145.        enigma.SendMessage(lasera, "off", nil)
  146.     end
  147.     laserb=enigma.GetNamedObject("laser1")
  148.     if switch10 == 1 or switch11 == 1 or
  149.        switch12 == 1 or switch13 == 1 then
  150.        enigma.SendMessage(laserb, "on", nil)
  151.     end
  152.     if switch10 == 0 and switch11 == 0 and
  153.        switch12 == 0 and switch13 == 0  then
  154.        enigma.SendMessage(laserb, "off", nil)
  155.     end
  156. end
  157.  
  158. function callback1 (ison)
  159.      switch1=ison
  160.      switchaction()
  161. end
  162.  
  163. function callback2 (ison)
  164.      switch2=ison
  165.      switchaction()
  166. end
  167.  
  168. function callback3 (ison)
  169.      switch3=ison
  170.      switchaction()
  171. end
  172.  
  173. function callback4 (ison)
  174.      switch4=ison
  175.      switchaction()
  176. end
  177.  
  178. function callback5 (ison)
  179.      switch5=ison
  180.      switchaction()
  181. end
  182.  
  183. function callback6 (ison)
  184.      switch6=ison
  185.      switchaction()
  186. end
  187.  
  188. function callback7 (ison)
  189.      switch7=ison
  190.      switchaction()
  191. end
  192.  
  193. function callback8 (ison)
  194.      switch8=ison
  195.      switchaction()
  196. end
  197.  
  198. function callback9 (ison)
  199.      switch9=ison
  200.      switchaction()
  201. end
  202.  
  203. function callback10 (ison)
  204.      switch10=ison
  205.      switchaction()
  206. end
  207.  
  208. function callback11 (ison)
  209.      switch11=ison
  210.      switchaction()
  211. end
  212.  
  213. function callback12 (ison)
  214.      switch12=ison
  215.      switchaction()
  216. end
  217.  
  218. function callback13 (ison)
  219.      switch13=ison
  220.      switchaction()
  221. end