--Siegfried Fennig 21.06.2003 Rev.0 levelw = 20 levelh = 13 create_world(levelw, levelh) enigma.ConserveLevel = FALSE oxyd_default_flavor = "d" fill_floor("fl-abyss", 0, 0, level_width, level_height) fill_floor("fl-samba", 1, 3, 6, 7) fill_floor("fl-samba",13, 3, 6, 7) function renderLine( line, pattern) for i=1, strlen(pattern) do local c = strsub( pattern, i, i) if c =="w" then set_stone("st-wood",i-1,line) elseif c == "r" then set_stone("st-rock5",i-1,line) elseif c == "s" then set_stone("st-mail-s",i-1,line) elseif c == "n" then set_stone("st-mail-n",i-1,line) elseif c == "h" then set_item("it-pipe-h",i-1,line) elseif c == "v" then set_item("it-pipe-v",i-1,line) elseif c == "N" then set_item("it-pipe-ne",i-1,line) elseif c == "E" then set_item("it-pipe-es",i-1,line) elseif c == "S" then set_item("it-pipe-sw",i-1,line) elseif c == "W" then set_item("it-pipe-wn",i-1,line) elseif c == "d" then dynamite(i-1,line) elseif c == "B" then set_stone("st-bombs",i-1,line) elseif c == "o" then oxyd( i-1, line) elseif c == "i" then yy1( "white", i-1, line) elseif c == "j" then yy1( "black", i-1, line) elseif c == "x" then document(i-1,line,"Everything's been counted carefully!") elseif c == "y" then document(i-1,line,"Parts of the tubes disappear during detonation!") elseif c == "a" then set_actor("ac-blackball", i-.5,line+.5, {player=0}) set_item("it-yinyang", i-1, line+.5) elseif c == "b" then set_actor("ac-whiteball", i-.5,line+.5, {player=1}) set_item("it-yinyang", i-1, line+.5) end end end function yy1( color, x, y) stone = format( "st-%s1", color) set_stone( stone, x, y) end -- 01234567890123456789 renderLine(00, " ") renderLine(01, " ") renderLine(02, " ") renderLine(03, " ojrrjo rnrrrr ") renderLine(04, " jxd vj ryEvSr ") renderLine(05, " r wvr rdvvhr ") renderLine(06, " rWwbwr rwvwhr ") renderLine(07, " rhhhhB BNwahr ") renderLine(08, " rNEh r ihhhhi ") renderLine(09, " rrrrsr oirrio ") renderLine(10, " ") renderLine(11, " ") renderLine(12, " ") -- 01234567890123456789 oxyd_shuffle()