rendered paste body#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