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

- - özelde clone (https://www.ircforumlari.net/mirc-scripting-sorunlari/39737-ozelde-clone.html)

quatro

20 Ekim 2007 14:50

özelde clone

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

Guardian`

20 Ekim 2007 18:05

Cevap: özelde clone

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.

Guardian`

20 Ekim 2007 18:36

Cevap: özelde clone

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

quatro

20 Ekim 2007 19:33

Cevap: özelde clone

guardiyan çalışmadı kardeş

Guardian`

21 Ekim 2007 12:55

Cevap: özelde clone

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

Script'in Duz mIRC'den Olusuyor Dimi?

KatLiam

25 Ekim 2007 16:45

Cevap: özelde clone

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 .

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