home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / level1b.lua < prev    next >
Encoding:
Text File  |  2003-01-05  |  1012 b   |  50 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 (18,1)
  10. oxyd (18,11)
  11.  
  12. fill_floor("fl-hay", 0,0, levelw,levelh)
  13.  
  14. draw_floor("fl-abyss", {11,4}, {0,1},3)
  15.  
  16. set_actor("ac-blackball", 3,5.5, {player=0})
  17.  
  18. draw_stones("st-rock2", {5,3}, {1,0},10)
  19. draw_stones("st-rock2", {5,7}, {1,0},7)
  20. draw_stones("st-rock2", {13,7}, {1,0},4)
  21. draw_stones("st-rock2", {16,1}, {0,1},3)
  22. draw_stones("st-rock2", {16,8}, {0,1},3)
  23. draw_stones("st-rock2", {11,8}, {0,1},3)
  24.  
  25.  
  26. doorv(11,11, {name="door1"})
  27.  
  28. function sdot1()
  29.     doora=enigma.GetNamedObject("door1")
  30.     enigma.SendMessage(doora, "openclose", nil)
  31. end
  32.  
  33. shogundot1(13,11, {action="callback", target="sdot1"})
  34.  
  35. set_stone("st-shogun", 14,11)
  36.  
  37. puzzle(8,4,PUZ_0101)
  38. puzzle(10,6,PUZ_0101)
  39. puzzle(15,4,PUZ_0010)
  40. puzzle(13,4,PUZ_0011)
  41. puzzle(6,5,PUZ_0110)
  42. puzzle(13,6,PUZ_1001)
  43. puzzle(7,5,PUZ_1010)
  44. puzzle(9,5,PUZ_1100)
  45. puzzle(15,6,PUZ_1100)
  46. puzzle(14,5,PUZ_1111)
  47. puzzle(15,5,PUZ_1111)
  48. puzzle(16,5,PUZ_0001)
  49. puzzle(16,6,PUZ_0001)
  50.