43 lines
746 B
Perl
43 lines
746 B
Perl
use strict;
|
|
use Irssi;
|
|
use vars qw($VERSION %IRSSI);
|
|
|
|
$VERSION = "1.0";
|
|
%IRSSI = (
|
|
authors => 'LickTheCheese',
|
|
name => 'stop banning me khux',
|
|
description => 'what did i ever do to you',
|
|
license => 'GNU GPL v2 or later',
|
|
);
|
|
|
|
sub bit
|
|
{
|
|
my($server) =@_;
|
|
|
|
|
|
$server->command("MSG #chaos ,kick *");
|
|
$server->command("KICK #chaos BitBot");
|
|
|
|
}
|
|
|
|
sub ub
|
|
{
|
|
my($server) = @_;
|
|
|
|
$server->command("JOIN #chaos");
|
|
Irssi::timeout_add_once(10, "bit", $server );
|
|
}
|
|
|
|
|
|
sub uchaos
|
|
{
|
|
my($data, $server, $witem, $time, $text) = @_;
|
|
|
|
$server->command("MSG ChanServ UNBAN #chaos");
|
|
Irssi::timeout_add_once(300, "ub", $server );
|
|
|
|
}
|
|
|
|
Irssi::command_bind uchaos => \&uchaos;
|
|
|