Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:input:*:{
if $left($1,1) != / {
if $window($active).type == channel { msg $active $regsubex($regsubex($1-,/((^[^A-Z])|((\.|\?)(.)))/g,$upper($replace(\1,i,İ,ı,I))),/(\S+)/gi,$iif(\1 ison #,$+(<04,\1,,>),\1)))) }
elseif $window($active).type == query { msg $active $regsubex($regsubex($1-,/((^[^A-Z])|((\.|\?)(.)))/g,$upper($replace(\1,i,İ,ı,I))),/(\S+)/gi,$iif(\1 == $active,$+(<04,\1,,>),\1)))) }
halt
}
}
Tüm satırda yazılanın 1. harfini büyük yapar.Satır içinde yer alan . ve ? işaretlerinden sonra gelen ilk harfi de büyük yapar.