falso
/
hypnotoad
mirror of https://github.com/falsovsky/hypnotoad.git
1
0
Fork 0
Code Issues Releases Wiki Activity

import inicial

This commit is contained in:
falsovsky 2009-02-14 19:03:08 +00:00
commit db7c25a702
1 changed files with 55 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

55
irssi/hypnotoad.pl Executable file
View File

@ -0,0 +1,55 @@
####################################################
# 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);