home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / martin18.lua < prev    next >
Text File  |  2003-01-05  |  1KB  |  59 lines
  1. -- created by Martin Hawlisch
  2.  
  3. levelw = 20
  4. levelh = 13
  5.  
  6. stone="st-greenbrown"
  7.  
  8. create_world( levelw, levelh)
  9. fill_floor("fl-sand", 0,0,levelw,levelh)
  10.  
  11. draw_border( stone)
  12. draw_stones( stone, {6,1}, {0,1}, 6)
  13. draw_stones( stone, {4,6}, {0,1}, 6)
  14. draw_stones( stone, {11,5}, {1,0}, 8)
  15. draw_stones( stone, {11,6}, {1,0}, 8)
  16. draw_stones( stone, {11,7}, {1,0}, 8)
  17. draw_stones( stone, {13,1}, {0,1}, 3)
  18. draw_stones( stone, {13,9}, {0,1}, 3)
  19.  
  20. set_stone( "st-wood", 6, 7)
  21. set_item( "it-hammer", 6, 7)
  22. set_item( "it-magicwand", 8, 8)
  23. set_stone( "st-stoneimpulse", 5,8)
  24.  
  25. mytimer=0
  26. function timer_action()
  27.     fart=enigma.GetNamedObject("fart")
  28.     doora=enigma.GetNamedObject("door1")
  29.     doorb=enigma.GetNamedObject("door2")
  30.     if mytimer == 0 then
  31.         enigma.SendMessage( fart, "trigger", nil)
  32.         enigma.SendMessage( doora, "open", nil)
  33.         enigma.SendMessage( doorb, "close", nil)
  34.     end
  35.         if mytimer == 1 then
  36.                    enigma.SendMessage( fart, "trigger", nil)
  37.                 enigma.SendMessage( doora, "close", nil)
  38.                 enigma.SendMessage( doorb, "open", nil)
  39.         end
  40.         mytimer = mytimer + 1
  41.         if mytimer == 2 then
  42.             mytimer = 0
  43.         end
  44. end
  45.  
  46. set_stone( "st-fart", 6, 3, {name="fart"})
  47. doorv( 13, 4, {name="door1"})
  48. doorv( 13, 8, {name="door2"})
  49. set_stone( "st-timer", 13,6, { action="callback", target="timer_action", interval=5})
  50.  
  51. oxyd(1,1)
  52. oxyd(1,11)
  53. oxyd(18,1)
  54. oxyd(18,11)
  55. oxyd_shuffle()
  56.  
  57. set_actor("ac-blackball", 9, 8, {player=0})
  58.  
  59.