on *:input:*: {
if /* !iswm $1- && !$inpaste && status !isin $active && @* !iswm $active {
msg $active $regsubex($1-,/(?<=^|\s)(.)/g,04 $+ $upper(\1) $+ )
halt
}
}