;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; Colors NickList : Girls and boys
;; Who_nicklist_asl version 1.5 (10.06.2022) 
;; Compatible pour 
;; divers serveurs IRC 
:: exemples: 
;; EuropNet, Discussionner, Andromede...
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

on 1:START: {
  .initialize_coloring
}

alias initialize_coloring {
  ; reset all entries in the clist
  var %compteur = $cnick(0,1)
  while (%compteur > 3) {
    ;echo -a %compteur $cnick(%compteur)
    .uncolor_nick $cnick(%compteur)
    dec %compteur 1
  }
}

on *:join:#: {
  if ( $me == $nick ) {
    who $chan
  } 
  else {
    who $nick
  }
}

raw 315:*: {
  halt
}

alias colornick {
  ; use as /colornick <nick> <color>
  ; $1 is nick, $2 is color
  var %s $comchan($1, 0), %c 0
  while (%c < %s) {
    inc %c
    cline -lW $2 $comchan($1, %c) $1
  }
}

raw 352:*: {


  ; Les "F" et "H" et "M" correspondent avec $10
  ; Format classique: 18 H 75
  if (  $10 == F || $10 == f ) {
    .cnick -r $6
    .cnick $6 13
  }
  else if (  $10 == H || $10 == h || $10 == M ) {
    .cnick -r $6
    .cnick $6 12
  }

  else if ( $gettok($9-,2,47) == F ) {
    ; Format 18;F;75
    .cnick -r $6
    .cnick $6 13
  } 
  else if ( $gettok($9-,2,47) == H ) {
    ; Format 18;H;75
    .cnick -r $6
    .cnick $6 12
  }

  else if (  $gettok($9-,2,47) == F ) {
    ; Format: 18/F/75
    ; .cnick -r $6
    ; .cnick $6 13
    .colornick $6 13
  } 
  else if ( $gettok($9-,2,47) == H ) {
    ; Format: 18/H/75
    ;.cnick -r $6
    ;.cnick $6 12
    .colornick $6 12
  }
  ;echo -a Response: $1-
  halt
}

on 1:NICK: { 
  .uncolor_nick $nick
  who $newnick 
}

on 1:JOIN:*: { 
  who $nick
}

on 1:QUIT: { 
  .uncolor_nick $nick
}

alias uncolor_nick {
  .cnick -r $1
}