Miscellany

alias cl {
  set %cls.nb $ialchan(*!*@ $+ $ial($2,1).host,$1,0)
  set %cls.tmp 1
  if (%cls.nb <= 1) { 
    if ($3 != 1) {
      echo -a 8[7Clones Scan8] 11Aucun clone détecté pour 10 $2  11sur le chan 10 $1  $+ . 
      if ($1 != $active) echo $1 8[7Clones Scan8] 11Aucun clone détecté pour 10 $2  11sur le chan 10 $1  $+ . 
    }
  }
  else {
    echo -a 8[7Clones Scan8]4 $calc(%cls.nb - 1) 11clones détectés pour10 $2 11sur le chan10 $1  :
    if ($1 != $active)  echo $1 8[7Clones Scan8]4 $calc(%cls.nb - 1) 11clones détectés pour10 $2 11sur le chan10 $1  :
    while (%cls.tmp <= %cls.nb) {
      set %cls.nick $ialchan(*!*@ $+ $ial($2,1).host,$1,%cls.tmp).nick
      if (%cls.nick != $2) { 
        echo -a 8[7Clones Scan8] 11->10 %cls.nick 6( $+ $ial(%cls.nick,1).addr $+ )
        if ($1 != $active) echo $1 8[7Clones Scan8] 11->10 %cls.nick 6( $+ $ial(%cls.nick,1).addr $+ )

      }
      inc %cls.tmp
    }
  }
}

menu nicklist {
  -
  Rechercher les clones:{ /cl $active $gettok($snicks, 1, 44) }
}

alias clchan {
  set %clc.tot $nick($1, 0)
  set %clc.cnt 0

  while (%clc.tot > 0) {
    if ($ialchan($nick($1, %clc.tot), $1, 0) == 0) {
      .who $nick($1, %clc.tot)
      inc %clc.cnt
    }
    dec %clc.tot
  }
  .timer1 1 %clc.cnt /clchan2 $1
}

alias clchan2 {
  set %clc.tot $nick($1, 0)
  set %clc.nb 0

  echo $1 8[7Clones Scan8] 11Scan pour le chan $1 $+ .

  while (%clc.tot > 0) {

    ;Host complet
    set %clc.tmp $ialchan(*!*@ $+ $ial($nick($1, %clc.tot), 1).host, $1, 0)

    ;/echo $1 $nick($1, %clc.tot) %clc.tmp

    if (%clc.tmp > 1) {

      while (%clc.tmp > 0) {

        set %clc.nick $ialchan(*!*@ $+ $ial($nick($1, %clc.tot), 1).host, $1, %clc.tmp).nick

        if (%clc.nick != $nick($1, %clc.tot) && ([ZnF] !isin %clc.nick) && ([ZnF] !isin $nick($1, %clc.tot))) {

          echo $1 8[7Clones Scan8]10 $nick($1, %clc.tot) 0=> 10 %clc.nick
          inc %clc.nb

        }

        dec %clc.tmp
      }
    }

    ;Host partiel
    ;set %clc.c $mid($ial($nick($1, %clc.tot), 1).host, $pos($ial($nick($1, %clc.tot), 1).host, $chr(46)),0)


    ;/echo $1 *!*@* $+ $mid($ial($nick($1, %clc.tot), 1).host, $pos($ial($nick($1, %clc.tot), 1).host, $chr(46)), %clc.c)
    ;/echo $1 $1
    ;
    ;if ($pos($ial($nick($1, %clc.tot), 1).host, $chr(46), 2) != $null) {
    ;
    ;     set %clc.th *!*@* $+ $mid($ial($nick($1, %clc.tot), 1).host, $pos($ial($nick($1, %clc.tot), 1).host, $chr(46)), %clc.c)
    ;      set %clc.tc $1
    ;
    ;      set %clc.tmp $ialchan(%clc.th, %clc.tc, 0)
    ;
    ;      if (%clc.tmp > 1) {
    ;
    ;        while (%clc.tmp > 0) {
    ;
    ;          set %clc.nick $ialchan(%clc.th, %clc.tc, %clc.tmp).nick
    ;
    ;          if (%clc.nick != $nick($1, %clc.tot) && ([ZnF] !isin %clc.nick) && ([ZnF] !isin $nick($1, %clc.tot))) {
    ;
    ;            echo $1 8[7Clones Scan8]12 $nick($1, %clc.tot) 0=> 12 %clc.nick
    ;            inc %clc.nb
    ;
    ;          }
    ;
    ;          dec %clc.tmp
    ;        }
    ;      }
    ;    }

    dec %clc.tot
  }
  if (%clc.nb == 0) echo $1 8[7Clones Scan8]10 Aucun clone trouvé.

}