home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / level6e.lua < prev    next >
Encoding:
Text File  |  2003-01-05  |  6.9 KB  |  200 lines
  1. -- Siegfried Fennig
  2.  
  3. levelw = 20
  4. levelh = 13
  5.  
  6. create_world(levelw, levelh)
  7. draw_border("st-fakeoxyd")
  8. fill_floor("fl-dunes", 0,0, level_width,level_height)
  9.  
  10. oxyd (2,3)
  11. oxyd (4,5)
  12. oxyd (6,9)
  13. oxyd (15,5)
  14. oxyd (13,7)
  15. oxyd (17,7)
  16. oxyd_shuffle()
  17.  
  18. set_stones("st-death", {{4,3},{6,3},{8,3},{2,5},{6,5},{8,5},{2,7}})
  19. set_stones("st-death", {{4,7},{6,7},{8,7},{2,9},{4,9},{8,9}})
  20. set_stones("st-death", {{11,3},{13,3},{15,3},{17,3},{11,5},{13,5},{17,5}})
  21. set_stones("st-death", {{11,7},{15,7},{11,9},{13,9},{15,9},{17,9}})
  22.  
  23. set_item("it-hollow", 3,3)
  24. set_item("it-hollow", 5,3)
  25. set_item("it-hollow", 7,3)
  26. set_item("it-hollow", 3,4)
  27. set_item("it-hollow", 5,4)
  28. set_item("it-hollow", 7,4)
  29. set_item("it-hollow", 3,5)
  30. set_item("it-hollow", 5,5)
  31. set_item("it-hollow", 7,5)
  32. set_item("it-hollow", 3,6)
  33. set_item("it-hollow", 5,6)
  34. set_item("it-hollow", 7,6)
  35. set_item("it-hollow", 3,7)
  36. set_item("it-hollow", 5,7)
  37. set_item("it-hollow", 7,7)
  38. set_item("it-hollow", 3,8)
  39. set_item("it-hollow", 5,8)
  40. set_item("it-hollow", 7,8)
  41. set_item("it-hollow", 3,9)
  42. set_item("it-hollow", 5,9)
  43. set_item("it-hollow", 7,9)
  44. set_item("it-hollow", 11,4)
  45. set_item("it-hollow", 12,4)
  46. set_item("it-hollow", 13,4)
  47. set_item("it-hollow", 14,4)
  48. set_item("it-hollow", 15,4)
  49. set_item("it-hollow", 16,4)
  50. set_item("it-hollow", 17,4)
  51. set_item("it-hollow", 11,6)
  52. set_item("it-hollow", 12,6)
  53. set_item("it-hollow", 13,6)
  54. set_item("it-hollow", 14,6)
  55. set_item("it-hollow", 15,6)
  56. set_item("it-hollow", 16,6)
  57. set_item("it-hollow", 17,6)
  58. set_item("it-hollow", 11,8)
  59. set_item("it-hollow", 12,8)
  60. set_item("it-hollow", 13,8)
  61. set_item("it-hollow", 14,8)
  62. set_item("it-hollow", 15,8)
  63. set_item("it-hollow", 16,8)
  64. set_item("it-hollow", 17,8)
  65.  
  66. set_item( "it-hollow", 2,4, {name="h1"})
  67. set_item( "it-hollow", 4,4, {name="h2"})
  68. set_item( "it-hollow",6,4, {name="h3"})
  69. set_item( "it-hollow",8,4, {name="h4"})
  70. set_item( "it-hollow", 2,6, {name="h5"})
  71. set_item( "it-hollow", 4,6, {name="h6"})
  72. set_item( "it-hollow",6,6, {name="h7"})
  73. set_item( "it-hollow",8,6, {name="h8"})
  74. set_item( "it-hollow", 2,8, {name="h9"})
  75. set_item( "it-hollow", 4,8, {name="h10"})
  76. set_item( "it-hollow",6,8, {name="h11"})
  77. set_item( "it-hollow",8,8, {name="h12"})
  78. set_item( "it-hollow", 12,3, {name="h13"})
  79. set_item( "it-hollow", 14,3, {name="h14"})
  80. set_item( "it-hollow",16,3, {name="h15"})
  81. set_item( "it-hollow",12,5, {name="h16"})
  82. set_item( "it-hollow", 14,5, {name="h17"})
  83. set_item( "it-hollow", 16,5, {name="h18"})
  84. set_item( "it-hollow",12,7, {name="h19"})
  85. set_item( "it-hollow",14,7, {name="h20"})
  86. set_item( "it-hollow", 16,7, {name="h21"})
  87. set_item( "it-hollow", 12,9, {name="h22"})
  88. set_item( "it-hollow",14,9, {name="h23"})
  89. set_item( "it-hollow",16,9, {name="h24"})
  90.  
  91. set_stone( "st-timer", 4, 12, {action="callback", target="th1"})
  92. set_stone( "st-timer", 5, 12, {action="callback", target="th2"})
  93. set_stone( "st-timer", 9, 12, {action="callback", target="th3"})
  94. set_stone( "st-timer", 10, 12, {action="callback", target="th4"})
  95. set_stone( "st-timer", 14, 12, {action="callback", target="th5"})
  96. set_stone( "st-timer", 15, 12, {action="callback", target="th6"})
  97.  
  98. timer = 0
  99.  
  100. function th1()
  101.     if timer == 0 then
  102.     enigma.SendMessage( enigma.GetNamedObject("h1"), "trigger", nil)
  103.     enigma.SendMessage( enigma.GetNamedObject("h5"), "trigger", nil)
  104.     enigma.SendMessage( enigma.GetNamedObject("h9"), "trigger", nil)
  105.     enigma.SendMessage( enigma.GetNamedObject("h13"), "trigger", nil)
  106.     end
  107.     if timer == 1 then
  108.     enigma.SendMessage( enigma.GetNamedObject("h1"), "trigger", nil)
  109.     enigma.SendMessage( enigma.GetNamedObject("h5"), "trigger", nil)
  110.     enigma.SendMessage( enigma.GetNamedObject("h9"), "trigger", nil)
  111.     enigma.SendMessage( enigma.GetNamedObject("h13"), "trigger", nil)
  112.     end
  113. end
  114.  
  115. function th2()
  116.     if timer == 1 then
  117.     enigma.SendMessage( enigma.GetNamedObject("h2"), "trigger", nil)
  118.     enigma.SendMessage( enigma.GetNamedObject("h6"), "trigger", nil)
  119.     enigma.SendMessage( enigma.GetNamedObject("h10"), "trigger", nil)
  120.     enigma.SendMessage( enigma.GetNamedObject("h16"), "trigger", nil)
  121.     end
  122.     if timer == 2 then
  123.     enigma.SendMessage( enigma.GetNamedObject("h2"), "trigger", nil)
  124.     enigma.SendMessage( enigma.GetNamedObject("h6"), "trigger", nil)
  125.     enigma.SendMessage( enigma.GetNamedObject("h10"), "trigger", nil)
  126.     enigma.SendMessage( enigma.GetNamedObject("h16"), "trigger", nil)
  127.     end
  128. end
  129.  
  130. function th3()
  131.     if timer == 2 then
  132.     enigma.SendMessage( enigma.GetNamedObject("h3"), "trigger", nil)
  133.     enigma.SendMessage( enigma.GetNamedObject("h7"), "trigger", nil)
  134.     enigma.SendMessage( enigma.GetNamedObject("h11"), "trigger", nil)
  135.     enigma.SendMessage( enigma.GetNamedObject("h19"), "trigger", nil)
  136.     end
  137.     if timer == 3 then
  138.     enigma.SendMessage( enigma.GetNamedObject("h3"), "trigger", nil)
  139.     enigma.SendMessage( enigma.GetNamedObject("h7"), "trigger", nil)
  140.     enigma.SendMessage( enigma.GetNamedObject("h11"), "trigger", nil)
  141.     enigma.SendMessage( enigma.GetNamedObject("h19"), "trigger", nil)
  142.     end
  143. end
  144.  
  145. function th4()
  146.     if timer == 3 then
  147.     enigma.SendMessage( enigma.GetNamedObject("h4"), "trigger", nil)
  148.     enigma.SendMessage( enigma.GetNamedObject("h8"), "trigger", nil)
  149.     enigma.SendMessage( enigma.GetNamedObject("h12"), "trigger", nil)
  150.     enigma.SendMessage( enigma.GetNamedObject("h22"), "trigger", nil)
  151.     end
  152.     if timer == 4 then
  153.     enigma.SendMessage( enigma.GetNamedObject("h4"), "trigger", nil)
  154.     enigma.SendMessage( enigma.GetNamedObject("h8"), "trigger", nil)
  155.     enigma.SendMessage( enigma.GetNamedObject("h12"), "trigger", nil)
  156.     enigma.SendMessage( enigma.GetNamedObject("h22"), "trigger", nil)
  157.     end
  158. end
  159.  
  160. function th5()
  161.     if timer == 0 then
  162.     enigma.SendMessage( enigma.GetNamedObject("h14"), "trigger", nil)
  163.     enigma.SendMessage( enigma.GetNamedObject("h15"), "trigger", nil)
  164.     end
  165.     if timer == 1 then
  166.     enigma.SendMessage( enigma.GetNamedObject("h14"), "trigger", nil)
  167.     enigma.SendMessage( enigma.GetNamedObject("h15"), "trigger", nil)
  168.     enigma.SendMessage( enigma.GetNamedObject("h17"), "trigger", nil)
  169.     enigma.SendMessage( enigma.GetNamedObject("h18"), "trigger", nil)
  170.     end
  171.     if timer == 2 then
  172.     enigma.SendMessage( enigma.GetNamedObject("h17"), "trigger", nil)
  173.     enigma.SendMessage( enigma.GetNamedObject("h18"), "trigger", nil)
  174.     end
  175. end
  176.  
  177. function th6()
  178.     if timer == 2 then
  179.     enigma.SendMessage( enigma.GetNamedObject("h20"), "trigger", nil)
  180.     enigma.SendMessage( enigma.GetNamedObject("h21"), "trigger", nil)
  181.     end
  182.     if timer == 3 then
  183.     enigma.SendMessage( enigma.GetNamedObject("h20"), "trigger", nil)
  184.     enigma.SendMessage( enigma.GetNamedObject("h21"), "trigger", nil)
  185.     enigma.SendMessage( enigma.GetNamedObject("h23"), "trigger", nil)
  186.     enigma.SendMessage( enigma.GetNamedObject("h24"), "trigger", nil)
  187.     end
  188.     if timer == 4 then
  189.     enigma.SendMessage( enigma.GetNamedObject("h23"), "trigger", nil)
  190.     enigma.SendMessage( enigma.GetNamedObject("h24"), "trigger", nil)
  191.     end
  192.     timer = timer + 1
  193.     if timer == 5 then
  194.         timer = 0
  195.     end
  196. end
  197.  
  198. set_actor("ac-blackball", 10,6.5 ,{player=0})
  199.  
  200.