home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / oxe03.lua < prev    next >
Encoding:
Text File  |  2003-03-08  |  981 b   |  31 lines
  1. -- Down Hill -- Oxyd Extra -- the Enigma Level
  2. -- (c) 2003 Petr Machata/ant_39
  3. -- Licensed under GPL v2.0 or above
  4. -- 2003-02-16
  5.  
  6. dofile(enigma.FindDataFile("levels/ant.lua"))
  7.  
  8. -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
  9. actor = cell{actor={"ac-blackball", {player=0}}}
  10. gradw = cell{parent={{gradient, SLOPE_W}}}
  11. grade = cell{parent={{gradient, SLOPE_E}}}
  12. normal= cell{floor="fl-normal"}
  13. worm2 = cell{parent={{wormhole, 9.5, 8.5, {range=7}}}}
  14. worm7 = cell{parent={{wormhole, 9.5, 3.5, {range=7.5}}}}
  15. -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
  16.  
  17. create_world(20, 13)
  18. fill_world_func(abyss)
  19.  
  20. for _,y in {2,7} do
  21.    draw_border_func({fakeoxyd, normal}, 0, y, 0, 3)
  22.    draw_func(normal, {0,y+1}, {1,0}, 20)
  23.    gradw( 8,y+1)
  24.    grade(10,y+1)
  25.    set_funcs(oxyd, {{3,y},{3,y+2},{16,y},{16,y+2}})
  26.    dostring("set_funcs(worm"..y..", {{1,"..(y+1).."},{18,"..(y+1).."}})")
  27. end
  28.  
  29. actor(9, 8)
  30. oxyd_shuffle()
  31.