Something

ON *:INPUT:#:{ 
  if ($left($1,1) != /) { 
    var %x = 1
    while (%x <= $0) {
      var %word = $gettok($1-,%x,32)
      if ($remove(%word,$chr(44),:,!,?) ison $chan) {
        if (($v1 == IceScript) || ($v1 == $me)) {
          var %word2 = %word2 %word
        }
        else { 
          var %word2 = %word2 $name(%word)
        }
      }
      else {
        var %word2 = %word2 %word
      }
      inc %x
    }
    msg $chan %word2 | halt
  }
} 
Alias name { 
  return $+($chr(3),04,«,$chr(3),05,|,$chr(3),07) $+ $1 $+ $+($chr(3),05,|,$chr(3),04,$iif($right($1,1) == $chr(44),$+(»,$chr(44)),»),$chr(3)) 
}