|
=================================================================================================
Jika Anda Ingin Berbagi Ilmu
Tentang Ilmu Komputer
Tolong Kirimkan Tips dan Trik atau Artikel Anda
Ke Rozy@hehe.com atau Rozy_eksa@yahoo.com
VER Bahasa Indonesia
=================================================================================================
MIRC Clone Detector
on 1:join:#:{
if ($nick == $me) { halt }
if ($address($nick,2) == $address($me,2)) { echo $chan Clone My Adrress from $nick | halt }
set %cloneadd $ialchan($address($nick,2),$chan,0)
set %addressclone $address($nick,2)
if (%cloneadd > 2) {
.echo $chan Clone Detected for %addressclone
/msg $chan Clone Detected for %addressclone in $chan %cloneadd [MyAngel]2.0
:start
inc %clone
if (%clone > %cloneadd) { set %cloneadd 0 | set %clone 0 | goto end | halt }
else { .echo $chan %clone - $ialchan(%addressclone,$chan,%clone).nick | goto start }
:end
echo $chan [End of Clone]
halt
}
}
ctcp 1:version:*:/ctcpreply $nick 8,1-=[ Rozy SCript
byRozybaik ]=-
on 1:text:!version*:#:/msg $chan My version -=[ Rozy
SCript byRozybaik]=-
|
