Clone Detection for Tilko and Ken-Kun

;To use it you type /clones in the chan you want to check
;I don't think I made all of this, just some changes.
alias Clones {
  var %x $nick($chan,0),%m,%n
  while (%x) {
    if ($ialchan($address($nick($chan,%x),2),$chan,0) > 1) && ($istok(%n,$nick($chan,%x),44) == $false) {
      echo 4 -at [Clone] - $address($nick($chan,%x),2) has a clone in $chan $+([,$cloner($nick($chan,%x),$chan),])
      %n = $addtok(%n,$cloner($nick($chan,%x),$chan),44)
      inc %m
    }
    dec %x
  }
}
alias cloner {
  var %a $address($1,2),%c $2,%i $ialchan($address($1,2),$2,0),%r
  while (%i) {
    %r = $addtok(%r,$ialchan(%a,%c,%i).nick,44)
    dec %i
  }
  return %r
}