IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - yazı stili sorunu (https://www.ircforumlari.net/mirc-scripting-sorunlari/548688-yazi-stili-sorunu.html)

yazı stili sorunu

Kod:

#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,seLamun aLeyKüm.)
set %kelime $replace(%kelime,a.s,aLeyKüm SeLam.)
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.

Cevap: yazı stili sorunu

Kod:

#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 $replacecs($1-,s.a,seLamun aLeyKüm.,a.s,aLeyKüm SeLam.,allah,Allah,eyv,eyvallah,h.g,Hoşgeldin,h.b,Hoşbulduk,kib,Kendine iyi Bak,aeo,Allaha emanet ol) 

  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

Bu şekilde ekleyebilirsin.

İstersen aynı işlevi daha kısa bi şekilde de yapabilirsin. Örnek:

Kod:

#yaziilkbuyuk off

on 1:INPUT:*: { if ($left($1,1) != /) || !$ctrlenter || ($active != Status Window) {

    var %kl = $replacecs($1-,s.a,seLamun aLeyKüm.,a.s,aLeyKüm SeLam.,allah,Allah,eyv,eyvallah,h.g,Hoşgeldin,h.b,Hoşbulduk,kib,Kendine iyi Bak,aeo,Allaha emanet ol)

    /msg $active $regsubex(%kl,/(?<=^| )(.)/g,$upper(\1))

    halt

  }

} 

#yaziilkbuyuk end

İyi forumlar.

Cevap: yazı stili sorunu

çok teşekkür ederim feragat tam istediğim gibi olmuş.. eline emeğine sağlık arkadaşım iyi ifler..

Cevap: yazı stili sorunu

Güzel paylaşımınız icin teşekürler