SCANNEUR DE CLONES

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 0[12Clones0]12 - Recherche en cours... }
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  0[12Clones0]12 - Détection sur %ichan | echo @Scanner  $timestamp 0[12Clones0]12 - Résultat: $numtok(%istock,32) clones pour %itotal host(s) | var %e = 1 | while ($hget(c,%e)) { echo @Scanner $timestamp  0[12Clones0]12 - %e $+ . $hget(c,%e) | inc %e } }
    if (%itotal == 0) { echo @Scanner $timestamp 0[12Clones0]12 - Pas de clones détecté sur %ichan $+ . }
  unset %i* | hfree c }
}
#cln off
raw 315:*:.disable #cln | scaning | halt
#cln end
#Scan.Channel off
raw 352:*:{
  if ( $parm3 $+ @ $+ $parm4 isin %Chan.Address) { inc %Chan.Clones } | else { %Chan.Address = %Chan.Address $parm3 $+ @ $+ $parm4 }
  if (G isin $parm7) { 
    inc %Chan.Gone
    if (%Chan.pseudo == $null) { %Chan.pseudo = $parm6  }
    alse { %Chan.pseudo = %Chan.pseudo 1+ $parm6 }
  }
  inc %Chan.Total | halt
}
raw 315:*:{
  echo 2 $parm2 6??? Stat. de $parm2 6???
  echo 2 $parm2 6?OQP6? %Chan.Gone 6? %Chan.pseudo 6?
  echo 2 $parm2 6?Clones 6? %Chan.Clones
  echo 2 $parm2 6??? Fin de Stat. total: %Chan.Total 6???
  .disable #Scan.Channel | unset %Chan.* | halt
}
#Scan.Channel end
menu @Scanner {
  Effacer:clear
  -
  Fermer:window -c @Scanner
}
alias whowin {
  if $window(@who) == $null {
    window -klm -t10,30,33,36,49 +e @who 0 0 1100 500 arial 12
    aline $colour(normal) @who Pseudo $chr(9) Adresse $chr(9) IRCop $chr(9) Away $chr(9) Vrai Nom $chr(9) Serveur
    aline @who $chr(160)
    aline @who $chr(160)
  }
}