$CCHANTOK(<NICK>,<TOKEN>)

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