Dağınık Clone Tarama Sistemi.
 

PHP- Kodu:

---

alias tara { 
  hmake kontrolip
  set %ta $gettok($address($active,2),2,64)
  var %i 1
  while %i <= $chan(0) { 
    who $chan(%i) | set %kc on | set %nc $active      
    inc %i  
  }
  .timer 1 1 ka   
}

raw 352:*: { 
  if %kc == on { 
    if $4 == %ta { 
      hadd -m kontrolip $6
      hdel kontrolip %nc
    }  
  }
}
alias ka { 
  var %i 1 
  while (%i <= $hmatch(kontrolip,*,0)) {  
    echo -a 12Bu Nickin Cloneleri: 4 $hmatch(kontrolip,*,%i)
    inc %i
  }
  unset %nc %kc %ta | hfree kontrolip
} 


---

Ne işe yarar?

Diyelim ki siz: #Ufuk, #yudum, #yeliz, #mynet_giresun kanallarındasınız.

Özelinize bir nick geldi bu nick sadece #yeliz kanalında. Ama bu nickin 2 tane clonesi var birisi #mynet_giresun'da birisi #ufuk'ta.

Kanalda clone taraması yapsanız clone bulunamadı der değil mi çünkü 1 nickle girmiş? e ircopta değilsiniz ip tarayamıyorsunuz.?

Biz ne güne duruyoruz? İşte size sizin bulundugunuz kanallarda ayrı ayrı clonesi olan nickleri çıkartıcak bir hazırkod.

Kullanımı: Nickin özeline /tara yazınız.

Cevap: Dağınık Clone Tarama Sistemi.
 

ben ekledim fakat sonuçları vermedi göremedm tarama yapıyor ama sonuçları göremiyorum

----------

pardon ben yanlış yapmışım ellerine emeğine sağlık çok güzel olmuş çalışıyor

Cevap: Dağınık Clone Tarama Sistemi.
 

Teşekkürler Sunumiçin.

Cevap: Dağınık Clone Tarama Sistemi.
 

Bunu otomatik yapamazmı ? Bir clone girdiğinde direk şu şu kanallarda clonesi var diye?

Cevap: Dağınık Clone Tarama Sistemi.
 

on @*:join:*: {
if %cloneacikmi {
if $nick !isop $chan && Sysop_* !iswm $nick && Admin_* !iswm $nick && Csop_* !iswm $nick && Supervisor_* !iswm $nick && Covisor_* !iswm $nick && Techvisor_* !iswm $nick && *desk* !iswm $nick && nomercy !isin $nick && mpb !isin $nick && chanserv !isin $nick && !$istok(#staff #syslog,$chan,32) && *DJ* !iswm $address($nick,4) && *helper* !iswm $address($nick,4) && *desk* !iswm $address($nick,4) && *founder* !iswm $address($nick,4) && *op* !iswm $address($nick,4) && *swat* !iswm $nick {
%clones = $ialchan($wildsite,#,0)
if ( %clones > 1 ) {
var %count = 1
set %clone.nicks -->
while (%count <= %clones) {
dll WhileFix.dll WhileFix .
%clone.nicks = %clone.nicks $ial($wildsite,%count).nick
inc %count }
/echo $chan 4#3› 4Clone Tespit Edildi!12: $remove(%clone.nicks,-->) 4 %clones 12Tane2!! }
set %change $read -s $+ $address($nick,4) $shortfn(kelebek\ini\notes.ini)
if (%change == $null) {
haltdef
write $shortfn(notes.ini) $address($nick,4) $nick
halt
}
}
}
}

Cevap: Dağınık Clone Tarama Sistemi.
 

Paylaşımın için teşekkürler.