on *:Input:#:{
  if (/* !iswm $1) {
  haltdef
var %t $+($iif($me isreg $chan,,$replace($left($nick($chan,$me).pnick,1),@,,%,,+,)),$1-)
  msg $chan %t
}
}