rendered paste bodyalias 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- }