Getting from here to there

[wulvrine]

Having been amazed at all of the ASCII Obfuscations, I decided to try one for myself.

@f=(22,52,0,13,5,1,160,2,2,125,53,3);@d=(15,17,19,21    );sub A{map{
($a,$b,$c,@f)=@f;$o=!$c?$a+$b:$c==1?$a*$b:$c==2?    $a/$b:$a-$b;$j[$
m++]=chr$o}@f}sub B{$g=pop;$c=$h{$g};$i=$r{$    g};$B='a';map{@{$i->
{$_}} = reverse @{$i->{$_}} if $c->{$B++    }!=$i->{$_}[0]} qw/v V/}
sub C{$g=pop;$c=$h{$g};$Z=$c->{a};$Y    =$c->{b};$S=$c->{c};$R=$c->{
d};$s=abs$R-$Y>abs$S-$Z;($Z,$Y,$    R,$S)=($Y,$Z,$S,$R)if$s;($S,$Z,$
R,$Y)=($Z,$S,$Y,$R)if$Z>$S;$    l=$S-$Z;$n=abs$R-$Y;$Q=0;$y=$Y;$P=($
Y<$R)?1:-1;;$O=-1; ;map{$    O++;$r{$g}->{v}[$O]=($s)?$y:$_;$r{$g}->
{V}[$O]= ($s)?$_:$y;;$    Q+=$n;if(2*$Q>=$l) {$y+=$P;$Q-=$l}}$Z..$S}
sub D{($N,$k,$M,$L,    $K)=@_;map{$J=$L==$d[$_]}0..$K-1if($K&&$M==12
);$J||print"\e["    ."$M;${L}H\e[${k}m$N\e[m";}$|=print "\e[H\e[J";A
;map {$*=int     rand 50;$,=int rand 24;$h{$j[$_]}={};$"=$h{$j[$_]};
$"->{a}=$    *;$"->{b}=$,;$"->{k}=101+$_;$"->{c}=$d[$_];$"->{d}=12;;
$"->{I    }=$j[$_]}0..3;map{C$j[$_];;B$j[$_]}(0..$#j);@q=@{$r{$j[0]}
->    {v}};@u=@{$r{$j[0]}->{V}};;map{$H=$h{$j[$_]};@q=@{$r{$j[$_]}->
{v}};;@u= @{$r{$j[$_]}-> {V}};$F=$_;;map {D" ",0,$H->{b},$H->{a},$F;
$H->{a}=$q[$_];;$H->{b}=$u[$_];D$H->{I},$H->{k},$H->{b},$H->{a}, $F;
select$G,$G,$G,.05}0..$#q;$_=$F}0..$#j;print "\e[30;1H" #by wulvrine

I look forward to the comments and suggestions but please be gentle as this is my first 'real' obfuscation.
(My first obfu was my signature which doesn't really count.)

I am using this algorithm for movement.

[liverpole]

++wulvrine on a very respectable "first japh"!

If you want to run this under Windows, you can specify the Win32::CONSOLE::ANSI module directly on the command line:

perl -mWin32::CONSOLE::ANSI here_to_there.pl

And, in order to preserve the colors (rather than using just black & white), you can change the value 101 to 041 (in line 13).

[Ray Smith]

Congrats on your first!

[wulvrine]

Thanks for the information liverpole very helpful!!!

Also, thanks for the votes Ray/Liverpole most appreciated.