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 *
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
iswm %::text || http isin %::text || *.net* iswm %::text || *.com* iswm %::text {
     if !$xisop(%::chan,%::nick) {
       killnick %::nick
       sw irobot 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
   }
 }
}