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^|