home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / martin62.lua < prev    next >
Text File  |  2003-01-05  |  1KB  |  65 lines
  1. -- created by Martin Hawlisch
  2.  
  3. create_world( 20, 13)
  4. oxyd_default_flavor = "d"
  5.  
  6. draw_border("st-marble")
  7.  
  8. fill_floor("fl-marble")
  9.  
  10. function puzzle_cross( x, y)
  11.     puzzle( x,y, PUZ_1111)
  12.     puzzle( x-1,y, PUZ_0100)
  13.     puzzle(x+1,y, PUZ_0001)
  14.     puzzle(x,y-1, PUZ_0010)
  15.     puzzle(x,y+1, PUZ_1000)
  16. end
  17.  
  18. puzzle_cross( 4,4)
  19. puzzle_cross( 7,4)
  20. puzzle_cross(10,4)
  21. puzzle_cross(13,4)
  22. puzzle_cross(16,4)
  23.  
  24. puzzle_cross( 4,7)
  25. puzzle_cross( 7,7)
  26. puzzle_cross(10,7)
  27. puzzle_cross(13,7)
  28. puzzle_cross(16,7)
  29.  
  30. draw_stones( "st-marble", {3, 1}, {3,0}, 5)
  31. draw_stones( "st-grate1", {4, 2}, {3,0}, 5)
  32. draw_stones( "st-grate1", {2, 3}, {3,0}, 6)
  33. draw_stones( "st-grate1", {2, 6}, {3,0}, 6)
  34. draw_stones( "st-grate1", {2, 9}, {3,0}, 6)
  35. draw_stones( "st-grate1", {3,10}, {3,0}, 5)
  36. draw_stones( "st-marble", {4,11}, {3,0}, 5)
  37.  
  38. draw_stones( "st-marble", { 1,4}, {0,3}, 2)
  39. draw_stones( "st-marble", {18,4}, {0,3}, 2)
  40.  
  41. set_stone( "st-marble", 4, 2)
  42. set_stone( "st-marble",10, 2)
  43. set_stone( "st-marble",16, 2)
  44. set_stone( "st-marble", 3,10)
  45. set_stone( "st-marble", 9,10)
  46. set_stone( "st-marble",12,10)
  47.  
  48. oxyd( 1,12)
  49. oxyd( 5, 6)
  50. oxyd( 8, 3)
  51. oxyd( 8, 9)
  52. oxyd(11, 6)
  53. oxyd(14, 3)
  54. oxyd(14, 9)
  55. oxyd(19, 1)
  56.  
  57. oxyd_shuffle()
  58.  
  59. set_item( "it-yinyang", 1, 1)
  60. set_item( "it-yinyang",18,11)
  61.  
  62. set_actor("ac-blackball", 18.5, 11.5, {player=0})
  63. set_actor("ac-whiteball",  1.5,  1.5, {player=1})
  64.  
  65.