#Coloractif on
alias -l colornick2 {
  var %i 1
  var %colnick $1
  var %colchan 
  var %coltype
  while ( %i <= $chan(0)) {
    var %colchan = $chan( %i )
    var %j 8
    while ( %j >= 1  )   {
      %coltype = $gettok( %colorordre , %j ,44 )
      if (%coltype == Away) {  
        if $iswhat(%coltype,$hget($network $+ colortable, %colnick )) {
          if ( %ColorMsg == $true ) { .cline -m $var(color $+ %coltype ,1).value %colchan  %colnick }
          if ( %ColorMsg == $false ) { .cline $var(color $+ %coltype ,1).value %colchan  %colnick }
      }     }
      if (%coltype == Ircop) { 
        if $iswhat(%coltype,$hget($network $+ colortable, %colnick )) {
          if ( %ColorMsg == $true ) { .cline -m $var(color $+ %coltype ,1).value %colchan  %colnick }
          if ( %ColorMsg == $false ) { .cline $var(color $+ %coltype ,1).value %colchan  %colnick }
      }     }
      if (%coltype == OP) { 
        if  ( %colnick isop  %colchan ) {
          if ( %ColorMsg == $true ) { .cline -m $var(color $+ %coltype ,1).value %colchan  %colnick }
          if ( %ColorMsg == $false ) { .cline $var(color $+ %coltype ,1).value %colchan  %colnick }
      }     }
      if (%coltype == Halfop) { 
        if  ( %colnick ishop  %colchan ) {
          if ( %ColorMsg == $true ) { .cline -m $var(color $+ %coltype ,1).value %colchan  %colnick }
          if ( %ColorMsg == $false ) { .cline $var(color $+ %coltype ,1).value %colchan  %colnick }
      }     }
      if (%coltype == Voice) { 
        if  ( %colnick isvoice  %colchan ) {
          if ( %ColorMsg == $true ) { .cline -m $var(color $+ %coltype ,1).value %colchan  %colnick }
          if ( %ColorMsg == $false ) { .cline $var(color $+ %coltype ,1).value %colchan  %colnick }
      }     }
      if (%coltype == Normal) { 
        if  ( %colnick isreg %colchan ) {
          if ( %ColorMsg == $true ) { .cline -m $var(color $+ %coltype ,1).value %colchan  %colnick }
          if ( %ColorMsg == $false ) { .cline $var(color $+ %coltype ,1).value %colchan  %colnick }
      }     }

      if (%coltype == Ban) { 
        if  $isban( %colchan , %colnick ) {
          if ( %ColorMsg == $true ) { .cline -m $var(color $+ %coltype ,1).value %colchan %colnick }
          if ( %ColorMsg == $false ) { .cline $var(color $+ %coltype ,1).value %colchan  %colnick }
      }     }
      if (%coltype == Ignore) { 
        var %ign 1
        while ( %ign <= $ignore(0) ) {
          if ( $ignore(%ign) iswm $address( %colnick ,6) ) {
            if ( %ColorMsg == $true ) { .cline -m $var(color $+ %coltype ,1).value %colchan  %colnick }
            if ( %ColorMsg == $false ) { .cline $var(color $+ %coltype ,1).value %colchan  %colnick }
          }
          inc %ign
        }
      }
      dec %j
    } 
    inc %i
  }
}
alias -l iswhat {
  if ( $1 == Away) { if ( G isin $2 ) { return $true }  return $false  }
  if ( $1 == ircop) { if ( $chr(42) isin $2) { return $true } return $false } 
  return $false
}
alias -l isban {
  var %k 1
  while ( %k <= $ibl($1,0) ) {
    if ( $ibl($1,%k) iswm $address($2,5) ) { return $true }
    inc %k
  }
}
raw 315:*:{
  if (%Colorwho) { echo -s $2- 
    echo -s -
  } 
  if ( $mid($chan($2),1,1) == $chr(35) ) { colornick $2 } 
  if ( $mid($chan($2),1,1) != $chr(35) ) { colornick2 $2 }
  .haltdef
}
raw 403:*:{
  echo -s $2-
  echo -s -
}
raw 352:*:{
  if (%Colorwho) { 
    var %temp   $iif($iswhat(Ircop,$7), -> $+  $+ %colorircop $+ Ircop<-,) $&
      $+  $iif( ($6 isop $2),  $+ %colorop $+ Op,) $&
      $+  $iif( ($6 ishop $2),  $+ %halfop $+ Halfop,) $&
      $+  $iif( ($6 isvoice $2), ->  $+ %colorvoice $+ Voice,) 
    if ( %temp == $null ) { var %temp   $+ %colornormal $+ Normal }
    %temp = $iif(  $iswhat(Away,$7)  , %temp &&  $+ %colorAway $+ Away , %temp ) 
    echo -s $2 72 $+ $6 $+   %temp $3 $+ @ $+ $4 : $+ $8 $9-
  } 
  if $hget( $network $+ colortable) == $null {
    .hmake -s  $network $+ colortable 2400
  } 
  hadd -u3600 $network $+ colortable $6 $7
  .haltdef
}
on *:ban:*:{
  if ( %Colormajauto ) {
    colornick $chan
  }
}
on *:unban:*:{
  if ( %Colormajauto ) {
    colornick $chan
  }
}
on *:op:*:{
  if ( %Colormajauto ) {
    colornick2 $opnick
  }
}
on *:deop:*:{
  if ( %Colormajauto ) {
    colornick2 $opnick
  }
}
on *:Voice:*:{
  if ( %Colormajauto ) {
    colornick2 $vnick
  }
}
on *:Devoice:*:{
  if ( %Colormajauto ) {
    colornick2 $vnick
  }
}
on *:Help:*:{
  if ( %Colormajauto ) {
    colornick2 $hnick
  }
}
on *:DeHelp:*:{
  if ( %Colormajauto ) {
    colornick2 $hnick
  }
}
on *:Text:*away*:*:{
  if ( %Colormajauto ) {
    .who $nick
  }
}
on *:Action:*away*:*:{
  if ( %Colormajauto ) {
    .who $nick
  }
}
on 1:NICK:{
  if ( %Colormajauto )  {
    .who $newnick 
  } 
}
alias acolornick {
  var %cc,%i = 1
  while (%i <= $chan(0)) {
    .colornick $chan(%i) 
    inc %i
  }
}
alias -l colorwho {
  if $timer((colortimer $+ $1 )) {
    if (       ( $calc( %colorMajMax - $timer(colortimer $+ $1 ).secs ) >= %colorMajMin ) || ( $2 == $true ) ) {
      if ( %Colormajauto ) { .timercolortimer $+ $1 2 %colormajMax .colorwho $1 } 
      .who $1
    } 
  }
  if ( $timer((colortimer $+ $1 )) != 1 ) {
    if ( %Colormajauto ) { 
      .who $1 
      .timercolortimer $+ $1 2 %colormajMax .colorwho $1
    } 
  }
}
alias -l awho {
  var %cc,%i = 1
  while (%i <= $chan(0)) {
    .colorwho $chan(%i) $1
    inc %i
  }
}
#Coloractif end
#ColorMsg on
alias -l colornick {
  var %i 1
  var %colnick
  var %coltype
  while ( %i <= $nick($1,0)) {
    %colnick = $nick( $1, %i )
    var %j 8
    while ( %j >= 1  )   {
      %coltype = $gettok( %colorordre , %j , 44)
      if (%coltype == Away) {  
        if $iswhat(%coltype,$hget( $network $+ colortable, %colnick )) {
          if ( %ColorMsg == $true ) { .cline -m $var(color $+ %coltype ,1).value $1 %i }
          if ( %ColorMsg == $false ) { .cline $var(color $+ %coltype ,1).value $1 %i }
        }
      }
      if (%coltype == Ircop) { 
        if $iswhat(%coltype,$hget(  $network $+ colortable, %colnick )) {
          if ( %ColorMsg == $true ) { .cline -m $var(color $+ %coltype ,1).value $1 %i }
          if ( %ColorMsg == $false ) { .cline $var(color $+ %coltype ,1).value $1 %i }
        }
      }
      if (%coltype == OP) { 
        if  ( $nick( $1, %i ) isop  $1 ) {
          if ( %ColorMsg == $true ) { .cline -m $var(color $+ %coltype ,1).value $1 %i }
          if ( %ColorMsg == $false ) { .cline $var(color $+ %coltype ,1).value $1 %i }
        }
      }
      if (%coltype == Halfop) { 
        if  ( $nick( $1, %i ) ishop  $1 ) {
          if ( %ColorMsg == $true ) { .cline -m $var(color $+ %coltype ,1).value $1 %i }
          if ( %ColorMsg == $false ) { .cline $var(color $+ %coltype ,1).value $1 %i }
        }
      }
      if (%coltype == Voice) { 
        if  ( $nick( $1, %i ) isvoice  $1 ) {
          if ( %ColorMsg == $true ) { .cline -m $var(color $+ %coltype ,1).value $1 %i }
          if ( %ColorMsg == $false ) { .cline $var(color $+ %coltype ,1).value $1 %i }
        }
      }
      if (%coltype == Normal) { 
        if  ( $nick( $1, %i ) isreg $1 ) {
          if ( %ColorMsg == $true ) { .cline -m $var(color $+ %coltype ,1).value $1 %i }
          if ( %ColorMsg == $false ) { .cline $var(color $+ %coltype ,1).value $1 %i }
        }
      }
      if (%coltype == Ban) { 
        if  $isban( $1 , %colnick ) {
          if ( %ColorMsg == $true ) { .cline -m $var(color $+ %coltype ,1).value $1 %i }
          if ( %ColorMsg == $false ) { .cline $var(color $+ %coltype ,1).value $1 %i }
        }
      }
      if (%coltype == Ignore) { 
        var %ign 1
        while ( %ign <= $ignore(0) ) {
          if ( $ignore(%ign) iswm $address( $nick( $1, %i ),6) ) {
            if ( %ColorMsg == $true ) { .cline -m $var(color $+ %coltype ,1).value $1 %i }
            if ( %ColorMsg == $false ) { .cline $var(color $+ %coltype ,1).value $1 %i }
          }
          inc %ign
        }
      }
      dec %j
    }
    inc %i
  } 
}
#ColorMsg end
#Colorjoin on
on *:JOin:*:{
  .timercolorjustnick 1 2 .who $nick
  if ($nick == $me) { .colorwho $chan $true }
  if (%colorclone) {
    if ($ial != $true) ial on
    if ( $ialchan( $wildsite , $chan , 0) >= 2 ) { 
      echo 4 -t $chan $ialchan( $wildsite , $chan , 0) Clones détectés
      var %i = 1 
      while ( %i <= $ialchan( $wildsite , $chan , 0 ) ) { 
        echo 4 -t $chan  -=< $+ %i $+ >=- $ialchan( $wildsite , $chan , %i).nick $ialchan( $wildsite , $chan , %i)
        inc %i 
      } 
    } 
  } 
  colornick $1
}
#Colorjoin end