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)

Alıntı:

AmorKing Nickli Üyeden Alıntı

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
olurda Banı Açamassan Buda Demektir ki Nicke Ban Atılmış Verdiim Kod Hosta Atılan Banı Açar
mode $2 -b $address($nick,2) kısmını
mode $2 -b $nick olarak denersin

Umarım İşine Yarar

O Tamam ArkadasLar yardimlarinizLa Hallettim, Birtek Su 2. sorum kaLdi Bunda da yardimci oLursaniz sevinirim.

Alıntı:

AmorKing Nickli Üyeden Alıntı

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

Verdiğin koddan yararlanarak gösterilemez. Alias tarzı birşey yazılması lazım. Who komutu kullanma yetkin varsa basit bir şekilde yapılabilir.

#clone on
on *:join:*: {
%clones = $ialchan($wildsite,#,0)
if ( %clones > 2 ) {
var %count = 1
set %clone.nicks -->
while (%count <= %clones) {
%clone.nicks = %clone.nicks $ial($wildsite,%count).nick
inc %count }
//echo -a *** $chan Kanalında Clone girisi var ($remove(%clone.nicks,) %clones adet } }
ban ($remove(%clone.nicks,) | Kick $chan ($remove(%clone.nicks,)
#clone end

Burda Koyu 2 Olarak Belirttiğim kısım giren clone sayısı bunu istediin kadar yükseltebilirsin Gereken Sayıya Ulaştıı Zaman Ban Atması Gerekio Otomatikmen Denemedim Ama Çalışır İnşallah :)

yok deniz sen anlamadin..

who komutu derken ben normal userim.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] bu scriptde, ancak kullanmak istemiyorum cunku kisisel bise sadece kendim kullanacam + sadece bana gerekeni eklemek istedim.. neyse belki su resim daha aciklayici olur..
ben sadece cloneleri su sekilde gostermek istiyorum..
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

menu nicklist {
-
$iif($ialchan($address($$1,2),#,0) > 1,clones( $+ $ialchan($address($$1,2),#,0) $+ ),$style(2) cloneyok)
.$address($$1,2):echo -a %cln adet clone var .
.-
.$ialchan($address($$1,2),#,1).nick:w $ialchan($address($$1,2),#,1).nick
.$ialchan($address($$1,2),#,2).nick:w $ialchan($address($$1,2),#,2).nick
.$ialchan($address($$1,2),#,3).nick:w $ialchan($address($$1,2),#,3).nick
.$ialchan($address($$1,2),#,4).nick:w $ialchan($address($$1,2),#,4).nick
.$ialchan($address($$1,2),#,5).nick:w $ialchan($address($$1,2),#,5).nick
.$iif($ialchan($address($$1,2),#,0) > 5,Daha Fazlası icin clone taraması yapın.):echo -a clone taraması yapın
.-
.Ban + Kick : mode # +b $address($$1,2) | var %a $ialchan($address($$1,2),#,0) | while %a { kick # $ialchan($address($$1,2),#,%a).nick | dec %a }
.-
-
}
uğraştirdi biraz :)