IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Cümle oluşturma [regex megex herşey var bir ben yokum]

Yaptıklarımı step by step (tek tek :D) anlatarak aklımdaki düşünceleri ve gelişmesini sizlere göstererek değişik bir anlatım tarzını

uygulayacağım.

Konumuz: yazdığımız birşeyin karşı tarafa cümle şeklinde uygulanarak gönderilmesi.
Nasıl?: şöyleki bu bir cümle denemesidir. okadar. gibi bir cümlemiz olsun bunu Bu bir cümle denemesidir. Okadar. şeklinde yazması ve

gelişimi.
Ne gerekli?: ilk önce bizim giridiğimiz yazıyı tanıması için on input eventi, bunun dışında bol bol $gettok, $replace ve var.

Uygulamaya başlıyoruz:
mirc nin remotesini açıp file > new den yeni bir script oluşturuyorum içine:
on *:input:*: { echo -a Test }
yazıp status penceresinde rastgele birşey yazıyorum ve enterliyorum çıkan sonuç
Test
* You are not on a channel
bundaki amacımız tek tek doğrulayarak hatamızı sonradan aramaktansa yaptığımız anda bulmak :).
şimdi ihtiyacımız olan input ta / gbi komut girince bunu mirc in komut olarak görmesi bunu da

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] deki kodumuzu alarak başlıyorum bu kodda
on *:input:*: {
if ($mouse.key & 2) || !$regex($1,^\/) {
msg $active $replacecs($1-,l,L,b,ß,s,S,ş,$,g,G)
halt
}
}
msg $active $replacecs($1-,l,L,b,ß,s,S,ş,$,g,G) kısmı işime yaramayan kısım oldugu için onu siliyorum diğeri on input kısmı bizim biraz önce

denediğimiz event if ($mouse.key & 2) || !$regex($1,^\/) { ise eğer yazılan yazının 1. kelimesi / ile başlıyorsa veya / ile başlayıpta ctrl

tuşuna basılı iken entere basmıyorsa komut olarak uyguladır.

remoteye aşağıdaki şekilde yazıyorum
on *:input:*: {
if ($mouse.key & 2) || !$regex($1,^\/) {
echo - $1-
halt
}
}
ve rastgele asdsad giriyorum çıkan sonuç:
- asdsad
/asdasd giriyorum:
* /asdasd: not connected to server << komut olarak algılıyor tamamdır.
aynı komutu ctrl tuşu basık iken giriyorum:
- /asdasd << yazı olarak algılıyor tamamdır.

cumlekur aliasesimizi oluşturmaya başlıyoruz
alias cumlekur {
if $isid {

}
}

buradaki $isid aliasesimizi $cumlekur şeklinde kulanacağımızı /cumlekur şeklinde çağırılırsa çalışmayacağı anlamına gelir.

şimdide en basit yoldan regex kullanarak cumle oluşturma safhamıza geçiyoruz
var %x , %i = $regsub(UPTR,$1-,/(\.([a-z]|[A-Z]|[[:space:]]|ş|ü|ğ|ö|ç|ı|Ş|Ü|Ğ|Ö|Ç|İ).)/g,\1,%x)
yukardakinin anlamı . ve ondan sonraki kelimeleri türkçe(|ş|ü|ğ|ö|ç|ı|Ş|Ü|Ğ|Ö|Ç|İ) karakterler dahil ve [a-z] küçük [A-Z] büyük kelimelerle

birlikte [[:space:]] boşluk karakterini tarıyoruz

Kod:

on *:input:*: { 

  if ($mouse.key & 2) || !$regex($1,^\/) && !$window(Status Window) {

    msg $active $cumlekur($1-)

    halt

  }

}

alias cumlekur {

  if $isid {

    var %x , %i = $regsub(cumlekur,$1-,/((\.|;|\:)+([a-z]|[A-Z]|[[:space:]]|ş|ü|ğ|ö|ç|ı|Ş|Ü|Ğ|Ö|Ç|İ).)/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),ş,Ş,ç,Ç,ü,Ü,ğ,Ğ,ı,İ)),$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)),ş,Ş,ç,Ç,ü,Ü,ğ,Ğ,ı,İ)) $+ $right(%x,-1)

  }

}

Eeeeeeeeee şey kusura bakmayın ben koptum gittim anlatıcaktım ama şimdi gelde yukarıdaki kodu basit bir şekilde anlat. Herneyse bu bir ders konusu olucaktı ama hazırkodlar kısmına yazmak nasip oldu aynı şekilde yazımı txt dosyasından foruma pasteliyorum. Komedi bir hazır kod oldu ama olsun en azından buradan bir konuyu yazarak anlatmanın ne kadar zor olduğunu anlamış oluyoruz :D.