[AmorKing]

qchannel, KanaL popups da kanal ban listesini gostermek mumkun mu?..

kanalda Sag tiklayinca

- KanaL Merkezi
- BanLar ----------> Ban1
ban2
ban3
ban4

ve tikladigimizda tiklanan bani acsa bole bise mumkun mu?

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

alias -l ident { return $gettok( $gettok($1 , 1 , 64 ) , 2 , 33 ) }
on ^!*:join:#: {
var %_match
var %x = $ialchan($address($nick,2),#,0) , %nicks
if (%x > 1) {
while (%x) { %nicks = %nicks $ialchan($address($nick,2),#,%x).nick | dec %x }
}
%nicks = [[ $+ Clones: %nicks $+ ]]
echo $colour(join) $target $timestamp [»] Giris : $nick ( $+ $ident($fulladdress) $+ @ $+ $site $+ ) %_match $iif( $ialchan($address($nick,2),#,0) > 1 , %nicks )
haltdef
}
on ^!*:part:#: {
var %_match = $calc($ialchan($address($nick,2),#,0) - 1) , %nicks , %x
if (%_match < 0) { var %_match = 0 }
if (%_match > 1) {
%x = %_match
while (%x) { %_nicks = %nicks $+ $chr(44) $ialchan($address($nick,2),#,%x).nick | dec %x }
}
%nicks = [[ $+ %nicks $+ ]]
echo $colour(part) $target $timestamp [«] Cikis : $nick ( $+ $ident($fulladdress) $+ @ $+ $site $+ )
haltdef
}
on ^*:quit: {
scid $cid
var %c = 1
while $comchan($nick,%c) {
echo $color(quit) -t $comchan($nick,%c) [x] IRC`den CIKTI : $nick ( $+ $1- $+ )
inc %c
}
haltdef
}

KanaLa Birisi Girdiginde cLone var ise => CLones : Nick1 Nick2
die siraliyor. Bunu Nick Listesinde Nick'e tiklayip sag tikladiigimizda da cLone Nickler, gosterse oLurmu?

whois
cLones --> Nick1
Nick2
Nick3
*BanLa*
..

[XxxxX]

buyur bir aceminin elinden
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


Bunu remotene ekle
alias ac {
if ($me isop $chan) {
mode $active -b %ban
}
}
Bunuda Channel Popupsa
Ban Listesi
.$ibl($active,1):/set %ban $ibl($active,1) | ac %ban
.$ibl($active,2):/set %ban $ibl($active,2) | ac %ban
.$ibl($active,3):/set %ban $ibl($active,3) | ac %ban
.$ibl($active,4):/set %ban $ibl($active,4) | ac %ban
.$ibl($active,5):/set %ban $ibl($active,5) | ac %ban
.$ibl($active,6):/set %ban $ibl($active,6) | ac %ban
.$ibl($active,7):/set %ban $ibl($active,7) | ac %ban
.$ibl($active,8):/set %ban $ibl($active,8) | ac %ban
.$ibl($active,9):/set %ban $ibl($active,9) | ac %ban
.$ibl($active,10):/set %ban $ibl($active,10) | ac %ban
.$ibl($active,11):/set %ban $ibl($active,11) | ac %ban
.$ibl($active,12):/set %ban $ibl($active,12) | ac %ban
.$ibl($active,13):/set %ban $ibl($active,13) | ac %ban
.$ibl($active,14):/set %ban $ibl($active,14) | ac %ban
.$ibl($active,15):/set %ban $ibl($active,15) | ac %ban
.$ibl($active,16):/set %ban $ibl($active,16) | ac %ban
.$ibl($active,17):/set %ban $ibl($active,17) | ac %ban
.$ibl($active,18):/set %ban $ibl($active,18) | ac %ban
.$ibl($active,19):/set %ban $ibl($active,19) | ac %ban
.$ibl($active,20):/set %ban $ibl($active,20) | ac %ban

[AmorKing]

Cok Tesekkur Ederim. Simdi Tek CLone kaLdi
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

[XxxxX]

Kodlarda hata vardı düzelttim
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
tekrar ekle yukardakileri. eğer kullandığın clone koruması varsa buraya kopyala ona göre yapmaya çalışalım onuda

[AmorKing]

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

alias -l ident { return $gettok( $gettok($1 , 1 , 64 ) , 2 , 33 ) }
on ^!*:join:#: {
var %_match
var %x = $ialchan($address($nick,2),#,0) , %nicks
if (%x > 1) {
while (%x) { %nicks = %nicks $ialchan($address($nick,2),#,%x).nick | dec %x }
}
%nicks = [[ $+ Clones: %nicks $+ ]]
echo $colour(join) $target $timestamp [»] Giris : $nick ( $+ $ident($fulladdress) $+ @ $+ $site $+ ) %_match $iif( $ialchan($address($nick,2),#,0) > 1 , %nicks )
haltdef
}
on ^!*:part:#: {
var %_match = $calc($ialchan($address($nick,2),#,0) - 1) , %nicks , %x
if (%_match < 0) { var %_match = 0 }
if (%_match > 1) {
%x = %_match
while (%x) { %_nicks = %nicks $+ $chr(44) $ialchan($address($nick,2),#,%x).nick | dec %x }
}
%nicks = [[ $+ %nicks $+ ]]
echo $colour(part) $target $timestamp [&#171;] Cikis : $nick ( $+ $ident($fulladdress) $+ @ $+ $site $+ )
haltdef
}
on ^*:quit: {
scid $cid
var %c = 1
while $comchan($nick,%c) {
echo $color(quit) -t $comchan($nick,%c) [x] IRC`den CIKTI : $nick ( $+ $1- $+ )
inc %c
}
haltdef
}

Joinde Gosteren var, Baska cLone korumam yok
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Eger baska koruma gerekse sen eklersen sevinirim.

[aias]

ban listesi kabariksa dusersin bu kodla

[AmorKing]

yok global kanallara girmiyorum. yani kisisel mirc'imi eklemek icin.. script cikarmak icin degil yardim almak.

[XxxxX]

aias Nickli Üyeden Alıntı

ban listesi kabariksa dusersin bu kodla

aias neden düşsün ki? banları toptan açmıyor teker teker açıyor. Bir şey olmaz gönül rahatlığıyla kullanabilirsin ama o kadar güzel bir kod oldugu sölenemez
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

[AmorKing]

yaf birisi Helpden ban yiyor.. su bani acarmisiniz kanaldan banlara bak ooo is guc
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

[Deniz]

amorking
on *:text:*:?:{
if ($1 == !banac) { mode $2 -b $address($nick,2) } }

kullanımı

!banac #kanal

Umarım İşine Yarar