home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / qq1.lua < prev    next >
Encoding:
Text File  |  2003-01-05  |  1.7 KB  |  58 lines
  1. levelw = 20
  2. levelh = 25
  3.  
  4. create_world(levelw, levelh)
  5. draw_border("st-glass")
  6. draw_stones("st-glass", {0, 12}, {1, 0}, levelw-3)
  7. fill_floor("fl-leaves", 0,0, level_width,level_height)
  8.  
  9. draw_stones("st-grate1", {7, 13}, {0, 1}, levelh-14)
  10. draw_stones("st-brick_magic", {4, 13}, {0, 1}, levelh-14)
  11. draw_stones("st-brick_magic", {5, 23}, {1, 0}, levelw-6)
  12.  
  13. set_attrib(laser(0, 0, TRUE, EAST), "name", "laser")
  14. draw_stones("st-glass", {5,1}, {2,0}, levelw-1)
  15.  
  16.     for i=6, levelw-4, 2 do
  17.     mirrorp(i, 0, FALSE, TRUE, 2)
  18.     
  19.     doorh(i, 1, {name="l_door"..i})
  20.     enigma.SendMessage(enigma.GetNamedObject("l_door"..i), "open", nil)
  21.         
  22.         if i>8 then
  23.         mirror3(i, levelw-i+11, TRUE, FALSE, 3)
  24.         oxyd(i, levelh-1)
  25.         oxyd(2, levelw-i+11)
  26.         end
  27.     
  28.     set_item("it-trigger", i-1, 11, { action="open", target="l_door"..i })
  29. --    set_item("it-trigger", i-1, 10, { action="open", target="p_door"..i })
  30.     end
  31.  
  32. set_item("it-trigger", 18, 1, { action="callback", target="close_all" })
  33. draw_stones("st-glass", {17, 2}, {0, 1}, 3)
  34. doorh(18, 2, { name="switchdoor" })
  35. doorh(18, 4, { name="entrance" })
  36. enigma.SendMessage(enigma.GetNamedObject("entrance"), "open", nil)
  37.  
  38. set_item("it-magicwand", 1, 1)
  39. draw_stones("st-glass", {2, 1}, {0, 1}, 4)
  40.  
  41.     for i=2, 4 do
  42.     doorh(1,i, { name="w_door"..i })
  43.     set_item("it-trigger", 1, i+5, { action="openclose", target="w_door"..i})
  44.     end
  45.  
  46. set_item("it-trigger", 18, 11, { action="openclose", target="switchdoor"})
  47. set_stone("st-brownie", 11, 16)
  48.  
  49. oxyd_shuffle()
  50. set_actor("ac-blackball", 18.5, 3.5, {player=0})
  51.  
  52. function close_all()
  53.     for i=6, levelw-4, 2 do
  54.     enigma.SendMessage(enigma.GetNamedObject("l_door"..i), "close", nil)
  55.     end
  56. end
  57.  
  58.