home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / duffy24.lua < prev    next >
Text File  |  2003-08-27  |  2KB  |  67 lines
  1. levelw=60
  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 == "D" then
  16.             set_stone( "st-death", i-1, line)
  17.                 elseif c == "!" then
  18.             abyss(i-1,line)
  19.         elseif c == "=" then
  20.             fill_floor("fl-bluegreen", i-1,line, 1,1)
  21.         elseif c == "+" then
  22.             fill_floor("fl-space", i-1,line, 1,1)
  23.         elseif c == "a" then
  24.               set_stone("st-switch", i-1,line, {action="openclose", target="door1"})
  25.         elseif c == "A" then
  26.             set_stone("st-door", i-1, line , {name="door1", type="v"})
  27.         elseif c == "z" then
  28.             set_actor("ac-blackball", i-1+1,line+.5, {player=0})
  29.         elseif c == "d" then --1-d
  30.             set_floor("fl-gradient",  i-1,  line, {type=1})
  31.         elseif c == "u" then --2-u
  32.             set_floor("fl-gradient",  i-1,  line, {type=2})
  33.         elseif c == "r" then --3-r
  34.             set_floor("fl-gradient",  i-1,  line, {type=3})
  35.         elseif c == "l" then --4-l
  36.             set_floor("fl-gradient",  i-1,  line, {type=4})
  37.         elseif c == "1" then --ur
  38.             set_floor("fl-gradient",  i-1,  line, {type=11})
  39.         elseif c == "3" then --dl
  40.             set_floor("fl-gradient",  i-1,  line, {type=9})
  41.         elseif c == "7" then --dr
  42.             set_floor("fl-gradient",  i-1,  line, {type=12})
  43.         elseif c == "9" then --ul
  44.             set_floor("fl-gradient",  i-1,  line, {type=10})
  45.         end
  46.     end    
  47. end
  48.  
  49. -- Floor:  " "
  50. -- Border: "#"
  51. -- Oxyd:   "o"
  52.  
  53. renderLine(00,"!!!!!!!!!!!!!!!!!!!!")
  54. renderLine(01,"!DdulrdulDDulrdulrD!")
  55. renderLine(02,"!uordulrdulrdulrdol!")
  56. renderLine(03,"!rdulrDulrdulDdulrd!")
  57. renderLine(04,"!ulrdolrdulrduordul!")
  58. renderLine(05,"!rdulrdulrdulrdulrd!")
  59. renderLine(06,"!oDrdulrdz=rdulrdDo!")
  60. renderLine(07,"!rdulrdulrdulrdulrd!")
  61. renderLine(08,"!ulrdolrdulrduordul!")
  62. renderLine(09,"!rdulrDulrdulDdulrd!")
  63. renderLine(10,"!uordulrdulrdulrdol!")
  64. renderLine(11,"!DdulrdulDDulrdulrD!")
  65. renderLine(12,"!!!!!!!!!!!!!!!!!!!!")
  66.  
  67. oxyd_shuffle()