Kısa Kanal Korumalar Kodları

on *:load: { 
  .echo -aq $input(Yapımcı: SaNCaK $+ $crlf $+ $crlf $+ Addon: Add-On $chr(40) $+ v5.4 $+ $chr(41) $+ $crlf $+ $crlf $+ Yapım: 17/10/2014 $+ $crlf $+ $crlf $+ Iletişim: sancak@ym2ks.org $+ $crlf $+ $crlf $+ Kodu Kullandığınız için Teşekkür ederim,igo,Addon: SaNCaK $chr(40) $+ v5.4 $+ $chr(41))
  echo -a _____________________________________________________________________________________
  echo -a 4,1[15,1 SaNCaK 4,1] 0,1 Add-On yükleniyor... 
  echo -a 4,1[15,1 SaNCaK 4,1] 0,1 Çalýþan mIRC15 $version 0Sistem15 Windows $+ $os 
  echo -a 4,1[15,1 SaNCaK 4,1] 0,1 Coder: 15SaNCaK 0,1 E-Mail: 15sancak@ym2ks.org 
  echo -a 4,1[15,1 SaNCaK 4,1] 0,1 https://www.mircclub.org 
  echo -a 4,1[15,1 SaNCaK 4,1] 0,1 Copyright 12©15 1999-2018 
  echo -a ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
}
on *:unload: { 
.echo -aq $input(Yapımcı: SaNCaK $+ $crlf $+ $crlf $+ Addon: Add-On $chr(40) $+ v5.4 $+ $chr(41) $+ $crlf $+ $crlf $+ Yapım: 17/10/2014 $+ $crlf $+ $crlf $+ Iletişim: sancak@ym2ks.org $+ $crlf $+ $crlf $+ Kodu Kullandığınız için Teşekkür ederim,igo,Addon: SaNCaK $chr(40) $+ v5.4 $+ $chr(41))
}

#badnick off
on @*:join:#:{ if $read(badnick.txt,w,$nick) { ban # $nick 5 | kick # $nick Uygunsuz nick. } }
on *:nick:{ if $read(badnick.txt,w,$newnick) { var %1 = 1,%2 = $comchan($newnick,0) | while %1 = 
  length.of.text ex; 20) { 
    ban -u60 # $nick 11 
    kick # $nick -Flood koruması- 
  } 
} 
#Flood end

#Banp off
on @!*:BAN:#:{ 
  if ($banmask iswm $address($me,5)) { 
    mode # -b $banmask 
    mode # -o $nick 
    ban -u300 # $nick 
    kick $chan $nick -Ban koruması- 
  } 
  halt 
}
#Banp end

#Kickp off
on *:kick:#:{ 
  if ($knick == $Me) { 
    cs unban # 
    cs deop $chan $nick 
    .timerj01n 1 2 /join $chan 
    .timer0p 1 5 cs op $chan $me 
    .timerb4n 1 5 ban -u 300 # $nick 
    .timerk1ck 1 5 kick $chan $nick -Kick koruması- 
  } 
}
#Kickp end

#NickF off
on *:NICK: { 
  set -u60 %fld. [ $+ [ $address ] ] $calc( %fld. [ 
  $+ [ $address ] ] + 1) 
  if (%fld. [ $+ [ $address ] ] >= 5) { 
    var %i = 0 
    while (%i < $comchan($newnick,0)) { 
      inc %i 
      ban -u60 $comchan($newnick,%i) $newnick 2 
      kick $comchan($newnick,%i) $newnick -Please Stop Nick Flooding- 
    } 
  } 
}
#NickF end

