menu channel { 
  .- 
  Clone Scan:
  .Echo:clonescan -e
  .Channel:clonescan
} 
alias -l clonescan { 
  who # 
  set %# # 
  .enable #clonewho 
  if (-e == $1) { 
    set %echo 1 
    echo -atc info * scanning for clones in $active $+ , Please wait.  
    halt
  }
  me is scanning for clones in $active $+ , Please wait.
} 
#clonewho off
raw 352:*:halt 
raw 315:*:{ 
  var %i = 1 
  while ($nick(%#,%i)) { 
    if ($istok(%excloud,$address($ifmatch,2),32)) { goto end } 
    if ($ialchan($address($nick(%#,%i),2),%#,0) > 1) { 
      var %x = $v1 
      while (%x > 0) { 
        %z = %z $gettok($ialchan($address($nick(%#,%i),2),%#,%x),1,33) 
        dec %x 
      } 
      %excloud = %excloud $address($nick(%#,%i),2) 
    } 
    if ($numtok($nick(%#,%i) $+ ! $([) $+ $address($nick(%#,%i),2) $+ $(]) %z,32) > 2) $iif(%echo,echo -atc info *,msg $active) $([) $+ $address($nick(%#,%i),2) $+ $(]) %z 
    unset %z 
    :end 
    inc %i 
  } 
  if (!%excloud) { $iif(%echo,echo -atc info *,msg $active) No Clones Detected! } 
  else { $iif(%echo,echo -atc info *,msg $active) Clone scan complete! $numtok(%excloud,32) clone(s) detected! }
  unset %excloud 
  .disable #clonewho 
  unset %#
  unset %echo
  halt
} 
#clonewho end