home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / level9a.lua < prev    next >
Encoding:
Text File  |  2003-10-04  |  4.4 KB  |  140 lines
  1. -- Siegfried Fennig 04.01.2003 Rev. 0
  2. enigma.ConserveLevel=FALSE                  -- \dh\
  3.  
  4. levelw = 20
  5. levelh = 13
  6.  
  7. create_world(levelw, levelh)
  8. draw_border("st-rock5")
  9. fill_floor("fl-rough", 0,0, level_width,level_height)
  10.  
  11. oxyd (18, 1)
  12. oxyd ( 1,11)
  13. fakeoxyd(18,11)
  14.  
  15. draw_stones( "st-rock5", { 1, 9}, {1,0}, 8)
  16. draw_stones( "st-rock5", {10, 9}, {1,0}, 2)
  17. draw_stones( "st-rock5", {13, 9}, {1,0}, 3)
  18. draw_stones( "st-rock5", {17, 9}, {1,0}, 2)
  19. draw_stones( "st-rock5", { 9, 1}, {0,1},10)
  20.  
  21. set_item("it-coin",10, 3,{value=1})
  22. set_item("it-coin",10, 4,{value=1})
  23. set_item("it-coin",10, 5,{value=1})
  24. set_item("it-coin",10, 6,{value=1})
  25. set_item("it-coin",10, 7,{value=1})
  26.  
  27. set_stone("st-coinslot",12, 3, {action="callback", target="ms1"})
  28. set_stone("st-coinslot",14, 3, {action="callback", target="ms2"})
  29. set_stone("st-coinslot",16, 3, {action="callback", target="ms3"})
  30. set_stone("st-coinslot",12, 5, {action="callback", target="ms4"})
  31. set_stone("st-coinslot",14, 5, {action="callback", target="ms5"})
  32. set_stone("st-coinslot",16, 5, {action="callback", target="ms6"})
  33. set_stone("st-coinslot",12, 7, {action="callback", target="ms7"})
  34. set_stone("st-coinslot",14, 7, {action="callback", target="ms8"})
  35. set_stone("st-coinslot",16, 7, {action="callback", target="ms9"})
  36. set_stone("st-coinslot",16, 9, {action="openclose", target="door1"})
  37. set_stone("st-door",12, 9, {name="door1", type="h"})
  38. set_stone("st-coinslot",10,10, {action="onoff", target="laser1"})
  39.  
  40. set_attrib (mirrorp ( 3, 3, 1, 0,1), "name", "mirror01")
  41. set_attrib (mirrorp ( 5, 3, 1, 0,1), "name", "mirror02")
  42. set_attrib (mirrorp ( 7, 3, 1, 0,1), "name", "mirror03")
  43. set_attrib (mirrorp ( 3, 5, 1, 0,1), "name", "mirror04")
  44. set_attrib (mirrorp ( 5, 5, 1, 0,1), "name", "mirror05")
  45. set_attrib (mirrorp ( 7, 5, 1, 0,1), "name", "mirror06")
  46. set_attrib (mirrorp ( 3, 7, 1, 0,1), "name", "mirror07")
  47. set_attrib (mirrorp ( 5, 7, 1, 0,1), "name", "mirror08")
  48. set_attrib (mirrorp ( 7, 7, 1, 0,1), "name", "mirror09")
  49. set_attrib (mirrorp ( 7, 1, 1, 0,1), "name", "mirror10")
  50.  
  51. set_stone( "st-timer", 0, 0, {action="callback", target="t_h1"})
  52. set_stone( "st-timer",19, 0, {action="callback", target="t_h2"})
  53.  
  54. set_attrib(laser(  1, 3, FALSE, EAST), "name", "laser1")
  55. set_stone( "st-laserswitch", 1, 1, {action="open", target="door2"})
  56. set_stone("st-door", 9,11, {name="door2", type="v"})
  57.  
  58. function ms1()
  59.        mir1=enigma.GetNamedObject("mirror01")
  60.        enigma.SendMessage(mir1, "trigger", nil)
  61. end
  62.  
  63. function ms2()
  64.        mir1=enigma.GetNamedObject("mirror02")
  65.        enigma.SendMessage(mir1, "trigger", nil)
  66. end
  67.  
  68. function ms3()
  69.        mir1=enigma.GetNamedObject("mirror03")
  70.        enigma.SendMessage(mir1, "trigger", nil)
  71. end
  72.  
  73. function ms4()
  74.        mir1=enigma.GetNamedObject("mirror04")
  75.        enigma.SendMessage(mir1, "trigger", nil)
  76. end
  77.  
  78. function ms5()
  79.        mir1=enigma.GetNamedObject("mirror05")
  80.        enigma.SendMessage(mir1, "trigger", nil)
  81. end
  82.  
  83. function ms6()
  84.        mir1=enigma.GetNamedObject("mirror06")
  85.        enigma.SendMessage(mir1, "trigger", nil)
  86. end
  87.  
  88. function ms7()
  89.        mir1=enigma.GetNamedObject("mirror07")
  90.        enigma.SendMessage(mir1, "trigger", nil)
  91. end
  92.  
  93. function ms8()
  94.        mir1=enigma.GetNamedObject("mirror08")
  95.        enigma.SendMessage(mir1, "trigger", nil)
  96. end
  97.  
  98. function ms9()
  99.        mir1=enigma.GetNamedObject("mirror09")
  100.        enigma.SendMessage(mir1, "trigger", nil)
  101. end
  102.  
  103. timer = 0
  104.  
  105. function t_h1()
  106.        mir1=enigma.GetNamedObject("mirror01")
  107.        mir2=enigma.GetNamedObject("mirror02")
  108.        mir3=enigma.GetNamedObject("mirror03")
  109.        mir4=enigma.GetNamedObject("mirror04")
  110.        mir5=enigma.GetNamedObject("mirror05")
  111.        mir6=enigma.GetNamedObject("mirror06")
  112.        mir7=enigma.GetNamedObject("mirror07")
  113.        mir8=enigma.GetNamedObject("mirror08")
  114.     if timer == 1 then
  115.        enigma.SendMessage(mir1, "turn", nil)
  116.        enigma.SendMessage(mir2, "turn", nil)
  117.        enigma.SendMessage(mir3, "turn", nil)
  118.        enigma.SendMessage(mir4, "turn", nil)
  119.        enigma.SendMessage(mir5, "turn", nil)
  120.        enigma.SendMessage(mir6, "turn", nil)
  121.        enigma.SendMessage(mir7, "turn", nil)
  122.        enigma.SendMessage(mir8, "turn", nil)
  123.     end
  124. end
  125.  
  126. function t_h2()
  127.        mir1=enigma.GetNamedObject("mirror09")
  128.        mir2=enigma.GetNamedObject("mirror10")
  129.         if timer == 1 then
  130.        enigma.SendMessage(mir1, "turn", nil)
  131.        enigma.SendMessage(mir2, "turn", nil)
  132.     end
  133.     timer = timer + 1
  134.     if timer ==  2 then
  135.         timer = 0
  136.     end
  137. end
  138.  
  139. set_actor("ac-blackball",18.5, 8.5, {player=0})
  140.