;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; CLONE SCANNER                  ;;
;; /clonescan [-m] channel        ;;
;; -m switch is for channel output;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

alias clonescan {
  if (!$1) { echo -a No channel specified | halt }
  if (($gettok($1-,0,32) = 2) && ($left($1,2) = -m)) {
    var %CS msg $2
    var %c $2
  }
  elseif (($gettok($1-,0,32) == 1) && ($1 ischan)) { var %CS echo -a | var %c $v1 }
  if ($findfile($mircdir,CS.ini,1)) .remove $v1
  var %x = 1, %res = 0
  while (%x <= $nick(%c,0)) {
    var %y = $address($nick(%c,%x),2)
    if (%y == $null) goto next
    writeini $+(",$mircdirCS.ini,") SCAN %y $iif($readini($mircdirCS.ini,SCAN,%y),$v1) $nick(%c,%x)
    if ($gettok($readini($mircdirCS.ini,SCAN,%y),0,32) >= 2) {
      inc %res
      %CS $+(,%y,) has $v1 users in this channel!: $readini($mircdirCS.ini,SCAN,%y)
    }
    :next
    inc %x
  }
  echo -a CloneScan DONE! ( $+ %res $iif(%res > 1,addresses have,adress has) several users in %c $+ )
}
alias cs clonescan $1-

alias csn {
  var %c = $1 , %n = $2 , %x = 1
  var %a = $address(%n,2)
  while (%x <= $nick(%c,0)) {
    if (($address($nick(%c,%x),2) == %a) && ($nick(%c,%x) != %n))  {
      var %names = %names $nick(%c,%x)
    }
    inc %x
  }
  if (%names) {
    echo -e %c NickScan DONE. %n has $+(,$iif($gettok(%names,0,32) >= 2 , $v1 clones: %names, $v1 clone: %names),)
  }
}