home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / martin08.lua < prev    next >
Encoding:
Text File  |  2003-01-05  |  1.6 KB  |  54 lines
  1. -- created by Martin Hawlisch
  2.  
  3. levelw = 20
  4. levelh = 13
  5.  
  6. create_world( levelw, levelh)
  7. draw_border("st-invisible")
  8.  
  9. fill_floor("fl-water", 0,0,levelw,levelh)
  10. fill_floor("fl-sand", 6, 3,levelw-12,levelh-6)
  11. fill_floor("fl-leaves", 7, 4, levelw-14,levelh-8)
  12. fill_floor("fl-sand", 7, 4, 1, 1)
  13. fill_floor("fl-sand", 12, 4, 1, 1)
  14. fill_floor("fl-sand", 7, 8, 1, 1)
  15. fill_floor("fl-sand", 12, 8, 1, 1)
  16. fill_floor("fl-water", 6, 3, 1, 1)
  17. fill_floor("fl-water", 13, 3, 1, 1)
  18. fill_floor("fl-water", 6, 9, 1, 1)
  19. fill_floor("fl-water", 13, 9, 1, 1)
  20.  
  21. set_stone("st-shogun", 8,6, {holes=1})
  22.  
  23. set_attrib(laser( 1, 5, FALSE, NORTH), "name", "laser1")
  24. set_attrib(laser(18, 5, FALSE, NORTH), "name", "laser2")
  25. set_attrib(laser( 1, 7, FALSE, SOUTH), "name", "laser3")
  26. set_attrib(laser(18, 7, FALSE, SOUTH), "name", "laser4")
  27. set_attrib(laser( 8, 1, FALSE,  WEST), "name", "laser5")
  28. set_attrib(laser(11, 1, FALSE,  EAST), "name", "laser6")
  29. set_attrib(laser( 8,11, FALSE,  WEST), "name", "laser7")
  30. set_attrib(laser(11,11, FALSE,  EAST), "name", "laser8")
  31.  
  32. shogundot1(  8, 5, {target="laser5", action="onoff"})
  33. shogundot1(  9, 5, {target="laser2", action="onoff"})
  34. shogundot1( 10, 5, {target="laser8", action="onoff"})
  35. shogundot1( 11, 5, {target="laser6", action="onoff"})
  36. shogundot1(  8, 7, {target="laser7", action="onoff"})
  37. shogundot1(  9, 7, {target="laser3", action="onoff"})
  38. shogundot1( 10, 7, {target="laser1", action="onoff"})
  39. shogundot1( 11, 7, {target="laser4", action="onoff"})
  40.  
  41. oxyd(  1, 3)
  42. oxyd( 18, 3)
  43. oxyd(  1, 9)
  44. oxyd( 18, 9)
  45. oxyd(  6, 1)
  46. oxyd( 13, 1)
  47. oxyd(  6, 11)
  48. oxyd( 13, 11)
  49.  
  50. oxyd_shuffle()
  51.  
  52. set_actor("ac-blackball", 7, 5, {player=0})
  53.  
  54.