menu @Scanner[* {
  Effacer l'écran:clear
}
alias db-verify-scan {   if ( $window(@Scanneur[ $+ $network $+ $chr(93)) == $null ) { /window -k0nze @Scanneur[ $+ $network $+ $chr(93) } }
alias clonescan {
  /splay start.wav | /flash
  var %chan = $iif($left($1,1) == $chr(35),$1,#), %type = $iif($2,$2,$iif($left($1,1) == -,$1))
  if ($dialog(clonescanneur) == $null) && (%type != -a) { dialog -m clonescanneur clonescanneur }
  if (%chan !ischan) {
    if (%type == -a) { echo 10 -at :: (CloneScan) veuillez entrer un channel valide, un channel ou vous etes present. | return }
  }
  db-verify-scan
  echo 10 $indic $window(@Scanneur[ $+ $network $+ $chr(93)) $str($chr(160),15) 4 $+ %chan 10à3 $asctime(hh:nn:ss)
  echo 10 $indic $window(@Scanneur[ $+ $network $+ $chr(93)) -
  if ($chan(%chan).ial != $true) {
    .ial on
    if (%type == -a) { echo 10 -at :: (CloneScan) mise a jour IAL pour14 %chan }
    set %cs.chan $addtok(%cs.chan,%chan,32) | raw -q WHO %chan | set %cs.type %type | return
  }
  else {
    if ($hget(cs)) { hfree cs }
    hmake cs $nick(%chan,0)
    var %i = 1, %ticks = $ticks, %clones
    while ($nick(%chan,%i)) { hadd cs $address($nick(%chan,%i),2) $hget(cs,$address($nick(%chan,%i),2)) $iif($numtok($hget(cs,$address($nick(%chan,%i),2)),38) > 0,$chr(38)) $nick(%chan,%i) | inc %i }
    var %o = 1
    while ($hget(cs,%o).item) {

      if ($numtok($hget(cs,$hget(cs,%o).item),38) > 1) {
        if (%type == -a) { echo 10 $indic $window(@Scanneur[ $+ $network $+ $chr(93)) $str($chr(160),8) 3 $hget(cs,$hget(cs,%o).item) 10sous le mask3 $hget(cs,%o).item }
        inc %clones 
      }
      inc %o 
    }
    if (%clones == $null) { echo 10 $indic $iif(%clones = 0,%clones) $window(@Scanneur[ $+ $network $+ $chr(93)) $str($chr(160),8) Aucun clones trouvés sur3 %chan }
    /echo 10 $window(@Scanneur[ $+ $network $+ $chr(93)) -
    /echo 10 $window(@Scanneur[ $+ $network $+ $chr(93))  $+ $str($chr(175),50)
    hfree cs
  }
}
raw 352:*:if ($istok(%cs.chan,$2,32)) { halt }
raw 315:*:if ($istok(%cs.chan,$2,32)) { set %cs.chan $remtok(%cs.chan,$2,1,32) | clonescan $2 %cs.type | unset %cs.type | halt }
- 
}

menu channel,menubar {
-
CloneScan System:/clonescan echo -a #
-
}