
alias ncolor {
  if $dialog(ncolor) = $null { dialog -ma ncolor ncolor }
}

dialog ncolor {
  icon rg.ico, 0
  title "  [/ncolor]"
  size 400 300 237 178
  box ":", 1, 5 0 230 176
  text " :", 2, 10 18 90 16
  text " :", 3, 10 43 90 16
  text " :", 4, 10 68 90 16
  text " :", 5, 11 93 90 16
  text ":", 6, 11 117 90 16
  combo 7, 110 15 120 150, size drop disable
  combo 8, 110 40 120 150, size drop disable
  combo 9, 110 65 120 150, size drop disable
  combo 10, 110 90 120 150, size drop disable
  combo 11, 110 114 120 150, size drop disable
  button "", 12, 10 154 93 18, cancel
  button " ", 13, 110 154 119 18, cancel
  check "   ", 14, 12 137 167 16

  button "          :", 1578, 400 400 116 16, ok
}

on 1:dialog:ncolor:init:0: {
  load.colors
  if %allow.ncolor = on { did -b ncolor 7,8,9,10,11 | did -e ncolor 7,8,9,10,11 | did -c ncolor 14 }
  did -c ncolor 7 $calc(%ncolor.me + 1) | did -c ncolor 8 $calc(%ncolor.op + 1) | did -c ncolor 9 $calc(%ncolor.voice + 1) | did -c ncolor 10 $calc(%ncolor.simple + 1) | did -c ncolor 11 $calc(%ncolor.notify + 1)
}

alias load.colors {
  did -i ncolor 7,8,9,10,11 1 (0) 
  did -i ncolor 7,8,9,10,11 2 (1) ׸
  did -i ncolor 7,8,9,10,11 3 (2) 
  did -i ncolor 7,8,9,10,11 4 (3) 
  did -i ncolor 7,8,9,10,11 5 (4) 
  did -i ncolor 7,8,9,10,11 6 (5) 
  did -i ncolor 7,8,9,10,11 7 (6) 
  did -i ncolor 7,8,9,10,11 8 (7) 
  did -i ncolor 7,8,9,10,11 9 (8) Ƹ
  did -i ncolor 7,8,9,10,11 10 (9) 
  did -i ncolor 7,8,9,10,11 11 (10) 
  did -i ncolor 7,8,9,10,11 12 (11) 
  did -i ncolor 7,8,9,10,11 13 (12) -
  did -i ncolor 7,8,9,10,11 14 (13) 
  did -i ncolor 7,8,9,10,11 15 (14) 
  did -i ncolor 7,8,9,10,11 16 (15) -
  did -c ncolor 7,8,9,10,11 2
}


on *:DIALOG:ncolor:sclick:14: {
  if ($did(ncolor,14).state = 1) { did -b ncolor 7,8,9,10,11 | did -e ncolor 7,8,9,10,11 | set %allow.ncolor on } | else { did -e ncolor 7,8,9,10,11 | did -b ncolor 7,8,9,10,11 | set %allow.ncolor off }
}

