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