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

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

- - shunlist hk. (https://www.ircforumlari.net/mirc-scripting-sorunlari/836915-shunlist-hk.html)

İyi çalışmalar dilerim bir kaç koda bakıp birleştirmeye çalışarak kendi çapımda bir deneme yaptım. Yalnız kodu çalıştıramadım. Eksiklerim nerede yardımcı olur musunuz? Bir de wilcard olayı da olsun istiyorum. *zebani* *z*e*b*a*n*i* tarzında.. Şimdiden teşekkür ederim.

Kod:

on *:join:#sohbet: {

if $read(shunn.txt,w,$+($3,¿,*)) { msg #takip $nick kanala giriş yaptı ve shun atıldı. | shun $nick $network tedbir! } }

on *:input:#: {

  if $regex($1,/^([.!]shun)/Si) {

    if !$read(master.txt,w,$nick) { msg #takip 2Yetkili listesinde bulunamadıgınız için kullanamazsınız. | return } 

    if !$2 { msg #takip 2Lütfen parametre belirtiniz.4 !shun at|listele|atma | return }

  }

  if $2 == listele {

    if $lines(shunn.txt) = 0 { msg #takip 2Shun kayiti bulunamadi. | halt }

    msg #takip 2Shun listesi siralaniyor.

    var %massacre 1

    while (%massacre <= $lines(shunn.txt)) {

      msg #takip $+(%massacre,-,$chr(41),) 4Nick:2 $token($read(shunn.txt,%massacre),1,191) 4Sebep:2 $token($read(shunn.txt,%massacre),2,191)

      inc %massacre

    }

  }

  if $2 == at {

    if !$3 { msg #takip 2Lütfen nick belirtiniz.4 !shun at nick | return }

    if $read(shunn.txt,w,$+($3,¿,*)) { msg #takip 2Eklemeye çalıştığınız nick zaten listede ekli, tekrar ekleyemezsiniz. | return }

    write shunn.txt $+($3,¿,$iif($4 == $null,Belirsiz,$4-))

    msg #takip 4 $+ $3 $+ , 2shun listesine eklenmiştir. 4Sebep:2 $iif($4 == $null,Belirsiz,$4-)

  }

  if $2 == atma {

    if !$3 { msg #takip 2Lütfen nick belirtiniz.4 !shun atma nick | return }

    if !$read(shunn.txt,w,$+($3,¿,*)) { msg #takip 4 $+ $3 $+ , 2listede bulunamadı. | return }

    write -dw $+ $+($3,¿,*) shunn.txt

    msg #takip 4 $+ $3 $+ , 2Shun listesinden silinmiştir.

  }

}

Cevap: shunlist hk.

Kod:

on *:join:#sohbet:{

  if $read(shunn.txt,w,$+($nick,¿*)) {

    msg #takip $nick kanala giriş yaptı ve shun atıldı.

    shun $nick $network tedbir!

  }

}

on *:input:#:{

  if $regex($1,/^[.!]shun/Si) {

    if !$read(master.txt,w,$nick) { msg #takip 2Yetkili listesinde bulunamadıgınız için kullanamazsınız. | return } 

    elseif !$regex($2,/(at|atma|l[ıiİ]stele)/Si) { msg #takip 2Hatalı kullanım:4 !shun at|listele|atma | return }

    elseif $2 == listele {

      if $lines(shunn.txt) <= 0 { msg #takip 2Shun kayiti bulunamadi. | halt }

      msg #takip 2Shun listesi siralaniyor.

      var %massacre 1 | while (%massacre <= $lines(shunn.txt)) {

        msg #takip $+(%massacre,-,$chr(41),) 4Nick:2 $token($read(shunn.txt,%massacre),1,191) 4Sebep:2 $token($read(shunn.txt,%massacre),2,191)

        inc %massacre

      }

    }

    elseif $2 == at {

      if !$3 { msg #takip 2Lütfen nick belirtiniz.4 !shun at nick | return }

      elseif $read(shunn.txt,w,$+($3,¿*)) { msg #takip 2Eklemeye çalıştığınız nick zaten listede ekli, tekrar ekleyemezsiniz. | return }

      else {

        write shunn.txt $+($3,¿,$iif($4 == $null,Belirsiz,$4-))

        msg #takip 4 $+ $3 $+ , 2shun listesine eklenmiştir. 4Sebep:2 $iif($4 == $null,Belirsiz,$4-)

      }

    }

    elseif $2 == atma {

      if !$3 { msg #takip 2Lütfen nick belirtiniz.4 !shun atma nick | return }

      elseif !$read(shunn.txt,w,$+($3,¿*)) { msg #takip 4 $+ $3 $+ , 2listede bulunamadı. | return }

      else {

        write $+(-,dl,$readn) shunn.txt

        msg #takip 4 $+ $3 $+ , 2Shun listesinden silinmiştir.

      }

    }

  }

}

Cevap: shunlist hk.

Sayın @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ne yazık ki olmadı. Eklediğim shun nickini görmüyor wilcard olarak eklediklerimi de aynı şekilde görmüyor ne yazık ki. ;s2

Cevap: shunlist hk.

Alıntı:

Fredyyy Nickli Üyeden Alıntı (Mesaj 1042154525)

Kod:

on *:join:#sohbet:{

if $read(shunn.txt,w,$+($3,¿*)) {

Burayı

Kod:

on *:join:#sohbet:{

if $read(shunn.txt,w,$+($nick,¿*)) {

şeklinde değiştirin.

Cevap: shunlist hk.

Ne yazık ki bir şey değişmedi efendim. ;s2

Cevap: shunlist hk.

Alıntı:

Fredyyy Nickli Üyeden Alıntı (Mesaj 1042154552)

Ne yazık ki bir şey değişmedi efendim. ;s2

Kodu denedim biraz, çalışıyor.

Örnek görüntüler.
-
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Sende hiç tepki vermiyor mu ?

Cevap: shunlist hk.

Alıntı:

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

Hayır ne yazık ki hiçbir tepki yok sayın @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] hatta statuste herhangi bir kod ile de çakıştığı ile ilgili bir belirti de yok :)

Cevap: shunlist hk.

Alıntı:

Fredyyy Nickli Üyeden Alıntı (Mesaj 1042154689)

çakışıyor olabilir boş remote sayfasına ekleyin

Cevap: shunlist hk.

Alıntı:

YouMyCure Nickli Üyeden Alıntı (Mesaj 1042154848)

çakışıyor olabilir boş remote sayfasına ekleyin

Hiçbir çakışma yoktu Sayın @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] yalnız Sayın @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] beyin dediği on *:join:#sohbet:{
if $read(shunn.txt,w,$+($nick,¿*)) { kısmında $+($nick,¿,*) olan yere virgün koyup kodun diğer kısımlarındaki benzer noktaları da aynı şekil değiştirdim. Şimdi kanala giren ÖRN: ceber nickine shun atıyor yalnız ceber* şeklinde shun eklediğim vakit, ÖRN: ceberrrr olarak nick girişi olunca algılamıyor. Özetle wilcard kısmı olmuyor sanırım. :) Sizlerin de kıymetli vaktini aldığımın farkındayım, kusuruma bakmayın lütfen. Bir de @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] bey sizde de wilcardlı olarak komut işlev gördü mü? Şimdiden ilginiz için teşekkür ederim.

Kod:

on *:join:#sohbet:{

  if $read(shunn.txt,w,$+($nick,¿,*)) {

    msg #takip $nick kanala giriş yaptı ve shun atıldı.

    shun $nick $network tedbir!

  }

}

on *:input:#:{

  if $regex($1,/^[.!]shun/Si) {

    if !$read(master.txt,w,$nick) { msg #takip 2Yetkili listesinde bulunamadıgınız için kullanamazsınız. | return } 

    elseif !$regex($2,/(at|atma|l[ıiİ]stele)/Si) { msg #takip 2Hatalı kullanım:4 !shun at|listele|atma | return }

    elseif $2 == listele {

      if $lines(shunn.txt) <= 0 { msg #takip 2Shun kayiti bulunamadi. | halt }

      msg #takip 2Shun listesi siralaniyor.

      var %massacre 1 | while (%massacre <= $lines(shunn.txt)) {

        msg #takip $+(%massacre,-,$chr(41),) 4Nick:2 $token($read(shunn.txt,%massacre),1,191) 4Sebep:2 $token($read(shunn.txt,%massacre),2,191)

        inc %massacre

      }

    }

    elseif $2 == at {

      if !$3 { msg #takip 2Lütfen nick belirtiniz.4 !shun at nick | return }

      elseif $read(shunn.txt,w,$+($3,¿,*)) { msg #takip 2Eklemeye çalıştığınız nick zaten listede ekli, tekrar ekleyemezsiniz. | return }

      else {

        write shunn.txt $+($3,¿,$iif($4 == $null,Belirsiz,$4-))

        msg #takip 4 $+ $3 $+ , 2shun listesine eklenmiştir. 4Sebep:2 $iif($4 == $null,Belirsiz,$4-)

      }

    }

    elseif $2 == atma {

      if !$3 { msg #takip 2Lütfen nick belirtiniz.4 !shun atma nick | return }

      elseif !$read(shunn.txt,w,$+($3,¿,*)) { msg #takip 4 $+ $3 $+ , 2listede bulunamadı. | return }

      else {

        write $+(-,dl,$readn) shunn.txt

        msg #takip 4 $+ $3 $+ , 2Shun listesinden silinmiştir.

      }

    }

  }

}

Cevap: shunlist hk.

Alıntı:

Fredyyy Nickli Üyeden Alıntı (Mesaj 1042154859)

Merhabalar.

Yaptığın kodu, Fırsat bulup ancak inceleyebildim.

Yapmak istediğin işi anlıyorum ama istediğin gibi çalışması için mantığı değiştirmen gerek.

Şöyle anlatayım. Neyi, neyin içinde aradığına dikkat etmen gerek.

Örneğin; Elindeki veri Nick ve sen bu nicki dosya içinde eklediğin filtreler içinde arayacaksan eğer üstteki yaptığın hatalı çalışır.

Mantık hatası şudur;
$read mantığında Bütünü, parçanın içinde arayamazsın. Parçayı bütünde araman gerekiyor.
Mesela kanala giren nick Feragat diyelim, shunn.txt içinde eklediğin verilerin wildcard kullanılarak eklendiğini düşünelim.

Kanala Giren Nick = Feragat
Wildcard Ekli Parça = Fera*

Sen burada Feragat nickini Fera* kalıbı içinde ararsan sonuç alamazsın. Tam tersi Fera* yı Feragat'in içerisinde ararsan sonuç bulabilirsin.
Bunu başarabilmen için döngü kullanmalısın ki bu sağlıklı sonuç verebilse de yüzlerce kalıp ekli olduğunu düşünürsek çok yavaş sonuç verir. Döngü .txt içindeki her veriyi kanala giren nick ile kıyaslayacak ve eşleşme olursa sonuç dönecek. 1000 satır veri olduğunu var sayarsan bir hayli yavaş olur.

Bunu tek bir tanım içinde yapabilmek için hash table tanımlarını kullanabilirsin. Hash table Bütünü, parçanın içinde arayabiliyor.

Hash table için örnek.

Kod:

//hadd -ms Nickler Fer* Reklam
 

//echo -a $hfind(Nickler,Feragat,1,W)

Feragat bütününü Fer* parçasının içinde buldu.

Bunun dışında Access Levels konusundaki User List kullanmanı öneririm.

Event prefixi olarak join eventına ekleyip wildcard ile kanala giren nickleri döngüsüz tespit edip işlem yaptırabilirisin. ( Sebep de ekleyebilirsin. )

Access Levels için incelemeni önereceğim konu: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Belki fikir verebilir. Ayrıca .txt dosyalarına yazma/okuma/silme yaptırmana da gerek kalmaz.

Cevap: shunlist hk.

Sayın @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] değerli yorum ve açıklamalarınız için teşekkür ederim. Konunun da başında belirttiğim gibi bu kodu parça kodları okuyarak yapmaya uğraştım. Söylediğiniz üzere bahsettiğiniz konuyu inceleyip birşeyler üretmeye çalışacağım. :tatli: Şayet vaktinizi almayacak ise kodu yazarak yardım etmek isterseniz de minnet duyarım. İlgi ve alakanız için teşekkür eder, iyi çalışmalar dilerim.

Cevap: shunlist hk.

Kod:

on *:start:{ $iif(!$isfile(shunick.die),write shunick.die) | hmake shunick 100 | hload shunick shunick.die
 

}

on *:join:#sohbet:{ if $hmatch(shunick,$nick) {

    $iif(!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Nick),window -en @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Nick,window -en @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Nick) | echo -tm @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Nick $+($chr(3),$color(notice)) *** UYARI! $nick ShunNicki # kanalına giriş yaptı!  

    if %shunick == on {

      shun $nick you are my ShunList

      echo -tm @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Nick $+($chr(3),$color(notice)) *** UYARI! Shun listesindeki $nick # kanalına giriş yaptı ve Shun uygulandı!    

    }

  }

} 

alias shunick { if !$istok(list add on off del alldel,$1,32) { echo -a $+($chr(3),$color(notice))  *** Tanımsız parametre:4 $1

  echo -a 5***Kullanım şekli 2/shunick 5[2add5|2del5[4nick5]]|2list5|2alldel5 | return }

  if $regex($1,/(on|off)/i) { echo -a $+($chr(3),$color(notice))  *** ShunNick koruması $iif($regml(1) == on,2AÇIK,2KAPALI) | set %shunick $regml(1) | return }

  if $regex($1-,/add\x20) { if $hmatch(shunick,$2) {  echo -a $+($chr(3),$color(notice))   ***4 $2 $+ 5, nicki ShunNick listesinde mevcut. |  return }

    if !$2 { echo -a $+($chr(3),$color(notice))  *** Nick eklemeyi unuttun sanırım:) | return }   

    hadd -m shunick $+(*,$2,*) |  hsave shunick shunick.die 

  echo -a $+($chr(3),$color(notice))   *** $2 $+ : nicki ShunNick listesine eklendi  }

  if $regex($1-,/del\x20) { if  $hget(shunick,0).item == 0 { echo -a $+($chr(3),$color(notice))  *** Oluşturulmuş ShunNick listesi bulunamadı. | return }

    if !$hmatch(shunick,$2) { echo -a $+($chr(3),$color(notice)) ***4 $2 $+ 5, nicki ShunNick listesinde bulunamadı | return } 

    if !$2 { echo -a $+($chr(3),$color(notice))  *** Silinecek nicki yazmayı unuttun sanırım:) | return }   

    hdel -w shunick $2 |  echo -a $+($chr(3),$color(notice))  ***4 $2 $+ 5, nicki ShunNick listesinden silindi 

  hsave shunick shunick.die  } 

  if $regex($1,/list/i) { if  $hget(shunick,0).item == 0 { echo -a $+($chr(3),$color(notice))  *** Oluşturulmuş ShunNick listesi bulunamadı. | return }

    var %^ = 1 | echo -a $+($chr(3),$color(notice))  *** ShunNick kayıtları listeteleniyor,

    while ($hget(shunick, %^).item) { echo -a $+($chr(3),$color(notice))  *** %^ $+ ) $v1 | inc %^ }

  echo -a $+($chr(3),$color(notice))  *** ShunNick kayıtları listelendi.  }

  if $regex($1,/alldel/i) {  if !$hget(shunick) { echo -a $+($chr(3),$color(notice))  *** Oluşturulmuş ShunNick listesi bulunamadı. | return }

  hfree shunick | echo -a $+($chr(3),$color(notice))  *** ShunNick listesi sıfırlandı. }

}

yukarıdaki kodun sağlıklı çalışması için öncelikle shun listesine bir kaç ekleme yapıp sonra da /shunick on yazmalısın
kodu aktif/pasif etmek için: /shunick on/off
nick eklemek/silmek için: / shunick add/del nick
listelemek için: /shunick list
bütün listeyi silmek için: /shunick alldel

yazılan herhangi bir badnick remote'u de uyarlayabilirdin. Ben bu remote'u badnick için yazmıştım ve forumda mevcuttu. Umarım istediğin gibi olmuştur.

Cevap: shunlist hk.

Çok teşekkür ederim Sayın @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] tam istediğim gibi oldu. Bilgilerinize sağlık, ayrı ayrı tüm coder üstadlara teşekkürler.