home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / martin35.lua < prev    next >
Encoding:
Text File  |  2003-01-05  |  1.2 KB  |  53 lines
  1. -- created by Martin Hawlisch
  2.  
  3. levelw = 20
  4. levelh = 13
  5.  
  6. stone="st-rock1"
  7.  
  8. create_world( levelw, levelh)
  9. fill_floor( "fl-abyss", 0, 0, levelw, levelh)
  10.  
  11. draw_border( stone)
  12. draw_stones( stone, { 2, 2}, {0,1}, 9)
  13. draw_stones( stone, {17, 2}, {0,1}, 9)
  14. draw_stones( stone, { 4, 2}, {1,0},12)
  15. draw_stones( stone, { 4,10}, {1,0},12)
  16.  
  17. draw_floor("fl-gradient", { 2, 1}, {1,0},  8, {type=3})
  18. draw_floor("fl-gradient", {10, 1}, {1,0},  8, {type=4})
  19. draw_floor("fl-gradient", { 2,11}, {1,0},  8, {type=3})
  20. draw_floor("fl-gradient", {10,11}, {1,0},  8, {type=4})
  21. draw_floor("fl-gradient", { 1, 2}, {0,1}, 15, {type=1})
  22. draw_floor("fl-gradient", { 1, 6}, {0,1}, 15, {type=2})
  23. draw_floor("fl-gradient", {18, 2}, {0,1}, 15, {type=1})
  24. draw_floor("fl-gradient", {18, 6}, {0,1}, 15, {type=2})
  25.  
  26. set_floor("fl-gradient", 1, 1, {type=9})
  27. set_floor("fl-gradient",18, 1, {type=11})
  28. set_floor("fl-gradient",18,11, {type=12})
  29. set_floor("fl-gradient", 1,11, {type=10})
  30.  
  31. oxyd( 0, 3)
  32. oxyd( 0, 9)
  33. oxyd(19, 3)
  34. oxyd(19, 9)
  35. oxyd( 3, 0)
  36. oxyd(16, 0)
  37. oxyd( 3,12)
  38. oxyd(16,12)
  39. oxyd( 2, 3)
  40. oxyd( 2, 9)
  41. oxyd(17, 3)
  42. oxyd(17, 9)
  43. oxyd( 3, 2)
  44. oxyd( 3,10)
  45. oxyd(16, 2)
  46. oxyd(16,10)
  47.  
  48. oxyd_shuffle()
  49.  
  50.  
  51. set_actor("ac-blackball", 1.5, 10, {player=0})
  52.  
  53.