on *:input:*: {
  if /* !iswm $1-  {
    echo -a $time($+($+(02[,04,HH),02:,$+(04,nn),02])) $+(<,$me,>) $1-
    halt
  }
}

 
on *:input:#:{ 
  if (/* iswm $1) { return } 
  var %a 0, %b, %c 
  while (%a < $numtok($1-,32)) { 
    inc %a 
    %c = $gettok($1-,%a,32) 
    if ($remove(%c,!,?,:,;,.,$chr(44),?) ison #) { %b = $iif(%b,%b) $+(,%c,) } 
    else { %b = %b %c } 
  } 
  if (!%b) { %b = $1- } 
  say %b 
  halt 
}

 
on 1:input:*: { if $ctrlenter || $left($1,1) == $readini(mirc.ini,text,commandchar) { return }
!.msg $target $1- | echo $target $+(4,[,$time(HH:nn),],) $+(<,$me,>) $1- | halt }