home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / martin36.lua < prev    next >
Encoding:
Text File  |  2003-01-05  |  1.3 KB  |  44 lines
  1. -- created by Martin Hawlisch
  2.  
  3. levelw = 134
  4. levelh = 13
  5.  
  6. create_world( levelw, levelh)
  7.  
  8. draw_border( "st-woven")
  9.  
  10. draw_floor("fl-abyss", { 1, 4}, {1,0},  levelw-13)
  11. draw_floor("fl-gradient", { 1, 5}, {1,0},  levelw-13, {type=15})
  12. draw_floor("fl-gradient", { 1, 6}, {1,0},  levelw-13, {type=23})
  13. draw_floor("fl-gradient", { 1, 7}, {1,0},  levelw-13, {type=16})
  14. draw_floor("fl-abyss", { 1, 8}, {1,0},  levelw-13)
  15.  
  16. fill_floor("fl-woven", 1, 1, levelw-14,3)
  17. fill_floor("fl-woven", 1, 9, levelw-14,3)
  18. fill_floor("fl-woven", levelw-13, 1, 12, 11)
  19.  
  20. fill_floor("fl-water", levelw-11, 4, 5, 5)
  21.  
  22. draw_stones("st-oneway", {levelw-14, 1}, {0,1}, 2, {orientation=WEST})
  23. draw_stones("st-oneway", {levelw-14, 3}, {0,1}, 7, {orientation=EAST})
  24. draw_stones("st-oneway", {levelw-14,10}, {0,1}, 2, {orientation=WEST})
  25.  
  26. set_floor("fl-woven",levelw-16, 4)
  27. oneway(levelw-16, 4, SOUTH)
  28. set_floor("fl-woven",levelw-16, 8)
  29. oneway(levelw-16, 8, NORTH)
  30.  
  31. oxyd(levelw-30, 1)
  32. oxyd(levelw-50,11)
  33. oxyd(levelw-6, 5)
  34. oxyd(levelw-6, 7)
  35.  
  36. draw_stones("st-woven", {levelw-6,4},{0,2},3)
  37. oxyd_shuffle()
  38.  
  39.  
  40. set_actor("ac-blackball", 1.5, 6.5, {player=0})
  41.  
  42. -- Call this only after setting the main actor, or the actor probably
  43. -- won't be inside the screen at when the game begins.
  44. display.SetFollowMode(display.FOLLOW_SCROLLING)