bear.pl

#!/usr/bin/perl
use strict;
use warnings;
use Time::HiRes qw/usleep/;

my $b; &load_bear;

sub rd {
   print "\n\e[17A";
}

sub p {
    print ' ' x $_[1], $_ for (@{$b->[$_[0]]});
}

for (0..15) {
    p($_ % 3,3*$_);
    rd;
    usleep(80000);
}
print "\e[65C\e[3BGL29\n";
print "\e[65Cpresente\n";
print "\e[11B";
rd;
usleep(10*80000);
p(3,45);
#rd;



# l'ours lui meme !

sub load_bear {
my $l=0; my $n=0;
$b->[$n][$l]='    _--_     _--_         '."\n";$l++;
$b->[$n][$l]='   (    )~~~(    )        '."\n";$l++;
$b->[$n][$l]='    \           /         '."\n";$l++;
$b->[$n][$l]='     (  \' _ `  )          '."\n";$l++;
$b->[$n][$l]='      \       /           '."\n";$l++;
$b->[$n][$l]='    .__( `-\' )            '."\n";$l++;
$b->[$n][$l]='   / !  `---\' \           '."\n";$l++;
$b->[$n][$l]='  /  \         !          '."\n";$l++;
$b->[$n][$l]=' !   /\        )          '."\n";$l++;
$b->[$n][$l]=' !   !_\       ).         '."\n";$l++;
$b->[$n][$l]='  \    \       ! \        '."\n";$l++;
$b->[$n][$l]='   \___/   )  /__/        '."\n";$l++;
$b->[$n][$l]='     \    /   !           '."\n";$l++;
$b->[$n][$l]='     /   !   /            '."\n";$l++;
$b->[$n][$l]='    !   /__ /___          '."\n";$l++;
$b->[$n][$l]='    (______)____)         '."\n";$l++;
$n++;$l=0;
$b->[$n][$l]='   _--_     _--_          '."\n";$l++;
$b->[$n][$l]='  (    )~~~(    )         '."\n";$l++;
$b->[$n][$l]='   \           /          '."\n";$l++;
$b->[$n][$l]='    (  \' _ `  )           '."\n";$l++;
$b->[$n][$l]='     \       /            '."\n";$l++;
$b->[$n][$l]='      ( `-\' )             '."\n";$l++;
$b->[$n][$l]='   _--\'`---_              '."\n";$l++;
$b->[$n][$l]='  /         \___          '."\n";$l++;
$b->[$n][$l]=' /   /       !  \         '."\n";$l++;
$b->[$n][$l]='(   <        !__/         '."\n";$l++;
$b->[$n][$l]=' \   \      /\            '."\n";$l++;
$b->[$n][$l]='  \--/   \ /  \  ._       '."\n";$l++;
$b->[$n][$l]='    `.    )-   \/  )      '."\n";$l++;
$b->[$n][$l]='     !   !  `.    /       '."\n";$l++;
$b->[$n][$l]='     /  /__   \__/        '."\n";$l++;
$b->[$n][$l]='    (______)              '."\n";$l++;
$n++;$l=0;
$b->[$n][$l]='   _--_     _--_          '."\n";$l++;
$b->[$n][$l]='  (    )~~~(    )         '."\n";$l++;
$b->[$n][$l]='   \           /          '."\n";$l++;
$b->[$n][$l]='    (  \' _ `  )           '."\n";$l++;
$b->[$n][$l]='     \       /            '."\n";$l++;
$b->[$n][$l]='      ( `-\' )             '."\n";$l++;
$b->[$n][$l]='    .--`---\'\             '."\n";$l++;
$b->[$n][$l]='   /        _>\           '."\n";$l++;
$b->[$n][$l]='  /  /-___-\'   )          '."\n";$l++;
$b->[$n][$l]='/\'  (        _/           '."\n";$l++;
$b->[$n][$l]='\___/`------\' )           '."\n";$l++;
$b->[$n][$l]='     \      `<            '."\n";$l++;
$b->[$n][$l]='   ___>-_     \   /-\     '."\n";$l++;
$b->[$n][$l]='  /      `-_   `-/  /     '."\n";$l++;
$b->[$n][$l]=' (  \---__/ `-_    /      '."\n";$l++;
$b->[$n][$l]='  \__)         `-_/       '."\n";$l++;
$n++;$l=0;
$b->[$n][$l]='    _--_     _--_         '."\n";$l++;
$b->[$n][$l]='   (    )~~~(    )        '."\n";$l++;
$b->[$n][$l]='    \           /         '."\n";$l++;
$b->[$n][$l]='     (  \' _ `  )          '."\n";$l++;
$b->[$n][$l]='      \       /           '."\n";$l++;
$b->[$n][$l]='    .__( `-\' )  ___       '."\n";$l++;
$b->[$n][$l]='   /   /`---\'`-\'   \      '."\n";$l++;
$b->[$n][$l]='  /   /          ._/   __ '."\n";$l++;
$b->[$n][$l]='/\'   /.-----\___/     /  )'."\n";$l++;
$b->[$n][$l]='\___//          `----\'   !'."\n";$l++;
$b->[$n][$l]='     \            ______/ '."\n";$l++;
$b->[$n][$l]='      `--_____----\'       '."\n";$l++;
$b->[$n][$l]='        \    /            '."\n";$l++;
$b->[$n][$l]='        !   !             '."\n";$l++;
$b->[$n][$l]='        /  /__            '."\n";$l++;
$b->[$n][$l]='       (______)           '."\n";$l++;
$n++;$l=0;
}