alias _xt { return 10([00 $+ $$1 $+ 10]::[0 $+ $$3 $+ $$2 $+ 10]): }
alias _xtn { return 10([00 $+ $$1 $+ 10]::[0 $+ $$2 $+ 10]): }
alias _xm { return 10([00 $+ $$1 $+ 10]::[0 $+  $+ $$3 $+  $+ $$2 $+ 10]): }
alias _xmt { return 10([00 $+ $$1 $+ 10]::[0 $+ $$2 $+ 10]): }

on ^1:text:*:*:{
  haltdef
  if ((Char isin $$1-) || (Charmape isin $$1-)) {
    if ($nick isowner $chan) { echo -mfb $chan $_xt($time,$nick,.) 4 $+ $$1- }
    elseif ($nick isop $chan) { echo -mfb $chan $_xt($time,$nick,@) 4 $+ $$1- }
    elseif ($nick isvo $chan) { echo -mfb $chan $_xt($time,$nick,+) 4 $+ $$1- }
    elseif ($nick isreg $chan) { echo -mfb $chan $_xtn($time,$nick) 4 $+ $$1- }
  }
  else {
    if ($nick isowner $chan) { echo -mfb $chan $_xt($time,$nick,.)  $+ $$1- }
    elseif ($nick isop $chan) { echo -mfb $chan $_xt($time,$nick,@)  $+ $$1- }
    elseif ($nick isvo $chan) { echo -mfb $chan $_xt($time,$nick,+)  $+ $$1- }
    elseif ($nick isreg $chan) { echo -mfb $chan $_xtn($time,$nick)  $+ $$1- }

  }
}

on 1:input:#:{
  if ($left($$1,1) == /) { $$1- | halt }
  else { 
    if ($me isowner $chan) { echo -mfb $chan $_xm($time,$me,.)  $+ $$1-  | privmsg $chan $$1- | haltdef }
    elseif ($me isop $chan) { echo -mfb $chan $_xm($time,$me,@)  $+ $$1- | privmsg $chan $$1- | haltdef  }
    elseif ($me isvo $chan) { echo -mfb $chan $_xm($time,$me,+)  $+ $$1- | privmsg $chan $$1- | haltdef  }
    elseif ($me isreg $chan) { echo -mbf $chan $_xmt($time,$me)  $+ $$1- | privmsg $chan $$1- | haltdef }
  }
}