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

[AntepLi]

Sitenize eklediğiniz TXT dosyasından okutularak küfür koruma işlemi.
-
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: 15[Only Registered Users Can See Links]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 [Only Registered Users Can See Links]
$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
}
}
}
}