on *:input:*:{
if ($regex($1-,/^(?!\/|!|\.)/)) {
msg $active $regsubex(d,$regsubex(c,$regsubex(b,$regsubex(a,$1-,/([[:punct:]])/g,$+($chr(3), 4, \1, $chr(15))), $&
/(\S+)/g,$iif($strip(\1) ison # || $strip(\1) = $active, $+($chr(2),$v1,$chr(2)),\1)),/^(\S)/,$upper(\1)),/(\x28|\x29)/g,$+($chr(3),1,\1,$chr(15))) | halt
}
}