Küfür Koruması (Ayarlanan Kanal içinde)

on *:load: { 
  .echo -aq $input(Yapımcı: SaNCaK $+ $crlf $+ $crlf $+ Addon: Küfür Koruması$chr(40) $+ v5.4 $+ $chr(41) $+ $crlf $+ $crlf $+ Yapım: 17/10/2014 $+ $crlf $+ $crlf $+ Iletişim: sancak@outlook.com.tr $+ $crlf $+ $crlf $+ Kodu Kullandığınız için Teşekkür ederim,igo,Addon: Küfür Koruması$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@outlook.com.tr 
  echo -a 4,1[00,01 SaNCaK 4,1] 15,1 Copyright 12©15 1999-2017 
  echo -a ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
}
on *:unload: { 
  .echo -aq $input(Author: SaNCaK $+ $crlf $+ $crlf $+ Addon: Küfür Koruması $chr(40) $+ v5.4 $+ $chr(41) $+ $crlf $+ $crlf $+ Released at: 17/10/2016 $+ $crlf $+ $crlf $+ Contact: sancak@outlook.com.tr $+ $crlf $+ $crlf $+ Unloading...,igo,Addon: Küfür Koruması $chr(40) $+ v5.4 $+ $chr(41))
}
alias -l kufurlu.kelimeler { return fuck.shit.damn.bitch.sikerim.sikeyim.ibne.orospu }

on @*:text:*:#: {
  if ($nick isop #) return
  if (%kufurKoruma. [ $+ [ # ] ] = yes) return
  var %x $strip($1-) , %i $numtok($kufurlu.kelimeler,46)
  while (%i) {
    if ($istok(%x,$gettok($kufurlu.kelimeler,%i,46),32)) {
      raw -q mode # +b $wildsite
      kick # $nick Küfür Etmek Yasaktır
      return
    }
    dec %i
  }
}
Menu Channel {
  -
  Korumalar
  .$Iif(%kufurKoruma. [ $+ [ # ] ] == yes, $Style(1)) Küfür Koruması: {
    Set %kufurKoruma. [ $+ [ # ] ] $Iif(%kufurKoruma. [ $+ [ # ] ] == yes, no, yes)
    Echo -at * Küfür Koruması $Iif(%kufurKoruma. [ $+ [ # ] ] == yes, Açıldı, Kapatıldı)
  }
}