on *:dialog:ncolor:sclick:12: {
  if ($did(7).sel == 1) { /set %ncolor.me 0 }
  if ($did(7).sel == 2) { /set %ncolor.me 1 }
  if ($did(7).sel == 3) { /set %ncolor.me 2 }
  if ($did(7).sel == 4) { /set %ncolor.me 3 }
  if ($did(7).sel == 5) { /set %ncolor.me 4 }
  if ($did(7).sel == 6) { /set %ncolor.me 5 }
  if ($did(7).sel == 7) { /set %ncolor.me 6 }
  if ($did(7).sel == 8) { /set %ncolor.me 7 }
  if ($did(7).sel == 9) { /set %ncolor.me 8 }
  if ($did(7).sel == 10) { /set %ncolor.me 9 }
  if ($did(7).sel == 11) { /set %ncolor.me 10 }
  if ($did(7).sel == 12) { /set %ncolor.me 11 }
  if ($did(7).sel == 13) { /set %ncolor.me 12 }
  if ($did(7).sel == 14) { /set %ncolor.me 13 }
  if ($did(7).sel == 15) { /set %ncolor.me 14 }
  if ($did(7).sel == 16) { /set %ncolor.me 15 }

  if ($did(8).sel == 1) { /set %ncolor.op 0 }
  if ($did(8).sel == 2) { /set %ncolor.op 1 }
  if ($did(8).sel == 3) { /set %ncolor.op 2 }
  if ($did(8).sel == 4) { /set %ncolor.op 3 }
  if ($did(8).sel == 5) { /set %ncolor.op 4 }
  if ($did(8).sel == 6) { /set %ncolor.op 5 }
  if ($did(8).sel == 7) { /set %ncolor.op 6 }
  if ($did(8).sel == 8) { /set %ncolor.op 7 }
  if ($did(8).sel == 9) { /set %ncolor.op 8 }
  if ($did(8).sel == 10) { /set %ncolor.op 9 }
  if ($did(8).sel == 11) { /set %ncolor.op 10 }
  if ($did(8).sel == 12) { /set %ncolor.op 11 }
  if ($did(8).sel == 13) { /set %ncolor.op 12 }
  if ($did(8).sel == 14) { /set %ncolor.op 13 }
  if ($did(8).sel == 15) { /set %ncolor.op 14 }
  if ($did(8).sel == 16) { /set %ncolor.op 15 }

  if ($did(9).sel == 1) { /set %ncolor.voice 0 }
  if ($did(9).sel == 2) { /set %ncolor.voice 1 }
  if ($did(9).sel == 3) { /set %ncolor.voice 2 }
  if ($did(9).sel == 4) { /set %ncolor.voice 3 }
  if ($did(9).sel == 5) { /set %ncolor.voice 4 }
  if ($did(9).sel == 6) { /set %ncolor.voice 5 }
  if ($did(9).sel == 7) { /set %ncolor.voice 6 }
  if ($did(9).sel == 8) { /set %ncolor.voice 7 }
  if ($did(9).sel == 9) { /set %ncolor.voice 8 }
  if ($did(9).sel == 10) { /set %ncolor.voice 9 }
  if ($did(9).sel == 11) { /set %ncolor.voice 10 }
  if ($did(9).sel == 12) { /set %ncolor.voice 11 }
  if ($did(9).sel == 13) { /set %ncolor.voice 12 }
  if ($did(9).sel == 14) { /set %ncolor.voice 13 }
  if ($did(9).sel == 15) { /set %ncolor.voice 14 }
  if ($did(9).sel == 16) { /set %ncolor.voice 15 }

  if ($did(10).sel == 1) { /set %ncolor.simple 0 }
  if ($did(10).sel == 2) { /set %ncolor.simple 1 }
  if ($did(10).sel == 3) { /set %ncolor.simple 2 }
  if ($did(10).sel == 4) { /set %ncolor.simple 3 }
  if ($did(10).sel == 5) { /set %ncolor.simple 4 }
  if ($did(10).sel == 6) { /set %ncolor.simple 5 }
  if ($did(10).sel == 7) { /set %ncolor.simple 6 }
  if ($did(10).sel == 8) { /set %ncolor.simple 7 }
  if ($did(10).sel == 9) { /set %ncolor.simple 8 }
  if ($did(10).sel == 10) { /set %ncolor.simple 9 }
  if ($did(10).sel == 11) { /set %ncolor.simple 10 }
  if ($did(10).sel == 12) { /set %ncolor.simple 11 }
  if ($did(10).sel == 13) { /set %ncolor.simple 12 }
  if ($did(10).sel == 14) { /set %ncolor.simple 13 }
  if ($did(10).sel == 15) { /set %ncolor.simple 14 }
  if ($did(10).sel == 16) { /set %ncolor.simple 15 }

  if ($did(11).sel == 1) { /set %ncolor.notify 0 }
  if ($did(11).sel == 2) { /set %ncolor.notify 1 }
  if ($did(11).sel == 3) { /set %ncolor.notify 2 }
  if ($did(11).sel == 4) { /set %ncolor.notify 3 }
  if ($did(11).sel == 5) { /set %ncolor.notify 4 }
  if ($did(11).sel == 6) { /set %ncolor.notify 5 }
  if ($did(11).sel == 7) { /set %ncolor.notify 6 }
  if ($did(11).sel == 8) { /set %ncolor.notify 7 }
  if ($did(11).sel == 9) { /set %ncolor.notify 8 }
  if ($did(11).sel == 10) { /set %ncolor.notify 9 }
  if ($did(11).sel == 11) { /set %ncolor.notify 10 }
  if ($did(11).sel == 12) { /set %ncolor.notify 11 }
  if ($did(11).sel == 13) { /set %ncolor.notify 12 }
  if ($did(11).sel == 14) { /set %ncolor.notify 13 }
  if ($did(11).sel == 15) { /set %ncolor.notify 14 }
  if ($did(11).sel == 16) { /set %ncolor.notify 15 }

  if ($active ischan) { ncolor.colorize $active }
}

