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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   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)

AmorKing 04 Aralık 2005 01:33

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

XxxxX 04 Aralık 2005 01:49

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

AmorKing 04 Aralık 2005 01:59

Cok Tesekkur Ederim. Simdi Tek CLone kaLdi :)

XxxxX 04 Aralık 2005 02:03

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

AmorKing 04 Aralık 2005 02:08

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
}



Joinde Gosteren var, Baska cLone korumam yok :)
Eger baska koruma gerekse sen eklersen sevinirim.

aias 04 Aralık 2005 02:38

ban listesi kabariksa dusersin bu kodla

AmorKing 04 Aralık 2005 02:44

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

XxxxX 04 Aralık 2005 03:08

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

AmorKing 04 Aralık 2005 03:20

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

Deniz 04 Aralık 2005 03:43

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

kullanımı

!banac #kanal

Umarım İşine Yarar

Deniz 04 Aralık 2005 03:46

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

AmorKing 04 Aralık 2005 03:55

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


Utku 04 Aralık 2005 04:02

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

Deniz 04 Aralık 2005 04:16

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

AmorKing 04 Aralık 2005 04:29

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

MaeLStrOm 04 Aralık 2005 15:36

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


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 11:31.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk