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

64
xchat/hypnotoad.pl
View File

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