Çevrimdışı

selam arkadaşlar bu soru daha öncede sorulmuştu benim özelime her gelene ben oto whois çektikten sonra o ipten kaç giriş olduğunu bana özel bi pencerede bildirsin istiyoru şimdiden teşekkürler

elimde böyle bişey var ama çalışmadı

on 1pen:?:*: {
if ($address($nick,2) != $null) { qc $nick }
else { set %ial query | who $nick }
}
alias qc {
unset %qc*
if ($ial($address($1,2) , 0) < 2) { echo $1 $1 Ip adresi: $address($1,2) Clone Bulunamadı | halt }
:başla
inc %qc
if ($ial($address($1,2) , %qc ).nick == $1) { goto başla }
if ($ial( $address($1,2) , %qc ).nick == $null) { goto son }
set %qc [ $+ [ $1 ] ] $left( %qc [ $+ [ $1 ] ] , 100 ) & $ial( $address($1,2) , %qc ).nick
goto başla
:son
if %qc [ $+ [ $1 ] ] == $null halt
echo $1 14[0,4 UYARI 14,0]  $1  ile " $+ %qc [ $+ [ $1 ] ] $+ " AYNI Cafeden Veya Ayni KisiLer $address($1,2)
unset %qc*
}
on ^*:close:?: { unset %cfnd [ $+ [ $target ] ] }
alias query { /query $1 | $qc($1) }

 

Çevrimdışı

Alıntı:

on 1:open:?: { if ($readini js-a.ini set iptanio == on) { if $address($nick,2) != $null qc $nick else { set %ial query .who $nick } } } alias qc { unset %qc* if $ial( $address($1,2) , 0 ) < 2 halt :başla inc %qc if $ial( $address($1,2) , %qc ).nick == $1 goto başla if $ial( $address($1,2) , %qc ).nick == $null goto son set %qc [ $+ [ $1 ] ] $left( %qc [ $+ [ $1 ] ] , 100 ) & $ial( $address($1,2) , %qc ).nick goto başla :son if %qc [ $+ [ $1 ] ] == $null halt echo $1 7,1 • BiLgi : 0,5 -»  6Özelinizdeki 4 $1 %qc [ $+ [ $1 ] ] 6aynı cafe'den yada aynı kişiler. 4( $+ $address($1,2) $+ ) echo $1  unset %qc* }

ßide ßunu Denermisin.

 

Çevrimdışı

$ana ßirde ßöLe ßir Kod VerebiLirim.

Alıntı:

#cl on on *:join:*: { %clones = $ialchan($wildsite,#,0) if ( %clones > 1 ) { var %count = 1 set %clone.nicks --> while (%count <= %clones) { %clone.nicks = %clone.nicks $ial($wildsite,%count).nick inc %count } if ($window(@Clones)) { aline @clones 4Clone Tesbit Edildi : 3 $remove(%clone.nicks,-->) 14 # 4 %clones Tane } else { window -ea @clones aline @clones 4Clone Tesbit Edildi : 3 $remove(%clone.nicks,-->) 14 # 4 %clones Tane } } set %change $read -s $+ $address($nick,4) notes.ini if (%change == $null) { haltdef write notes.ini $address($nick,4) $nick halt } } #cl end

Ankara KanaLında 2 cLone buLunda : NickLeri - a-b-c-
izmir kanalında 3 cLone buLunda : NickLeri - d-e-f

ßu $ekiLde ßirsey Umarım İsine Yarar.

NOT : IrcForumLarı aLıntıdır.

 

Çevrimdışı

guardiyan çalışmadı kardeş

 

Çevrimdışı

2.ci Verdiğim Kodun Çalışması Lazım. KullananLar oLmus :S

Script'in Duz mIRC'den Olusuyor Dimi?

 

Çevrimdışı

4Clone Tesbit Edildi : 3 A-mIRCTurk-SwatBot L-mIRCTurk-SwatBot NoMercy Z-mIRCTurk-SwatBot 14 #cinsellik 4 4 Tane
4Clone Tesbit Edildi : 3 dj_nuri_22_tokat YedekNick5221 14 #mircturk 4 2 Tane
4Clone Tesbit Edildi : 3 A-mIRCTurk-SwatBot L-mIRCTurk-SwatBot NoMercy X-mIRCTurk-SwatBot Z-mIRCTurk-SwatBot 14 #mircturk 4 5 Tane


Emegine sağlık .