57 lines
2.4 KiB
Perl
57 lines
2.4 KiB
Perl
####################################################
|
||
# 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);
|