Miscellany

alias all {
  /set %t 0
  /set %tn \o/
  /unset %all
  while (%tn != $null) { /set %all %all %tn | /set %tn $nick($active, %t) | /set %tn1 %tn | if (%tn1 isop $active) { /set %tn  $+ %tn  } | if (%tn1 isvoice $active) { /set %tn 7+ $+ %tn  } | if (%tn1 isop $active && %tn1 isvoice $active) { /set %tn 4@+ $+ $nick($active, %t)  } | if (%tn1 ishop $chan) { /set %tn 8% $+ $nick($active, %t)  } | if (%tn1 ishop $chan && %tn1 isop $chan) { /set %tn 4@% $+ $nick($active, %t)  } | if (%tn1 ishop $chan && %tn1 isvoice $chan) { /set %tn 8%+ $+ $nick($active, %t)  } | if (%tn1 ishop $chan && %tn1 isop $chan && %tn1 isvoice $chan) { /set %tn 4@%+ $+ $nick($active, %t)  } | /inc %t }
  if ($mid(%all,5,1) == 4 || $mid(%all,5,1) == 7 || $mid(%all,5,1) == 9) { set %all $mid(%all, 6, 999) }
  /return $remove(%all, \o/, 1, 0, 2, 3, 5, 6) $+ 
}