alias DamsNL { $iif($dialog(qset4), $dlgv qset4 qset4, $dlgm qset4 qset4) }
on *:join:#:{
  if ($nick == $me) && ($exists(dll\nicklust.dll) == $true) && (%DoNickList != $null) {
    window -a $chan
    DamsNicklistLoad $chan
    echo $color(info2) $chan             .::3Nicklist Theme::.. Applying Theme To $chan $+ 's Nicklist
  }
}
alias UpDamsNL {
  var %y = 1
  while (%y <= $scid(0)) {
    scon %y
    var %x = $chan(0)
    if ($chan(%x) != $active) && ($chan(%x) ischan) { window -a $chan(%x) | .timer 1 2 window -n $chan(%x) }
    while (%x) {
      DamsNicklistApply $chan(%x) %y
      Dec %x
    }
    inc %y
  }
}
alias DamsNicklistLoad {
  nicklust Mark $window($1).hwnd lust_callback hottrack staticedge hideempty underlinehot rowselect nodefgroup tooltips borderselect autoarrange balloontips
  nicklust SetGroupText $1 1 > %NLUOPS
  $iif(%ownersig. [ $+ [ $network ] ] !isin @%+,nicklust AddGroup $1 2 %ownersig. [ $+ [ $network ] ] 2 > %NLOOPS)
  $iif(%adminsig. [ $+ [ $network ] ] !isin @%+,nicklust AddGroup $1 3 %adminsig. [ $+ [ $network ] ] 3 > %NLAOPS)
  nicklust AddGroup $1 4 @ 4 > %NLOPS
  nicklust AddGroup $1 5 % 5 > %NLHOPS
  nicklust AddGroup $1 6 + 6 > %NLVOPS
  nicklust SetGroupPos $1 1 end 1
  nicklust SetBranchImage $1 > %NLbranch
  if (%NLITALIC != $null) { nicklust SetHeaderFontStyle $1 italic }
  DamsNicklistApply $1 $2
}
alias DamsNicklistApply {
  scon $2
  if (%NLbkg1 == $null) { set %NLbkg1 1 }
  if (%NLbkg2 == $null) { set %NLbkg2 14 }
  if (%NLdivider1 == $null) { set %NLdivider1 1 }
  if (%NLdivider2 == $null) { set %NLdivider2 0 }
  if (%NLtext == $null) { set %NLtext 0 }
  if (%NLhottext == $null) { set %NLhottext 12 }
  if (%NLhighlight1 == $null) { set %NLhighlight1 11 }
  if (%NLhighlight2 == $null) { set %NLhighlight2 0 }
  if (%NLOPS == $null) { set %NLOPS Ops }
  if (%NLHOPS == $null) { set %NLHOPS HalfOps }
  if (%NLVOPS == $null) { set %NLVOPS Voiced }
  if (%NLAOPS == $null) { set %NLAOPS Admin }
  if (%NLUOPS == $null) { set %NLUOPS UnVoiced }
  if (%NLOOPS == $null) { set %NLOOPS Owner }
  if (%NLbranch == $null) { set %NLbranch 4 }
  nicklust SetGroupText $1 1 > %NLUOPS
  $iif(%ownersig. [ $+ [ $network ] ] !isin @%+,nicklust AddGroup $1 2 %ownersig. [ $+ [ $network ] ] 2 > %NLOOPS)
  $iif(%adminsig. [ $+ [ $network ] ] !isin @%+,nicklust AddGroup $1 3 %adminsig. [ $+ [ $network ] ] 3 > %NLAOPS)
  nicklust AddGroup $1 4 @ 4 > %NLOPS
  nicklust AddGroup $1 5 % 5 > %NLHOPS
  nicklust AddGroup $1 6 + 6 > %NLVOPS
  nicklust SetHeaderColor $1 1 $color(%NLUOPSb)
  nicklust SetHeaderColor $1 2 $color(%NLOOPSb)
  nicklust SetHeaderColor $1 3 $color(%NLAOPSb)
  nicklust SetHeaderColor $1 4 $color(%NLOPSb)
  nicklust SetHeaderColor $1 5 $color(%NLHOPSb)
  nicklust SetHeaderColor $1 6 $color(%NLVOPSb)
  nicklust SetColor $1 bkg $color(%NLbkg1) $color(%NLbkg2)
  nicklust SetColor $1 text $color(%NLtext)
  nicklust SetColor $1 divider $color(%NLdivider1) $color(%NLdivider2)
  nicklust SetColor $1 hottext $color(%NLhottext)
  nicklust SetColor $1 highlight $color(%NLhighlight1) $color(%NLhighlight2)
  if ($exists(icons\red.cur) != $null) { nicklust SetHotCursor $1 > Icons\red.cur }
  if ($timer(unloadnicklust) != $null ) { .timerunloadnicklust off }
  .timerunloadnicklust -o 1 60 /dll -u dll\nicklust.dll


}
alias setowner {
  var %x = $matchtok($1-,PREFIX=,1,32), %x = $remove(%x,PREFIX=,$chr(40)), %y = %x, %x = $gettok(%x,1,41), %y = $gettok(%y,2,41), %x = $left(%x,2) , %y = $left(%y,2)
  set %ownersig. [ $+ [ $network ] ] $left(%y,1)
  set %adminsig. [ $+ [ $network ] ] $mid(%y,2,2)
}
alias nicklust { dll dll\nicklust.dll $1- }
alias nicklust_call { noop }
dialog qset4 {
  title "Nicklist Theme Engine Settings"
  size -1 -1 165 210
  option dbu
  icon Icons\Cp.ico
  text "This dialog allows you to THEME your nicklist and place them into groups IE OPS With this ADDON enabled it will DISABLE any form of Nicklist Manipulator such as Clone Colours",28,2 2 160 30 
  text "Nicklist BackGround Fade 1",2,2 30 70 20 
  edit "",3,68 29 10 10
  text "Nicklist BackGround Fade 2",4,2 45 70 20 
  edit "",5,68 44 10 10
  text "Group Divider Fade 1",6,2 60 70 20 
  edit "",7,68 59 10 10
  text "Group Divider Fade 2",8,2 75 70 20 
  edit "",9,68 74 10 10
  text "Nicklist Nick Text",10,2 90 70 20 
  edit "",11,68 89 10 10
  text "Nicklist Hover Text",12,2 105 70 20 
  edit "",13,68 104 10 10
  text "Group Name For Ops",14,2 120 70 20 
  edit "",15,75 119 50 10
  edit "",41,130 119 10 10
  text "Group Name For HalfOps",16,2 132 70 20 
  edit "",17,75 131 50 10
  edit "",42,130 131 10 10
  text "Group Name For Voiced",18,2 144 70 20 
  edit "",19,75 143 50 10
  edit "",43,130 143 10 10
  text "Group Name For UnVoiced",20,2 156 70 20 
  edit "",21,75 155 50 10
  edit "",44,130 155 10 10
  text "Group Name For Owner",22,2 168 70 20 
  edit "",23,75 167 50 10
  edit "",45,130 167 10 10
  text "Group Name For Admins",24,2 180 70 20 
  edit "",25,75 179 50 10
  edit "",46,130 179 10 10
  text "Group Branch Button Colour",30,2 192 70 10 
  edit "",31,75 191 10 10
  icon 26,71 30 100 35, Icons\col.bmp
  link "More Details And Examples Click Here",27,1 203 160 10
  text "Colour",40,130 110 70 10 
  button "Done",111,82 70 20 15 , ok
  button "Apply Nicklist Theme",1,103 70 60 15
  text "Make All Group Text Italic",29,96 95 90 10
  check "",150, 85 94 10 10
}
on *:DIALOG:qset4:sclick:1: { set %DoNickList on | UpDamsNL | did -b qset4 1 }
on *:DIALOG:qset4:sclick:150:  {
  did -e qset4 1
  $iif($did(qset4,150).state == 1,set %NLITALIC $true,unset %NLITALIC) 
}
on *:DIALOG:qset4:sclick:27: run http://damsulegna.net/wiki/NickListTheme
on *:DIALOG:qset4:edit:3: { 
  if ($did(qset4,3) isnum) { did -e qset4 1 | set %NLbkg1 $did(qset4,3) }
}
on *:DIALOG:qset4:edit:5: {
  if ($did(qset4,5) isnum) { did -e qset4 1 | set %NLbkg2 $did(qset4,5) }
}
on *:DIALOG:qset4:edit:7: {
  if ($did(qset4,7) isnum) { did -e qset4 1 | set %NLdivider1 $did(qset4,7) }
}
on *:DIALOG:qset4:edit:9: {
  if ($did(qset4,9) isnum) { did -e qset4 1 | set %NLdivider2 $did(qset4,9) }
}
on *:DIALOG:qset4:edit:11: {
  if ($did(qset4,11) isnum) { did -e qset4 1 | set %NLtext $did(qset4,11) }
}
on *:DIALOG:qset4:edit:13: {
  if ($did(qset4,13) isnum) { did -e qset4 1 | set %NLhottext $did(qset4,13) }
}
on *:DIALOG:qset4:edit:31: {
  if ($did(qset4,31) isnum) { did -e qset4 1 | set %NLbranch $did(qset4,31) }
}
on *:DIALOG:qset4:edit:15: { did -e qset4 1 | set %NLOPS $did(qset4,15) }
on *:DIALOG:qset4:edit:17: { did -e qset4 1 | set %NLHOPS $did(qset4,17) }
on *:DIALOG:qset4:edit:19: { did -e qset4 1 | set %NLVOPS $did(qset4,19) }
on *:DIALOG:qset4:edit:21: { did -e qset4 1 | set %NLUOPS $did(qset4,21) }
on *:DIALOG:qset4:edit:23: { did -e qset4 1 | set %NLOOPS $did(qset4,23) }
on *:DIALOG:qset4:edit:25: { did -e qset4 1 | set %NLAOPS $did(qset4,25) }
on *:DIALOG:qset4:edit:41: { did -e qset4 1 | set %NLOPSb $did(qset4,41) }
on *:DIALOG:qset4:edit:42: { did -e qset4 1 | set %NLHOPSb $did(qset4,42) }
on *:DIALOG:qset4:edit:43: { did -e qset4 1 | set %NLVOPSb $did(qset4,43) }
on *:DIALOG:qset4:edit:44: { did -e qset4 1 | set %NLUOPSb $did(qset4,44) }
on *:DIALOG:qset4:edit:45: { did -e qset4 1 | set %NLOOPSb $did(qset4,45) }
on *:DIALOG:qset4:edit:46: { did -e qset4 1 | set %NLAOPSb $did(qset4,46) }
on *:DIALOG:qset4:init:0:{ 
  did -b qset4 1
  if ($exists(col.bmp)) && $exists(Icons\col.bmp) { .rename col.bmp ToBeDeleted\ $+ $remove($time,$chr(58)) $+ col.bmp }
  if ($exists(col.bmp)) && !$exists(Icons\col.bmp) { .rename col.bmp Icons\col.bmp }
  if (%NLbranch == $null) { set %NLbranch 4 }
  if (%NLbkg1 == $null) { set %NLbkg1 1 }
  if (%NLbkg2 == $null) { set %NLbkg2 14 }
  if (%NLdivider1 == $null) { set %NLdivider1 1 }
  if (%NLdivider2 == $null) { set %NLdivider2 0 }
  if (%NLtext == $null) { set %NLtext 0 }
  if (%NLhottext == $null) { set %NLhottext 12 }
  if (%NLOPS == $null) { set %NLOPS Ops }
  if (%NLHOPS == $null) { set %NLHOPS HalfOps }
  if (%NLVOPS == $null) { set %NLVOPS Voiced }
  if (%NLAOPS == $null) { set %NLAOPS Admin }
  if (%NLUOPS == $null) { set %NLUOPS UnVoiced }
  if (%NLOOPS == $null) { set %NLOOPS Owner }
  if (%NLOPSb == $null) { set %NLOPSb 11 }
  if (%NLHOPSb == $null) { set %NLHOPSb 11 }
  if (%NLVOPSb == $null) { set %NLVOPSb 11 }
  if (%NLAOPSb == $null) { set %NLAOPSb 11 }
  if (%NLUOPSb == $null) { set %NLUOPSb 11 }
  if (%NLOOPSb == $null) { set %NLOOPSb 11 }
  if (%NLITALIC != $null) { did -c qset4 150 }
  did -a qset4 3 %NLbkg1
  did -a qset4 5 %NLbkg2
  did -a qset4 7 %NLdivider1
  did -a qset4 9 %NLdivider2
  did -a qset4 11 %NLtext
  did -a qset4 13 %NLhottext
  did -a qset4 15 %NLOPS
  did -a qset4 17 %NLHOPS
  did -a qset4 19 %NLVOPS
  did -a qset4 21 %NLUOPS
  did -a qset4 23 %NLOOPS
  did -a qset4 25 %NLAOPS
  did -a qset4 31 %NLbranch
  did -a qset4 41 %NLOPSb
  did -a qset4 42 %NLHOPSb
  did -a qset4 43 %NLVOPSb
  did -a qset4 44 %NLUOPSb
  did -a qset4 45 %NLOOPSb
  did -a qset4 46 %NLAOPSb

}
alias lust_callback { 
  if (tooltip isin $1-) { 
    .who $2
    dll dll\nicklust.dll SetTipTitle $2 1 > Info on $3 
    return Channel Status: $nlist_pnick($remove($nick($2,$3).pnick,$3)) $+ $crlf $+ Idle Time: $duration($nick($2,$nick($2,$3)).idle) $+ $crlf $+ On Notify list: $iif($notify($3),Yes,No) $+ $crlf $+ Address: $iif($address($3,0),$ifmatch,Cannot Compile Please Rehover) $+ $crlf $+ Common Channels: $_comchans($3,32))
  } 
} 

alias nlist_pnick { 
  if ($1 = @) { return Channel Op } 
  elseif ($1 = *) { return Star } 
  elseif ($1 = .) { return Channel Owner } 
  elseif ($1 = &) { return Channel Admin } 
  elseif ($1 = %) { return Channel HalfOp } 
  elseif ($1 = +) { return Voice } 
  elseif ($1 = $null) { return UnVoiced } 
} 
alias _isnotifylist { 
  if ($notify($1)) return $2 
  return $3 
} 
alias _comchans { 
  var %tokk = $iif($2,$ifmatch,$chr(32)), %iii = 1, %chh 
  while (%iii <= $comchan($1,0)) { 
    %chh = $addtok(%chh,$comchan($1,%iii),%tokk) | inc %iii 
  } 
  return $sorttok(%chh,%tokk) 
} 
raw 005:*:{ setowner $1- }