SCANCLONE UTILISANT UN WHO

on *:input:*: { if ( $1 = /who ) { set %i 1 } }
;ligne necessaire car il faut assigner le %i hors du who sinon le processus va s'arreter

raw 315:*:{ 
  echo -a [[ $gettok(%clone,0,32) ]] clone(s) sur $2 : ( %clone )
  unset %host-*
  unset %clone
 ;raw annonçant la fin du /who #salon
}

raw 352:*:{ $search($4,$6) }

alias search {
  if ( $gettok(%host- [ $+ [ %i ] ],0,32) >= 60 ) { inc %i }
   ;le 67 est la a cause de la limite de mirc ki ne peu faire de variables trop longues
  if ( $1 !isin %host- [ $+ [ %i ] ] ) { set %host- $+ %i %host- [ $+ [ %i ] ] $1 }
  else { set %clone %clone $2 }
  if ( %i = 1 ) { goto end }
  set %itr 1
  while ( %itr <= $calc(%i - 1) ) { 
    if ( $1 isin %host- [ $+ [ %itr ] ] ) && ( $2 !isin %clone ) { set %clone %clone $2 }
    ;ici on a la boucle qui va verifier les adresses dans chaque variable %host
    inc %itr
  }
  :end
}