home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / siegfried79.lua < prev    next >
Text File  |  2003-03-25  |  6KB  |  184 lines
  1. --Siegfried Fennig 25.03.2003 Rev. 0
  2.  
  3. levelw = 20
  4. levelh = 37
  5.  
  6. create_world(levelw, levelh)
  7. draw_border("st-rock1")
  8. fill_floor("fl-normal", 0,0, level_width,level_height)
  9.  
  10. function renderLine( line, pattern)
  11.     for i=1, strlen(pattern) do
  12.       local c = strsub( pattern, i, i)
  13.       if c == "r" then
  14.          set_stone("st-rock1",i-1,line)
  15.       elseif c == "1" then
  16.          set_floor("fl-gradient",  i-1,  line, {type=1})
  17.       elseif c == "2" then
  18.          set_floor("fl-gradient",  i-1,  line, {type=2})
  19.       elseif c == "3" then
  20.          set_floor("fl-gradient",  i-1,  line, {type=21})
  21.       elseif c == "4" then
  22.          set_floor("fl-gradient",  i-1,  line, {type=22})
  23.       elseif c == "a" then
  24.          set_actor("ac-blackball", i-1,line+.5, {player=0})
  25.         end
  26.     end
  27. end
  28. --              01234567890123456789
  29. renderLine(00, "                    ")
  30. renderLine(01, " rrrrrr333333rrrrrr ")
  31. renderLine(02, " rr rrr333333rrr rr ")
  32. renderLine(03, " r r rr333333rr r r ")
  33. renderLine(04, " rr rrr111111rrr rr ")
  34. renderLine(05, " rrrr          rrrr ")
  35. renderLine(06, " 22222r222222r22222 ")
  36. renderLine(07, " 44444r444444r44444 ")
  37. renderLine(08, " 44444r444444r44444 ")
  38. renderLine(09, " 44444r444444r44444 ")
  39. renderLine(10, " 44444r444444r44444 ")
  40. renderLine(11, " 44444r444444r44444 ")
  41. renderLine(12, " 33333r333333r33333 ")
  42. renderLine(13, " 33333r333333r33333 ")
  43. renderLine(14, " 33333r333333r33333 ")
  44. renderLine(15, " 33333r333333r33333 ")
  45. renderLine(16, " 33333r333333r33333 ")
  46. renderLine(17, " 33333r333333r33333 ")
  47. renderLine(18, " 11111r111111r11111 ")
  48. renderLine(19, "      r   a  r      ")
  49. renderLine(20, " 22222r222222r22222 ")
  50. renderLine(21, " 44444r444444r44444 ")
  51. renderLine(22, " 44444r444444r44444 ")
  52. renderLine(23, " 44444r444444r44444 ")
  53. renderLine(24, " 44444r444444r44444 ")
  54. renderLine(25, " 44444r444444r44444 ")
  55. renderLine(26, " 44444r444444r44444 ")
  56. renderLine(27, " 33333r      r33333 ")
  57. renderLine(28, " 33333r      r33333 ")
  58. renderLine(29, " 33333rrrrrrrr33333 ")
  59. renderLine(30, " 33333rrr  rrr33333 ")
  60. renderLine(31, " 33333rr rr rr33333 ")
  61. renderLine(32, " 33333rrr  rrr33333 ")
  62. renderLine(33, " 11111rrrrrrrr11111 ")
  63. renderLine(34, "                    ")
  64. renderLine(35, " 222222222222222222 ")
  65. renderLine(36, "                    ")
  66. --              01234567890123456789
  67.  
  68. set_stone("st-oxyd", 3, 2,{color="0", flavor="d", name="ox1"})
  69. set_stone("st-oxyd", 3, 4,{color="1", flavor="d", name="ox2"})
  70. set_stone("st-oxyd", 2, 3,{color="2", flavor="d", name="ox3"})
  71. set_stone("st-oxyd", 4, 3,{color="3", flavor="d", name="ox4"})
  72. set_stone("st-oxyd",16, 2,{color="4", flavor="d", name="ox5"})
  73. set_stone("st-oxyd",16, 4,{color="6", flavor="d", name="ox6"})
  74. set_stone("st-oxyd",15, 3,{color="5", flavor="d", name="ox7"})
  75. set_stone("st-oxyd",17, 3,{color="0", flavor="d", name="ox8"})
  76. set_stone("st-oxyd", 9,30,{color="1", flavor="d", name="ox9"})
  77. set_stone("st-oxyd",10,30,{color="2", flavor="d", name="ox10"})
  78. set_stone("st-oxyd", 9,32,{color="3", flavor="d", name="ox11"})
  79. set_stone("st-oxyd",10,32,{color="5", flavor="d", name="ox12"})
  80. set_stone("st-oxyd", 8,31,{color="6", flavor="d", name="ox13"})
  81. set_stone("st-oxyd",11,31,{color="4", flavor="d", name="ox14"})
  82.  
  83. hitcounter = 0
  84.  
  85. set_stone( "st-fourswitch", 8, 3, {action="callback", target="func1"})
  86.  
  87. function func1()
  88.     oxa=enigma.GetNamedObject("ox4")
  89.     oxb=enigma.GetNamedObject("ox2")
  90.     oxc=enigma.GetNamedObject("ox3")
  91.     oxd=enigma.GetNamedObject("ox1")
  92.         if hitcounter == 0 then
  93.     enigma.SendMessage(oxa, "trigger", nil)
  94.     end
  95.         if hitcounter == 1 then
  96.     enigma.SendMessage(oxb, "trigger", nil)
  97.     end
  98.         if hitcounter == 2 then
  99.     enigma.SendMessage(oxc, "trigger", nil)
  100.     end
  101.         if hitcounter == 3 then
  102.     enigma.SendMessage(oxd, "trigger", nil)
  103.     end
  104.     hitcounter = hitcounter + 1
  105.     if hitcounter ==  4 then
  106.         hitcounter = 0
  107.     end
  108. end
  109.  
  110. set_stone( "st-fourswitch",11, 3, {action="callback", target="func2"})
  111.  
  112. function func2()
  113.     oxa=enigma.GetNamedObject("ox8")
  114.     oxb=enigma.GetNamedObject("ox6")
  115.     oxc=enigma.GetNamedObject("ox7")
  116.     oxd=enigma.GetNamedObject("ox5")
  117.         if hitcounter == 0 then
  118.     enigma.SendMessage(oxa, "trigger", nil)
  119.     end
  120.         if hitcounter == 1 then
  121.     enigma.SendMessage(oxb, "trigger", nil)
  122.     end
  123.         if hitcounter == 2 then
  124.     enigma.SendMessage(oxc, "trigger", nil)
  125.     end
  126.         if hitcounter == 3 then
  127.     enigma.SendMessage(oxd, "trigger", nil)
  128.     end
  129.     hitcounter = hitcounter + 1
  130.     if hitcounter ==  4 then
  131.         hitcounter = 0
  132.     end
  133. end
  134.  
  135. set_stone( "st-fourswitch", 3,34, {action="callback", target="func3"})
  136.  
  137. function func3()
  138.     oxa=enigma.GetNamedObject("ox14")
  139.     oxb=enigma.GetNamedObject("ox11")
  140.     oxc=enigma.GetNamedObject("ox13")
  141.     oxd=enigma.GetNamedObject("ox9")
  142.         if hitcounter == 0 then
  143.     enigma.SendMessage(oxa, "trigger", nil)
  144.     end
  145.         if hitcounter == 1 then
  146.     enigma.SendMessage(oxb, "trigger", nil)
  147.     end
  148.         if hitcounter == 2 then
  149.     enigma.SendMessage(oxc, "trigger", nil)
  150.     end
  151.         if hitcounter == 3 then
  152.     enigma.SendMessage(oxd, "trigger", nil)
  153.     end
  154.     hitcounter = hitcounter + 1
  155.     if hitcounter ==  4 then
  156.         hitcounter = 0
  157.     end
  158. end
  159.  
  160. set_stone( "st-fourswitch",16,34, {action="callback", target="func4"})
  161.  
  162. function func4()
  163.     oxa=enigma.GetNamedObject("ox14")
  164.     oxb=enigma.GetNamedObject("ox12")
  165.     oxc=enigma.GetNamedObject("ox13")
  166.     oxd=enigma.GetNamedObject("ox10")
  167.         if hitcounter == 0 then
  168.     enigma.SendMessage(oxa, "trigger", nil)
  169.     end
  170.         if hitcounter == 1 then
  171.     enigma.SendMessage(oxb, "trigger", nil)
  172.     end
  173.         if hitcounter == 2 then
  174.     enigma.SendMessage(oxc, "trigger", nil)
  175.     end
  176.         if hitcounter == 3 then
  177.     enigma.SendMessage(oxd, "trigger", nil)
  178.     end
  179.     hitcounter = hitcounter + 1
  180.     if hitcounter ==  4 then
  181.         hitcounter = 0
  182.     end
  183. end
  184.