home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / ant15.lua < prev    next >
Text File  |  2003-09-19  |  1KB  |  34 lines
  1. -- Snow White -- the Enigma Level
  2. -- (c) 2003 Petr Machata/ant_39
  3. -- Licensed under GPL v2.0 or above
  4. -- 2003-02-17
  5. -- update 2003-09-18 Sven Siggelkow: inserted "controllers=1" because the white marble didn't move
  6. dofile(enigma.FindDataFile("levels/ant.lua"))
  7.  
  8. -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
  9. actors = {}
  10. bctors = {}
  11. actor  = cell{{{add_multiactor, "ac-whiteball-small", actors, {player=0, mouseforce=0}}}}
  12. bctor  = cell{{{add_multiactor, "ac-whiteball", bctors, {player=0, controllers=1}}}}
  13. normal = cell{floor="fl-rough"}
  14. invert = cell{floor="fl-inverse"}
  15. stone  = cell{stone="st-glass"}
  16. tiles  = cell{{{randomfloor, {normal, invert}}}}
  17. mask   = cell{stone="st-chameleon"}
  18. -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
  19. randomseed(666)
  20.  
  21. create_world(20, 13)
  22. fill_world_func(tiles)
  23. draw_border_func({normal, stone})
  24. draw_border_func(abyss, 1, 1, -2, -2)
  25.  
  26. local x0, y0 = 4,4
  27. bctor(x0,y0)
  28. document(x0,y0,"Look... they're over there!")
  29. ngon_funcs(actor, {x0,y0}, 2.25, 3, 60)
  30. ngon_funcs({hollow, mask}, {15.5,7.5}, 2.5, 3, 0, floor)
  31. rubber_band_circle(actors, -10, 0)
  32. rubber_band_circle(actors, 40, 3.25)
  33. add_rubber_bands(actors, bctors, 10, 0)
  34.