S.a IF sakinleri.. Elimdeki yazı stili kelimelerin ilk harflerini büyük yazıyor yanls "q" harfi muaf olarak ayarlı mesela qardeŞim dediqimizde Qardeşim olarak cıkmıyor.. şimdi ise ben e harfini £ olarak ayarlamak istiyorum ama sadece kelime basındaki "e" harflerini kelime ortasından gecenleri değil :
örnek: "£lime Gecsen £llerimle Boğardım Seni £min Ol" umarım anlata bilmisimdir sevgiler..
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
on 1:INPUT:*: {
set %purp $replace(%purp,b,B)
if ( $left($1,1) == / ) { goto son }
if ($ctrlenter) { goto son }
if ($active == Status Window) { Echo -a %logo2 12 Statusa Birşey Yazamazsınız. | goto halt }
if ($active == @Bot) { goto halt }
set %Var3 $1-
unset %Var1 %Var2
set %Var1 1 | set %Var2 $upper($mid(%Var3,1,1))
if ($mid(%Var3,1,1) == $chr(47)) { goto ServerCommand }
if ($len(%Var3) == 1) { set %Var2 $upper(%Var2) | say %Var2 | halt }
:Start1
inc %Var1 1
if ($mid(%Var3,%Var1,1) != $chr(32)) { set %var2 $replace(%Var2,l,L) $+ $mid(%Var3,%Var1,1) | if ($len(%Var3) < %Var1) { goto Start1 } }
if ($mid(%Var3,%Var1,1) == $chr(32)) { set %var2 %var2 $+ $upper($mid(%Var3,%Var1,2)) | inc %Var1 1 | if ($len(%Var3) < %Var1) { goto Start1 } }
if ($len(%Var3) != %Var1) { goto Start1 }
say $replace(%Var2,Q,q,b,B)
halt
:ServerCommand
:halt
halt
:son
}