ON *:JOIN:#:{
if ($nick == $me) {
    nicklust Mark $window($chan).hwnd nLUST_CallBack rowselect tooltips balloontips hideempty hottrack dlgframe clientedge
 
 
    dll Systeem\dll\nickLUST3.dll AddIcon $chan > $shortfn($mircdirSysteem\icons\op.ico)
    dll Systeem\dll\nickLUST3.dll AddIcon $chan > $shortfn($mircdirSysteem\icons\voice.ico)
    dll Systeem\dll\nickLUST3.dll AddIcon $chan > $shortfn($mircdirSysteem\icons\chat.ico)
    dll Systeem\dll\nickLUST3.dll AddIcon $chan > $shortfn($mircdirSysteem\icons\hop.ico)
    dll Systeem\dll\nickLUST3.dll AddIcon $chan > $shortfn($mircdirSysteem\icons\usr.ico)
    dll Systeem\dll\nickLUST3.dll AddIcon $chan > $shortfn($mircdirSysteem\icons\spr.ico)
    dll Systeem\dll\nickLUST3.dll AddIcon $chan > $shortfn($mircdirSysteem\icons\ownr.ico)
    dll Systeem\dll\nickLUST3.dll SetGroupText $chan 1 > Chatters
    dll Systeem\dll\nicklust3.dll AddGroup $chan 10 + 2 > Voice +
    dll Systeem\dll\nicklust3.dll AddGroup $chan 11 @ 1 > Operator @
    dll Systeem\dll\nicklust3.dll AddGroup $chan 12 & 4 > Halfop %
    dll Systeem\dll\nicklust3.dll AddGroup $chan 13 - 5 > User ops
    dll Systeem\dll\nicklust3.dll AddGroup $chan 14 & 6 > Super ops
    dll Systeem\dll\nicklust3.dll AddGroup $chan 15 . 7 > Owner
    dll Systeem\dll\nicklust3.dll SetGroupView $chan 1 normal
    dll Systeem\dll\nicklust3.dll SetGroupView $chan 10 normal
    dll Systeem\dll\nicklust3.dll SetGroupView $chan 11 normal
    dll Systeem\dll\nicklust3.dll SetGroupView $chan 12 normal
    dll Systeem\dll\nicklust3.dll SetGroupView $chan 13 normal
    dll Systeem\dll\nicklust3.dll SetGroupView $chan 14 normal
    dll Systeem\dll\nicklust3.dll SetGroupView $chan 15 normal
    dll Systeem\dll\nicklust3.dll SetGroupIcon $chan 1 3
    dll Systeem\dll\nicklust3.dll SetGroupPos $chan 15 start
    dll Systeem\dll\nicklust3.dll SetGroupPos $chan 11 end
    dll Systeem\dll\nicklust3.dll SetGroupPos $chan 12 end
    dll Systeem\dll\nicklust3.dll SetGroupPos $chan 10 end
    dll Systeem\dll\nicklust3.dll SetGroupPos $chan 14 end
    dll Systeem\dll\nicklust3.dll SetGroupPos $chan 13 end
    dll Systeem\dll\nicklust3.dll SetGroupPos $chan 1 end
    dll Systeem\dll\nicklust3.dll SetColor $chan bkg $rgb(244,244,244)
    dll Systeem\dll\nicklust3.dll SetColor $chan text $color(14)
    dll Systeem\dll\nicklust3.dll SetColor $chan tipbkg $rgb(219,219,219)
    dll Systeem\dll\nicklust3.dll SetColor $chan tiptext $color(1)
    dll Systeem\dll\nicklust3.dll SetColor $chan hottext $color(12)
    dll Systeem\dll\nicklust3.dll SetColor $chan divider $color(12) $color(0)
    dll Systeem\dll\nicklust3.dll SetHeaderFontStyle $chan italic
    dll Systeem\dll\nicklust3.dll SetHeaderColor $chan 15 $rgb(147,147,255)
    dll Systeem\dll\nicklust3.dll SetHeaderColor $chan 11 $rgb(255,70,70)
    dll Systeem\dll\nicklust3.dll SetHeaderColor $chan 12 $rgb(170,125,164)
    dll Systeem\dll\nicklust3.dll SetHeaderColor $chan 10 $rgb(78,191,224)
    dll Systeem\dll\nicklust3.dll SetHeaderColor $chan 14 $rgb(41,209,155)
    dll Systeem\dll\nicklust3.dll SetHeaderColor $chan 1 $color(6)
}
haltdef
}
 
alias nicklust { dll %4$s(",$mircdirSysteem\dll\nickLUST3.dll,") $1- } 
alias nlust_callback {
if ($1 = tooltip) {
    var %extra
    if ($3 == $me) %extra = (Your name)
    nicklust SetTipTitle $2 1 > Info on $3 %extra
    return Status: $nlist_pnick($remove($nick($2,$3).pnick,$3)) %4$s $crlf %4$s Idle: $duration($nick($2,$nick($2,$3)).idle) %4$s $crlf %4$s Notify list: $iif($notify($3),Yes,No) %4$s $crlf %4$s Address: $iif($address($3,4),$ifmatch,Unknown) %4$s $crlf %4$s Channels: [CODE]%4$s[/CODE] comchans($3,32))
}
}
 
alias nlist_pnick {
if ($1 = @) { return Channel Operator }
elseif ($1 = .) { return Kamer Owner }
elseif ($1 = &) { return Protected User}
elseif ($1 = +) { return Voiced User }
elseif ($1 = %) { return HalveOpped User }
elseif ($1 = -) { return Operator }
elseif ($1 = $null) { return Normal User }
}
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) 
}