#!usr/bin/perl
#ASCII Art 0.2
#Coded By Doddy H
#
#http://search.cpan.org/~lory/Text-Banner-1.00/Banner.pm
#
 
use Text::Banner;
use Time::HiRes "usleep";
 
my $start = Text::Banner->new;
 
sub head {
 
    my @logo = (
        "#=============================================#", "\n",
        "#            ASCII Art 0.2                    #", "\n",
        "#---------------------------------------------#", "\n",
        "# Written By Doddy H                          #", "\n",
        "# Email: lepuke[at]hotmail[com]               #", "\n",
        "# Website: doddyhackman.webcindario.com       #", "\n",
        "#---------------------------------------------#", "\n",
        "# The End ?                                   #", "\n",
        "#=============================================#", "\n"
    );
 
    print "\n";
    marquesina(@logo);
 
}
 
head();
 
print "\n\n[+] Text : ";
chomp( my $text = <stdin> );
 
print "\n\n[+] Fill : ";
chomp( my $fill = <stdin> );
 
print "\n\n\n" . artnow( $text, $fill ) . "\n";
 
copyright();
 
sub artnow {
 
    $start->set( $_[0] );
    $start->fill( $_[1] );
 
    return $start->get;
 
}
 
sub marquesina {
 
    #Effect based in the exploits by Jafer Al Zidjali
 
    my @logo = @_;
 
    my $car = "|";
 
    for my $uno (@logo) {
        for my $dos ( split //, $uno ) {
 
            $|++;
 
            if ( $car eq "|" ) {
                mostrar( "\b" . $dos . $car, "/" );
            }
            elsif ( $car eq "/" ) {
                mostrar( "\b" . $dos . $car, "-" );
            }
            elsif ( $car eq "-" ) {
                mostrar( "\b" . $dos . $car, "\\" );
            }
            else {
                mostrar( "\b" . $dos . $car, "|" );
            }
            usleep(40_000);
        }
        print "\b ";
    }
 
    sub mostrar {
        print $_[0];
        $car = $_[1];
    }
 
}
 
sub copyright {
 
    print "\n\n";
 
    marquesina("-- == (C) Doddy Hackman 2012 == --");
 
    print "\n\n";
 
    <stdin>;
    exit(1);
}
 
#The End ?
 

r00t ~ # art2.pl



#=============================================#
#            ASCII Art 0.2                    #
#---------------------------------------------#
# Written By Doddy H                          #
# Email: lepuke[at]hotmail[com]               #
# Website: doddyhackman.webcindario.com       #
#---------------------------------------------#
# The End ?                                   #
#=============================================#


[+] Text : hacked


[+] Fill : #




 #    #    ##     ####   #    #  ######  #####
 #    #   #  #   #    #  #   #   #       #    #
 ######  #    #  #       ####    #####   #    #
 #    #  ######  #       #  #    #       #    #
 #    #  #    #  #    #  #   #   #       #    #
 #    #  #    #   ####   #    #  ######  #####




-- == (C) Doddy Hackman 2012 == --