on ^*:TEXT:*:#:{
  var %i = 0
  var %line = $1-
  while (%i < $numtok($1-,32)) {
    inc %i 1
    if ($gettok($1-,%i,32) ison $chan) {
      if ($gettok($1-,%i,32) isop $chan) {
        var %line = $replace(%line,$gettok($1-,%i,32),4 $+ $gettok($1-,%i,32) $+ )
      }
      elseif ($gettok($1-,%i,32) ishop $chan) {
        var %line = $replace(%line,$gettok($1-,%i,32),7 $+ $gettok($1-,%i,32) $+ )
      }
      elseif ($gettok($1-,%i,32) isvoice $chan) {
        var %line = $replace(%line,$gettok($1-,%i,32),2 $+ $gettok($1-,%i,32) $+ )
      }
    }
  }
  if ($nick isop $chan) {
    echo $chan <4@ $+ $nick $+ > %line
  }
  elseif ($nick ishop $chan) {
    echo $chan <7% $+ $nick $+ > %line
  }
  elseif ($nick isvoice $chan) {
    echo $chan <2+ $+ $nick $+ > %line
  }
  else {
    echo $chan < $+ $nick $+ > %line
  }
  haltdef
}
on *:INPUT:#:{
  if (/ == $left($1,1)) { return }
  if ($me isop $chan) {
    echo $chan <4@ $+ $me $+ > $1-
  }
  elseif ($me ishop $chan) {
    echo $chan <7% $+ $me $+ > $1-
  }
  elseif ($me isvoice $chan) {
    echo $chan <2+ $+ $me $+ > $1-
  }
  else {
    echo $chan < $+ $me $+ > $1-
  }
  .msg $chan $1-
  halt
}