Çevrimdışı

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

 

Çevrimdışı

Senmi yazdın kodu zekana hayranım

 

Çevrimdışı

muratt_aziz Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Senmi yazdın kodu zekana hayranım

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
))) guzel cevap

 

Çevrimdışı

bu aralar çok hırsız giriyo buralara nedense
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 

Çevrimdışı

Aliden veliden Elime geçti oLmayanLar için Paylaştım Yinede Fİkirleriniz için Tşkkk



Nedir Mesele Paylaşmak GüzeLdir Dimiiii Alayınıza Kolay gelsin..

 

Çevrimdışı

güzel kod eline saglık
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 

Çevrimdışı

eyw..

 

Çevrimdışı

YararLı PayLaşım Eyw Aga