menu status,menubar,channel {
  Korumalar
  .$iif(%badnick,$style(1)) Kötü nick koruması ( $+ $iif(%badnick,on,off) $+ ) {
    if (%badnick) { unset %badnick | .disable #badnick | echo -a $timestamp %logo 1,15Kötü nick koruması 4Kapali }
    else { set %badnick on | .enable #badnick | echo -a $timestamp %logo 1,15Kötü nick koruması 3Acik }
  }
  .$iif(%badidentd,$style(1)) Kötü identd koruması ( $+ $iif(%badidentd,on,off) $+ ) {
    if (%badidentd) { unset %badidentd | .disable #badidentd | echo -a $timestamp %logo 1,15Kötü identd koruması 4Kapali }
    else { set %badidentd on | .enable #badidentd | echo -a $timestamp %logo 1,15Kötü identd koruması 3Acik }
  }
  .$iif(%kufur,$style(1)) Küfür  koruması ( $+ $iif(%kufur,on,off) $+ ) {
    if (%kufur) { unset %kufur | .disable #kufur | echo -a $timestamp %logo 1,15Küfür  koruması 4Kapali }
    else { set %kufur on | .enable #kufur | echo -a $timestamp %logo 1,15Küfür  koruması 3Acik }
  }
  .$iif(%okufur,$style(1)) Özele Küfür  koruması ( $+ $iif(%okufur,on,off) $+ ) {
    if (%okufur) { unset %okufur | .disable #okufur | echo -a $timestamp %logo 1,15Özele Küfür  koruması 4Kapali }
    else { set %okufur on | .enable #okufur | echo -a $timestamp %logo 1,15Özele Küfür  koruması 3Acik }
  }
  .$iif(%reklam,$style(1)) Reklam  koruması ( $+ $iif(%reklam,on,off) $+ ) {
    if (%reklam) { unset %reklam | .disable #reklam | echo -a $timestamp %logo 1,15Reklam  koruması 4Kapali }
    else { set %reklam on | .enable #reklam | echo -a $timestamp %logo 1,15Reklam  koruması 3Acik }
  }
  .$iif(%oreklam,$style(1)) Özele reklam koruması ( $+ $iif(%oreklam,on,off) $+ ) {
    if (%oreklam) { unset %oreklam | .disable #oreklam | echo -a $timestamp %logo 1,15Özele reklam koruması 4Kapali }
    else { set %oreklam on | .enable #oreklam | echo -a $timestamp %logo 1,15Özele reklam koruması 3Acik }
  }
  .$iif(%Flood,$style(1)) Flood koruması ( $+ $iif(%Flood,on,off) $+ ) {
    if (%Flood) { unset %Flood | .disable #Flood | echo -a $timestamp %logo 1,15Flood koruması 4Kapali }
    else { set %Flood on | .enable #Flood | echo -a $timestamp %logo 1,15Flood koruması 3Acik }
  }
  .$iif(%Banp,$style(1)) Ban koruması ( $+ $iif(%Banp,on,off) $+ ) {
    if (%Banp) { unset %Banp | .disable #Banp | echo -a $timestamp %logo 1,15Ban koruması 4Kapali }
    else { set %Banp on | .enable #Banp | echo -a $timestamp %logo 1,15Ban koruması 3Acik }
  }
  .$iif(%Kickp,$style(1)) Kick koruması ( $+ $iif(%Banp,on,off) $+ ) {
    if (%Kickp) { unset %Kickp | .disable #Kickp | echo -a $timestamp %logo 1,15Kick koruması 4Kapali }
    else { set %Kickp on | .enable #Kickp | echo -a $timestamp %logo 1,15Kick koruması 3Acik }
  }
  .$iif(%NickF,$style(1)) Nick Flood koruması ( $+ $iif(%NickF,on,off) $+ ) {
    if (%NickF) { unset %NickF | .disable #NickF | echo -a $timestamp %logo 1,15Nick Flood koruması 4Kapali }
    else { set %NickF on | .enable #NickF | echo -a $timestamp %logo 1,15Nick Flood koruması 3Acik }
  }
}

Not: Korumaların çalışması için, mIRC’inizin bulunduğu dizine hazırlayıp atmanız gereken dosyalar şunlardır:
badnick.txt
badidentd.txt
kufur.txt
okufur.txt
reklam.txt
oreklam.txt