home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / martin07.lua < prev    next >
Encoding:
Text File  |  2003-01-05  |  1.2 KB  |  56 lines
  1. -- created by Martin Hawlisch
  2.  
  3. levelw = 20
  4. levelh = 13
  5. stone="st-greenbrown"
  6.  
  7. create_world( levelw, levelh)
  8. draw_border( stone)
  9. fill_floor("fl-gray", 0,0,levelw,levelh)
  10. set_stone("st-wood", 8, 6)
  11. set_floor("fl-abyss", 9,5)
  12.  
  13. --document( 6,6, "Manche Steine und Steinreihen lassen sich verschieben!")
  14. document(6,6, "Some stones and stone rows can be moved!")
  15. oxyd( 2, 4)
  16. oxyd( 4, 4)
  17. oxyd( 3, 6)
  18. oxyd( 2, 8)
  19. oxyd( 4, 8)
  20. oxyd( 18,2)
  21. oxyd_shuffle()
  22. set_stone( stone, 12, 1)
  23. set_stone( stone, 12, 2)
  24. set_stone( stone, 11, 6)
  25. draw_stones( stone, {8,4},{3,0},3)
  26. draw_stones( stone, {9,1},{0,1},4)
  27. draw_stones( stone, {9,6},{0,1},6)
  28. draw_stones( stone, {13,6},{1,0},3)
  29. draw_stones( stone, {13,8},{0,1},4)
  30. draw_stones( stone, {16,1},{0,1},6)
  31. puzzle( 7, 4,PUZ_0010)
  32. puzzle( 7, 5,PUZ_1010)
  33. puzzle( 7, 6,PUZ_1010)
  34. puzzle( 7, 7,PUZ_1000)
  35.  
  36. set_stone(stone, 11,3)
  37. set_stone(stone, 14,3)
  38. puzzle( 11, 2,PUZ_0100)
  39. puzzle( 12, 2,PUZ_0001)
  40. set_floor("fl-abyss", 13,2)
  41. set_floor("fl-abyss", 14,2)
  42.  
  43. puzzle( 10, 5,PUZ_0100)
  44. puzzle( 11, 5,PUZ_0101)
  45. puzzle( 12, 5,PUZ_0101)
  46. puzzle( 13, 5,PUZ_0001)
  47.  
  48. puzzle( 12, 6,PUZ_0010)
  49. puzzle( 12, 7,PUZ_1010)
  50. puzzle( 12, 8,PUZ_1010)
  51. puzzle( 12, 9,PUZ_1010)
  52. puzzle( 12,10,PUZ_1000)
  53.  
  54. set_actor("ac-blackball", 6, 6, {player=0})
  55.  
  56.