home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / ant29.lua < prev    next >
Text File  |  2003-06-07  |  2KB  |  56 lines
  1. -- Robbery -- the Enigma Level
  2. -- (c) 2003 Petr Machata/ant_39
  3. -- Licensed under GPL v2.0 or above
  4. -- 2003-02-11
  5.  
  6. dofile(enigma.FindDataFile("levels/ant.lua"))
  7.  
  8. -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
  9.  
  10. function f_doorA() send_group_message(doorsA, "openclose") end
  11.  
  12. -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
  13.  
  14. floor = cell{floor="fl-himalaya"}
  15. stone = cell{stone="st-rock4"}
  16. actor = cell{actor={"ac-blackball", {player=0}}}
  17. doorsA = {}
  18. doorA = cell{{{add_multistone, "st-door_a", doorsA, {type="v"}}}}
  19. cslt1 = cell{stone={"st-coinslot", {action="callback", target="f_doorA"}}}
  20. coin1 = cell{item= {"it-coin", {value=1}}}
  21. coin2 = cell{item= {"it-coin", {value=2}}}
  22. coin3 = cell{item= {"it-coin", {value=4}}}
  23. coinr = cell{{{randomfloor, {coin1, coin2, coin3}}}}
  24. crack3 = cell{item= {"it-crack", {type=3, fixed=1}}}
  25. crack2 = cell{item= {"it-crack", {type=1, fixed=1}}}
  26. spring = cell{item= "it-spring2"}
  27.  
  28. -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
  29.  
  30. create_world(20, 13)
  31. oxyd_default_flavor = "a"
  32. fill_world_func(floor)
  33. draw_border_func(stone)
  34. draw_func(abyss, {13,0}, {0,1}, 13)
  35. for i=0,4 do draw_func(coinr, {14+i,6-i}, {0,1}, 2*i+1) end
  36. draw_func(stone, {12,1}, {0,1}, 3)
  37. draw_func(stone, {12,11}, {0,-1}, 3)
  38. draw_func(stone, {14,1}, {0,1}, 3)
  39. draw_func(stone, {14,11}, {0,-1}, 3)
  40.  
  41. set_funcs(oxyd, {{1,1},{1,11},{11,1},{11,11}})
  42. set_funcs(stone, {{1,2},{2,2},{1,10},{2,10},{11,2},{10,2},{11,10},{10,10}})
  43. set_funcs(doorA, {{2,1},{2,11},{10,1},{10,11}})
  44. cslt1(6,6)
  45. coin1(8,7)
  46.  
  47. crack3(11,9)
  48. crack2(10,9)
  49. crack2(11,8)
  50. spring(10,11)
  51.  
  52. actor(5,5)
  53.  
  54. oxyd_shuffle()
  55. enigma.ConserveLevel = FALSE
  56.