on *:text:!channel:#: {
inc %served
var %x = 1
var %op = 0, %hop = 0, %voice = 0, %reg = 0
while ($me ison $chan(%x)) {
if ($me isop $chan(%x)) inc %op
if ($me ishop $chan(%x)) inc %hop
if ($me isvoice $chan(%x)) inc %voice
if ($me isreg $chan(%x)) inc %reg
inc %x
}
notice $nick I am in $calc(%x - 1) channel $+ (s) I'm op in %op of them. Im Halfop in %hop of them. Im Voice in %voice of them. Im Regular in %reg of them.
}
on *:text:@channel:#: {
inc %served
var %x = 1
var %op = 0, %hop = 0, %voice = 0, %reg = 0
while ($me ison $chan(%x)) {
if ($me isop $chan(%x)) inc %op
if ($me ishop $chan(%x)) inc %hop
if ($me isvoice $chan(%x)) inc %voice
if ($me isreg $chan(%x)) inc %reg
inc %x
}
msg $chan I am in $calc(%x - 1) channel $+ (s) I'm op in %op of them. Im Halfop in %hop of them. Im Voice in %voice of them. Im Regular in %reg of them.
}