IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - banlist ve popupsta cloneler (https://www.ircforumlari.net/mirc-scripting-sorunlari/8682-banlist-ve-popupsta-cloneler.html)

banlist ve popupsta cloneler

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:

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*
..

buyur bir aceminin elinden :)

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

Cok Tesekkur Ederim. Simdi Tek CLone kaLdi :)

Kodlarda hata vardı düzelttim :) tekrar ekle yukardakileri. eğer kullandığın clone koruması varsa buraya kopyala ona göre yapmaya çalışalım onuda

Kod:

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 [&#187;] 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 :)
Eger baska koruma gerekse sen eklersen sevinirim.

ban listesi kabariksa dusersin bu kodla

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

Alıntı:

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 :)

yaf birisi Helpden ban yiyor.. su bani acarmisiniz kanaldan banlara bak ooo is guc :D

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

kullanımı

!banac #kanal

Umarım İşine Yarar