/ScriptServ

#nicklist on
raw 352:*:{
  if (%a.color == $null) { set %a.color 6 }
  if (%n.color == $null) { set %n.color 2 }
  if (%i.color == $null) { set %i.color 4 }
  if (%m.color == $null) { set %m.color 3 }
  if (%e.color == $null) { set %e.color 1 }
  if ($me !ison $2) { goto end }
  if (g isin $7) { cline %a.color $2 $6 }
  if ($nick == $notify($6)) { cline %n.color $2 $6 }
  if (* isin $7) { cline *i.color $2 $6 }
  if (g !isin $7) && ($nick != $notify($6)) && (* !isin $7) && ($6 != $me) { cline %e.color $2 $6 }
  cline %m.color $2 $me
  halt
  :end
}
on 1: JOIN:#:
#rcolorn end
#posn on
on 1:JOIN:#: {
  if (%nickcolor != OFF) { /posn }
}
on 1:OP:#:if (%nickcolor != OFF) { /cline 2 $chan $opnick }
on 1:SERVEROP:#:if (%nickcolor != OFF) { /cline 2 $chan $opnick }
on 1:VOICE:#:if ($vnick !isop $chan) && (%nickcolor != OFF) { cline 12 $chan $vnick }
on 1:DEOP:#:if (%nickcolor != OFF) { /cline 1 $chan $opnick }
on 1:DEVOICE:#:if ($vnick !isop $chan) && (%nickcolor != OFF) { cline 1 $chan $vnick }
on 1:NICK:if (%nickcolor != OFF) { /posn }
#posn end



alias nicksoff {
  /.disable #colorn
  set %nickcolor OFF
  set %nnum 0
  set %rnum 0
  :st
  inc %rnum
  set %room $chan(%rnum)
  if (%room == $null) { goto done }
  set %nnum 0 
  goto nex
  :nex
  inc %nnum
  set %colnick $nick(%room,%nnum)
  if (%colnick == $null) { goto st }
  if (%colnick ison %room) { /cline 1 %room %colnick }
  goto nex
  :done
  unset %room %nnum %rnum %nnum %colnick 
  echo 4Colored Nick List is now: 12OFF
}
alias rcolorn {
  set %nickcolor ON
  set %nnum 0
  set %rnum 0
  .enable #colorn
  :st
  inc %rnum
  set %room $chan(%rnum)
  if (%room == $null) { goto done }
  set %nnum 0 
  goto nex
  :nex
  inc %nnum
  set %color $rand(2,15)
  set %colnick $nick(%room,%nnum)
  if (%colnick == $null) { goto st }
  cline %color %room %colnick
  goto nex
  :done
  unset %color %nnum %cnum %colnick %room 
}
alias posn {
  set %nickcolor ON 
  set %nnum 0
  set %rnum 0
  :st
  inc %rnum
  set %room $chan(%rnum)
  if (%room == $null) { goto done }
  set %nnum 0 
  goto nex
  :nex
  inc %nnum
  set %colnick $nick(%room,%nnum)
  if (%colnick == $null) { goto st }
  if (%colnick ison %room) { /cline %regcol %room %colnick }
  if (%colnick isvo %room) { /cline %vocol %room %colnick }
  if (%colnick isop %room) { /cline %opcol %room %colnick }
  goto nex
  :done
  unset %colnick %room %color %nnum %cnum
}
menu MenuBar {
  -
  ColorNickList
  .What Is This:/echo This turns the nickname list in different colors! Operators-Voiced-Other users!   WaRnInG : It`s better to turn it off before joinning channels with many people (more than 300) if your PC is not fast enough! 12BLu3|ArMy
  .Operator:/set %opcol $$?="Color for oped nicks:(ex: 4)" | /echo 4 -a *** Color for oped nicks are now set for: %opcol 
  .Voice:/set %vocol $$?="Color for voiced nicks:(ex: 4)" | /echo 4 -a *** Color for voiced nicks are now set for: %vocol 
  .Other Nick:/set %regcol $$?="Color for regular nicks:(ex: 4)" | /echo 4 -a *** Color for regular nicks are now set for: %regcol
  .Turn 
  ..Off:/nicksoff
  ..On:/set %nickcolor on | /echo 4Colored Nick List is now: 12ON


}