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/)
-   -   !Clone tara (https://www.ircforumlari.net/mirc-scripting-sorunlari/31013-clone-tara.html)

lacremel 01 Mayıs 2007 19:46

!Clone tara
 
Selam arkadaslar

Ben botuma !Tara #kanal die kanala yazdıqım zaman Kanaldaqi Cloneleri bulup Komutu yazdıqım kanala cloneri Göstermesini istiorum yardımcı Olurmusunuz Simdiden teskler ...

UpsIDintAgain 08 Mayıs 2007 08:28

Yanıt: !Clone tara
 
alias Clone {
var %ğ = $nick(%clonechan,0)
while %ğ {
if !$hget(host,$address($nick(%clonechan,%ğ),2)) { hadd -m host $address($nick(%clonechan,%ğ),2) 1 }
else { hinc host $address($nick(%clonechan,%ğ),2) }
dec %ğ
}
msg %clonechan 4 %clonechan kanalı için clone taraması başlatıldı...
msg %clonechan -
.timer 1 1 .h_al %clonechan
}
alias h_al {
var %ı = $hget(host,0).item
while %ı {
if $hget(host,%ı).data > 1 {
set %y_k yes
var %ç = $nick($1,0)
while %ç {
if $hget(host,%ı).item == $address($nick($1,%ç),2) { set %_cln $addtok(%_cln,$nick($1,%ç),32) }
dec %ç
}
msg %clonechan 12 2Adres: $hget(host,%ı).item --- 10Bağlı kullanıcı sayısı: $hget(host,%ı).data --- 4Bağlı rumuzlar: $gettok(%_cln,1-,32)
unset %_cln
}
dec %ı
}
msg %clonechan -
$iif($(%y_k,2) != yes,msg %clonechan 4 $1 kanalında clone bulunamadı.,msg %clonechan 4 %clonechan kanalı için clone taraması tamamlandı.)
unset %y_k
hfree host
}

on *:Text:*:#:{
if !clone isin $1- {
.set %clonechan $chan
clone
}
}


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

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net