Slaps all nick in channel.
Comand /all
Really annoying script v1.337
Annoy everyone on a a channel
use strict;
use warnings;
use Xchat qw(:all);
register( "Really annoying script", "1.337", "Annoy everyone on a a channel" );
my %mode_color = (
"~" => "04",
"&" => "09",
"@" => "03",
"%" => "12",
"+" => "08",
);
my %mode_order = (
"~" => 6,
"&" => 5,
"@" => 4,
"%" => 3,
"+" => 2,
"" => 1,
);
while( my ($mode,$color) = each %mode_color ) {
$mode_color{ $mode } = sprintf "%02d", $color;
}
hook_command( "all", sub {
commandf( "action slaps %s", join " ", map {
"\cC". ($mode_color{ $_->{prefix} } || "\cC") . "$_->{prefix}$_->{nick}"
} sort {
$mode_order{ $b->{prefix} } <=> $mode_order{ $a->{prefix} }
} get_list "users"
);
return EAT_XCHAT;
});