home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HaCKeRz KrOnIcKLeZ 3
/
HaCKeRz_KrOnIcKLeZ.iso
/
scriptz
/
ondemand.txt
< prev
next >
Wrap
Text File
|
1996-04-23
|
1KB
|
53 lines
This is a simple on-demand clone detection script. Simply copy and
paste the following into your Aliases, and type /clone to run it on
the current channel.
clone {
echo -=Clone Detection In Progress=-
set %nick1 ""
set %nick2 ""
set %add1 ""
set %add2 ""
set %c1 1
set %c3 0
set %c4 0
set %flag 0
set %flag2 0
:next1
set %c2 %c1
set %nick1 $nopnick(%c1,#)
set %add1 $address($nopnick(%c1,#),3)
if $nopnick(%c1,#) == $null goto end
if %add1 == $null { echo 6 -= %nick1 No Mask Available - Skipping Nick =-
inc %c1
goto next1
}
echo 4 -=Checking %nick1 $+ =-
:next2
if $nopnick(%c2,#) == $null { inc %c1
goto next1
}
set %nick2 $nopnick(%c2,#)
set %add2 $address($nopnick(%c2,#),3)
if %nick1 == %nick2 { inc %c2
goto next2
}
if %nick1 != %nick2 && %add1 == %add2 && %add1 != $null goto clone
inc %c2
goto next2
:clone
if %nick1 isop # { inc %c2
goto next2
}
echo 3 -= Clone Detected with %nick1 -and- %nick2 =-
inc %c2
goto next2
:end
unset %nick2 %c1 %c2 %c3 %c4 %flag %flag2
echo -=Clone Detection Completed=-
}
UPLOADED TO WWW.SCRIPTERZ.COM BY |^JoLt^|