menu channel {
  -
  Scans
  .Clones:Clones
}
alias Clones {
  var %Chan.Count $nick($chan,0),%Clone.Total,%Token.Check 
  while (%Chan.Count) {
    if ($ialchan($address($nick($chan,%Chan.Count),2),$chan,0) > 1) && ($istok(%Token.Check,$nick($chan,%Chan.Count),26) == $false) { 
      if (!$hget(CloneHash)) { hmake CloneHash 10 }
      hadd CloneHash $address($nick($chan,%Chan.Count),2) $CloneTest($nick($chan,%Chan.Count),$chan)
      %Token.Check = $addtok(%n,$CloneTest($nick($chan,%Chan.Count),$chan),26)
      inc %Clone.Total 
    }
    dec %Chan.Count
  }
  if (!$hget(CloneHash,0).item) { Echo -at 3C4l6o7n9e12s 3-09 No 04Clones 06Found 07in09 $chan }
  if ($hget(CloneHash,0).item) {
    var %CloneHash.Count $hget(CloneHash,0).item
    echo -at 3C4l6o7n9e12s 3-09 $chan 04Clone 06Matches 07Total09 =04 %CloneHash.Count
    while %CloneHash.Count {
      echo -at 3C4l6o7n9e12s 3-7 $hget(CloneHash,%CloneHash.Count).item -06 $hget(CloneHash,%CloneHash.Count).data
      dec %CloneHash.Count
    }
  }
  if ($hget(CloneHash,0).item) { hfree CloneHash }
}
alias CloneTest {
  var %Clone.Addy $address($1,2),%Clone.Chan $2,%Clone.Num $ialchan($address($1,2),$2,0),%Clone.Result
  while (%Clone.Num) {
    %Clone.Result = $addtok(%Clone.Result,$ialchan(%Clone.Addy,%Clone.Chan,%Clone.Num).nick,26)
    dec %Clone.Num
  }
  return %Clone.Result
}