CLONESCAN

on *:join:#:{ set -u3 %who off
  else { who $nick }
}

alias scan {
  if ($window(@scanner)) { close -@ @scanner }
  var %chan = $active
  window -k0 @Scanner
  clear @scanner
  if ($nick(%chan,0) == 1) { echo @scanner 5Aucun clone trouvé sur %chan  | halt }
  hmake clone 1000
  var %ticks = $ticks
  var %i = $nick(%chan,0)
  while (%i) {
    set %clonenick $ial($nick(%chan,%i)).host
    if ($ialchan(*!*@* $+ %clonenick ,%chan,0) > 1) {
      var %y = $ialchan(*!*@* $+ %clonenick ,%chan,0)
      hadd clone %clonenick %y
    }
  dec %i }
  if ($hget(clone,0).item == 0) { echo @scanner Aucun clone trouvé sur12 %chan | hfree clone |  halt }
  else {
    echo @scanner 5Voici les résultats final du CloneScan sur %chan ( $+ $network $+ ) ...
    linesep -s @scanner
    var %w = $hget(clone,0).item
    while (%w) {
      echo @scanner 5 $hget(clone,%w).data  Users avec cette Host : ( $hget(clone,%w).item )
      var %z = $hget(clone,%w).data
      while (%z) {
        echo @scanner 	 5 $chr(186) $ialchan( *!*@* $+ $hget(clone,%w).item,%chan,%z).nick
        inc %nbreclone
      dec %z }
    dec %w }
  }
  linesep -s @scanner
  echo @scanner 5 $calc(%nbreclone -$hget(clone,0).item)  $iif($calc(%nbreclone -$hget(clone,0).item) > 1,clones trouvés,clone trouvé) sur %chan  ( $+ $network $+ ) $+ .  
  echo @scanner 5Présentement $round($calc($calc($hget(clone,0).item / $nick(%chan,0)) * 100),1) $+ % des users sur %chan sont des Clones. 
  linesep -s @scanner
  echo @scanner 5Recherche éffectuée en ( $round($calc(($calc($ticks - %ticks) / 1000)),3) )  seconde(s).
  linesep -s @scanner
  echo @scanner 5Fin de la Recherche du CloneScan .
  hfree clone
  unset %nbreclone
}

menu @scanner {
  $style(2) $chr(91) @CloneScan $chr(93) :x
  -
  Fermer:close -@ @scanner
}

menu channel {
  CloneScan:/scan
}