mIRC Scripting - NoMercy'nin "kanal_koru"masında sorun var

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

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

- - NoMercy'nin "kanal_koru"masında sorun var (https://www.mircscripting.net/help-yardym/335-nomercy-nin-kanal_koru-masynda-sorun-var.html)

NoMercy'nin "kanal_koru"masında sorun var

Aşağıdaki nomercy'nin kanal_koru aliasında sorun var ve bir türlü ne yaptiysam düzeltemedim. Kanalda yapılan küfür/reklam/flood/vb. davranışlara tepki göstermiyor. Sorun nerde yardımlarınızı bekliyorum..

PHP- Kodu:

   ; Channel-Guard
 
on *:SOCKCLOSE:NoMercy: {
  unset %*
  .timermercy* off
  if $hget(mesaj) {
    hfree mesaj
  }
}
alias joinglobals {
  var %j 1
  while %j <= $lines(glob.txt) {
    ;sw NoMercy SAJOIN NoMercy $read(glob.txt,%j)
    inc %j
  }
}
alias deopalll {
  ;sw NoMercy os raw2 svskill $1 :Ayrildi
  ;var %d 1
  ;while %d <= $lines(glob.txt) {
  ;sw NoMercy MODE $read(glob.txt,%d) -o $1
  ;inc %d
  ;}
}
alias maskban {
  if !$oyunnick($botfnick($2)) {
    sw NoMercy MODE $1 +b ~q: $+ $mask($2,1)
  }
}
alias kanal_koru {
  if !$read(yonetimchans.txt,w,%::chan) && $left(%::chan,1) == $chr(35) {
    if !$read(oyunchans.txt,w,%::chan) {
      if $len(%::text) > 30 {
        if $numtok(%::text,32) > 6 {
          %::text = $gettok(%::text,1-5,32)
        }
        inc -u10 %mflood. [ $+ [ $+(%::chan,$hash($_dellast($strip(%::text)),32)) ] ]
        if %mflood. [ $+ [ $+(%::chan,$hash($_dellast($strip(%::text)),32)) ] ] == 4 {
          _gzline $botfnick(%::add) Saldiri/flood girisimi tespit edilmistir. [NoMercy]
          sw NoMercy PRIVMSG #Opers :Saldiri tespit edildi: %::chan
          sw NoMercy PRIVMSG #Opers :Saldiri texti: %::text
          sw NoMercy PRIVMSG #Opers :60 saniye icin spam (gzline) edildi: $yildiztemizle($_dellast($strip(%::text)))
          sw NoMercy spamfilter add cN gzline 24h Saldiri/flood girisimi tespit edilmistir. [NoMercy] $yildiztemizle($_dellast($strip(%::text)))
          .timer 1 60 sw NoMercy spamfilter del cN gzline 24h Saldiri/flood girisimi tespit edilmistir. [NoMercy] $yildiztemizle($_dellast($strip(%::text)))
          return
        }
      }
    }
    if *www.* iswm %::text || http isin %::text || *.net* iswm %::text || *.com* iswm %::text {
      if !$xisop(%::chan,%::nick) {
        killnick %::nick
        sw irobot privmsg benX : $1-
        return
      }
    }
    if $hfind(kufur,%::text,1,W).data && !$read(oyunchans.txt,w,%::chan) && !$read(sexchans.txt,w,%::chan) && !$xisop(%::chan,%::nick) {
      if !%banning. [ $+ [ %::nick ] ] {
        inc -u10 %banning. [ $+ [ %::nick ] ] 1
        maskban %::chan %::nick
        clearchan %::chan
        ;killnick %::nick
        _kick %::chan %::add Kanal genelinde kufur/argo icerikli cumleler kurdugunuz icin kanaldan uzaklastirildiniz. Yakalanan kelimeniz: 4,4 $hget(kufur,$hfind(kufur,%::text,1,W).data) 
        ;sw NoMercy PRIVMSG %::chan : $+ $+(,%::nick,) $+ ; Kanal genellerinde kufur/argo icerikli cumleler kurdugunuz icin 30dk sureyle konusmaniz engellendi. Yakalanan kelimeniz: 4,4 $hget(kufur,$hfind(kufur,%::text,1,W).data) 
        return
      }
    }
    if $chr(35) isin %::text && !$read(oyunchans.txt,w,%::chan) && !$read(yonetimchans.txt,w,%::chan) && !$xisop(%::chan,%::nick) {
      if !%banning. [ $+ [ %::nick ] ] {
        inc -u10 %banning. [ $+ [ %::nick ] ] 1
        maskban %::chan %::nick
        sw NoMercy PRIVMSG %::chan : $+ $+(,%::nick,) $+ ; kanal genelinde baska bir kanalin reklamını yaptiginiz icin 30 dk. sureyle konusmaniz engellendi.
        ; _kick %::chan %::add Kanal genellerinde baska kanal reklami yapmak yasaktir. Bu olayin tekrarlanmasi halinde yetkililer uyarilip kanaliniz kapatilabilir.
        return
      }
    }
    if ( isin %::text2 ||  isin %::text2 ||  isin %::text2) && !$xisop(%::chan,%::nick) {
      inc -u60 %renklitext. [ $+ [ %::nick ] ] 1
      if %renklitext. [ $+ [ %::nick ] ] == 3 {
        if !%banning. [ $+ [ %::nick ] ] {
          inc -u10 %banning. [ $+ [ %::nick ] ] 1
          maskban %::chan %::nick
          sw NoMercy PRIVMSG %::chan : $+ $+(,%::nick,) $+ ; kanal takibini zorlastiracak derecede renkli yazdiginiz icin 30 dk. sureyle konusmaniz engellendi.
        }
      }
    }
    if !$read(oyunchans.txt,w,%::chan) {
      inc -u1 %flood. [ $+ [ %::chan ] $+ . $+ [ $hash(%::nick,32) ] ] 1
      if %flood. [ $+ [ %::chan ] $+ . $+ [ $hash(%::nick,32) ] ] == 7 {
        maskban %::chan %::nick
        sw NoMercy PRIVMSG %::chan : $+ $+(,%::nick,) $+ ; Kanal genellerinde flood seklinde yazmak, yazi karisikligi yaratmak ve kopyala/yapistir yapmak yasaktir.
        ;_kick %::chan %::add Kanal genellerinde flood seklinde yazmak, yazi karisikligi yaratmak ve kopyala/yapistir yapmak yasaktir.
      }
      var %yazi = $hash($strip($_dellast(%::text)),32)
      var %eski.yazi = %tekrar. [ $+ [ %::chan ] $+ . $+ [ %::nick ] ]
      var %eski.yazi = $deltok(%eski.yazi,1,46)
      if (%tekrar. [ $+ [ %::chan ] $+ . $+ [ %::nick ] ] == $null) || (%eski.yazi != %yazi) {
        set -u60 %tekrar. [ $+ [ %::chan ] $+ . $+ [ %::nick ] ] 1. $+ %yazi 
        goto hm
      }
      var %bugra = %tekrar. [ $+ [ %::chan ] $+ . $+ [ %::nick ] ]
      var %sayac = $gettok(%bugra,1,46)
      inc %sayac
      set -u60 %tekrar. [ $+ [ %::chan ] $+ . $+ [ %::nick ] ] %sayac $+ . $+ %yazi
      if (%sayac >= 3) {
        if !%banning. [ $+ [ %::nick ] ] {
          inc -u10 %banning. [ $+ [ %::nick ] ] 1
          maskban %::chan %::add
          ;sw NoMercy mode %::chan +b %::nick
          sw NoMercy PRIVMSG %::chan : $+ $+(,%::nick,) $+ ; kanal genelinde ayni yazinin tekrarini fazlaca yaptiginiz icin 30 dk. sureyle konusmaniz engellendi.
          ; _kick %::chan %::add Biz bir kereden anliyoruz ki?
        }
      }
      :hm
    }
  }
}

Aşağıdada kanal_koru aliasının bulundugu yer var sorun onun yerindemi anlamadim.. yardimlarinizi bekliyorumm.

PHP- Kodu:

         if $xisop(%::chan,%::nick) && $gettok(%::text,2,32) != NoMercy && benX !iswm $gettok(%::text,2,32) && benX !iswm $gettok(%::text,2,32) && xkartaLx* !iswm $gettok(%::text,2,32) && *swatbot* !iswm $gettok(%::text,2,32) {
        if $gettok(%::text,1,32) == !k {
          if $gettok(%::text,2-,32) {
            sw $sockname KICK %::chan $gettok(%::text,2,32) : $+ $iif($gettok(%::text,3-,32),$gettok(%::text,3-,32),Sebep belirtilmedi.)
          }
          else {
            sw $sockname PRIVMSG %::chan  $+ %::nick $+ , rumuz belirtiniz.
          }
        }
        if $gettok(%::text,1,32) == !kb {
          if $gettok(%::text,2-,32) {
            sw $sockname MODE %::chan +b $gettok(%::text,2,32)
            sw $sockname KICK %::chan $gettok(%::text,2,32) : $+ $iif($gettok(%::text,3-,32),$gettok(%::text,3-,32),Sebep belirtilmedi.)
          }
          else {
            sw $sockname PRIVMSG %::chan  $+ %::nick $+ , rumuz belirtiniz.
          }
        }
        if $gettok(%::text,1,32) == !voice {
          if $gettok(%::text,2-,32) {
            sw $sockname MODE %::chan $+(+,$str(v,$calc($numtok($gettok(%::text,2-,32),32) + 1))) $gettok(%::text,2-,32)
          }
          else {
            sw $sockname PRIVMSG %::chan  $+ %::nick $+ , rumuz belirtiniz.
          }
        }
        if $gettok(%::text,1,32) == !devoice {
          if $gettok(%::text,2-,32) {
            sw $sockname MODE %::chan $+(-,$str(v,$calc($numtok($gettok(%::text,2-,32),32) + 1))) $gettok(%::text,2-,32)
          }
          else {
            sw $sockname PRIVMSG %::chan  $+ %::nick $+ , rumuz belirtiniz.
          }
        }
        if $gettok(%::text,1,32) == !bantemizle {
          sw $sockname MODE %::chan +b
        }
      }
      if $gettok(%::text,1,32) == !clear {
        var %kc 1
        while %kc <= $lines(clear.txt) {
          sw $sockname privmsg %::chan $read(clear.txt,%kc)
          inc %kc
        }
      }
      if !$oyunnick(%::nick) && !$read(yonetimchans.txt,w,%::chan) {
        kanal_koru
      }
      if %::chan == %kanalds {
        sw $sockname privmsg %kokumanick %kanalds $1-
      }
    }
  }
}

Sorunu bulmak için önce botun "kanal_koru" komutuna başvurup başvurmadığını tesbit etmek lazım...
bunu tesbit etmenin en güzel yolu "kanal_koru" komutundan sonra birtane ".echo -a komut kullanıldı.." gibi bi kod ekleyebilirsin... yani kanal_koru komutunun kullanıldığı yerleri kanal_koru | .echo -a komut kullanıldı.. seklinde değiştirirsin.

Örn:

Kod:

if !$oyunnick(%::nick) && !$read(yonetimchans.txt,w,%::chan) {
 kanal_koru | .echo -a komut kullanıldı.. 
 }

dediğinizi yaptım üstad ama hic bi sekilde kullanmıyor, yani komuta başvurmuyor..

UOnur-un demek istediği, eğer /echo komutu uygulanmıyorsa(geçiş yapılmıyorsa) zaten /kanal_koru alias-ı yok demektir.
-
Şöyleki;
alias deneme echo -: 1. komut | XX | echo -: son komut.

/deneme yaptığında, 1. komut yazısını görürsün, /xx diye bir alias-ın olmadığından "* /xx: not connected to server (line 1, script.mrc)" vb. uyarı alırsın. Ve 2. komut uygulanmadığı için 3. komuta mIRC geçiş yapmaz, otomatik /halt eder.

Sen "komut uygulandı.." mesajını aktif ekrana alıyormusun?
Almıyorsan /kanal_koru alias-ı mIRC içerisinde mevcut değildir yada varolsa bile load edilmemiş demektir.

L4roXyL hocam "komut uygulandı.." mesajını aktif ekranda alamıyorum.
/kanal_koru alias-ı mIRC içerisinde bulunuyor, mevcut.

Edit: Pardon zaten kod içerisinde varmış.

tamir etmeye calısmak yerine asl olanını yeniden konfigure edip kullansan cok daha iyi
bu kadar edit görmüş birseyin hala calısması mucize zaten.

hic bişe imkansız degildir hocam yapan yapıyor, IrCbaStarD (sercan) kardeşim hallediyor. Genede tşk ederim.

İmkansız tabiki değil.
Lakin şöyle birşey var; nomercy-i yazan ben değilim. Variable-larından tut, entegre edilmiş alias-ların ne işe yaradığını nasıl çalıştığını hatta kodun ne şekilde/biçimde yazıldığını bilmiyorum. Hiç incelemedim çünki bu zaman kadar. O yüzden yapabileceklerim kısıtlı. Kodu ben yazmadım ki işlevselliğini bileyim.
Ama gördüğüm kadarıyla şunu rahatlıkla diyebilirim; baştan aşağı amatörce yazılmış bir kod silsilesi.
-
Lakin bana dersen-ki "l4roxyl kanal(lar)ım için socket sistemli bir koruma(lar) kod-u istiyorum" vaktim olunca yazar veririm sana. Ama nasıl yazıldığını bilmediğim ve daha önce incelemediğim bir sistem için sana yardım edemem.
En basitinden bir örnek vereyim; %::chan variable-ı nerede atanmış ve ne atanmış? Bunu bilmiyorum, diyelimki %::chan variable-ı #???* olarak dönüyor. Peki neden $left(%::chan,1) == $chr(35) şeklinde bir sorgu kullanılıyor o zaman? Saçma değilmi?
-
Demek istediğimi anladın umarım.

L4roXyL anladım demek istedigini üstad. Ben zaten bu konuda ustalaşmış, yani bu bot muhabbetine gönül vermiş arkadaşlar olursa yardımcı olabilirlerse diye konuyu açtım hocam sana lafım yok zaten haddime degil. Bu konu çok canımı sıkıyordu bir kaç aydır çözemedim o yüzden sorunu çözmek amacıyla açtım konuyu.

simdi noldu..
sorun halloldumu ?

Sorun IrCbaStarD (Sercan) tarafindan cozulmustur, herkese çabalarından dolayı teşekkür ederim.

Konu nerden nereye gelmiş..

CoCoRiCo en kolay yöntemini vermiş zaten kurcalamaya gerek yok daha fazla..

++ 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