home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / level8d.lua < prev    next >
Text File  |  2003-08-18  |  8KB  |  253 lines
  1. -- Siegfried Fennig 26.12.2002 Rev. 0
  2.  
  3. levelw = 20
  4. levelh = 25
  5.  
  6. create_world(levelw, levelh)
  7. draw_border("st-rock5")
  8. fill_floor("fl-rough", 0,0, level_width,level_height)
  9. fill_floor("fl-water", 3,17, 16,2)
  10. fill_floor("fl-water", 3,22, 16,2)
  11. fill_floor("fl-water", 3,11,  2,5)
  12. fill_floor("fl-water",17,11,  2,5)
  13. fill_floor("fl-water", 7,13,  6,1)
  14. fill_floor("fl-water", 8,15,  4,1)
  15.  
  16. oxyd_default_flavor = "c"
  17.  
  18. oxyd ( 3,21)
  19. oxyd ( 5,19)
  20. oxyd ( 7,21)
  21. oxyd ( 9,20)
  22. oxyd (11,19)
  23. oxyd (13,20)
  24. oxyd (15,19)
  25. oxyd (17,21)
  26. oxyd ( 5,11)
  27. oxyd (14,13)
  28. oxyd ( 6,15)
  29. oxyd (13,15)
  30.  
  31. oxyd_shuffle()
  32.  
  33. draw_stones("st-rock5", { 2, 2}, {0,1}, 4)
  34. draw_stones("st-rock5", { 2, 6}, {1,0}, 2)
  35. draw_stones("st-rock5", { 2, 8}, {1,0}, 2)
  36. draw_stones("st-rock5", { 4, 2}, {1,0}, 3)
  37. draw_stones("st-rock5", { 4, 4}, {1,0}, 2)
  38. draw_stones("st-rock5", { 5, 6}, {1,0}, 3)
  39. draw_stones("st-rock5", { 5, 8}, {1,0}, 3)
  40. draw_stones("st-rock5", { 7, 1}, {0,1}, 4)
  41. draw_stones("st-rock5", { 9, 1}, {1,0}, 2)
  42. draw_stones("st-rock5", { 9, 3}, {1,0}, 2)
  43. draw_stones("st-rock5", {10, 7}, {1,0}, 3)
  44. draw_stones("st-rock5", { 9, 4}, {0,1}, 4)
  45. draw_stones("st-rock5", {11, 5}, {1,0}, 2)
  46. draw_stones("st-rock5", {12, 4}, {1,0}, 3)
  47. draw_stones("st-rock5", {14, 2}, {1,0}, 3)
  48. draw_stones("st-rock5", {16, 4}, {1,0}, 2)
  49. draw_stones("st-rock5", {14, 6}, {1,0}, 4)
  50. draw_stones("st-rock5", {14, 8}, {1,0}, 4)
  51. draw_stones("st-rock5", {13, 9}, {1,0}, 2)
  52. draw_stones("st-rock5", {18, 1}, {0,1}, 2)
  53. draw_stones("st-rock5", { 2,10}, {1,0}, 5)
  54. draw_stones("st-rock5", { 8,10}, {1,0}, 4)
  55. draw_stones("st-rock5", {13,10}, {1,0}, 6)
  56. draw_stones("st-rock5", { 2,16}, {1,0},17)
  57. draw_stones("st-rock5", { 2,17}, {0,1}, 2)
  58. draw_stones("st-rock5", { 2,20}, {0,1}, 4)
  59. draw_stones("st-rock5", { 2,11}, {0,1}, 5)
  60. set_stones("st-rock5", {{5,5},{9,9},{11,9},{12,1},{12,3},{16,3}})
  61. set_stones("st-rock5", {{3,17},{5,17},{7,17},{9,17},{11,17},
  62.                        {13,17},{15,17},{17,17}})
  63. set_stones("st-rock5", {{3,23},{5,23},{7,23},{9,23},{11,23},
  64.                        {13,23},{15,23},{17,23}})
  65. set_stones("st-rock5", {{3,11},{3,13},{3,15},{18,11},{18,13},{18,15}})
  66.  
  67. set_stone("st-oneway", 2, 7, {orientation=enigma.EAST})
  68. set_stone("st-oneway", 4, 3, {orientation=enigma.EAST})
  69. set_stone("st-oneway", 5, 7, {orientation=enigma.EAST})
  70. set_stone("st-oneway", 7, 7, {orientation=enigma.EAST})
  71. set_stone("st-oneway", 7, 9, {orientation=enigma.EAST})
  72. set_stone("st-oneway", 9, 2, {orientation=enigma.EAST})
  73. set_stone("st-oneway", 9, 8, {orientation=enigma.EAST})
  74. set_stone("st-oneway",12, 2, {orientation=enigma.EAST})
  75. set_stone("st-oneway",14, 1, {orientation=enigma.EAST})
  76. set_stone("st-oneway",14, 3, {orientation=enigma.EAST})
  77. set_stone("st-oneway",15, 5, {orientation=enigma.WEST})
  78. set_stone("st-oneway",17, 5, {orientation=enigma.WEST})
  79. set_stone("st-oneway",18, 6, {orientation=enigma.WEST})
  80. set_stone("st-oneway", 1, 4, {orientation=enigma.NORTH})
  81. set_stone("st-oneway", 3, 2, {orientation=enigma.NORTH})
  82. set_stone("st-oneway", 4, 6, {orientation=enigma.NORTH})
  83. set_stone("st-oneway", 7,10, {orientation=enigma.NORTH})
  84. set_stone("st-oneway", 8, 4, {orientation=enigma.NORTH})
  85. set_stone("st-oneway",13, 7, {orientation=enigma.NORTH})
  86. set_stone("st-oneway", 1, 6, {orientation=enigma.SOUTH})
  87. set_stone("st-oneway", 1, 8, {orientation=enigma.SOUTH})
  88. set_stone("st-oneway", 4, 8, {orientation=enigma.SOUTH})
  89. set_stone("st-oneway", 6, 4, {orientation=enigma.SOUTH})
  90. set_stone("st-oneway",11, 3, {orientation=enigma.SOUTH})
  91. set_stone("st-oneway",15, 4, {orientation=enigma.SOUTH})
  92. set_stone("st-oneway",18, 7, {orientation=enigma.SOUTH})
  93.  
  94. set_stone("st-switch", 11,1, {action="openclose", target="door1"})
  95. set_stone("st-switch", 10,9, {action="openclose", target="door2"})
  96. doorh(12, 9, {name="door1"})
  97. doorh(12,10, {name="door2"})
  98.  
  99. swc1 = 0;
  100. function sw1()
  101.    if (swc1 == 0) then
  102.       enigma.SendMessage(enigma.GetNamedObject("bolder01"), "direction",SOUTH)
  103.       swc1 = 1
  104.    end
  105. end
  106. function sw2()
  107.    if (swc1 == 1) then
  108.       enigma.SendMessage(enigma.GetNamedObject("bolder01"), "direction",NORTH)
  109.       swc1 = 0
  110.    end
  111. end
  112. set_stone("st-bolder",  4,21, {name="bolder01", direction=NORTH})
  113. set_item("it-trigger",  4,17, {invisible=1, action="callback", target="sw1"})
  114. set_item("it-trigger",  4,23, {invisible=1, action="callback", target="sw2"})
  115.  
  116. swc2 = 0;
  117. function sw3()
  118.    if (swc2 == 0) then
  119.       enigma.SendMessage(enigma.GetNamedObject("bolder02"), "direction",SOUTH)
  120.       swc2 = 1
  121.    end
  122. end
  123. function sw4()
  124.    if (swc2 == 1) then
  125.       enigma.SendMessage(enigma.GetNamedObject("bolder02"), "direction",NORTH)
  126.       swc2 = 0
  127.    end
  128. end
  129. set_stone("st-bolder",  6,22, {name="bolder02", direction=NORTH})
  130. set_item("it-trigger",  6,17, {invisible=1, action="callback", target="sw3"})
  131. set_item("it-trigger",  6,23, {invisible=1, action="callback", target="sw4"})
  132.  
  133. swc3 = 0;
  134. function sw5()
  135.    if (swc3 == 0) then
  136.       enigma.SendMessage(enigma.GetNamedObject("bolder03"), "direction",NORTH)
  137.       swc3 = 1
  138.    end
  139. end
  140. function sw6()
  141.    if (swc3 == 1) then
  142.       enigma.SendMessage(enigma.GetNamedObject("bolder03"), "direction",SOUTH)
  143.       swc3 = 0
  144.    end
  145. end
  146. set_stone("st-bolder",  8,19, {name="bolder03", direction=SOUTH})
  147. set_item("it-trigger",  8,23, {invisible=1, action="callback", target="sw5"})
  148. set_item("it-trigger",  8,17, {invisible=1, action="callback", target="sw6"})
  149.  
  150. swc4 = 0;
  151. function sw7()
  152.    if (swc4 == 0) then
  153.       enigma.SendMessage(enigma.GetNamedObject("bolder04"), "direction",SOUTH)
  154.       swc4 = 1
  155.    end
  156. end
  157. function sw8()
  158.    if (swc4 == 1) then
  159.       enigma.SendMessage(enigma.GetNamedObject("bolder04"), "direction",NORTH)
  160.       swc4 = 0
  161.    end
  162. end
  163. set_stone("st-bolder", 10,21, {name="bolder04", direction=NORTH})
  164. set_item("it-trigger", 10,17, {invisible=1, action="callback", target="sw7"})
  165. set_item("it-trigger", 10,23, {invisible=1, action="callback", target="sw8"})
  166.  
  167. swc5 = 0;
  168. function sw9()
  169.    if (swc5 == 0) then
  170.       enigma.SendMessage(enigma.GetNamedObject("bolder05"), "direction",SOUTH)
  171.       swc5 = 1
  172.    end
  173. end
  174. function sw10()
  175.    if (swc5 == 1) then
  176.       enigma.SendMessage(enigma.GetNamedObject("bolder05"), "direction",NORTH)
  177.       swc5 = 0
  178.    end
  179. end
  180. set_stone("st-bolder", 12,18, {name="bolder05", direction=NORTH})
  181. set_item("it-trigger", 12,17, {invisible=1, action="callback", target="sw9"})
  182. set_item("it-trigger", 12,23, {invisible=1, action="callback", target="sw10"})
  183.  
  184. swc6 = 0;
  185. function sw11()
  186.    if (swc6 == 0) then
  187.       enigma.SendMessage(enigma.GetNamedObject("bolder06"), "direction",SOUTH)
  188.       swc6 = 1
  189.    end
  190. end
  191. function sw12()
  192.    if (swc6 == 1) then
  193.       enigma.SendMessage(enigma.GetNamedObject("bolder06"), "direction",NORTH)
  194.       swc6 = 0
  195.    end
  196. end
  197. set_stone("st-bolder", 14,19, {name="bolder06", direction=NORTH})
  198. set_item("it-trigger", 14,17, {invisible=1, action="callback", target="sw11"})
  199. set_item("it-trigger", 14,23, {invisible=1, action="callback", target="sw12"})
  200.  
  201. swc7 = 0;
  202. function sw13()
  203.    if (swc7 == 0) then
  204.       enigma.SendMessage(enigma.GetNamedObject("bolder07"), "direction",SOUTH)
  205.       swc7 = 1
  206.    end
  207. end
  208. function sw14()
  209.    if (swc7 == 1) then
  210.       enigma.SendMessage(enigma.GetNamedObject("bolder07"), "direction",NORTH)
  211.       swc7 = 0
  212.    end
  213. end
  214. set_stone("st-bolder", 16,21, {name="bolder07", direction=NORTH})
  215. set_item("it-trigger", 16,17, {invisible=1, action="callback", target="sw13"})
  216. set_item("it-trigger", 16,23, {invisible=1, action="callback", target="sw14"})
  217.  
  218. swc8 = 0;
  219. function sw15()
  220.    if (swc8 == 0) then
  221.       enigma.SendMessage(enigma.GetNamedObject("bolder08"), "direction",EAST)
  222.       swc8 = 1
  223.    end
  224. end
  225. function sw16()
  226.    if (swc8 == 1) then
  227.       enigma.SendMessage(enigma.GetNamedObject("bolder08"), "direction",WEST)
  228.       swc8 = 0
  229.    end
  230. end
  231. set_stone("st-bolder",  6,12, {name="bolder08", direction=WEST})
  232. set_item("it-trigger",  3,12, {invisible=1, action="callback", target="sw15"})
  233. set_item("it-trigger", 18,12, {invisible=1, action="callback", target="sw16"})
  234.  
  235. swc9 = 0;
  236. function sw17()
  237.    if (swc9 == 0) then
  238.       enigma.SendMessage(enigma.GetNamedObject("bolder09"), "direction",EAST)
  239.       swc9 = 1
  240.    end
  241. end
  242. function sw18()
  243.    if (swc9 == 1) then
  244.       enigma.SendMessage(enigma.GetNamedObject("bolder09"), "direction",WEST)
  245.       swc9 = 0
  246.    end
  247. end
  248. set_stone("st-bolder", 14,14, {name="bolder09", direction=WEST})
  249. set_item("it-trigger",  3,14, {invisible=1, action="callback", target="sw17"})
  250. set_item("it-trigger", 18,14, {invisible=1, action="callback", target="sw18"})
  251.  
  252. set_actor("ac-blackball", 1.5, 5.5, {player=0})
  253.