mIRC Scripting - Yazı code problem.

mIRC Scripting (https://www.mircscripting.net/)

- Help - Yardım (https://www.mircscripting.net/help-yardym/)

- - Yazı code problem. (https://www.mircscripting.net/help-yardym/694-yazy-code-problem.html)

Yazı code problem.

Alıntı:

Feragat Nickli Üyeden Alıntı (Mesaj 1818)

Bu konu ile ilgili yapılmış bazı çalışmalar var fakat yapılan snippet(parça) kodları incelediğimde, while döngüleri veya alias'lar falan kullanıldığını gördüm. Hatta hatalı regex tanımı uygulandığına da şahit oldum. Döngü ve alias kullanmadan neler yapılabilir diye düşünürken bir snippet oluşturdum.

Özellikleri:
Cümle, (/ ! .) bu 3 karakterden biriyle başlamıyorsa çalışır.
- Yazdığınız aktif ekran eğer bir #Kanal ise, cümle içinde geçen Nick(Kanalda bulunması şartıyla) renklendirir. Ayrıca Punct(!"#$%&'()*+,\-./:;<=>?@[\\\]^_`{|}~) karakterlerini de tek tek ve ayrı ayrı renklendirir.
- Yazdığınız aktif ekran query(Özel) penceresi ise, yukarıda anlatılan tanımdaki gibi aynı özelliklerle çalışır.
- Cümlenin ilk harfini büyük yapar ve noktadan sonra yada nokta ve boşuktan sonra yazıldığında ilk harfi yine büyük yapar.

Not: Kodu çalıştırdığınız/yüklediğiniz remote sayfasında farklı input event'ları varsa problem yaşarsınız. Mümkünse boş bir remote sayfasında kullanın. Bu tarz kodlar %100 sağlıklı çalışır diyemem ama görüntü ve eğlence açısında kullanılabilir.

Kod:

on *:input:*: {

  if $regex($left($1-,1),/[^.!/]/S) {

    if $window($active).type == channel { msg $active $regsubex($regsubex($regsubex($1-,/(\S+)/Sg,$iif(\1 ison #,$+(,,$r(2,6),\1,),\1)),/([[:punct:]])/g,$+(,$r(2,6),\1,)),/(^.|[0-9[:cntrl:]]\x2E\xF\s?.)/g,$upper(\1)) | halt }

    if $window($active).type == query { msg $active $regsubex($regsubex($regsubex($1-,/(\S+)/Sg,$iif(\1 == $active,$+(,$r(2,6),\1,),\1)),/([[:punct:]])/g,$+(,$r(2,6),\1,)),/(^.|[0-9[:cntrl:]]\x2E\xF\s?.)/g,$upper(\1)) | halt }

  }

}

Örnek görüntü:
http://i.hizliresim.com/eaovO7.jpg

İyi forumlar.

on *:input:*:{
if !$istok(/ ! .,$left($1,1),32) {
if $window($active).type == channel { msg $active $regsubex($1-,/([^[:punct:]\s]+)/gi,$iif(\1 ison #,\1,\1)) }
elseif $window($active).type == query { msg $active $regsubex($1-,/([^[:punct:]\s]+)/gi,$iif(\1 == $active,\1,\1)) }
halt
}
}

bu kod sizinkine benziyorda renk falan yok sadece nickleri ince yazdiriyor, ama nick icindeki _ | { vs karakterle sıkınti cikiyor nasil giderebilirim?

[:punct:] noktalama işaretlerini simgeler.
\s boşluk karakterini simgeler.
[^[:punct:]\s] içerisinde noktalama işaretleri ve boşluk karakteri olmayan karakterleri simgeler. Bazı nicklerde (ahmet_32, serap|ist, [lalegul] vb.) bu tür noktalama işaretleri geçtiğinden regsubex tanımın olumsuz etki edecektir.

Bu sıkıntıyı yaşamamak için ([^[:punct:]\s]+) tanımı yerine (\S+) tanımını kullanmalısın.
Burada ki \S boşluk olmayan karakterleri simgeler.

Sunucumuz üzerinden cevap verdim ama, konu altına da fikrimi belirteyim.
Kullandığın kodu hatırlıyorum regex filtresini Difuzyon yapmıştı. Difuzyon'un söylediği seçenek dışında kısmen çalışabilecek şöyle bir seçenekte olabilir;
- \S yani [^[:space:]] Non-Space operatörüne biraz özellik ekleyebiliriz.

Örnek:

Kod:

on *:input:*:{

  if !$istok(/ ! .,$left($1,1),32) {

    if $window($active).type == channel { msg $active $regsubex($1-,/([^[:space:]\*\?\,\.\:\51\50\{\}\^\\\%\<\>\/\=\@\;\&\!\"\#\'\]\[]+)/gi,$iif(\1 ison #,\1,\1)) }

    elseif $window($active).type == query { msg $active $regsubex($1-,/([^[:space:]\*\?\,\.\:\51\50\{\}\^\\\%\<\>\/\=\@\;\&\!\"\#\'\]\[]+)/gi,$iif(\1 == $active,\1,\1)) }

    halt

  }

}

Notlar:
Nick içerisinde izin verilen karakterler bellidir. { } _-`| gibi (ve rakamlar.) Nick içinde eğer bu karakterlerden birisi geçiyorsa, sonradan nickin başına veya sonuna bunları koyduğunda kod istediğin şekilde çalışmaz..
Örnek veriyorum kullanıcının nicki D{aR}k ise ve sen nickin sonuna veya başına D{aR}k} (Bracket) ilave edip yazarsan istediğin sonucu vermez. Nickin içinde olmasını istediğin karakterleri Non-Space ve diğer eşleşmeyenlerin filtre edildiği bölümden(([^[:space:]\*\?\,\.\:\51\50\{\}\^\\\%\<\>\/\=\@\;\&\!\"\#\'\]\[]+) yani burdan) çıkarmalısın. Eğer nickin içinde { } bunlar olduğunda da kod işlem yapsın istiyorsan; regexin içinden \{\} bu şekilde silmelisin, punct karakter çakışmasını engelleyip kodu çalıştırabilmek adına. .
-- Biraz uzun bir yol oldu farklındayım ve kısmi bir yol :)
İyi forumlar.

++ mIRCScripting.net hakkında kısaca:

mS; "Gayri resmi mIRC" kullanıcı ve tasarımcı topluluğudur.
2009 yılında kurulan mS; tasarımcı ve geliştiricileri bir araya getiren etkileşim ve iletişim sağlayan bir platformdur.
mS; tasarım, programlama, geliştirme, düzenleme vb. pek çok konu etrafında bir araya gelmiş "mIRC" meraklısı bir çok insan tarafından yaratılan içeriğiyle; kullanıcı dostu, özgün elit, nitelikli kişi ve konularla hizmet sunan mIRC Scripting platformudur.

Özgün içerikten onay almaksızın içeriği yaratan kullanıcılarımız tamamen yada kısmen sorumludur, aynı zamanda söz konusu içerik mS yetkilileri izni olmaksızın, kaynak gösterilse dahi(!) kopyalanamaz ve/ya paylaşılamaz. Site/içerik hakkında görüş, öneri ve şikayetleriniz için sikayet[at]mircscripting[dot]net e-posta ve ya İletişim adresinden bizlere ulaştırabilirsiniz.

FLINK: mIRC Offical - Hasan AYDENİZ - Koli - KARMA - Karma Aydınlatma

mIRC mIRC Orjinal mIRC İndir mIRC Download mIRC Tutorials mIRC Socket mIRC Commands mIRC Komutlar mIRC Yükle mIRC Dersler mIRC Hazır Kodlar mIRC Classentifier mIRC DLL mIRC Dialog mIRC IRC mIRC FTP mIRC Telnet mIRC Help
mIRC Yardım mIRC Iconlar mIRC Com Object mIRC Binary Files mIRC Picture Windows mIRC Unicode mIRC Forum mIRC Hazır Kodlar mIRC Kod mIRC Script mIRC File Handling mIRC Scripting Language mIRC Scripting Dili mIRC Scripting Info
mIRC Scripting Tutorials