home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / meditation8.lua < prev    next >
Encoding:
Text File  |  2003-01-05  |  2.3 KB  |  65 lines
  1. --Siegfried Fennig
  2.  
  3. levelw = 39
  4. levelh = 13
  5.  
  6. create_world(levelw, levelh)
  7. draw_border("st-wood_001")
  8. fill_floor("fl-floor_001", 0,0, level_width,level_height)
  9.  
  10. draw_stones("st-wood_001", {4,2}, {1,0},2)
  11. draw_stones("st-wood_001", {5,3}, {1,0},4)
  12. draw_stones("st-wood_001", {14,2}, {1,0},2)
  13. draw_stones("st-wood_001", {11,3}, {1,0},4)
  14. draw_stones("st-wood_001", {4,6}, {1,0},2)
  15. draw_stones("st-wood_001", {2,5}, {1,0},3)
  16. draw_stones("st-wood_001", {2,7}, {1,0},3)
  17. draw_stones("st-wood_001", {5,9}, {1,0},4)
  18. draw_stones("st-wood_001", {4,10}, {1,0},2)
  19. draw_stones("st-wood_001", {8,4}, {0,1},5)
  20. draw_stones("st-wood_001", {11,4}, {0,1},5)
  21. draw_stones("st-wood_001", {11,9}, {1,0},4)
  22. draw_stones("st-wood_001", {14,10}, {1,0},2)
  23. draw_stones("st-wood_001", {14,6}, {1,0},2)
  24. draw_stones("st-wood_001", {15,5}, {1,0},3)
  25. draw_stones("st-wood_001", {15,7}, {1,0},3)
  26. draw_stones("st-wood_001", {19,1}, {0,1},11)
  27.  
  28. set_stone("st-switch", 3,2, {action="trigger", target="h1"})
  29. set_stone("st-switch", 3,10, {action="trigger", target="h2"})
  30. set_stone("st-switch", 16,10, {action="trigger", target="h3"})
  31. set_stone("st-switch", 16,2, {action="trigger", target="h4"})
  32.  
  33. set_item( "it-hollow", 7,6, {name="h1"})
  34. set_item( "it-hollow", 9,6, {name="h2"})
  35. set_item( "it-hollow",10,6, {name="h3"})
  36. set_item( "it-hollow",12,6, {name="h4"})
  37.  
  38. set_stone( "st-timer", 21, 1, {action="callback", target="th1"})
  39.  
  40. timer = 0
  41.  
  42. function th1()
  43.     if timer == 0 then
  44.     enigma.SendMessage( enigma.GetNamedObject("h1"), "trigger", nil)
  45.     enigma.SendMessage( enigma.GetNamedObject("h2"), "trigger", nil)
  46.     enigma.SendMessage( enigma.GetNamedObject("h3"), "trigger", nil)
  47.     enigma.SendMessage( enigma.GetNamedObject("h4"), "trigger", nil)
  48.     end
  49.     if timer == 5 then
  50.     enigma.SendMessage( enigma.GetNamedObject("h1"), "trigger", nil)
  51.     enigma.SendMessage( enigma.GetNamedObject("h2"), "trigger", nil)
  52.     enigma.SendMessage( enigma.GetNamedObject("h3"), "trigger", nil)
  53.     enigma.SendMessage( enigma.GetNamedObject("h4"), "trigger", nil)
  54.     end
  55.     timer = timer + 1
  56.     if timer == 20 then
  57.         timer = 0
  58.     end
  59. end
  60.  
  61. set_actor("ac-whiteball-small",  6.5, 2.5, {player=0, mouseforce=1})
  62. set_actor("ac-whiteball-small",  6.5,10.5, {player=0, mouseforce=1})
  63. set_actor("ac-whiteball-small", 13.5, 2.5, {player=0, mouseforce=1})
  64. set_actor("ac-whiteball-small", 13.5,10.5, {player=0, mouseforce=1})
  65.