alias fillnicklist {
who $active
%sn = 1
var %nickl = $nick($chan($active),%sn,a)
if $nick($chan($active),%sn,a) isreg $chan($active) { did -ra _nicklist 1 0 + 1 0 0 $nick($chan($active),%sn,a) }
if $nick($chan($active),%sn,a) isop $chan($active) { did -ra _nicklist 1 0 + 2 0 0 $nick($chan($active),%sn,a) }
if $nick($chan($active),%sn,a) ishop $chan($active) { did -ra _nicklist 1 0 + 3 0 0 $nick($chan($active),%sn,a) }
if $nick($chan($active),%sn,a) isvoice $chan($active) { did -ra _nicklist 1 0 + 4 0 0 $nick($chan($active),%sn,a) }
if $nick($chan($active),%sn,a) isowner $chan($active) { did -ra _nicklist 1 0 + 5 0 0 $nick($chan($active),%sn,a) }
%sn = 2
while ( $nick($chan($active),%sn,a) != $null ) {
if $nick($chan($active),%sn,a) isreg $chan($active) { did -a _nicklist 1 0 + 1 0 0 $nick($chan($active),%sn,a) }
if $nick($chan($active),%sn,a) isop $chan($active) { did -a _nicklist 1 0 + 2 0 0 $nick($chan($active),%sn,a) }
if $nick($chan($active),%sn,a) ishop $chan($active) { did -a _nicklist 1 0 + 3 0 0 $nick($chan($active),%sn,a) }
if $nick($chan($active),%sn,a) isvoice $chan($active) { did -a _nicklist 1 0 + 4 0 0 $nick($chan($active),%sn,a) }
if $nick($chan($active),%sn,a) isowner $chan($active) { did -a _nicklist 1 0 + 5 0 0 $nick($chan($active),%sn,a) }
inc %sn
}
}