alias ncolor.colorize {
  var %a = 1
  while (%a <= $nick($1,0)) {
    if ($nick($1,%a) ishop $1) { cline %ncolor.simple $1 %a }
    if ($nick($1,%a) isvo $1) { cline %ncolor.voice $1 %a }
    if ($nick($1,%a) isop $1) { cline %ncolor.op $1 %a }
    if ($nick($1,%a) isreg $1) { cline %ncolor.simple $1 %a }
    if ($nick($1,%a) == $me) { cline %ncolor.me $1 %a }
    if ($nick($1,%a) isnotify) { cline %ncolor.notify $1 %a }
    inc %a
  }
}

on *:join:#: if (%allow.ncolor = on) { .timer -m 1 500 ncolor.colorize $chan }
on *:part:#: if (%allow.ncolor = on) { .timer -m 1 500 ncolor.colorize $chan }

on *:op:#: if (%allow.ncolor = on) { .timer -m 1 500 ncolor.colorize $chan }
on *:deop:#: if (%allow.ncolor = on) { .timer -m 1 500 ncolor.colorize $chan }

on *:voice:#: if (%allow.ncolor = on) { .timer -m 1 500 ncolor.colorize $chan }
on *:devoice:#: if (%allow.ncolor = on) { .timer -m 1 500 ncolor.colorize $chan }

on *:kick:#: if (%allow.ncolor = on) { .timer -m 1 500 ncolor.colorize $chan }
on *:text:#: if (%allow.ncolor = on) { .timer -m 1 500 ncolor.colorize $chan }

on *:INPUT:#: if (%allow.ncolor = on) { .timer -m 1 500 ncolor.colorize $chan }
alias alarm {
  if $dialog(alarm) = $null { dialog -m alarm alarm }
  else halt
}

dialog alarm {
  title ""
  size -1 -1 110 130
  text ":" 112, 14 5 120 116
  edit "00" 10, 19 20 30 18, center limit 2
  text ":" 276, 51 20 5 20,center
  edit "00" 20, 55 20 30 18,center limit 2
  button "a" 100, 5 40 100 26
  button ""      200, 5 70 100 26,cancel
  button "Okey!"     300, 5 100 100 26, cancel
}

on *:dialog:alarm:init:*: {
  /did -o alarm 10 1 $asctime(HH)
  /did -o alarm 20 1 $asctime(nn)
  ;did -ft $dname 100
}

on *:dialog:alarm:sclick:100: {
  /set %alarm.hours $did(10).text
  /set %alarm.minutes $did(20).text
  /set %alarm.time %alarm.hours $+ : $+ %alarm.minutes
  /timeralarm %alarm.time 1 1 /splay -w misc\sounds\alarm.wav
  /echo %skins.prefix a aaa aa a %alarm.time
}

on *:dialog:alarm:sclick:200: {
  /timeralarm off
  /echo %skins.prefix a aaa Άa
}
on *:ban:#:{
  if ($nick == $me) { /cs unban $chan | /msg chanserv ban $chan $nick | /join $chan }
