home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / ant30.lua < prev    next >
Text File  |  2003-10-04  |  1KB  |  50 lines
  1. -- The Laser Magic -- the Enigma Level
  2. -- (c) 2003 Petr Machata/ant_39
  3. -- Licensed under GPL v2.0 or above
  4. -- 2003-02-12
  5.  
  6. Require("levels/ant.lua")
  7. enigma.ConserveLevel=FALSE                  -- \dh\
  8.  
  9. -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
  10.  
  11. cells={}
  12.  
  13. floor = cell{floor={face="fl-floor_001"}}
  14. stone = cell{stone={face="st-marble"}}
  15. block = cell{stone={face="st-block"}}
  16. stbrk = cell{stone={face="st-stone_break"}}
  17. door  = cell{stone={face="st-door", attr={name="doorA", type="v"}}}
  18.  
  19. cslt1 = cell{stone={face="st-coinslot", attr={action="openclose", target="doorA"}}}
  20. cslt2 = cell{stone={face="st-coinslot", attr={action="onoff", target="laserA"}}}
  21. coin1 = cell{item= {face="it-coin", attr={value=1}}}
  22.  
  23. actor = cell{actor={face="ac-blackball", attr={player=0, mouseforce=1}}}
  24.  
  25. -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
  26. create_world(20, 13)
  27. oxyd_default_flavor = "b"
  28. fill_world_func(floor)
  29. draw_border_func(stone)
  30.  
  31. draw_func(stone, {3,1}, {0,1}, 11)
  32. draw_func(stone, {16,1}, {0,1}, 11)
  33.  
  34. set_funcs(fakeoxyd, {{1,1},{1,11}})
  35. set_funcs(oxyd, {{18,1},{18,11}})
  36.  
  37. door(3, 6)
  38. cslt1(5, 6)
  39. Document(2, 3, "Give it another try...")
  40.  
  41. set_attrib(laser(16, 11, FALSE, WEST), "name", "laserA")
  42. stbrk(16, 6)
  43. cslt2(14, 6)
  44.  
  45. actor(7,7)
  46. coin1(9,7)
  47. coin1(10,7)
  48.  
  49. block(11, 3)
  50.