/ScriptServ

;Nicklist Colors v1.1 - by da^hype (da^hype@hirc.org)
;website: http://www.hirc.org
;Malaysian Made

alias -l `b.i.f { if ($isfile($+(",$scriptdirsettings.ini,"))) return $readini $+(",$scriptdirsettings.ini,") $1 $2- }
alias -l `t.i.f { writeini $+(",$scriptdirsettings.ini,") $$1- }
alias nlc { 
  .set %nlc.reg $`b.i.f(nicklist,reg)
  .set %nlc.voice $`b.i.f(nicklist,voice)
  .set %nlc.help $`b.i.f(nicklist,help)
  .set %nlc.op $`b.i.f(nicklist,op)
  .set %nlc.me $`b.i.f(nicklist,me)
  .set %nlc.notify $`b.i.f(nicklist,notify)
  .set %nlc.ignore $`b.i.f(nicklist,ignore)
  .set %nlc.mp3 $`b.i.f(nicklist,mp3)
  $iif(!$dialog(warna.nl),dialog -m warna.nl warna.nl) 
}
alias ncl.cl $iif(!$dialog(ncl.cl),dialog -m ncl.cl ncl.cl)
alias -l buat.war {
  set -u0 %i 1
  while (%i <= $chan(0)) {
    set -u0 %j 1
    while (%j <= $nick($chan(%i),0)) {
      if ($nick($chan(%i),%j) isreg $chan(%i)) { cline $`b.i.f(nicklist,reg) $chan(%i) $nick($chan(%i),%j)) }
      if ($nick($chan(%i),%j) isvo $chan(%i)) { cline $`b.i.f(nicklist,voice) $chan(%i) $nick($chan(%i),%j)) }
      if ($nick($chan(%i),%j) ishelp $chan(%i)) { cline $`b.i.f(nicklist,help) $chan(%i) $nick($chan(%i),%j)) }
      if ($nick($chan(%i),%j) isop $chan(%i)) { cline $`b.i.f(nicklist,op) $chan(%i) $nick($chan(%i),%j)) }
      if ($nick($chan(%i),%j) == $me) { cline $`b.i.f(nicklist,me) $chan(%i) $nick($chan(%i),%j)) }
      if ($nick($chan(%i),%j) isnotify) { cline $`b.i.f(nicklist,notify) $chan(%i) $nick($chan(%i),%j)) }
      if ($nick($chan(%i),%j) $+ !*@* isignore) { cline $`b.i.f(nicklist,ignore) $chan(%i) $nick($chan(%i),%j)) }
      inc %j
    }
    inc %i
  }
}
alias -l buang.war { 
  set -u0 %i 1
  while (%i <= $chan(0)) {
    set -u0 %j 1
    while (%j <= $nick($chan(%i),0)) { 
      if ($nick($chan(%i),%j) ison $chan(%i)) { cline 01 $chan(%i) $nick($chan(%i),%j)) }
      inc %j
    }
    inc %i
  }
}
dialog ncl.cl {
  title "Pick One"
  size -1 -1 166 46
  icon $scriptdiricons\nlc.ico
  icon 1, 3 3 20 20, " $+ $scriptdiricons\0.jpg $+ "
  icon 2, 23 3 20 20, " $+ $scriptdiricons\1.jpg $+ "
  icon 3, 43 3 20 20, " $+ $scriptdiricons\2.jpg $+ "
  icon 4, 63 3 20 20, " $+ $scriptdiricons\3.jpg $+ "
  icon 5, 83 3 20 20, " $+ $scriptdiricons\4.jpg $+ "
  icon 6, 103 3 20 20, " $+ $scriptdiricons\5.jpg $+ "
  icon 7, 123 3 20 20, " $+ $scriptdiricons\6.jpg $+ "
  icon 8, 143 3 20 20, " $+ $scriptdiricons\7.jpg $+ "
  icon 9, 3 23 20 20, " $+ $scriptdiricons\8.jpg $+ "
  icon 10, 23 23 20 20, " $+ $scriptdiricons\9.jpg $+ "
  icon 11, 43 23 20 20, " $+ $scriptdiricons\10.jpg $+ "
  icon 12, 63 23 20 20, " $+ $scriptdiricons\11.jpg $+ "
  icon 13, 83 23 20 20, " $+ $scriptdiricons\12.jpg $+ "
  icon 14, 103 23 20 20, " $+ $scriptdiricons\13.jpg $+ "
  icon 15, 123 23 20 20, " $+ $scriptdiricons\14.jpg $+ "
  icon 16, 143 23 20 20, " $+ $scriptdiricons\15.jpg $+ "
  button "ok", 200, 10 10 10 10, ok hide
}
dialog warna.nl {
  title "NickList Color [ /nlc ]"
  size -1 -1 92 130
  icon $scriptdiricons\nlc.ico
  option dbu
  button "&Ok",1, 60 115 30 12,ok,default
  check "&Enable",17, 3 113 30 15
  text "Me",2, 3 7 40 12
  icon 70, 55 -28 57 75, " $+ $scriptdiricons\ $+ %nlc.me $+ .jpg $+ "
  text "Oped Users",5, 3 20 40 12
  icon 71, 55 -14 57 75, " $+ $scriptdiricons\ $+ %nlc.op $+ .jpg $+ "
  text "Voiced Users",9, 3 33 40 12
  icon 72, 55 -1 57 75, " $+ $scriptdiricons\ $+ %nlc.voice $+ .jpg $+ "
  text "Regular Users",11, 3 46 40 12
  icon 73, 55 12 57 75, " $+ $scriptdiricons\ $+ %nlc.reg $+ .jpg $+ "
  text "Notify Users" ,13, 3 59 40 12
  icon 74, 55 25 57 75, " $+ $scriptdiricons\ $+ %nlc.notify $+ .jpg $+ "
  text "Ignored Users" ,15, 3 72 40 12
  icon 75, 55 38 57 75, " $+ $scriptdiricons\ $+ %nlc.ignore $+ .jpg $+ "
  text "Help Color",7, 3 85 40 12
  icon 76, 55 51 57 75, " $+ $scriptdiricons\ $+ %nlc.help $+ .jpg $+ "
  text "Mp3 Servers" ,18, 3 98 40 12
  icon 77, 55 64 57 75, " $+ $scriptdiricons\ $+ %nlc.mp3 $+ .jpg $+ "
}
on *:join:#:{ 
  if ($`b.i.f(nicklist,on) == on) {
    if ($nick == $me) { .timer -m 1 1 buat.war }
    else { 
      if ($nick isreg $chan) { cline $`b.i.f(nicklist,reg) $chan $nick }
      if ($nick isvo $chan) { cline $`b.i.f(nicklist,voice) $chan $nick }
      if ($nick ishelp $chan) { cline $`b.i.f(nicklist,help) $chan $nick }
      if ($nick isop $chan) { cline $`b.i.f(nicklist,op) $chan $nick }
      if ($nick == $me) { cline $`b.i.f(nicklist,me) $chan $nick }
      if ($nick isnotify) { cline $`b.i.f(nicklist,notify) $chan $nick }
      if ($nick $+ !*@* isignore) { cline $`b.i.f(nicklist,ignore) $chan $nick } 
    }
  }
}
CTCP *:MP3:*:{ cline $`b.i.f(nicklist,mp3) $chan $nick }
CTCP *:SLOTS:*:{ cline $`b.i.f(nicklist,mp3) $chan $nick }
on *:OP:#:{
  if ($`b.i.f(nicklist,on) == on) {
    if ($opnick == $me) { cline $`b.i.f(nicklist,me) $chan $opnick | halt }
    if ($opnick isnotify) { cline $`b.i.f(nicklist,notify) $chan $opnick | halt }
    if ($opnick $+ !*@* isignore) { cline $`b.i.f(nicklist,ignore) $chan $opnick | halt }
    cline $`b.i.f(nicklist,op) $chan $opnick 
  }
}
on *:serverOP:#:{
  if ($`b.i.f(nicklist,on) == on) {
    if ($opnick == $me) { cline $`b.i.f(nicklist,me) $chan $opnick | halt }
    if ($opnick isnotify) { cline $`b.i.f(nicklist,notify) $chan $opnick | halt }
    if ($opnick $+ !*@* isignore) { cline $`b.i.f(nicklist,ignore) $chan $opnick | halt }
    cline $`b.i.f(nicklist,op) $chan $opnick 
  }
}
on *:DEOP:#:{
  if ($`b.i.f(nicklist,on) == on) {
    if ($opnick == $me) { cline $`b.i.f(nicklist,me) $chan $opnick | halt }
    if ($opnick ishelp $chan) { cline $`b.i.f(nicklist,voice) $chan $opnick | halt }
    if ($opnick isvo $chan) { cline $`b.i.f(nicklist,voice) $chan $opnick | halt }
    if ($opnick isnotify) { cline $`b.i.f(nicklist,notify) $chan $opnick | halt }
    if ($opnick $+ !*@* isignore) { cline $`b.i.f(nicklist,ignore) $chan $opnick | halt }
    cline $`b.i.f(nicklist,reg) $chan $opnick 
  }
}
on *:HELP:#:{
  if ($`b.i.f(nicklist,on) == on) {
    if ($hnick == $me) { cline $`b.i.f(nicklist,me) $chan $hnick | halt }
    if ($hnick isnotify) { cline $`b.i.f(nicklist,notify) $chan $hnick | halt }
    if ($hnick $+ !*@* isignore) { cline $`b.i.f(nicklist,ignore) $chan $hnick | halt }
    if ($hnick isop $chan) { cline $`b.i.f(nicklist,op) $chan $hnick | halt }
    cline $`b.i.f(nicklist,help) $chan $hnick 
  }
}
on *:DEHELP:#:{
  if ($`b.i.f(nicklist,on) == on) {
    if ($hnick == $me) { cline $`b.i.f(nicklist,me) $chan $hnick | halt }
    if ($hnick isop $chan) { cline $`b.i.f(nicklist,op) $chan $hnick | halt }
    if ($hnick isnotify) { cline $`b.i.f(nicklist,notify) $chan $hnick | halt }
    if ($hnick $+ !*@* isignore) { cline $`b.i.f(nicklist,ignore) $chan $hnick | halt }
    if ($hnick isvo $chan) { cline $`b.i.f(nicklist,voice) $chan $hnick | halt }
    cline $`b.i.f(nicklist,reg) $chan $hnick 
  }
}
on *:VOICE:#:{
  if ($`b.i.f(nicklist,on) == on) {
    if ($vnick == $me) { cline $`b.i.f(nicklist,me) $chan $vnick | halt }
    if ($vnick isnotify) { cline $`b.i.f(nicklist,notify) $chan $vnick | halt }
    if ($vnick $+ !*@* isignore) { cline $`b.i.f(nicklist,ignore) $chan $vnick | halt }
    if ($vnick isop $chan) { cline $`b.i.f(nicklist,op) $chan $vnick | halt }
    if ($vnick ishelp $chan) { cline $`b.i.f(nicklist,help) $chan $vnick | halt }
    cline $`b.i.f(nicklist,voice) $chan $vnick 
  }
}
on *:DEVOICE:#:{
  if ($`b.i.f(nicklist,on) == on) {
    if ($vnick == $me) { cline $`b.i.f(nicklist,me) $chan $vnick | halt }
    if ($vnick isnotify) { cline $`b.i.f(nicklist,notify) $chan $vnick | halt }
    if ($vnick $+ !*@* isignore) { cline $`b.i.f(nicklist,ignore) $chan $vnick | halt }
    if ($vnick isop $chan) { cline $`b.i.f(nicklist,op) $chan $vnick | halt }
    if ($vnick ishelp $chan) { cline $`b.i.f(nicklist,help) $chan $vnick | halt }
    cline $`b.i.f(nicklist,reg) $chan $vnick 
  }
}
on *:dialog:warna.nl:init:*:{ $iif($`b.i.f(nicklist,on) == on,did -c $dname 17) }
on *:dialog:warna.nl:close:*:{
  if ($`b.i.f(nicklist,on) == on) { buat.war }
  if ($`b.i.f(nicklist,on) == off) { buang.war }
  $iif($dialog(ncl.cl),dialog -x ncl.cl)
  unset %nlc.*
}
on *:dialog:warna.nl:sclick:*:{
  if ($did == 17) { $iif($`b.i.f(nicklist,on) == on,`t.i.f nicklist on off,`t.i.f nicklist on on) }
  if ($did == 70) { .set %nlc.temp me | .set %nlc.temp.id 70 | ncl.cl }
  if ($did == 71) { .set %nlc.temp op | .set %nlc.temp.id 71 | ncl.cl }
  if ($did == 72) { .set %nlc.temp voice | .set %nlc.temp.id 72 | ncl.cl }
  if ($did == 73) { .set %nlc.temp reg | .set %nlc.temp.id 73 | ncl.cl }
  if ($did == 74) { .set %nlc.temp notify | .set %nlc.temp.id 74 | ncl.cl }
  if ($did == 75) { .set %nlc.temp ignore | .set %nlc.temp.id 75 | ncl.cl }
  if ($did == 76) { .set %nlc.temp help | .set %nlc.temp.id 76 | ncl.cl }
  if ($did == 77) { .set %nlc.temp mp3 | .set %nlc.temp.id 77 | ncl.cl }
}
on *:load: { 
  if ($version >= 6.0) { echo -s Welcome to 4NickList Colors v1.1 by da^hype | echo -s contact: da-hype@hirc.org | echo -s website: http://www.hirc.org | echo -s Malaysian Made | nlc
  }
  else { echo -a Sorry, you can't use This Script with version $version of mIRC, get the latest version at http://www.mirc.com/ | .unload -rs nicklist\nicklist.mrc }
}
menu menubar,channel {
  Nicklist Colors
  .Setup:/nlc
  .-
  .Read Me:run $+(",$scriptdirreadme.html,")
}
on *:dialog:ncl.cl:sclick:*:{
  if ($did == 1) { `t.i.f nicklist %nlc.temp 0 | did -g warna.nl %nlc.temp.id " $+ $scriptdiricons\0.jpg $+ " | dialog -x ncl.cl }
  if ($did == 2) { `t.i.f nicklist %nlc.temp 1 | did -g warna.nl %nlc.temp.id " $+ $scriptdiricons\1.jpg $+ " | dialog -x ncl.cl }
  if ($did == 3) { `t.i.f nicklist %nlc.temp 2 | did -g warna.nl %nlc.temp.id " $+ $scriptdiricons\2.jpg $+ " | dialog -x ncl.cl }
  if ($did == 4) { `t.i.f nicklist %nlc.temp 3 | did -g warna.nl %nlc.temp.id " $+ $scriptdiricons\3.jpg $+ " | dialog -x ncl.cl }
  if ($did == 5) { `t.i.f nicklist %nlc.temp 4 | did -g warna.nl %nlc.temp.id " $+ $scriptdiricons\4.jpg $+ " | dialog -x ncl.cl }
  if ($did == 6) { `t.i.f nicklist %nlc.temp 5 | did -g warna.nl %nlc.temp.id " $+ $scriptdiricons\5.jpg $+ " | dialog -x ncl.cl }
  if ($did == 7) { `t.i.f nicklist %nlc.temp 6 | did -g warna.nl %nlc.temp.id " $+ $scriptdiricons\6.jpg $+ " | dialog -x ncl.cl }
  if ($did == 8) { `t.i.f nicklist %nlc.temp 7 | did -g warna.nl %nlc.temp.id " $+ $scriptdiricons\7.jpg $+ " | dialog -x ncl.cl }
  if ($did == 9) { `t.i.f nicklist %nlc.temp 8 | did -g warna.nl %nlc.temp.id " $+ $scriptdiricons\8.jpg $+ " | dialog -x ncl.cl }
  if ($did == 10) { `t.i.f nicklist %nlc.temp 9 | did -g warna.nl %nlc.temp.id " $+ $scriptdiricons\9.jpg $+ " | dialog -x ncl.cl }
  if ($did == 11) { `t.i.f nicklist %nlc.temp 10 | did -g warna.nl %nlc.temp.id " $+ $scriptdiricons\10.jpg $+ " | dialog -x ncl.cl }
  if ($did == 12) { `t.i.f nicklist %nlc.temp 11 | did -g warna.nl %nlc.temp.id " $+ $scriptdiricons\11.jpg $+ " | dialog -x ncl.cl }
  if ($did == 13) { `t.i.f nicklist %nlc.temp 12 | did -g warna.nl %nlc.temp.id " $+ $scriptdiricons\12.jpg $+ " | dialog -x ncl.cl }
  if ($did == 14) { `t.i.f nicklist %nlc.temp 13 | did -g warna.nl %nlc.temp.id " $+ $scriptdiricons\13.jpg $+ " | dialog -x ncl.cl }
  if ($did == 15) { `t.i.f nicklist %nlc.temp 14 | did -g warna.nl %nlc.temp.id " $+ $scriptdiricons\14.jpg $+ " | dialog -x ncl.cl }
  if ($did == 16) { `t.i.f nicklist %nlc.temp 15 | did -g warna.nl %nlc.temp.id " $+ $scriptdiricons\15.jpg $+ " | dialog -x ncl.cl }
}