-- Sven Siggelkow 2003 levelw = 20 levelh = 13 create_world(levelw, levelh) set_actor("ac-blackball",2,3.5, {player=0}) set_actor("ac-whiteball-small", 17.5,6.5,{player=0, controllers=1}) difficult = (options.Difficulty==2) fill_floor("fl-rough",0,0,levelw,levelh) local laser1 = laser(14,2, TRUE, EAST) function renderLine( line, pattern) for i=1, strlen(pattern) do local c = strsub( pattern, i, i) if c == "#" then set_stone("st-greenbrown", i-1,line) elseif c=="h" then set_item("it-hollow", i-1,line) elseif c=="b" then if difficult==FALSE then set_item("it-spade", i-1,line) end elseif c=="G" then set_stone("st-white1", i-1,line) elseif c=="s" then set_stone("st-greenbrown_move", i-1,line) set_item("it-springboard", i-1,line) elseif c=="w" then set_stone("st-3mirror", i-1,line, {movable=1}) set_item("it-spring2", i-1,line) elseif c=="y" then set_stone("st-yinyang1", i-1,line) elseif c=="g" then set_stone("st-greenbrown_hole", i-1,line) elseif c=="x" then set_stone("st-glass1", i-1,line) elseif c=="H" then set_stone("st-greenbrown_hole", i-1,line) set_item("it-hollow", i-1,line, {name="hollow"}) elseif c=="S" then set_stone("st-switch", i-1,line,{action="callback", target="s1"}) elseif c=="a" then set_floor("fl-abyss", i-1,line) elseif c=="c" then set_floor("fl-water", i-1,line) elseif c=="l" then set_floor("fl-leaves", i-1,line) elseif c=="O" then oxyd(i-1,line) end end end -- 01234567890123456789 renderLine(00 , "####################") renderLine(01 , "#G aaacclccaaab H#") renderLine(02 , "# aaacclccaaa xxx #") renderLine(03 , "# aaacclccaaa #") renderLine(04 , "# aaacclccaaah h #") renderLine(05 , "# aaacclccaaa #") renderLine(06 , "# saaacclccaaa w #") renderLine(07 , "# aaacclccaaa #") renderLine(08 , "# aaacclccaaah h #") renderLine(09 , "# aaacclccaaa #") renderLine(10 , "# aaacclccaaa #") renderLine(11 , "#g aaacclccaaa yS") renderLine(12 , "####################") -- 01234567890123456789 function s1() enigma.SendMessage(%laser1, "signal", nil) end