- 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
- }
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
}