45 lines
1010 B
Perl
45 lines
1010 B
Perl
use Irssi;
|
|
use Irssi::Irc;
|
|
|
|
sub fmodeall {
|
|
my ( $data, $server, $channel, $witem ) = @_;
|
|
|
|
if ( !$channel || $channel->{type} ne 'CHANNEL' ) {
|
|
Irssi::print('No active channel in window');
|
|
return;
|
|
}
|
|
|
|
$modes = "";
|
|
$lulz = "";
|
|
foreach my $nick ( $channel->nicks() ) {
|
|
$modes .= '+v-v+v-v';
|
|
$lulz .=
|
|
$nick->{nick} . ' '
|
|
. $nick->{nick} . ' '
|
|
. $nick->{nick} . ' '
|
|
. $nick->{nick} . ' ';
|
|
}
|
|
|
|
$channel->command("/mode $channel->{name} $modes $lulz");
|
|
}
|
|
|
|
sub fmode {
|
|
|
|
my ( $data, $server, $channel, $witem ) = @_;
|
|
$data =~ s{\s+$}{};
|
|
$nick = $data;
|
|
|
|
$modes = "";
|
|
$lulz = "";
|
|
for ( $i = 0 ; $i <= 15 ; $i++ ) {
|
|
$modes .= '+v-v';
|
|
$lulz .= $nick . ' ';
|
|
}
|
|
|
|
Irssi::print("/mode $channel->{name} $modes $lulz");
|
|
$channel->command("/mode $channel->{name} $modes $lulz");
|
|
}
|
|
|
|
Irssi::command_bind( 'fmode', 'fmode' );
|
|
Irssi::command_bind( 'fmodeall', 'fmodeall' );
|