CLONE SCAN TRES RAPIDE ( UNE FENETRE PAR SALON )

;###########################
;       Clone scan
;###########################

menu channel {
 Clonescan:/clonescan
}
alias clonescan { unset %i* | .ial on | window -kn @Scanner | .enable #cln | who # | set %ichan # | set %itnick $nick(#,0) | set %itotal 0 | hmake c 10 | echo %ichan $timestamp $+ 1[2CloneScan1] 3 Research in progress... }
alias scaning { set %n 0 | :p | inc %n
  if ($nick(%ichan,%n) isin %istock) { goto e }
  if ($ialchan($address($nick(%ichan,%n),2),%ichan,0) > 1) { inc %itotal | unset %inick | set %l 0 | :l | inc %l
  if ($ialchan($address($nick(%ichan,%n),2),%ichan,%l).nick) { set %istock %istock $ialchan($address($nick(%ichan,%n),2),%ichan,%l).nick | set %inick %inick $+ , $ialchan($address($nick(%ichan,%n),2),%ichan,%l).nick | goto l } | hadd c %itotal ( $+ $right($address($nick(%ichan,%n),2),-4) $+ ) $right(%inick,-2) }
  :e
  if (%n < $nick(%ichan,0)) { goto p }
  if (%n = $nick(%ichan,0)) {
    if (%itotal != 0) { echo @Scanner $timestamp  15-14-2-1- 2Info 1-2-14-15-1 Research on14 %ichan | echo @Scanner $timestamp 15-14-2-1- 2Info 1-2-14-15-1 $numtok(%istock,32) clones for %itotal host(s) | var %e = 1 | while ($hget(c,%e)) { echo @Scanner $timestamp 15-14-2-1- 2Info 1-2-14-15-1 %e $+ . $hget(c,%e) | inc %e } }
    if (%itotal == 0) { echo @Scanner $timestamp 15-14-2-1- 2Info 1-2-14-15-1 No clones found2 %ichan $+ . }
    unset %i* | hfree c
  }
}
#cln off
raw 352:*:{ halt }
raw 315:*:{ .disable #cln | scaning | halt }
#cln end