Unnamed

alias gag {
  if ($1 == -r) {
    mode $active $+(-b,+,$hget(gags,$2)) $+(~q:,$address($2,2)) $str($2 $+ $chr(32),$len($hget(gags,$2)))
  }
  else {
    if ($1 ison $active) {
      mode $active +b ~q: $+ $address($1,2)
      if ($1 isop $active) {
        var %modes = $+(%modes,o)
      }
      if ($1 isvoice $active) {
        var %modes = $+(%modes,v)
      }
      if ($1 ishop $active) {
        var %modes = $+(%modes,h)
      }
      $iif(%modes != $null,/mode $active $+(-,%modes) $str($1 $+ $chr(32),$len(%modes)))
      hadd -m gags $1 %modes    
    }
  }
}