Kod: Kodu kopyalamak için üzerine çift tıklayın!
#yaziilkbuyuk off
on 1:INPUT:*: {
if ( $left($1,1) == / ) { goto son }
if ($ctrlenter) { goto son }
if ($active == Status Window) { Echo -a %logo2 11,1Status'a Birşey Yazamazsınız. | goto halt }
if ($active == @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) { 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 %Var2 $+ $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 %Var2
halt
:ServerCommand
:halt
halt
:son
}
#yaziilkbuyuk end
yukarıda vermiş oldugum codeye aşağıdaki kısaltmaları nasıl ekleyebilirim ? bir kaç çekilde denedim fakat olmadı
şu şekilde hata veriyor;
[15:52] <deneme> S.a
[15:52] <deneme> SeLamun ALeyKüm
set %kelime $replace(%kelime,s.a, s eLamun a LeyKüm.)
set %kelime $replace(%kelime,a.s, a LeyKüm S eLam.)
set %kelime $replace(%kelime,allah,Allah)
set %kelime $replace(%kelime,eyv,eyvallah)
set %kelime $replace(%kelime,h.g,Hoşgeldin)
set %kelime $replace(%kelime,h.b,Hoşbulduk)
set %kelime $replace(%kelime,kib,Kendine iyi Bak)
set %kelime $replace(%kelime,aeo,Allaha emanet ol)
:bit
say %kelime
unset %kelime
:halt
halt
:son
}
bu codeyi nasıl ekleyebiliriz ?
--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 17:25 -->-> Daha önceki mesaj 17:24 --
ancak şöyle birşey var..bilindiği üzere bu code ilk harf büyük harf codesidir.. bu özelliği kaybolmadan replace kullanarak kısaltmaları yapmak istiyorum.