home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / level8e.lua < prev    next >
Text File  |  2003-10-04  |  4KB  |  126 lines
  1. -- Siegfried Fennig 31.12.2002 Rev. 0
  2. enigma.ConserveLevel=FALSE                  -- \dh\
  3.  
  4. levelw = 20
  5. levelh = 13
  6.  
  7. create_world(levelw, levelh)
  8. oxyd_default_flavor = "a"
  9. draw_border("st-rock5")
  10. fill_floor("fl-samba", 0,0, level_width,level_height)
  11.  
  12. oxyd ( 1, 0)
  13. oxyd ( 2, 0)
  14. oxyd (17, 0)
  15. oxyd (18, 0)
  16. oxyd ( 1,12)
  17. oxyd ( 2,12)
  18. oxyd (17,12)
  19. oxyd (18,12)
  20.  
  21. oxyd_shuffle()
  22.  
  23. draw_stones("st-glass", { 4, 1}, {1,0},10)
  24. draw_stones("st-glass", { 6,11}, {1,0},10)
  25. draw_stones("st-glass", { 4, 6}, {1,0},12)
  26. draw_stones("st-glass", { 1, 2}, {0,1}, 4)
  27. draw_stones("st-glass", { 1, 7}, {0,1}, 3)
  28. draw_stones("st-glass", {18, 3}, {0,1}, 3)
  29. draw_stones("st-glass", {18, 7}, {0,1}, 4)
  30.  
  31. draw_stones("st-3mirror", { 4, 0}, {1,0},10, {transparent=1,orientation=1})
  32. draw_stones("st-3mirror", { 6,12}, {1,0},10, {transparent=1,orientation=3})
  33. draw_stones("st-3mirror", { 0, 2}, {0,1}, 4, {transparent=1,orientation=4})
  34. draw_stones("st-3mirror", { 0, 7}, {0,1}, 3, {transparent=1,orientation=4})
  35. draw_stones("st-3mirror", {19, 3}, {0,1}, 3, {transparent=1,orientation=2})
  36. draw_stones("st-3mirror", {19, 7}, {0,1}, 4, {transparent=1,orientation=2})
  37.  
  38. set_item("it-coin", 1, 6,{value=12})
  39. set_item("it-coin", 1,10,{value=12})
  40. set_item("it-coin",18, 2,{value=12})
  41. set_item("it-coin",18, 6,{value=12})
  42.  
  43. set_stone("st-coinslot",16, 6, {action="onoff", target="laser01"})
  44. set_stone("st-coinslot", 3, 6, {action="onoff", target="laser02"})
  45.  
  46. set_attrib (mirrorp ( 6, 3, 1, 0,1), "name", "mirror01")
  47. set_attrib (mirrorp ( 7, 3, 1, 0,1), "name", "mirror02")
  48. set_attrib (mirrorp ( 8, 3, 1, 0,1), "name", "mirror03")
  49. set_attrib (mirrorp ( 6, 4, 1, 0,1), "name", "mirror04")
  50. set_attrib (mirrorp ( 8, 4, 1, 0,1), "name", "mirror05")
  51. set_attrib (mirrorp ( 6, 5, 1, 0,1), "name", "mirror06")
  52. set_attrib (mirrorp ( 7, 5, 1, 0,1), "name", "mirror07")
  53. set_attrib (mirrorp ( 8, 5, 1, 0,1), "name", "mirror08")
  54. set_attrib (mirrorp (11, 7, 1, 0,2), "name", "mirror09")
  55. set_attrib (mirrorp (12, 7, 1, 0,2), "name", "mirror10")
  56. set_attrib (mirrorp (13, 7, 1, 0,2), "name", "mirror11")
  57. set_attrib (mirrorp (11, 8, 1, 0,2), "name", "mirror12")
  58. set_attrib (mirrorp (13, 8, 1, 0,2), "name", "mirror13")
  59. set_attrib (mirrorp (11, 9, 1, 0,2), "name", "mirror14")
  60. set_attrib (mirrorp (12, 9, 1, 0,2), "name", "mirror15")
  61. set_attrib (mirrorp (13, 9, 1, 0,2), "name", "mirror16")
  62.  
  63. set_stone( "st-timer", 7, 4, {action="callback", target="t_h1"})
  64. set_stone( "st-timer",12, 8, {action="callback", target="t_h2"})
  65.  
  66. set_attrib(laser( 16, 2, TRUE, WEST), "name", "laser01")
  67. set_attrib(laser(  3,10, TRUE, EAST), "name", "laser02")
  68.  
  69. timer = 0
  70.  
  71. function t_h1()
  72.  
  73.        mir1=enigma.GetNamedObject("mirror01")
  74.        mir2=enigma.GetNamedObject("mirror02")
  75.        mir3=enigma.GetNamedObject("mirror03")
  76.        mir4=enigma.GetNamedObject("mirror04")
  77.        mir5=enigma.GetNamedObject("mirror05")
  78.        mir6=enigma.GetNamedObject("mirror06")
  79.        mir7=enigma.GetNamedObject("mirror07")
  80.        mir8=enigma.GetNamedObject("mirror08")
  81.  
  82.     if timer == 1 then
  83.        enigma.SendMessage(mir1, "turn", nil)
  84.        enigma.SendMessage(mir2, "turn", nil)
  85.        enigma.SendMessage(mir3, "turn", nil)
  86.        enigma.SendMessage(mir4, "turn", nil)
  87.        enigma.SendMessage(mir5, "turn", nil)
  88.        enigma.SendMessage(mir6, "turn", nil)
  89.        enigma.SendMessage(mir7, "turn", nil)
  90.        enigma.SendMessage(mir8, "turn", nil)
  91.     end
  92. end
  93.  
  94. function t_h2()
  95.  
  96.        mir1=enigma.GetNamedObject("mirror09")
  97.        mir2=enigma.GetNamedObject("mirror10")
  98.        mir3=enigma.GetNamedObject("mirror11")
  99.        mir4=enigma.GetNamedObject("mirror12")
  100.        mir5=enigma.GetNamedObject("mirror13")
  101.        mir6=enigma.GetNamedObject("mirror14")
  102.        mir7=enigma.GetNamedObject("mirror15")
  103.        mir8=enigma.GetNamedObject("mirror16")
  104.  
  105.     if timer == 1 then
  106.        enigma.SendMessage(mir1, "turn", nil)
  107.        enigma.SendMessage(mir2, "turn", nil)
  108.        enigma.SendMessage(mir3, "turn", nil)
  109.        enigma.SendMessage(mir4, "turn", nil)
  110.        enigma.SendMessage(mir5, "turn", nil)
  111.        enigma.SendMessage(mir6, "turn", nil)
  112.        enigma.SendMessage(mir7, "turn", nil)
  113.        enigma.SendMessage(mir8, "turn", nil)
  114.     end
  115.  
  116.     timer = timer + 1
  117.     if timer ==  2 then
  118.         timer = 0
  119.     end
  120. end
  121.  
  122. document(3,11, "Danger...laser beams")
  123.  
  124. set_actor("ac-blackball", 1.5,11.5, {player=0})
  125.  
  126.