Scans the channel for clones upon a user joining.
Also able to scan at will using /xscan [nick]
Also has menu options.

;---[xClone Scanner]-----------|
;---[Version 2.0 Beta 1]-------|
;---[Scripted by Aurora]-------|
;---[Enjoy.]-------------------|
;______________________________|
;---[The Scanner!]---
;--[Aliases]--
alias -l xecho { echo -a 12/2/15-12[15C14lone 15S14canner 9(15 $+ $1 $+ 9) $2- $+ 12] }
alias -l cecho { echo $1 12/2/15-12[15C14lone 15S14canner 9(15 $+ $1 $+ 9) $2- $+ 12] }
alias xscan {
  tokenize 32 $address($1,4) $active $1
  var %count = $ialchan($1,$2,0)
  if (%count > 1) {
    var %check = %count
    while (%check) {
      var %clones = %clones $ialchan($1,$2,%check).nick
      dec %check
    }
    xecho $2 15 $+ $3 Clones0::4 %clones
  }
  else { xecho $2 $3 Has No Clones. }
}
;--[Events]--
on *:JOIN:#: {
  if (($nick == $me) || (*.xxx.* iswm $address($nick,4))) { halt }
  var %host = $address($nick,4)
  var %count = $ialchan(%host,$chan,0)
  if (%count > 1) {
    var %check = %count
    while (%check) {
      var %clones = %clones $ialchan(%host,$chan,%check).nick
      dec %check
    }
    cecho $chan 15 $+ $nick Clones0::4 %clones
  }
}

menu channel,nicklist {
  -
  -[xClone]-
  .-[Scanner]-
  ..-[Scan Random user]-:/xScan $randnick($active)
  ..-[Scan $1 $+ ]-:/xScan $1
  ..-
  ..-[Scan Entire Channel ( $+ $chan $+ )]-: {
    var %nc = $nick($chan,0)
    while (%nc) {
      xscan $nick($chan,%nc)
      dec %nc
    }
  }
  .-
  .-[Info]-
  ..-[xClone v2.0 Beta 1]-
  ..-[Scripted by Aurora]-
  ..-
  ..-[Advertise]-:/me is using 12/2/15-12[4x15C14lone 15S14canner 14v2.0 Beta 1 by Aurora12]
  -
}