|
Büyük HarfLe BaşLama Yazı Addonu |
mIRC Büyük Harfle baslayip Yazma.
-
- on *:input:*: {
if ($mouse.key & 2) || !$regex($1,^\/) && ($active != status window) {
msg $active $cumlekur($1-)
halt
}
}
alias cumlekur {
if $isid {
var %x , %i = $regsub(cumlekur,$1-,/((\.|;|\:)+([a-z]|[A-Z]|[[:space:]]|s|ü|g|ö|ç|i|S|Ü|G|Ö|Ç|I).)/g,\1,%x), %i = 1, %retval = $1-
while %i <= $regml(cumlekur,0) {
if $regex(ifcumlekur,$regml(cumlekur,%i),((\.|;|\:).|..)) {
%setvar = $remove($regml(cumlekur,%i),.,:,;,$chr(32))
%setvar = $+($left($regml(ifcumlekur,1),1),$chr(32),$upper($replacecs($left(%setvar,1),s,S,ç,Ç,ü,Ü,g,G,i,I)),$mid(%setvar,2,2))
var %x , %l = $regsub(%retval,$+(/,$regml(cumlekur,%i),/g),%setvar,%x), %retval = %x
}
inc %i 1
}
return $replace($upper($left(%x,1)),s,S,ç,Ç,ü,Ü,g,G,i,I)) $+ $right(%x,-1)
}
}
|
| Benzer Konular
|
|
Doviz KurLarı
