- ; $cchantok(<nick>,<token>)
- ; Permet d'obtenir la liste des canaux en communs d'avec une personne séparés par un token...
- ; Ex: $cchantok(artwerks,59) retourne #chan1;#chan2;#chan3
-
- ; Ouverture de l'aliase
- alias cchantok {
- ; Vérification de routine
- if !$2 { halt }
- ; Sélection de variables... (Nous settons %a par le 1er canal pour éviter de ce retrouver avec "token"#chan1"token"#chan2)
- var %a = $comchan($1,1) , %b = 2
- ; Tant que la personne à un canal en commun avec nous...
- while $comchan($1,%b) {
- ; Nous ajoutons le canal à notre liste de tokens
- %a = $+(%a,$chr( [ $2 ] ),$ifmatch)
- inc %b
- }
- ; Nous retournons le tout
- return %a
- }
; $cchantok(<nick>,<token>)
; Permet d'obtenir la liste des canaux en communs d'avec une personne séparés par un token...
; Ex: $cchantok(artwerks,59) retourne #chan1;#chan2;#chan3
; Ouverture de l'aliase
alias cchantok {
; Vérification de routine
if !$2 { halt }
; Sélection de variables... (Nous settons %a par le 1er canal pour éviter de ce retrouver avec "token"#chan1"token"#chan2)
var %a = $comchan($1,1) , %b = 2
; Tant que la personne à un canal en commun avec nous...
while $comchan($1,%b) {
; Nous ajoutons le canal à notre liste de tokens
%a = $+(%a,$chr( [ $2 ] ),$ifmatch)
inc %b
}
; Nous retournons le tout
return %a
}