You know... it is always better to learn to type properly rather than use a script to do it for you. Anyhow, here:
on &*:input:*: {
msg $target $upper($left($1,1)) $+ $right($1-,-1) $+ .
halt
}
Just as a note... if you already have a script that halts an on ^*:input:*: event, this will fail... you'd have to include it within that original script.