dialog ncolor {
  title "NickList Color v1.2 By Peter"
  size -1 -1 109 74
  option dbu
  box "Regulars", 3, 5 24 50 19
  box "Yourself", 4, 59 24 50 19
  box "Voices", 5, 59 4 50 19
  box "Ops", 6, 5 4 50 19
  edit "", 7, 3 51 97 10
  text "Host Oper", 8, 2 43 27 8, center
  text "Color;", 9, 3 63 26 8, center
  edit "", 10, 28 63 23 10
  text "Color;", 11, 7 31 26 8, center
  text "Color;", 12, 7 12 26 8, center
  text "Color;", 13, 62 11 26 8, center
  text "Color;", 14, 62 32 26 8, center
  edit "", 15, 33 11 20 10
  edit "", 16, 85 11 20 10
  edit "", 17, 33 31 20 10
  edit "", 18, 85 31 20 10
  button "&Save", 19, 63 63 40 10
}

on *:dialog:ncolor:init:0:{
  did -a $dname 15 %nick.op
  did -a $dname 16 %nick.vo
  did -a $dname 17 %nick.rg
  did -a $dname 18 %nick.me
  did -a $dname 7 %Oper.host
  did -a $dname 10 %Nick.oper
}

on *:dialog:ncolor:sclick:19:{
  if ($did(15).text isnum 0-15) && ($did(16).text isnum 0-15) && ($did(17).text isnum 0-15) && ($did(18).text isnum 0-15) && ($did(10).text isnum 0-15) {
    set %nick.op $did(15).text
    set %nick.vo $did(16).text
    set %nick.rg $did(17).text
    set %nick.me $did(18).text
    set %Nick.oper $did(10).text
    set %Oper.host $did(7).text
    colorchan
    dialog -x $dname $dname
    else { 
      echo -a ERROR: INVAILD COLOR.
    }
  }
}


menu channel,menubar {
  NickList Color:dialog -m ncolor ncolor
}
alias colorchan {
  var %w = 1
  while (%w <= $chan(0)) {
    var %e = $chan(%w)
    colorlist %e
    inc %w
  }
}
alias colorlist {
  var %w = 1
  while (%w <= $nick($1-,0)) {
    var %e = $nick($1-,%w)
    if (%e isreg $1-) { cline %nick.rg $1- %e  | inc %w }
    if (%e isvo $1-) { cline %nick.vo $1- %e | inc %w }
    if (%e isop $1-) { cline %nick.op $1- %e | inc %w }
    if (%e == $me) { cline %nick.me $1- $me }
  }
}
on *:load:{
  set %nick.op 4
  set %nick.vo 3
  set %nick.rg 1
  set %nick.me 7
  set %Nick.oper 12
  set %Oper.host We.Are.The.ArabChat.Knights
  echo -a * NickList Colors v1.2 by Peter
}
on *:join:*:{
  if ($nick == $me) { .timer 1 0.5 colorlist $chan }
  if (%oper.host == $site) { .timer 1 0.5 cline %nick.oper $chan $nick }
}
on *:deop:*:{
  colorlist $chan
}
on *:op:*:{
  colorlist $chan
}
on *:voice:*:{
  colorlist $chan
}
on *:devoice:*:{
  colorlist $chan
}