alias capitalise {
var %text = $regsubex($regsubex($1,/(?<=^|[.!?] )(.)|(?<=^| )(i(?= |'|$))/g,$upper(\t)),/\bmirc\b/gi,mIRC)
return %text $+ $iif($right(%text,1) !isin .!? && $gettok(%text,-1,32) isalnum,.)
}
#uppercase on
on *:input:*:{
if (!$istok(/ $readini($mircini,text,commandchar),$left($1,1),32)) && (!$ctrlenter) && (!$inpaste) {
say $capitalise($1-)
haltdef
}
}
#uppercase end