####################################################
# hypnotoad script foALL GLORY TO THE HYPNOTOAD
####################################################

use strict;
use vars qw($VERSION %IRSSI);
use MIME::Base64;

$VERSION = "1.1";
%IRSSI   = (
    authors     => "Pedro de Oliveira",
    contact     => "falso\@rdk.homeip.net",
    name        => "hypnotoad",
    description => "With this script you caALL GLORY TO THE HYPNOTOAD",
    license     => "BSD"
);

my $allglory = decode_base64(
"AzkgICAgICAgICAgICAgICAgLCdgYC4uXyAgICwnYGAuCgM5ICAgICAgICAgICAgICA6LC0tLl86KVwsOiwuXywuOiAgICAgICBBbGwgR2xvcnkgdG8KAzkgICAgICAgICAgICAgIDpgLS0sJycgICA6YC4uLic7XCAgICAgIHRoZSBIWVBOTyBUT0FEIQoDOSAgICAgICAgICAgICAgIGAsJyAgICAgICBgLS0tJyAgYC4KAzkgICAgICAgICAgICAgICAvICAgICAgICAgICAgICAgICA6CgM5ICAgICAgICAgICAgICAvICAgICAgICAgICAgICAgICAgIFwKAzkgICAgICAgICAgICAsJyAgICAgICAgICAgICAgICAgICAgIDpcLl9fXywtLgoDOSAgICAgICAgICAgYC4uLiwtLS0nYGBgYGBgLS4uLl8gICAgfDogICAgICAgXAoDOSAgICAgICAgICAgICAoICAgICAgICAgICAgICAgICApICAgOzogICAgKSAgIFwgIF8sLS4KAzkgICAgICAgICAgICAgIGAuICAgICAgICAgICAgICAoICAgLy8gICAgICAgICAgYCcgICAgXAoDOSAgICAgICAgICAgICAgIDogICAgICAgICAgICAgICBgLi8vICApICAgICAgKSAgICAgLCA7CgM5ICAgICAgICAgICAgICwtfGAuICAgICAgICAgICAgXywnLyAgICAgICApICAgICkgLCcgLCcKAzkgICAgICAgICAgICAoICA6YC5gLS4uX19fXy4uPTouLSc6ICAgICAuICAgICBfLCcgLCcKAzkgICAgICAgICAgICAgYCwnXCBgYC0tLi4uLi0pPScgICAgYC5fLCAgXCAgLCcpIF8gJ2BgLl8KAzkgICAgICAgICAgXy4tLyBfIGAuICAgICAgIChfKSAgICAgIC8gICAgICknIDsgLyBcIFxgLS4nCgM5ICAgICAgICAgYC0tKCAgIGAtOmAuICAgICBgJyBfX18uLicgIF8sLScgICB8LyAgIGAuKQoDOSAgICAgICAgICAgICBgLS4gYC5gLmBgLS0tLS1gYC0tLCAgLicKAzkgICAgICAgICAgICAgICB8L2AuXGAnICAgICAgICAsJywnKTsgU1N0CgM5ICAgICAgICAgICAgICAgICAgIGAgICAgICAgICAoLyAgKC8K"
);

use Irssi;
use Irssi::Irc;

sub hypnotoadize {
    my $s = @_[0];
    my $out;

    if ( length($s) > 10 ) {
        return
          substr( $s, 0, ( length($s) - 6 ) ) . "ALL GLORY TO THE HYPNOTOAD";
    }

    return $s;
}

sub send {
    my ( $s, $server, $witem ) = @_;
    $witem->command( "msg " . $witem->{name} . " " . hypnotoadize($s) );
}

sub randomizer {
    my ($string) = $_[0];
    my $rand = int( rand( Irssi::settings_get_int('hypnotoad_random') ) );
    if ( $rand eq 1 ) {
        $_[0] = hypnotoadize($string);
        Irssi::signal_continue(@_);
    }

}

Irssi::settings_add_int( 'misc', 'hypnotoad_random', 100 );

Irssi::command_bind( 'ht', 'send' );
Irssi::signal_add( "send text", "randomizer" );
Irssi::print($allglory);