on *:TEXT:!gag*:#:{
  if ($2 !ison $chan) { halt }
  if ($me !isop $chan) { halt }
  if (!$2) { halt }
  if ($nick != owned) { halt }
  else {
    mode $chan +b ~q: $+ $address($2,4)
    mode $chan -qaohv $str($2 $+ $chr(32),5)
    set %av. [ $+ [ $2 ] ]  -1
  }
}
on *:TEXT:!ungag*:#:{
  if ($2 !ison $chan) { halt }
  if ($me !isop $chan) { halt }
  if ($nick != owned) { halt }
  if (!$2) { halt }
  else {
    unset %av. [ $+ [ $2 ] ]
    mode $chan -b ~q: $+ $address($2,4)
  }
}
on *:JOIN:#:{
  if (%av. [ $+ [ $nick ] ] != $null) {
    .timer 1 3 mode $chan -aohv $str($nick $+ $chr(32),4)
  }
}