#yazıstil on
on *:input:#:{
if (/* !iswm $1) || ($ctrlenter) {
var %^ = 1, %'
while %^ <= $0 {
%' = %' $iif($remove($gettok($1-,%^,32),!,:,;,$chr(44)) ison #,$+(1,$gettok($1-,%^,32),),$gettok($1-,%^,32))
inc %^
}
msg # $replacecs($regsubex(%',/(?<=^|\s)(.)/, $+ $upper(\1) $+ ),l,L,s,S)
halt
}
}
#yazıstil end
menu query,channel {
.Yazı Stil
..Aç:.enable #yazıstil
..Kapa:.disable #yazıstil
}