home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / ant08.lua < prev    next >
Text File  |  2003-02-21  |  2KB  |  54 lines
  1. -- Mourning Palace -- the Enigma Level
  2. -- (c) 2003 Petr Machata/ant_39
  3. -- Licensed under GPL v2.0 or above
  4. -- 2003-01-07
  5. -- 2003-02-20 -- rewrites
  6.  
  7. dofile(enigma.FindDataFile("levels/ant.lua"))
  8.  
  9. -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
  10. function construct(x, y) set_floor("fl-normal", x, y) end
  11. function destruct(x, y)  set_floor("fl-abyss", x, y) end
  12. -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
  13.  
  14. cells={}
  15. cells[";"]=cell{floor={face="fl-metal"}}
  16. cells["'"]=cell{floor={face="fl-normal"}}
  17. cells[","]=cell{floor={face="fl-tigris"}}
  18. cells["."]=cell{floor={face="fl-abyss"}}
  19. cells[" "]=cell{parent={{randomfloor,{cells[","], cells[";"], 10}}}}
  20. cells["="]=cell{stone={face="st-glass"}}
  21. cells["O"]=cell{actor={face="ac-blackball", attr={player=0}}}
  22.  
  23. path = {}
  24. loco = {}
  25. cells["!"]=cell{parent={cells["."], {add_multicell, path, 0}}}
  26. cells["_"]=cell{parent={cells["!"], {add_multicell, path, 1}, cells["'"]}}
  27. cells["c"]=cell{parent={cells["_"], {add_multicell, loco, construct}}}
  28. cells["d"]=cell{parent={cells["!"], {add_multicell, loco, destruct}}}
  29. rail = new_rail(loco, path)
  30.  
  31. cells["~"]=cell{stone={face="st-timer", attr={action="callback", target="rail", interval=0.15}}}
  32. cells["0"]=oxyd
  33.  
  34. level = {
  35.    "==========================================================",
  36.    "=!!!!!!!!!!d______c!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!=",
  37.    "=!0                ====================                0!=",
  38.    "=!!!!!!!!!!!!c_ = !!!!!!!!!!!c______d!!!!!!!!!!!!!!!!!!!!=",
  39.    "==============_   !==================================== ==",
  40.    "=!!!!!!!!!!!!=_ = !=!!c______d!!!!!!!!=!!!!!!!!!!!!!!=!!!=",
  41.    "=!          !=_ = !=!               0!=!           0!=! !=",
  42.    "=!          !=_ = ! ! !!!!!!!!!!!!!!!!=! !!!!!!!!!!!!=! !=",
  43.    "=!  0    O  ! _   !=! !================! !============! !=",
  44.    "=!          !=d = !=! !=!!!!d______c!!!! !=!!d______c!! !=",
  45.    "=!          !=!   !=! ! !0           0=  ! !0           !=",
  46.    "=c______d!!!!=!!!!!=!!!=!!!!!!!!!!!!!!!!!!=!!!!!!!!!!!!!!=",
  47.    "~========================================================="
  48. }
  49.  
  50. -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
  51. set_default_parent(cells[" "])
  52. create_world_by_map(level)
  53. oxyd_shuffle()
  54.