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