home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / ant23.lua < prev    next >
Encoding:
Text File  |  2003-02-21  |  1.9 KB  |  56 lines
  1. -- Meditation -- the Enigma Level
  2. -- (c) 2003 Petr Machata/ant_39
  3. -- Licensed under GPL v2.0 or above
  4. -- 2003-02-02
  5. -- 2003-02-09 -- fixes in object groups
  6. -- 2003-02-10 -- rubber band fix
  7.  
  8. dofile(enigma.FindDataFile("levels/ant.lua"))
  9.  
  10. -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
  11.  
  12. cells={}
  13.  
  14. cells[" "]=cell{floor={face="fl-metal"}}
  15.  
  16. puzzles = {};
  17. cells["#"]=cell{parent={{add_multicell, puzzles}}}
  18.  
  19. cells["O"]=cell{item={face="it-hollow"}}
  20. cells["a"]=cell{item={face="it-trigger", attr={action="openclose", target="doorA"}}}
  21. cells["b"]=cell{item={face="it-trigger", attr={action="openclose", target="doorB"}}}
  22. cells["c"]=cell{item={face="it-trigger", attr={action="openclose", target="doorC"}}}
  23. cells["d"]=cell{item={face="it-trigger", attr={action="openclose", target="doorD"}}}
  24. cells["A"]=cell{parent=cells["O"], stone={face="st-door_b", attr={type="v", name="doorA"}}}
  25. cells["B"]=cell{parent=cells["O"], stone={face="st-door_b", attr={type="v", name="doorB"}}}
  26. cells["C"]=cell{parent=cells["O"], stone={face="st-door_b", attr={type="v", name="doorC"}}}
  27. cells["D"]=cell{parent=cells["O"], stone={face="st-door_b", attr={type="v", name="doorD"}}}
  28.  
  29. blocks = {};
  30. actors = {};
  31. cells["W"]=cell{parent={{add_multistone, "st-block", blocks}}}
  32. cells["o"]=cell{parent={{add_multiactor, "ac-whiteball-small", actors, {player=0, mouseforce=1}}}}
  33.  
  34. level = {
  35.    "####################",
  36.    "#o  #          #  o#",
  37.    "#   #          #   #",
  38.    "#  W            W  #",
  39.    "###       a      ###",
  40.    "#         b        #",
  41.    "#       AB CD      #",
  42.    "#         c        #",
  43.    "###       d      ###",
  44.    "#  W            W  #",
  45.    "#   #          #   #",
  46.    "#o  #          #  o#",
  47.    "####################"
  48. }
  49.  
  50. -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
  51. set_default_parent(cells[" "])
  52. create_world_by_map(level)
  53. add_rubber_band_pairs(actors, blocks, 10, 0)
  54. render_puzzles(puzzles);
  55. oxyd_shuffle()
  56.