<snip>
> so i was wondering if you guys could have a look at the original code and
> see if there's a way of golfing it down whilst keeping some more of the
> features...
oops, wrapping broke my original version:
here's it working:
@m=((31,(15)x15)x10,(31)x16);$m[$c]|=16,!(@a=grep!($m[$c+$$_[0]]&16+$s*$
$_[1]),[-1,8],[1,1],[16,4],[-16,2])[EMAIL PROTECTED]:${($i,$j)[EMAIL PROTECTED]@a]};$m[
$c]&=~8/$j;[EMAIL PROTECTED],$c;$m[$c+=$i]&=~$j;++$u-150||map$_&=15,@m,$c=$s=1}, $s
&&select$x,$x,$x,.1*print"\ec",(_)x31,map$_%16?($_-$c?$m[$_]&2?_:$":o).(
$m[$_]&8?"|":_):"$/|",0..160until$c>158&$s
ta
a