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