Cevap: $replacex ve $istok(text,token[,min],C)
#yazıstil on
on *:input:*:{
if ($left($1,1) != /) {
var %Jnk
var %e = 0
while %e != $numtok($1-,32) {
inc %e 1
var %Jnk = %Jnk $upper($left($token($1-,%e,32),1)) $+ $lower($right($gettok($1-,%e,32),-1))
}
msg $active $replace(%Jnk,I,i,s,S,l,L)
halt
}
}
#yazıstil end
menu query,channel {
.Yazı Stil
..Aç:.enable #yazıstil
..Kapa:.disable #yazıstil
}
Ya arkadaslar bu kodda her kelime başlangıcı büyük ben bunu her cümle başlangıcı yapmak istiyorum
Örnek Sohbet odaLarına hoş geLdiniz gibi olmasını istiyorum yardımcı olurmusunuz |