home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / ant31.lua < prev    next >
Text File  |  2003-04-13  |  2KB  |  61 lines
  1. -- Atrocity -- the Enigma Level
  2. -- (c) 2003 Petr Machata/ant_39
  3. -- Licensed under GPL v2.0 or above
  4. -- 2003-03-13
  5.  
  6. Require("levels/ant.lua")
  7.  
  8. -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
  9. multiplayer_mode()
  10.  
  11. cells={}
  12. use_cells(cells, "O")
  13.  
  14. cells[" "]=cell{}
  15. cells["-"]=cell{{{gradient, FLAT_FORCE_S}}}
  16. cells["_"]=cell{{{gradient, FLAT_FORCE_N}}}
  17. cells["#"]=cell{stone="st-rock2"}
  18. cells["%"]=cell{stone="st-scissors"}
  19. cells["w"]=cell{stone="st-white4"}
  20. cells["b"]=cell{stone="st-black4"}
  21.  
  22. stones={}
  23. actors={}
  24. cells["?"]=cell{{{add_multistone, "st-rock2", stones}}}
  25. cells["2"]=cell{{{add_multiactor, "ac-whiteball", actors, {player=1, mouseforce=0}}}}
  26. cells["O"]=cell{{{add_multiobject, actors, cells["O"]}}}
  27.  
  28. slopes={}
  29. pivots={}
  30. cells["*"]=cell{{{add_multicell, slopes, 1}}}
  31. cells["&"]=cell{{{add_multicell, pivots, slopes}, cells["~"]}}
  32.  
  33. level = {
  34.    "#0#0#0#0###DDDDDDDD#",
  35.    "#bbbbbbbb##XXXXXXXX#",
  36.    "#******************#",
  37.    "#*&  ?  ****  %  &*#",
  38.    "#*   O  *##*      *#",
  39.    "#*      *##*      *#",
  40.    "#*      *##*      *#",
  41.    "#*      *##*      *#",
  42.    "#*      *##*  2   *#",
  43.    "#*   %  ****  ?   *#",
  44.    "#******************#",
  45.    "#XXXXXXXX##wwwwwwww#",
  46.    "#DDDDDDDD###0#0#0#0#"
  47. }
  48.  
  49. -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
  50.  
  51. set_default_parent(function(x,y) if (x>=10) then cells["_"](x,y) else cells["-"](x,y) end end)
  52. oxyd_default_flavor = "d"
  53. create_world_by_map(level)
  54.  
  55. add_rubber_band_pairs(actors, stones, 10, 0)
  56.  
  57. spread_tag(pivots)
  58. render_slopes(slopes)
  59.  
  60. oxyd_shuffle()
  61.