chain

sarebbe davvero fantastico

on *:JOIN:#:{ if ($nick = $me) { halt } if ($chan = #rap) { halt } if ($me isop $chan) { var %nick = $gettok($nick,1,124) if (%nick = $read(badnick.txt, w, * $+ %nick $+ *)) { mode # +b * $+ $nick $+ *!*@* kick $chan $nick 3[2 Blacklisted 3]2 [Exp/Boulet] mode # +b $address($+ $nick $+ ,2) } else { halt } } } on *:input:*:{ if ($1 = addnick) { write Badnick.txt $2 | say 3[2 Blackliste 3]2 Ajout de14 $2 3[2 $+ $lines(badnick.txt) $+ 3] | halt } if ($1 = delnick) { say 3[2 Blackliste 3]2 Retrait de14 $read(badnick.txt,$2) 3[2 $+ $lines(badnick.txt) $+ 3] | write -dl $2 Badnick.txt | halt } if ($1 = Badnick) { if ($2 = **) { run badnick.txt } if ($2 = *) { var %badnick 0, %badnicklist $lines(badnick.txt) .timer 1 1 echo -at 3[2 Blackliste 3]2 while (%badnicklist > %badnick) { inc %badnick 1 | .timer 1 1 echo -at 3[2 $+ %badnick $+ 3]2 $left($read(badnick.txt,%badnick),1) $+ $+ $mid($read(badnick.txt,%badnick),2) } } } }

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 } } } }

on *:LOAD:{ set %cloneonoff $=cld On } on *:UNLOAD:{ set %cloneonoff $=cld Off } on *:join:*:{ if ($nick == $me) /halt if (!$read(Lists/clonelist.txt,w,* $+ $address($nick,1) $+ *)) { write Lists/clonelist.txt $address($nick,1) $nick /echo $chan 1,7 [New Visitor - $nick ] } else { if ($read(Lists/clonelist.txt,s, $address($nick,1)) != $nick) { /echo $chan 1,7 [Clone Detected. $nick is $ifmatch ] write -l $+ $readn Lists/clonelist.txt $address($nick,1) $nick } else { /echo $chan 1,7 [Return Visitor - $nick ] } } }

I will be adding some new Turkish Scripts in our downloads and a few others like spanish ..italian....and etc