Monks don't only share software.
They're also famous for this kind of stuff too...

Comments welcome.

#!/usr/bin/perl -w
#=====================================================================
+==========
#  DESCRIPTION:  Vevfu fgbhg
#       AUTHOR:  Pied
#      CREATED:  02.04.2006 01:21:42 CEST
#=====================================================================
+==========

use Term::ANSIColor qw(:constants);
use Time::HiRes qw( usleep );
use Term::InKey;

sub b{sub _{1};while(_){for$j($|..4){
print RED,"$\"|"if$j;for(1..24){print
WHITE,&e($j)}print RED,"|"if$j;print$/
}for(@v){chomp,s,(\d+),$"x$1,eg,s,VU,
"_"x21,ex,s,n,$/,g,print RED,"$_$/"}
usleep(1e5);&Clear}}sub g{(qw,. q o O
@,)[$%=4-sprintf"%i",rand($%-shift)]}
sub e{%_=(4=>1,3=>1,2=>1,1=>0.95,0=>
0.1);return&g($=)if($_{$==shift}>rand
())||return$"}@v=<DATA>,&b;_(&_,b,@v)
__DATA__
1\23/n1|23|n1|4###2#4#1###1#2|n1\3#3#1#4#2#2##1/n2\2#5#4#2#2##/n2|2#5#
+4#2#2#1|n
2|2#2##1#4#2#2#1|n2|2#3#1#4#2#2#1|n2|3###3####2###1#1|n2|21|n2|21|n2|2
+1|n2|21|n
2|21|n2|21|n2|21|n2|21|n2(VU)
[download]

P!