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;
    });