on *:INPUT:#: { 
  if ($left($1,1) != $readini(mirc.ini, text, commandchar)) {
    %chk = $upper($left($1,1)) $+ $right($1,$calc($len($1)-1)) $2-
    %chk = $replace(%chk,<3,4<3)
    %chk = $replace(%chk,xd,xD)
    say %chk | unset %chk | halt 
  }
}