home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / ant07.lua < prev    next >
Text File  |  2003-08-18  |  2KB  |  54 lines
  1. -- Automaton Magic -- the Enigma Level
  2. -- (c) 2002 Petr Machata/ant_39
  3. -- Licensed under GPL v2.0 or above
  4. -- 2003-02-10 -- keeping up to date with latest additions to ant.lua
  5. -- 2003-06-23 -- changed abyss to water, because st-bolder now falls into abyss [ralf]
  6.  
  7. dofile(enigma.FindDataFile("levels/ant.lua"))
  8. -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
  9.  
  10. stepon = nil
  11. function turnbolder()
  12.    stepon = not(stepon)
  13.    if (stepon) then
  14.       local bolder_dir=enigma.GetAttrib(enigma.GetNamedObject("bolder1"), "direction") -1
  15.       while (bolder_dir<0) do bolder_dir = bolder_dir +4 end
  16.       enigma.SendMessage(enigma.GetNamedObject("bolder1"), "direction",bolder_dir)
  17.    end
  18. end
  19.  
  20. -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
  21.  
  22. cells={}
  23. cells[" "]=cell{floor="fl-sand"}
  24. cells["."]=cell{floor="fl-water"}
  25. cells["#"]=cell{stone="st-greenbrown"}
  26. cells["O"]=cell{actor={"ac-blackball", {player=0}}}
  27. cells["m"]=cell{item= {"it-magicwand"}}
  28. cells["T"]=cell{parent=cells["."],item={"it-trigger", {action="callback", target="turnbolder", invisible=1}}}
  29. cells[">"]=cell{stone={"st-bolder", {direction=EAST, name="bolder1"}}}
  30. cells["0"]=oxyd
  31.  
  32. level = {
  33.    "####0##########0####",
  34.    "#....          ....#",
  35.    "#.                .#",
  36.    "#.                .#",
  37.    "0.  T   >      T  .0",
  38.    "#                  #",
  39.    "#       m O        #",
  40.    "#                  #",
  41.    "0.  T          T  .0",
  42.    "#.                .#",
  43.    "#.                .#",
  44.    "#....          ....#",
  45.    "####0##########0####"
  46. }
  47.  
  48.  
  49. -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
  50. oxyd_default_flavor = "a"
  51. set_default_parent(cells[" "])
  52. create_world_by_map(level)
  53. oxyd_shuffle()
  54.