Yazı code problem.

MerakLıuser · #1 22 Ocak 2014, 17:49

Alıntı:

Feragat Nickli Üyeden Alıntı

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ü:

İ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?

**Difuzyon** · #2 24 Ocak 2014, 19:29

[: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.

**Feragat** · #3 24 Ocak 2014, 23:05

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.

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder