NoMercy'nin "kanal_koru"masında sorun var

[benX]

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


[UOnur]

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:

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

[benX]

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

[L4roXyL]

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.

[benX]

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

[L4roXyL]

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

[CoCoRiCo]

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.

[benX]

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

[L4roXyL]

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

[benX]

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.