Bu kod işini görecektir.

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