mIRC Küfür Koruması ( Socket Kullanarak )

mIRC Küfür Koruması

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,1MircSohbet.Org 
  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 
      } 
    } 
  } 
}