home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / ant14.lua < prev    next >
Text File  |  2003-08-18  |  2KB  |  69 lines
  1. -- Dancers -- the Enigma Level
  2. -- (c) 2003 Petr Machata/ant_39
  3. -- Licensed under GPL v2.0 or above
  4. -- 2003-01-11
  5. -- 2003-02-10 -- keeping up to date with latest additions to ant.lua
  6.  
  7. dofile(enigma.FindDataFile("levels/ant.lua"))
  8.  
  9. -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
  10. count_revert = nil
  11. revert_dir = nil
  12.  
  13. function revert_bolders()
  14.    --open/close all doors in map
  15.    send_group_message(doors, "openclose", nil)
  16.  
  17.    --on every odd triggger invert bolder dir
  18.    if (not(count_revert)) then
  19.       if (revert_dir)
  20.       then send_group_message(bolders, "direction",EAST)
  21.       else send_group_message(bolders, "direction",WEST)
  22.       end
  23.       revert_dir = not(revert_dir)
  24.    end
  25.  
  26.    count_revert = not(count_revert)
  27. end
  28.  
  29. -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
  30.  
  31. cells={}
  32.  
  33. cells[" "]=cell{floor="fl-marble"}
  34. cells["."]=cell{floor="fl-water"}
  35. cells["#"]=cell{parent=cells["."],stone="st-marble"}
  36. cells["V"]=cell{{{laser, TRUE, SOUTH}}}
  37. cells["^"]=cell{{{laser, TRUE, NORTH}}}
  38. cells["+"]=cell{item={"it-trigger", {action="callback", target="revert_bolders"}}}
  39.  
  40. bolders = {}
  41. doors   = {}
  42. cells[">"]=cell{{{add_multistone, "st-bolder", bolders, {direction=EAST}}}}
  43. cells["="]=cell{{{add_multistone, "st-door_a", doors, {type="h"}}, cells["."]}}
  44.  
  45. cells["0"]=oxyd
  46. cells["O"]=cell{actor={"ac-blackball", {player=0}}}
  47.  
  48. level = {
  49.    "#########V##########",
  50.    "#.......#=#........#",
  51.    "#..0............0..#",
  52.    "#+.>     >       ..#",
  53.    "#......... ........#",
  54.    "#..0...... .....0..#",
  55.    "#..>   O >       ..#",
  56.    "#..0..... ......0..#",
  57.    "#........ .........#",
  58.    "#..>     >       .+#",
  59.    "#..0............0..#",
  60.    "#........#=#.......#",
  61.    "##########^#########"
  62. }
  63.  
  64. -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
  65. oxyd_default_flavor="c"
  66. set_default_parent(cells[" "])
  67. create_world_by_map(level)
  68. oxyd_shuffle()
  69.