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