home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / duffy18.lua < prev    next >
Encoding:
Text File  |  2003-08-27  |  2.1 KB  |  80 lines
  1. levelw=50
  2. levelh=30
  3.  
  4. create_world( levelw, levelh)
  5.  
  6. fill_floor("fl-bluegreen", 0,0,levelw,levelh)
  7.  
  8. function renderLine( line, pattern)
  9.     for i=1, strlen(pattern) do
  10.         local c = strsub( pattern, i, i)
  11.         if c =="#" then
  12.             set_stone( "st-greenbrown", i-1, line)
  13.         elseif c == "o" then
  14.             oxyd( i-1, line)
  15.                 elseif c == "!" then
  16.             abyss(i-1,line)
  17. --            fill_floor("fl-water", i-1,line, 1,1)
  18.         elseif c=="+" then
  19.             set_stone( "st-wood", i-1, line)
  20.         elseif c=="g" then
  21.             draw_stones("st-grate1",{i-1,line}, {1,1}, 1)
  22.         elseif c=="l" then
  23.             oneway(i-1,line, enigma.WEST)
  24.         elseif c=="u" then
  25.             oneway(i-1,line, enigma.NORTH)
  26.         elseif c=="r" then
  27.             oneway(i-1,line, enigma.EAST)
  28.         elseif c=="d" then
  29.             oneway(i-1,line, enigma.SOUTH)
  30.         elseif c=="z" then
  31. set_actor("ac-blackball", i-.5,line+.5, {player=0})
  32.         elseif c=="y" then
  33. set_actor("ac-whiteball", i-.5,line+.5, {player=0})
  34.         elseif c=="H" then
  35.            hollow(i-1,line)
  36.  
  37.         elseif c=="g" then
  38.            draw_stones("st-grate1",{i-1,line}, {1,1}, 1)
  39.         elseif c=="G" then
  40.            draw_stones("st-grate1",{i-1,line}, {1,1}, 1)
  41.            set_item("it-seed", i-1, line)
  42.  
  43. elseif c=="b" then
  44. yy1( "black",  i-1, line)
  45. elseif c=="w" then
  46. yy1( "white",  i-1, line)
  47.         end
  48.     end    
  49. end
  50.  
  51. function yy1( color, x, y)
  52.         stone = format( "st-%s4", color)
  53.         set_stone( stone, x, y)
  54. end
  55.  
  56. -- Floor:  " "
  57. -- Border: "#"
  58. -- Oxyd:   "o"
  59.  
  60. renderLine(00,"####################")
  61. renderLine(01,"#        wow       #")
  62. renderLine(02,"#        www  www  #")
  63. renderLine(03,"#  wwww       wow  #")
  64. renderLine(04,"#  wwww       www  #")
  65. renderLine(05,"#  woow            #")
  66. renderLine(06,"#  wwww  www wwww  #")
  67. renderLine(07,"#  wwww  wow woow  #")
  68. renderLine(08,"#        www woow  #")
  69. renderLine(09,"#            wwww  #")
  70. renderLine(10,"#ww   wwwww        #")
  71. renderLine(11,"#ow   wowow        #")
  72. renderLine(12,"####################")
  73.  
  74. oxyd_shuffle()
  75.  
  76. local actor1=set_actor("ac-blackball", 9.5,4.5, {player=0})
  77.  
  78. local actor2=set_actor("ac-whiteball",  11.5, 4.5, {player=1})
  79.  
  80. AddRubberBand(actor1, actor2, 5, 0)