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

quatro · 20 Ekim 2007, 14:50

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

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

$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

guardiyan çalışmadı kardeş

Guardian` · 21 Ekim 2007, 12:55

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

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 .

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
@clone Penceresinde Nick1 Nick2 Nick3 gibi Clone'ları Göstersin.	DarK^	mIRC Scripting Sorunları	8	22 Ekim 2008 17:13
Özelde 'a' yazana ban	Master`	mIRC Scripting Sorunları	3	20 Nisan 2007 02:08
Clone Gostergesi / Clone Bans	morveotesii	mIRC Scripting Sorunları	3	23 Şubat 2006 16:01
Özelde !unban	NeLix	mIRC Scripting Sorunları	5	23 Şubat 2006 00:06
özelde Gelen msj lar	Deniz	mIRC Scripting Sorunları	1	13 Kasım 2005 23:39

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.