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

acabei de tornar a versao de xchat usavel

This commit is contained in:
falsovsky 2009-02-15 01:59:18 +00:00
parent 332dffd151
commit 17a085d031
1 changed files with 22 additions and 50 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

72
xchat/hypnotoad.pl
View File

@ -1,37 +1,14 @@
#################################################### ####################################################
# hypnotoad script foALL GLORY TO THE HYPNOTOAD # hypnotoad script foALL GLORY TO THE HYPNOTOAD
#################################################### ####################################################
#!/usr/bin/perl -W
use MIME::Base64; 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 HYPNOTOA#D",
# license => "BSD"
# );
# Register and show commands
IRC::register("hypnotoad script foALL GLORY TO THE HYPNOTOAD", "0.1", "", "");
IRC::print "\002loading hypnotoad script 0.1\002\n";
IRC::print "Usage:\n/ht [on|off]";
my %handler = ( '' => 'send', ht => 'change_switch' );
foreach my $cmd ( keys %handler ) { IRC::add_command_handler( $cmd, $handler{$cmd} ); }
my $switch_on = 0;
my $allglory = decode_base64("AzkgICAgICAgICAgICAgICAgLCdgYC4uXyAgICwnYGAuCgM5ICAgICAgICAgICAgICA6LC0tLl86KVwsOiwuXywuOiAgICAgICBBbGwgR2xvcnkgdG8KAzkgICAgICAgICAgICAgIDpgLS0sJycgICA6YC4uLic7XCAgICAgIHRoZSBIWVBOTyBUT0FEIQoDOSAgICAgICAgICAgICAgIGAsJyAgICAgICBgLS0tJyAgYC4KAzkgICAgICAgICAgICAgICAvICAgICAgICAgICAgICAgICA6CgM5ICAgICAgICAgICAgICAvICAgICAgICAgICAgICAgICAgIFwKAzkgICAgICAgICAgICAsJyAgICAgICAgICAgICAgICAgICAgIDpcLl9fXywtLgoDOSAgICAgICAgICAgYC4uLiwtLS0nYGBgYGBgLS4uLl8gICAgfDogICAgICAgXAoDOSAgICAgICAgICAgICAoICAgICAgICAgICAgICAgICApICAgOzogICAgKSAgIFwgIF8sLS4KAzkgICAgICAgICAgICAgIGAuICAgICAgICAgICAgICAoICAgLy8gICAgICAgICAgYCcgICAgXAoDOSAgICAgICAgICAgICAgIDogICAgICAgICAgICAgICBgLi8vICApICAgICAgKSAgICAgLCA7CgM5ICAgICAgICAgICAgICwtfGAuICAgICAgICAgICAgXywnLyAgICAgICApICAgICkgLCcgLCcKAzkgICAgICAgICAgICAoICA6YC5gLS4uX19fXy4uPTouLSc6ICAgICAuICAgICBfLCcgLCcKAzkgICAgICAgICAgICAgYCwnXCBgYC0tLi4uLi0pPScgICAgYC5fLCAgXCAgLCcpIF8gJ2BgLl8KAzkgICAgICAgICAgXy4tLyBfIGAuICAgICAgIChfKSAgICAgIC8gICAgICknIDsgLyBcIFxgLS4nCgM5ICAgICAgICAgYC0tKCAgIGAtOmAuICAgICBgJyBfX18uLicgIF8sLScgICB8LyAgIGAuKQoDOSAgICAgICAgICAgICBgLS4gYC5gLmBgLS0tLS1gYC0tLCAgLicKAzkgICAgICAgICAgICAgICB8L2AuXGAnICAgICAgICAsJywnKTsgU1N0CgM5ICAgICAgICAgICAgICAgICAgIGAgICAgICAgICAoLyAgKC8K"); my $allglory = decode_base64("AzkgICAgICAgICAgICAgICAgLCdgYC4uXyAgICwnYGAuCgM5ICAgICAgICAgICAgICA6LC0tLl86KVwsOiwuXywuOiAgICAgICBBbGwgR2xvcnkgdG8KAzkgICAgICAgICAgICAgIDpgLS0sJycgICA6YC4uLic7XCAgICAgIHRoZSBIWVBOTyBUT0FEIQoDOSAgICAgICAgICAgICAgIGAsJyAgICAgICBgLS0tJyAgYC4KAzkgICAgICAgICAgICAgICAvICAgICAgICAgICAgICAgICA6CgM5ICAgICAgICAgICAgICAvICAgICAgICAgICAgICAgICAgIFwKAzkgICAgICAgICAgICAsJyAgICAgICAgICAgICAgICAgICAgIDpcLl9fXywtLgoDOSAgICAgICAgICAgYC4uLiwtLS0nYGBgYGBgLS4uLl8gICAgfDogICAgICAgXAoDOSAgICAgICAgICAgICAoICAgICAgICAgICAgICAgICApICAgOzogICAgKSAgIFwgIF8sLS4KAzkgICAgICAgICAgICAgIGAuICAgICAgICAgICAgICAoICAgLy8gICAgICAgICAgYCcgICAgXAoDOSAgICAgICAgICAgICAgIDogICAgICAgICAgICAgICBgLi8vICApICAgICAgKSAgICAgLCA7CgM5ICAgICAgICAgICAgICwtfGAuICAgICAgICAgICAgXywnLyAgICAgICApICAgICkgLCcgLCcKAzkgICAgICAgICAgICAoICA6YC5gLS4uX19fXy4uPTouLSc6ICAgICAuICAgICBfLCcgLCcKAzkgICAgICAgICAgICAgYCwnXCBgYC0tLi4uLi0pPScgICAgYC5fLCAgXCAgLCcpIF8gJ2BgLl8KAzkgICAgICAgICAgXy4tLyBfIGAuICAgICAgIChfKSAgICAgIC8gICAgICknIDsgLyBcIFxgLS4nCgM5ICAgICAgICAgYC0tKCAgIGAtOmAuICAgICBgJyBfX18uLicgIF8sLScgICB8LyAgIGAuKQoDOSAgICAgICAgICAgICBgLS4gYC5gLmBgLS0tLS1gYC0tLCAgLicKAzkgICAgICAgICAgICAgICB8L2AuXGAnICAgICAgICAsJywnKTsgU1N0CgM5ICAgICAgICAgICAgICAgICAgIGAgICAgICAgICAoLyAgKC8K");
my $random = 100;
sub hypnotoadize { sub hypnotoadize {
my $s = @_[0]; my $s = @_[0];
my $out;
if (length($s)>10) { if (length($s)>10) {
return substr($s,0,(length($s)-6)) . "ALL GLORY TO THE HYPNOTOAD"; return substr($s,0,(length($s)-6)) . "ALL GLORY TO THE HYPNOTOAD";
} }
@ -39,32 +16,27 @@ sub hypnotoadize {
return $s return $s
} }
sub send { sub sendmsg {
my $text = $_[1][0];
my ($s, $server, $data) = @_; my $sendto = $_[2];
if ( $switch_on ) { my $r = int(rand($random));
$switch_on = 0; if ($r eq 1) {
Xchat::command("SAY ". $sendto . hypnotoadize($text));
}
IRC::command("/SAY ". $data . "" . hypnotoadize($s));
$switch_on = 1;
}
return $switch_on;
} }
sub changerandom {
sub change_switch { my $value = $_[0][1];
my $state = shift; if ($value=~ /^(\d+\.?\d*|\.\d+)$/) {
$switch_on = ( $state =~ /on/i ) if $state; $random = $value;
IRC::print("ht mode is \002" . ( $switch_on ? 'on' : 'off' ) . "\002" ); Xchat::print("Hypnotoad randomness changed to: ".$random);
return 1; }
} }
Xchat::register("hypnotoad", "1.0", "", "");
IRC::print($allglory); Xchat::hook_command( '', \&sendmsg);
Xchat::hook_command( 'htrandom', \&changerandom);
Xchat::print($allglory);
Xchat::print("Change randomness with /htrandom Number, default is 100");