Çevrimdışı

arkadaşlar benim nomercy nin alias kanal_koruma çalışmıyor lütfen bakarmısınız...

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)) ] ] == 5 {
sw NoMercy PRIVMSG #Opers :Saldiri tespit edildi: %::chan
sw NoMercy PRIVMSG #Opers :Saldiri texti: %::text
_gzline $botfnick(%::add) Saldiri/flood girisimi tespit edilmistir. [NoMercy]
return
}
}
}
if *[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] iswm %::text || http isin %::text || *.net* iswm %::text || *.com* iswm %::text {
if !$xisop(%::chan,%::nick) {
killnick %::nick
sw mIRCKelebek-GUARD privmsg #Opers : $1-
return
}
}
if $hfind(kufur,%::text,1,W).data && !$read(oyunchans.txt,w,%::chan) && !$read(***chans.txt,w,%::chan) && !$xisop(%::chan,%::nick) {
if !%banning. [ $+ [ %::nick ] ] {
inc -u10 %banning. [ $+ [ %::nick ] ] 1
maskban %::chan %::nick
clear %::chan
;killnick %::nick
sw NoMercy PRIVMSG %::chan : $+ $+(,%::nick,) $+ ; Kanal genellerinde kufur/argo icerikli cumleler kurdugunuz icin 30dk sure ile engellendiniz. Seviyeli bir sohbet kurmaya ozen gosterelim. 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 tanıtımı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
_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
}
}
}