| muratt_aziz | 07 Nisan 2009 20:32 |
Toplu line ban kaldırma
Tüm ban line kanallarda toplu kaldırmaya yarayan bir kod
zline
gline
shun
kline
ve tüm banları temizler !unban yazmanız yeterli
!ban yazınca komutları sıralıyor Kod:
menu * {
Toplu Ban aç
.Zlineleri aç için :/Rln -z
.Klineleri aç için:/Rln -k
.Glineleri aç için:/Rln -g
.Shunları aç:/Rln -s
.Kanda banları aç:/aLLban
.Tüm Banları aç:/clearallban
.Tüm Lineleri aç:/unb
.Tüm yasakları aç:/unban
}
on *:input:#:{
if ($1 == !unban) {
unban
}
if ($1 == !ban) {
rln
}
}
alias unban {
.rln -z
.timer 1 05 rln -s
.timer 1 10 rln -k
.timer 1 15 rln -g
.timer 1 20 clearallban
}
alias unb {
.rln -z
.timer 1 05 rln -s
.timer 1 10 rln -k
.timer 1 15 rln -g
}
alias RLN {
if ($1 = $null) {
echo -a Eksik parametre
echo -a /Rln -z Zline acmak için
echo -a /Rln -k Kline acmak için
echo -a /Rln -g Gline acmak için
echo -a /Rln -s Shun acmak için
echo -a /aLLban Kanalın tüm Banlarını acmak için
echo -a /clearallban Tüm banları açmak için
}
if ($1 = -s) {
set %t -s
.enable #Line
stats s
}
if ($1 = -k) {
set %t -k
.enable #Line
stats k
}
if ($1 = -z) {
set %t -z
.enable #Line
stats k
}
if ($1 = -g) {
set %t -g
.enable #Line
stats g
}
}
#Line off
raw 223*:*:{
if ($1 = z ) || (%t = -z ) {
if (!$window(@Line)) { .window -bLe @Line }
else { echo @Line Acılan: %t $+ Line 5 $+ $3 }
zline - $+ $3
}
if ($1 = k ) || (%t = -k ) {
if (!$window(@Line)) { .window -bLe @Line }
else { echo @Line Acılan: %t $+ Line 5 $+ $3 }
kline - $+ $3
}
if ($1 = s ) || (%t = -s ) {
if (!$window(@Line)) { .window -bLe @Line }
else { echo @Line Acılan: %t $+ Line 5 $+ $3 }
shun - $+ $3
}
if ($1 = g ) || (%t = -g ) {
if (!$window(@Line)) { .window -bLe @Line }
else { echo @Line Acılan: %t $+ Line 5 $+ $3 }
gline - $+ $3
}
halt
}
raw 219*:*:{
unset %t
.echo @line 4,8 %t $+ line işlemi tamam
.timer 1 1 .disable #Line
halt
}
#Line off
alias aLLban {
var %i = 0
while (%i <= $ibl($active,0)) {
mode $chan -b $ibl($active,%i)
inc %i
}
}
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
}
}
Bir kac kodu birleştirdim güzel bişey cıktı ortaya paşlaşmak istedim sizinle
Kod yapımında emeği geçen ©º©º®î©º XcLusive ye teşekür ederim |
