From 17a085d0316878dc114a0f527d0f93e3d3210976 Mon Sep 17 00:00:00 2001
From: falsovsky <falsovsky@1e08f46e-fac9-11dd-9d1a-b59b2e1864b6>
Date: Sun, 15 Feb 2009 01:59:18 +0000
Subject: [PATCH] acabei de tornar a versao de xchat usavel

---
 xchat/hypnotoad.pl | 72 ++++++++++++++--------------------------------
 1 file changed, 22 insertions(+), 50 deletions(-)

diff --git a/xchat/hypnotoad.pl b/xchat/hypnotoad.pl
index 08118a1..33e8522 100644
--- a/xchat/hypnotoad.pl
+++ b/xchat/hypnotoad.pl
@@ -1,37 +1,14 @@
 ####################################################
 # 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 {
-
-	my ($s, $server, $data) = @_;
-		if ( $switch_on ) {
-
-	$switch_on = 0;
-
-
-	IRC::command("/SAY ". $data . "" . hypnotoadize($s));
-
-
-
-
-        $switch_on = 1;
-}
-       return $switch_on;
+sub sendmsg {
+	my $text = $_[1][0];
+	my $sendto = $_[2];
+	my $r = int(rand($random));
+	
+	if ($r eq 1) {
+		Xchat::command("SAY ". $sendto . hypnotoadize($text));
+	}
 }
 
-
-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;
+sub changerandom {
+	my $value = $_[0][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");