alias power {
%numchans = $chan(0)
%curchan = 1
%numopped = 0
%slaves = 0
while (%curchan <= %numchans) {
if ($me isop $chan(%curchan)) {
inc %numopped
inc %curchan
%slaves = $calc(%slaves + $nick($chan(%curchan),0))
}
else {
inc %curchan
}
}
}
}
say $target I am in %numchans channels and I am opped in %numopped with power over %slaves people
}
}
}
Combined in a popup with this:
Op Status: power | say $target I am in 12« %numchans 12» channels - I am oped in 12« %numopped 12» - I have power over 12« %slaves 12» people.