home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / martin10.lua < prev    next >
Encoding:
Text File  |  2003-01-05  |  1.7 KB  |  66 lines
  1. -- created by Martin Hawlisch
  2.  
  3. levelw = 20
  4. levelh = 13
  5.  
  6. create_world( levelw, levelh)
  7.  
  8. fill_floor("fl-bluegreen", 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-glass", i-1, line)
  15.         elseif c == "o" then
  16.             oxyd( i-1, line)
  17.         elseif c == "s" then
  18.             set_stone( "st-shogun", i-1, line, {holes=1})
  19.         elseif c == "<" then
  20.             oneway( i-1, line, enigma.WEST)
  21.         elseif c == ">" then
  22.             oneway( i-1, line, enigma.EAST)
  23.         elseif c == "v" then
  24.             oneway( i-1, line, enigma.SOUTH)
  25.         elseif c == "^" then
  26.             oneway( i-1, line, enigma.NORTH)
  27.         end
  28.     end
  29. end
  30.  
  31. -- Floor:   " "
  32. -- Border:  "#"
  33. -- Oxyd:    "o"
  34.  
  35. renderLine(  0, "####################")
  36. renderLine(  1, "#  #o#        #o#  #")
  37. renderLine(  2, "# s# > ##  ## < #s #")
  38. renderLine(  3, "#  # # ##  ## # #  #")
  39. renderLine(  4, "#  # #  <  >  # #  #")
  40. renderLine(  5, "#  # ## #  # ^# #  #")
  41. renderLine(  6, "#       #  #       #")
  42. renderLine(  7, "#  # #v #  # ## #  #")
  43. renderLine(  8, "#  # #  <  >  # #  #")
  44. renderLine(  9, "#  # # ##  ## # #  #")
  45. renderLine( 10, "# s# # ##  ## # #s #")
  46. renderLine( 11, "#  #o#        #o#  #")
  47. renderLine( 12, "####################")
  48.  
  49. oxyd_shuffle()
  50.  
  51. set_stone("st-door", 4, 5, {name="door1", type="h"})
  52. shogundot1( 6, 4, {target="door1", action="openclose"})
  53.  
  54. set_stone("st-door", 4, 7, {name="door2", type="h"})
  55. shogundot1( 6, 8, {target="door2", action="openclose"})
  56.  
  57. set_stone("st-door", 15,5, {name="door3", type="h"})
  58. shogundot1( 13, 4, {target="door3", action="openclose"})
  59.  
  60. set_stone("st-door", 15, 7, {name="door4", type="h"})
  61. shogundot1( 13, 8, {target="door4", action="openclose"})
  62.  
  63.  
  64. set_actor("ac-blackball", 10.5, 5.5, {player=0})
  65.  
  66.