use strict;
use warnings;
use Xchat qw(:all);

register( "Op Everyone", "001", "Op everyone in a channel" );


hook_command( "oall", sub {
	my @toopall = ();
	my $delay = 1;
	my $channel = get_info('channel');
	my $deal_throttle = get_prefs('net_throttle');

	my $myinfo = user_info();
	if ( $myinfo->{prefix} && $myinfo->{prefix} ne '+' ) {
		my @all_users = get_list('users');
		my $context = get_context();
		if ($deal_throttle) {
			command('set -quiet net_throttle 0');
		}
		foreach my $this_user (@all_users) {
			if ( $this_user->{prefix} ne '+') {
				push(@toopall, $this_user->{nick});
			}
			if (scalar @toopall == 4) {
				command('timer '. $delay++ ." mode $channel +oooo " . join(' ', @toopall));
				@toopall = ();
			}
		}
		if ( scalar @toopall ) {
			command("timer $delay mode $channel +" . ('o' x scalar(@toopall)) . ' ' . join(' ', @toopall);
		}
		command('timer ' . $delay . ' set -quiet net_throttle ' . $deal_throttle);
	}
	return EAT_ALL;
});