chain

We will be adding a lot of addons in different languages, just so we can preserve the scripting world and all the hard work that tons of scripters have put into scripting. Aggiungeremo molti addon in diverse lingue, solo così possiamo preservare il mondo degli script e tutto il duro lavoro che tonnellate di scripter hanno messo nello scripting.

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