O’rly ASCII owl xD

Pamiętacie jeszcze tą sympatyczną sówkę? Jeszcze całkiem niedawno była tak powszechnie wykorzystywana na różnych kanałach IRCowych i nie tylko.

Cały czas jej różne wersje budzą u mnie taki łagodny uśmiech ;-]

A teraz (ku pamięci) te sówki, które wyszperałem w sieci

 {o,o}
 |)__)
 -"-"-
O RLY?

 {-.-}
 |)_(|
 -"-"-
YA RLY

 {0,0}
 (__(|
 -"-"-
NO WAI!

    {x,x}
    (__(|
    -"-"-
NO FAKIN WAI!

Na koniec dorzucam skrypt do xChata do wywalania sówek do rozmowy.

(możliwe, że kod jest niepoprawny, jest to spowodowane tym, że nie znam PERLa w każdym bądź razie skrypt działa )

#!/usr/bin/perl -w
# VIM: set ts=4, set sw=4
#
# made by radmen
# radmen [at] gmail dot com

package IRC::XChat::ORLY;

my $script_name    = "o'rly";
my $script_version = '0.0.1';

IRC::register($script_name,$script_version, "", "");
IRC::print("\cC0\cB$script_name\cB version\cC3 $script_version\cO "
           . "by radmen loading...\nType /rly_help for help  ");

IRC::add_command_handler('ORLY','IRC::Xchat::ORLY::orly');
IRC::add_command_handler('YARLY', 'IRC:Xchat::ORLY::yarly');
IRC::add_command_handler('NOWAI', 'IRC::Xchat::ORLY::nowai');
IRC::add_command_handler('NOFAKINWAI', 'IRC::Xchat::ORLY::nofakinwai');
IRC::add_command_handler('RLY_HELP', 'IRC::Xchat::ORLY::help');

sub orly {
        $chan = IRC::get_info(2);
        Xchat::command("MSG $chan        ___");
        Xchat::command("MSG $chan       {o,o}");
        Xchat::command("MSG $chan       |)__)");
        Xchat::command("MSG $chan       -\"-\"-");
        Xchat::command("MSG $chan       O RLY?");

        return 0;
}

sub yarly {
        $chan = IRC::get_info(2);
        Xchat::command("MSG $chan        ___");
        Xchat::command("MSG $chan       {o.o}");
        Xchat::command("MSG $chan       |)_(|");
        Xchat::command("MSG $chan       -\"-\"-");
        Xchat::command("MSG $chan       YA RLY");

        return 0;
}

sub nowai {
        $chan = IRC::get_info(2);
        Xchat::command("MSG $chan        ___");
        Xchat::command("MSG $chan       {o,o}");
        Xchat::command("MSG $chan       (__(|");
        Xchat::command("MSG $chan       -\"-\"-");
        Xchat::command("MSG $chan       NO WAI!");

        return 0;
}

sub nofakinwai {
        $chan = IRC::get_info(2);
        Xchat::command("MSG $chan     ___");
        Xchat::command("MSG $chan    {x,x}");
        Xchat::command("MSG $chan    (__(|");
        Xchat::command("MSG $chan    -\"-\"-");
        Xchat::command("MSG $chan NO FAKIN WAI!");

        return 0;
}

sub help {
        $nick = IRC::get_info(1);
        Xchat::command("MSG $nick There are 4 messages:");
        Xchat::command("MSG $nick /orly");
        Xchat::command("MSG $nick /yarly");
        Xchat::command("MSG $nick /nowai");
        Xchat::command("MSG $nick /nofakinwai");
        Xchat::command("MSG $nick Have fun  ");

        return 0;
}