home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / ss12.lua < prev    next >
Text File  |  2003-09-24  |  2KB  |  59 lines
  1. -- Sven Siggelkow 2003
  2.  
  3. levelw = 20
  4. levelh = 13
  5. create_world(levelw, levelh)
  6.  
  7. draw_checkerboard_floor( "fl-inverse", "fl-black", 0, 0,levelw,levelh)
  8.  
  9. function renderLine( line, pattern)
  10.     for i=1, strlen(pattern) do
  11.       local c = strsub( pattern, i, i)
  12.       if c ==   "#" then
  13.          set_stone("st-death",i-1,line)
  14.       elseif c=="h" then
  15.          if (options.Difficulty==2) then -- hard
  16.            hollow(i-1,line)
  17.          end
  18.       elseif c=="H" then
  19.          if (options.Difficulty==1) then -- easy
  20.            hollow(i-1,line)
  21.          end
  22.       elseif c=="1" then
  23.      set_floor("fl-gradient",  i-1,  line, {type=3})
  24.       elseif c=="2" then
  25.      set_floor("fl-gradient",  i-1,  line, {type=4})
  26.       elseif c=="3" then
  27.      set_floor("fl-gradient",  i-1,  line, {type=1})
  28.       elseif c=="4" then
  29.      set_floor("fl-gradient",  i-1,  line, {type=2})    
  30.       elseif c=="5" then
  31.          set_floor("fl-gradient",  i-1,  line, {type=5})   
  32.       elseif c=="6" then
  33.          set_floor("fl-gradient",  i-1,  line, {type=6})       
  34.       elseif c=="7" then
  35.          set_floor("fl-gradient",  i-1,  line, {type=7})         
  36.       elseif c=="8" then
  37.          set_floor("fl-gradient",  i-1,  line, {type=8})           
  38.       elseif c=="x" then
  39.          set_actor("ac-whiteball-small", i,line+.5, {player=0})
  40.         end
  41.     end
  42. end
  43. --              01234567890123456789
  44. renderLine(00, "####################")
  45. renderLine(01, "#533333333333333336#")
  46. renderLine(02, "#1 x           x  2#")
  47. renderLine(03, "#15336H 5336 H53362#")
  48. renderLine(04, "#11##2  1##2  1##22#")  
  49. renderLine(05, "#11##2h 1##2 h1##22#")
  50. renderLine(06, "#11##2  1##2  1##22#")
  51. renderLine(07, "#11##2 h1##2h 1##22#")
  52. renderLine(08, "#11##2  1##2  1##22#")
  53. renderLine(09, "#17448 H7448H 74482#")
  54. renderLine(10, "#1 x           x  2#")
  55. renderLine(11, "#744444444444444448#")
  56. renderLine(12, "####################")
  57. --              01234567890123456789
  58.  
  59.