home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / martin09.lua < prev    next >
Text File  |  2003-01-05  |  1KB  |  49 lines
  1. -- created by Martin Hawlisch
  2.  
  3. levelw = 20
  4. levelh = 13
  5.  
  6. create_world( levelw, levelh)
  7.  
  8. fill_floor("fl-sand", 0,0,levelw,levelh)
  9.  
  10. function renderLine( line, pattern)
  11.     for i=1, strlen(pattern) do
  12.         local c = strsub( pattern, i, i)
  13.         if c =="#" then
  14.             set_stone( "st-rock2", i-1, line)
  15.         elseif c == "o" then
  16.             oxyd( i-1, line)
  17.         elseif c == "H" then
  18.             set_stone( "st-grate1", i-1, line)
  19.         end
  20.     end
  21. end
  22.  
  23. -- Floor:   " "
  24. -- Border:  "#"
  25. -- Oxyd:    "o"
  26.  
  27. renderLine(  0, "####################")
  28. renderLine(  1, "#                  #")
  29. renderLine(  2, "#        HHH       #")
  30. renderLine(  3, "#       H   H      #")
  31. renderLine(  4, "#      H  H  H     #")
  32. renderLine(  5, "#      H H H H     #")
  33. renderLine(  6, "#      H  H  H     #")
  34. renderLine(  7, "#       H   H      #")
  35. renderLine(  8, "#        HHH       #")
  36. renderLine(  9, "#                  #")
  37. renderLine( 10, "########## #########")
  38. renderLine( 11, "#o                o#")
  39. renderLine( 12, "####################")
  40.  
  41. set_stone("st-door", 10, 10 , {name="door1", type="h"})
  42. set_stone( "st-shogun", 9, 6, {holes=7})
  43. shogundot3( 10, 5, {target="door1", action="openclose"})
  44. set_stone("st-swap", 6,5)
  45. oxyd_shuffle()
  46.  
  47. set_actor("ac-blackball", 3.5, 5.5, {player=0})
  48.  
  49.