/ScriptServ

#cnl1 on
{
  window -l @Nicklist
  titlebar @Nicklist Coloring Addon by Mozzy
  aline @nicklist Choose Coloring for Ops (double-click on a color to select it).
  aline @nicklist ------------------------------------------------------------------------------------------------- 
  aline 0 @nicklist White
  aline 2 @nicklist Dark Blue
  aline 3 @nicklist Green
  aline 4 @nicklist Red
  aline 5 @nicklist Brown
  aline 6 @nicklist Purple
  aline 7 @nicklist Orange
  aline 8 @nicklist Yellow
  aline 9 @nicklist Neon Green
  aline 10 @nicklist Till
  aline 11 @nicklist Sky Blue
  aline 12 @nicklist Neon Blue
  aline 13 @nicklist Neon Purple
  aline 14 @nicklist Gray
  aline 15 @nicklist Light Gray 
}
menu @nicklist {
  dclick: {
    if ($sline(@nicklist,1).ln > 1) && (op isin $line(@nicklist,1)) { set %cnl.o $calc($sline(@nicklist,1).ln - 2) | /rline @nicklist 1 Choose Coloring for voice (double-click on a color to select it). }
    elseif ($sline(@nicklist,1).ln > 1) && (voice isin $line(@nicklist,1)) { set %cnl.v $calc($sline(@nicklist,1).ln - 2) | /rline @nicklist 1 Choose Coloring for regulars (double-click on a color to select it). } 
    elseif ($sline(@nicklist,1).ln > 1) && (regulars isin $line(@nicklist,1)) { set %cnl.n $calc($sline(@nicklist,1).ln - 2) | /window -c @nicklist } 
  }
}
alias cnl {
  if ($2 ischan) {
    if ($1 == strict) {
      set %cnl.c $nick($2,0)
      :loop
      if ($nick($2,%cnl.c) isop $2) { cline %cnl.o $2 $nick($2,%cnl.c) }
      if ($nick($2,%cnl.c) isvo $2) && ($nick($2,%cnl.c) !isop $2) { cline %cnl.v $2 $nick($2,%cnl.c) }
      if ($nick($2,%cnl.c) isreg $2) { cline %cnl.n $2 $nick($2,%cnl.c) }
      dec %cnl.c 1
      if (%cnl.c == 0) { halt }
      goto loop
    }
    if ($1 == random) {
      set %cnl.c $nick($2,0)
      :loop
      cline $rand(1,15) $2 $nick($2,%cnl.c) 
      dec %cnl.c 1
      if (%cnl.c == 0) { halt }
      goto loop
    }
  }
}
#cnl1 end
#cnl2 off
menu menubar {
  -
  Enable Nicklist Coloring:/enable #cnl1 | /disable #cnl2 | /enable #cnl3
}
#cnl2 end
#cnl3 on
on 1:JOIN:#: {
  if ($nick == $me) { /timer 1 1 /cnl %cnl.s $chan }
  else { /cnl %cnl.s $chan }
}
on 1:OP:#:/cnl %cnl.s $chan
on 1:DEOP:#:/cnl %cnl.s $chan
on 1:VOICE:#:/cnl %cnl.s $chan
on 1:DEVOICE:#:/cnl %cnl.s $chan
#cnl3 end