home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / jc01.lua < prev    next >
Encoding:
Text File  |  2003-04-23  |  1.7 KB  |  78 lines
  1. -- Hurry!
  2. -- by Jens-Christian Korth
  3.  
  4.  
  5. c = 0
  6. inner = 0
  7. total = 0
  8.  
  9. function sw1()
  10.    if (inner == 0) then
  11.       if (c == 0) then
  12.          enigma.SendMessage(enigma.GetNamedObject("door"), "open", nil)
  13.          c = 5
  14.          total = total + 1
  15.          if (total == 10) then
  16.             total = 0
  17.             enigma.SendMessage(enigma.GetNamedObject("fart"), "trigger", nil)
  18.          end
  19.       end
  20.    else
  21.       c = 1
  22.    end
  23.    inner = 0
  24. end
  25.  
  26. function sw2()
  27.    inner = 1
  28. end
  29.  
  30. function nextsec()
  31.    if (c > 0) then
  32.       enigma.SendMessage(enigma.GetNamedObject("fakeox"), "blink", nil)
  33.       c = c - 1
  34.       if (c == 0) then
  35.          enigma.SendMessage(enigma.GetNamedObject("door"), "close", nil)
  36.       end
  37.    end
  38. end
  39.  
  40.  
  41. create_world(20, 13) 
  42. draw_border("st-invisible")
  43. fill_floor("fl-stone", 0,0, level_width,level_height)
  44. fill_floor("fl-normal", 13,0,6,level_height)
  45.  
  46. draw_stones("st-rock1", {12,1}, {0,1}, 11)
  47. draw_stones("st-rock1", {19,1}, {0,1}, 11)
  48. draw_stones("st-rock1", {12,0}, {1,0}, 8)
  49. draw_stones("st-rock1", {12,12}, {1,0}, 8)
  50. set_stone("st-rock1", 11,5)
  51. set_stone("st-rock1", 13,5)
  52. set_stone("st-rock1", 11,7)
  53. set_stone("st-rock1", 13,7)
  54.  
  55. set_stone("st-door", 12, 6, {name="door", type="v"})
  56. set_floor("fl-gradient", 12, 6, {type=3})
  57.  
  58. set_item("it-trigger", 11, 6, {action="callback", target="sw1"})
  59. set_item("it-trigger", 13, 6, {action="callback", target="sw2"})
  60.  
  61. set_stone("st-timer", 12,5, 
  62.           {loop=0, action="callback", target="nextsec", interval=1})
  63. set_stone("st-fart", 17,10, {name="fart"})
  64. oxyd(14,2)
  65. oxyd(17,2)
  66. oxyd(14,10)
  67. oxyd(17,6)
  68. oxyd(2,2)
  69. oxyd(6,2)
  70. oxyd(10,2)
  71. oxyd(6,6)
  72. oxyd(2,10)
  73. oxyd(2,6)
  74. oxyd(6,10)
  75. oxyd(10,10)
  76. oxyd_shuffle() 
  77.  
  78. set_actor("ac-blackball", 10,6.5, {player=0})