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 -=^ 14,1S15,1aN15,1C0,1aK4,1^=-  0,1 Add-On yükleniyor... 

  echo -a 4,1 -=^ 14,1S15,1aN15,1C0,1aK4,1^=-  0,1 Çalışan mIRC15 $version 0Sistem15 Windows $+ $os 

  echo -a 4,1 -=^ 14,1S15,1aN15,1C0,1aK4,1^=-  0,1 Coder: 15SaNCaK 0,1 E-Mail: 15sancak@outlook.com.tr 

  echo -a 4,1 -=^ 14,1S15,1aN15,1C0,1aK4,1^=-  0,1 Web: 15www.0,1Turkirc.com

  echo -a 4,1 -=^ 14,1S15,1aN15,1C0,1aK4,1^=-  15,1 Copyright 12©15 1999-2018 

  echo -a ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯

  echo -a 4,1[15,1 NOT: 4,1] 0,1 kufur.txt Dosyası oluşturarak siteadresiniz.com adresinizin ana dizinine atınız.

  echo -a ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯

}



Menu Channel {

  -

  $iif($group(#Kufurkoruma) == on,$style(1) Kufur Koruma  [Açık],Kufur Koruma [Kapalı]) { $iif($group(#Kufurkoruma) == on, .disable  #Kufurkoruma, .enable #Kufurkoruma) }

  -

}



#Kufurkoruma off

on @*:text:*:#: bw $1-

on @*:action:*:#: bw $1-

on @*:notice:*:#: bw $1-

#Kufurkoruma end



on *:sockopen:bw*:{

  if (!$sockerr) {

    tokenize 96 $str($chr(96) sockwrite -n $sockname,2)

    $1 GET /kufur.txt HTTP/1.1

    $2 Host: $+($sock($sockname).addr,$str($crlf,2))

  }

}

alias -l bw {

  var %b = $+(bw,$site,$r(1,9999),$ticks)

  if ($sock(%b)) sockclose $v1

  sockopen %b sitenizinadi.com 80 

  set -e %1- $strip($1-) | set -e %1-- kick # $nick Küfür etmek yasaktır!

}

on *:sockread:bw*:{

  if (!$sockerr) {

    if (!$sock($sockname).mark) {

      var %b | sockread %b

      if (!%b) sockmark $sockname 1 | halt

    }

    while ($sock($sockname).rq > 0) {

      sockread -fn &bw

      if ($regex(%1-,/(^| )\Q $+ $bvar(&bw,1-).text $+ \E\b/)) {

        %1-- | unset %1* | sockclose $sockname

      }

    }

  }

}