Nicklists : couleurs des mecs et filles dans la nicklist de chaque salon en détectant le sexe depuis le realname - mIRC/AdiIRC

Who_nicklist_asv (For Mimacy) est une remote qui va permettre de mettre les filles (en rose) et les mecs (en bleu) de la nicklist en detectant le sexe depuis le realname. Fonctionne avec les who channel et nickname.

Compatible avec 2 types d'ASV
Le premier qui est classique : 18 H 75 ... (deviendra un nick bleu)
Le second au format Mimacy : 18;H;75;... (deviendra un nick bleu)

La remote fonctionne sur la plupart des scripts, comme MimaScript ou Tglobe.

Installation:
- Ouvrir les remotes (ALT + R) > File > New > Coller > Ok (et redémarrer le script)

Rien ne s'affiche?
- Vérifiez si vous avez bien redémarrer votre script mIRC
- Vérifier "Adress Book" en tapant ALT + B > Nick Colors et vérifier si vous n'avez pas un "Any nick" vide, c'est à dire sans les @%+, si vous avez un "Any nick" vide, vous pouvez le selectionner et le supprimer et redémarrer votre script mIRC et tester à nouveau.
- Vérifier que votre script n'a pas déjà une remote qui gére les cnick comme le cas de BSMax par exemple (ne concerne pas TglobeScript ni MimaScript...).

Source / Exemple

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; Nicklists : couleurs des mecs et filles dans la nicklist 
;; de chaque salon.
;; Who_nicklist_asv (For Mimacy) version 1.1 (08.10.2018) 
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

on 1:START: {
  .initialize_coloring
}

alias initialize_coloring {
  ; reset all entries in the clist
  while ($cnick(1)) {
    .uncolor_nick $cnick(1)
  }
}

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

alias getIdentPrefixMimaFlash {
  var %mask = $gettok($address($$1,0),1,64) $+ @*
  var %Ident = $replace(%mask,*!,) 
  var %IdentgetIdentPrefixMimaFlash = $left(%Ident,1)
  return %IdentgetIdentPrefixMimaFlash
}

raw 315:*: {
  halt
}

raw 352:*: {

  ;; Récupération du sexe dans le realname du who : Age Sexe Ville

  ; 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
  }
  ; Format Mimacy: 18;H;75 avec les idents commençant par un "." ou un "-"
  else if ( $right($left($9-,3),1) == $chr(59) || $right($left($9-,5),1) == $chr(59) ) {

    if (  $right($left($9-,4),1) == F ) {
      .cnick -r $6
      .cnick $6 13
    } 
    if ( $right($left($9-,4),1) == H ) {
      .cnick -r $6
      .cnick $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
}