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;
}

4 Responses to “O’rly ASCII owl xD”

  1. Albi March 26, 2007 at 9:06 pm #

    Wrzuć na techbloga ;)

  2. radmen March 26, 2007 at 9:06 pm #

    niee to się chyba na Tech’a nie nadaje :)

  3. Albi March 26, 2007 at 9:06 pm #

    Jak to nie? Pokazujesz, jak napisać modulik do xchata, poza tym może się komuś przydać. Gdyby nie subskrypcja, to bym to przegapił ;) . Swoją drogą muszę swojego bota do Irssi zacząć :>

  4. radmen March 26, 2007 at 9:06 pm #

    Hehe, póki co niech tak pozostanie ;-)