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

Fredyyy · 13 Eylül 2019, 16:23

İ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: Kodu kopyalamak için üzerine çift tıklayın!

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.
  }
}

Emrehan · 13 Eylül 2019, 20:08

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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.
      }
    }
  }
}

Fredyyy · 13 Eylül 2019, 20:34

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.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Emrehan · 13 Eylül 2019, 20:40

Fredyyy Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on *:join:#sohbet:{
if $read(shunn.txt,w,$+($3,¿*)) {

Burayı

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on *:join:#sohbet:{
if $read(shunn.txt,w,$+($nick,¿*)) {

şeklinde değiştirin.

Fredyyy · 13 Eylül 2019, 21:28

Ne yazık ki bir şey değişmedi efendim.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Feragat · 14 Eylül 2019, 00:24

Fredyyy Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Ne yazık ki bir şey değişmedi efendim.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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 ?

Fredyyy · 14 Eylül 2019, 00:35

Feragat Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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 ?

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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

YouMyCure · 14 Eylül 2019, 12:06

Fredyyy Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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

Fredyyy · 14 Eylül 2019, 12:18

YouMyCure Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

ç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.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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: Kodu kopyalamak için üzerine çift tıklayın!

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.
      }
    }
  }
}

Fredyyy · 14 Eylül 2019, 22:25

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.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Ş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.

Seçenekler	Arama
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder	Arama: Gelişmiş Arama Yap
Stil
Normal gösterime geğ Hybrid-Şeklinde Ağaç şeklinde gösterime geç

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.