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