Aop List (Snipplet)

[Twister]

Simple Aop List +q
For IrcX or MSN
[code]menu nicklist {
Aop
.Add: { /who $chan |.var %r $?"Reason:" | .auser Aop * $+ $ial($1).addr $1 %r | msg # $1 Added to Aop .q for Gold }
.Remove: { .ruser Aop * $+ $ial($1).addr | msg # $1 Removed from Aop }
.Scan: { ascan }
.Full Read: { asc }
}
on Aop:JOIN:#: {
msg # $nick [[-Aop $nick .q for Gold-]] | mode $chan +q $nick
}
alias ascan {
.var %r 1, %p 0
msg # [[-Aop Scan Started-]]
while ($nick($chan,%r)) {
if ($ulist($ial($nick($chan,%r)).addr,Aop,1)) {
msg # Found: $nick($chan,%r) $+ / $+ $gettok($ulist($ial($nick($chan,%r)).addr,Aop,1).info,1,32) [Reason: $gettok($ulist($ial($nick($chan,%r)).addr,Aop,1).info,2-,32) $+ ]
.inc %p
}
.inc %r
}
msg # [[-Aop Scan Complete-]]
}
on Aop:TEXT:*.q*:#: {
if ($me isowner # && $nick !isowner #) { .mode # +q $nick }
}
alias asc {
.var %r 1, %p 0
msg # [[-Full Aop Scan Started-]]
while ($read(remote.ini,%r)) {
if ($read(remote.ini,w,$+(*,Aop:,*),%r)) { .inc %p | msg # ( $+ %p $+ ) $replace($right($read(remote.ini,$readn),- $+ $iif($readn > 10,9,8)),@GateKeeperPassport,$+($chr(32),:,$chr(32))) | %r = $readn }
.inc %r
}
msg # [[-Full Aop Scan Complete %p Found-]]
}[/code]