Tüm banları açma koduum Banlar? Acma Kodu

 

 

 

 

alias clearallban {if ($regex($usermode,/(o|O|N|a|A|C))) {

echo 4 -a IRCop modu tespit edildi, bulundu?unuz bütün kanallar?n ban? aç?l?yor..

var %cx = 1,%xc = $chan(0)

while (%cx <= %xc) {

clearbans $chan(%cx)

inc %cx 1

}

halt

}

var %u = 1,%f = $chan(0)

while (%u <= %f) {

if ($me isop $chan(%u) || $me ishop $chan(%u)) { clearbans $chan(%u) | echo 4 -a *** $chan(%u) Kanal?n?n ban? aç?l?yor.. }

inc %u 1

}

}

raw 478:*:{ if ($regex($usermode,/(o|O|N|a|A|C))) { echo -at $2 Kanal?n?n Ban Listesi Dolmu? Durumda, Banlar Temizleniyor.. | clearbans $2 | Halt } }

alias massmode {

var %i = 1, %x = $numtok($3-,32), %y = $modespl

while (%i <= %x) {

mode $1 $+($left($2,1),$str($right($2,1),$numtok($gettok($3-,$+(%i,-,$calc(%i + %y)),32),32))) $gettok($3-,$+(%i,-,$calc(%i + %y)),32)

inc %i %y

}

}

alias clearbans {

var %1 = $iif($1,$1,$chan), %b = $ibl(%1,0), %i, %t

if (%b == 0) {

echo -t %1 * Ban Listesi Al?n?yor $+(%1,…)

mode %1 b

}

else {

var %i = $ibl(%1,0)

while (%i) {

var %t = $addtok(%t,$ibl(%1,%i),32)

dec %i

}

massmode %1 -b %t

}

}

_________________

kodu remoteye ekliyorsunuz alt+r

op olduğunuz tüm kanalların banını

ircop iseniz bulunduğunuz bütün kanalların banını açar.

 

 

 

 

 

Bu yazı 5 Mart 2009 Perşembe 18:59'da, Remoteler altında yazıldı. Bu yazının cevaplarını RSS 2.0 bildirimiyle takip edebilirsiniz. Cevap yazabilir ya da kendi sitenize geri izleme yapabilirsiniz.

Cevap yaz

Yorum yapmak için giriş yapmalısınız. Giriş Yap »

mirc indir
chat sohbet | Sohbet