METTRE LES NICKS EN COULEUR FAÇON X-CHAT

alias colorfromnick {
  ; #Liste des couleurs choisies.
  ; Mon fond est noir, donc j'évite tout ce qui est sombre.
  ; Je réserve également certaines couleurs pour des modes ou amis.
  var %clist = 6,8,10,11,12
  ; On stocke le nombre de couleurs
  var %nt = $numtok( %clist ,44)
  var %nick = $$1
  var %n = $len( %nick )
  var %a = 1
  var %t = 0
  ; Cette boucle calcule la somme des valeurs ASCII de chaque lettre du nick ciblé
  while ( %a <= %n ) {
    %t = $calc( %t + $asc($mid( %nick , %a , 1)))
    inc %a
  }
  ; On calcule le modulo du résultat par le nombre de couleurs.
  %t = $calc( %t % %nt )
  ; Et on retourne la valeur correspondante au modulo dans la liste des couleurs.
  return $gettok( %clist , %t ,44)
}

alias colorchan {
  ; Cet alias permet de déterminer la couleur pour chaque nick du chan, si la couleur n'est pas déja définie.
  var %chan = $$1
  var %n = $nick( %chan ,0)
  var %a = 1
  while ( %a <= %n ) {
    var %nick = $nick( %chan , %a )
    if ( $cnick( %nick ) == 0 ) .cnick %nick $colorfromnick( %nick )
    inc %a
  }
}

ON *:JOIN:#: {
  if ( $cnick($nick) == 0 ) .cnick $nick $colorfromnick($nick)
}