on 1:START: {
  /*.initialize_coloring*/

  if ($exists(host.ini) && $abs($calc($file(host.ini).ctime - $ctime($date))) > 1728000) {
    remove host.ini
  }
}

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; NickList Colors: Females and Males
;; WhoNickListASL Version with Cline 1.1 (21.11.2023)
;; Compatible with various IRC servers
:: Examples:
;; EuropNet, Discussionner, Andromede...
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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) {
    .uncolor_nick $6
    .colornick $6 13
  } else if ($10 == H || $10 == h || $10 == M) {
    .uncolor_nick $6
    .colornick $6 12
  } else if ($gettok($9-, 2, 47) == F) {
    ; Format 18;F;75
    .uncolor_nick $6
    .colornick $6 13
  } else if ($gettok($9-, 2, 47) == H) {
    ; Format 18;H;75
    .uncolor_nick $6
    .colornick $6 12
  } else if ($gettok($9-, 2, 47) == F) {
    ; Format: 18/F/75
    .uncolor_nick $6
    .colornick $6 13
  } else if ($gettok($9-, 2, 47) == H) {
    ; Format: 18/H/75
    .uncolor_nick $6
    .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 {
  var %index = $nick($1, 0)
  var %i = 1
  while (%i <= %index) {
    if ($nick($1, %i) == $1) {
      cline -r %i
      return
    }
    inc %i
  }
}


on ^*:TEXT:*:#:{
  var %realname = $ial($nick).realname
  var %msgprefix = $null
  var %status = $null
  
    
  if ($nick isowner $chan) {
    %status = ~
  }
  else if ($nick isadmin $chan) {
    %status = &
  }
  else if ($nick isop $chan) {
    %status = @
  }
  else if ($nick ishop $chan) {
    %status = %
  }
  else if ($nick isvoice $chan) {
      %status = +
  }
  
  if ($nick isowner $chan || $nick isadmin $chan || $nick isop $chan) {
    %msgprefix = $+(<04,%status,$nick,>)
  }
  else if ($nick ishop $chan) {
    %msgprefix = $+(<07,%status,$nick,>)
  }
  else if ($nick isvoice $chan) {
      %msgprefix = $+(<03,%status,$nick,>)
  }
  else if ($gettok(%realname, 2, 47) == F) {
    %msgprefix = $+(<13,%status,$nick,>)
  }
  else if ($gettok(%realname, 2, 47) == H) {
    %msgprefix = $+(<12,%status,$nick,>)
  }
  else {
    %msgprefix = $+(<,%status,$nick,>)
  }
    
  echo -tbfmfl %msgprefix $1-
  
  halt
}