l0n3R's Custom mIRC Nicklist — File Browser
l0n3RsCustommIRCNicklistv1.0 / l0n3RsCustommIRCNicklistv1.0 / nicklust.mrc
nicklust.mrc — 14.97 KB — Download this file
;*******************************************************************
;****************** Start Custom Nicklist By l0n3R *****************
;*******************************************************************
on *:LOAD: {
if ($version <= 6.0) {
echo -a [Notice] Addon only works for mIRC version above 6.0
echo -a [Notice] Current Version $Version
echo -a [Notice] Get the lastest mIRC at Www.mIRC.com
unload -rs nicklust.mrc | halt
}
else {
.IAL ON
echo -a [Notice] mIRC custom nicklist loaded!
echo -a [Notice] Enjoy =D
echo -a [Notice] $iif($server,Connection Detected! You need to reconnect/rejoin all channel!,No Connection Detected! Connect to IRC network and join channel to use it)
drawcolorpreview 16777215 DoNotDel
set %nl.operator $scriptdiricons\Operator.ico
set %nl.halfops $scriptdiricons\Halfops.ico
set %nl.voice $scriptdiricons\Voice.ico
set %nl.regular $scriptdiricons\Normal.ico
set %nl.owntext 65535 | set %nl.halftext 16705925 | set %nl.optext 65280 | set %nl.voicetext 16753920 | set %nl.regtext 14503679
set %nl.bkgcolor 0 | set %nl.specialtext 16777215 | set %nl.tipbkg 12961221 | set %nl.tiptext 16711680
}
}
on *:UNLOAD: {
if ($version <= 6.0) {
halt
}
else {
unset %nl.*
DLL -u $nicklust
}
}
Menu * {
Custom Nicklist: NicklistEdit
}
menu nicklist {
Friends:
.Add: {
var %numnicks $numtok($1-,32)
while (%numnicks >= 1) {
if ($checknicks($gettok($1-,%numnicks,32)) == false) {
if ($dialog(nicklistedit) != $null) { did -a nicklistedit 31 $gettok($1-,%numnicks,32) }
set %nl.specialnicks $gettok($1-,%numnicks,32) $+ $chr(44) $+ %nl.specialnicks
}
dec %numnicks
}
}
.Remove: {
var %nickloc 1
while (%nickloc <= $numtok($1-,32)) {
if ($dialog(nicklistedit) != $null) {
var %x 1
while (%x <= $did(nicklistedit,31,0).lines) {
if ($did(nicklistedit,31,%x).text == $gettok($1-,%nickloc,32)) { did -d nicklistedit 31 %x }
inc %x
}
}
var %y 1
while (%y <= $numtok(%nl.specialnicks,44)) {
if ($gettok(%nl.specialnicks,%y,44) != $gettok($1-,%nickloc,32)) { set %nl.temp_specialnicks $gettok(%nl.specialnicks,%y,44) $+ $chr(44) $+ %nl.temp_specialnicks }
inc %y
}
set %nl.specialnicks %nl.temp_specialnicks
unset %nl.temp_*
inc %nickloc
}
}
}
#visiblewho on
raw 352:*: { haltdef }
raw 315:*: { haltdef | dec %whochan | if (%whochan <= 0) { .disable #visiblewho | unset %whochan } }
#visiblewho end
alias drawcolorpreview {
window -hBpf +d @temp.colour -1 -1 16 16
drawrect -fr @temp.colour $1 1 0 0 16 16
drawsave @temp.colour " $+ $scriptdirIcons\ $+ $2 $+ .bmp $+ "
window -c @temp.colour
}
alias nicklust { return $shortfn($scriptdirdlls\nicklust.dll) }
alias colordll { return $shortfn($scriptdirdlls\color.dll) }
on *:join:*:{
if ($nick == $me) {
if (%whochan == $null) set %whochan 1
else set %whochan $calc(%whochan + 1)
.nicklist #
.enable #visiblewho
.who #
}
}
alias nicktt {
if ($1 == color) {
if ($3 == $me) return %nl.owntext
elseif ($istokcs(%nl.specialnicks,$3,44)) return %nl.specialtext
elseif ($3 ishop $active) return %nl.halftext
elseif ($3 isop $active) return %nl.optext
elseif ($3 isvoice $active) return %nl.voicetext
return %nl.regtext
}
if ($1 == tooltip) {
return Nickname: $3 $+ $crlf $+ Address: $address( $+ $3 $+ ,1) $+ $crlf $+ Status: $getStatus($3,$active)
}
}
alias getStatus {
if ($istokcs(%nl.specialnicks,$1,44)) return Friends
elseif ($1 == $me) return Yourself
elseif ($1 ishop $2) return Halfops
elseif ($1 isop $2) return Operator
elseif ($1 isvoice $2) return Voice
else return Regular
}
alias nicklist {
dll $nicklust Mark $1 > nicktt borderselect autoarrange balloon
dll $nicklust SetTipTitle $1 1 > Nickname Info
dll $nicklust SetTipDelay $1 roll default
dll $nicklust SetTipColor $1 text %nl.tiptext
dll $nicklust SetTipColor $1 bkg %nl.tipbkg
dll $nicklust SetHeaderText $1 > $1
dll $nicklust SetIcon $1 op > $shortfn(%nl.operator)
dll $nicklust SetIcon $1 voice > $shortfn(%nl.voice)
dll $nicklust SetIcon $1 normal > $shortfn(%nl.regular)
dll $nicklust SetIcon $1 halfop > $shortfn(%nl.halfops)
dll $nicklust SetColor $1 bkg %nl.bkgcolor
}
alias nicklistedit {
Dialog -m nicklistedit nicklistedit
}
alias checknicks {
var %x 1
while (%x <= $numtok(%nl.specialnicks,44)) {
if ($gettok(%nl.specialnicks,%x,44) == $1) {
return true
}
inc %x
}
return false
}
alias updatenickicon {
var %x = 1
while (%x <= $chan(0)) {
nicklist $chan(%x)
inc %x
}
}
dialog NicklistEdit {
title "Nicklist Preferences"
size -1 -1 366 218
option pixels
tab "Icons", 1, 7 6 350 178
edit %nl.operator, 4, 61 50 251 19, tab 1 autohs
edit %nl.voice, 5, 61 85 251 19, tab 1 autohs
edit %nl.regular, 6, 61 155 251 19, tab 1 autohs
edit %nl.halfops, 38, 61 118 251 19, tab 1 autohs
icon 7, 25 35 32 32, $shortfn($scriptdirIcons\Operator.ico), 0, tab 1
icon 8, 25 70 32 32, $shortfn($scriptdirIcons\Voice.ico), 0, tab 1
icon 9, 25 140 32 32, $shortfn($scriptdirIcons\Normal.ico), 0, tab 1
icon 37, 25 105 32 32, $shortfn($scriptdirIcons\Halfops.ico), 0, tab 1
button "...", 12, 315 53 20 15, tab 1
button "...", 13, 315 88 20 15, tab 1
button "...", 14, 315 158 20 15, tab 1
button "...", 40, 315 123 20 15, tab 1
text "Operators", 15, 62 37 52 13, tab 1
text "Voice", 16, 62 71 28 13, tab 1
text "Normal", 17, 62 142 36 13, tab 1
text "Halfops", 39, 62 105 50 13, tab 1
tab "Colours", 2
text "Operator (+o)", 18, 32 91 89 13, tab 2
text "Voice (+v)", 19, 32 119 89 13, tab 2
text "Normal", 20, 149 91 89 13, tab 2
text "Friends", 21, 149 119 89 13, tab 2
text "Own Nick", 22, 149 147 89 13, tab 2
text "Background", 23, 263 147 89 13, tab 2
text "Halfops (+h)", 41, 32 147 89 13, tab 2
text "Info Text", 43, 263 91 89 13, tab 2
text "Info Background", 45, 263 119 89 13, tab 2
icon 24, 12 86 16 16, $shortfn($scriptdirIcons\DoNotDel.bmp), 0, tab 2
icon 25, 12 114 16 16, $shortfn($scriptdirIcons\DoNotDel.bmp), 0, tab 2
icon 26, 129 86 16 16, $shortfn($scriptdirIcons\DoNotDel.bmp), 0, tab 2
icon 27, 129 114 16 16, $shortfn($scriptdirIcons\DoNotDel.bmp), 0, tab 2
icon 28, 129 142 16 16, $shortfn($scriptdirIcons\DoNotDel.bmp), 0, tab 2
icon 29, 243 141 16 16, $shortfn($scriptdirIcons\DoNotDel.bmp), 0, tab 2
icon 42, 12 142 16 16, $shortfn($scriptdirIcons\DoNotDel.bmp), 0, tab 2
icon 44, 243 85 16 16, $shortfn($scriptdirIcons\DoNotDel.bmp), 0, tab 2
icon 46, 243 113 16 16, $shortfn($scriptdirIcons\DoNotDel.bmp), 0, tab 2
text "To change the colour of the nick of the different groups, just click on the colour and the colour selection dialog will appear.", 30, 50 39 272 41, tab 2 center
tab "Friends List", 3
text "New Friend", 36, 22 42 89 19, tab 3
list 31, 180 33 140 145, tab 3 sort extsel hsbar vsbar
edit "", 32, 22 55 140 19, tab 3 autohs
button "Add", 33, 18 77 50 23, tab 3
button "Remove", 34, 68 77 50 23, tab 3
button "Clear", 35, 118 77 50 23, tab 3
button "&Save", 10, 85 190 89 23, ok
button "&Cancel", 11, 191 190 89 23
}
on *:dialog:NicklistEdit:*:*:{
if ($devent == init) {
var %x 1
while (%x <= $numtok(%nl.specialnicks,44)) {
did -a NicklistEdit 31 $gettok(%nl.specialnicks,%x,44)
inc %x
}
if ($exists($shortfn(%nl.operator)) == $true) { did -g NicklistEdit 7 $shortfn(%nl.operator) }
else { set %nl.operator $scriptdirIcons\Parrot.ico | did -ar NicklistEdit 4 %nl.operator }
if ($exists($shortfn(%nl.voice)) == $true) { did -g NicklistEdit 8 $shortfn(%nl.voice) }
else { set %nl.voice $scriptdirIcons\Jelly.ico | did -ar NicklistEdit 5 %nl.voice }
if ($exists($shortfn(%nl.regular)) == $true) { did -g NicklistEdit 9 $shortfn(%nl.regular) }
else { set %nl.regular $scriptdirIcons\SeaStar.ico | did -ar NicklistEdit 6 %nl.regular }
if ($exists($shortfn(%nl.halfops)) == $true) { did -g NicklistEdit 37 $shortfn(%nl.halfops) }
else { set %nl.halfops $scriptdirIcons\Halfops.ico | did -ar NicklistEdit 38 %nl.halfops }
drawcolorpreview %nl.optext Operator | did -g NicklistEdit 24 $shortfn($ScriptdirIcons\Operator.bmp)
drawcolorpreview %nl.voicetext Voice | did -g NicklistEdit 25 $shortfn($ScriptdirIcons\Voice.bmp)
drawcolorpreview %nl.regtext Regular | did -g NicklistEdit 26 $shortfn($ScriptdirIcons\Regular.bmp)
drawcolorpreview %nl.specialtext Friends | did -g NicklistEdit 27 $shortfn($ScriptdirIcons\Friends.bmp)
drawcolorpreview %nl.owntext Ownself | did -g NicklistEdit 28 $shortfn($ScriptdirIcons\Ownself.bmp)
drawcolorpreview %nl.bkgcolor bckgrd | did -g NicklistEdit 29 $shortfn($ScriptdirIcons\bckgrd.bmp)
drawcolorpreview %nl.tiptext infotxt | did -g NicklistEdit 44 $shortfn($ScriptdirIcons\infotxt.bmp)
drawcolorpreview %nl.tipbkg infobck | did -g NicklistEdit 46 $shortfn($ScriptdirIcons\infobck.bmp)
drawcolorpreview %nl.halftext halfops | did -g NicklistEdit 42 $shortfn($ScriptdirIcons\halfops.bmp)
}
if ($devent == sclick) {
if ($did == 12) { set %nl.temp_operator $sfile($mircdir,Choose operator's icon,Done!)
if ($len(%nl.temp_operator) > 0) { did -g NicklistEdit 7 $shortfn(%nl.temp_operator) | did -ar NicklistEdit 4 %nl.temp_operator }
}
if ($did == 13) { set %nl.temp_voice $sfile($mircdir,Choose voice's icon,Done!)
if ($len(%nl.temp_voice) > 0) { did -g NicklistEdit 8 $shortfn(%nl.temp_voice) | did -ar NicklistEdit 5 %nl.temp_voice }
}
if ($did == 14) { set %nl.temp_regular $sfile($mircdir,Choose regular's icon,Done!)
if ($len(%nl.temp_regular) > 0) { did -g NicklistEdit 9 $shortfn(%nl.temp_regular) | did -ar NicklistEdit 6 %nl.temp_regular }
}
if ($did == 40) { set %nl.temp_halfops $sfile($mircdir,Choose regular's icon,Done!)
if ($len(%nl.temp_halfops) > 0) { did -g NicklistEdit 37 $shortfn(%nl.temp_halfops) | did -ar NicklistEdit 38 %nl.temp_halfops }
}
if ($did == 24) {
set %nl.temp_optext $dll($colordll,Color,.))
if (%nl.temp_optext != $false) { drawcolorpreview %nl.temp_optext Operator | did -g NicklistEdit 24 $shortfn($ScriptdirIcons\Operator.bmp) }
}
if ($did == 25) {
set %nl.temp_voicetext $dll($colordll,Color,.))
if (%nl.temp_voicetext != $false) { drawcolorpreview %nl.temp_voicetext Voice | did -g NicklistEdit 25 $shortfn($ScriptdirIcons\Voice.bmp) }
}
if ($did == 26) {
set %nl.temp_regtext $dll($colordll,Color,.))
if (%nl.temp_regtext != $false) { drawcolorpreview %nl.temp_regtext Regular | did -g NicklistEdit 26 $shortfn($ScriptdirIcons\Regular.bmp) }
}
if ($did == 27) {
set %nl.temp_specialtext $dll($colordll,Color,.))
if (%nl.temp_specialtext != $false) { drawcolorpreview %nl.temp_specialtext Friends | did -g NicklistEdit 27 $shortfn($ScriptdirIcons\Friends.bmp) }
}
if ($did == 28) {
set %nl.temp_owntext $dll($colordll,Color,.))
if (%nl.temp_owntext != $false) { drawcolorpreview %nl.temp_owntext Ownself | did -g NicklistEdit 28 $shortfn($ScriptdirIcons\Ownself.bmp) }
}
if ($did == 29) {
set %nl.temp_bkgcolor $dll($colordll,Color,.))
if (%nl.temp_bkgcolor != $false) { drawcolorpreview %nl.temp_bkgcolor bckgrd | did -g NicklistEdit 29 $shortfn($ScriptdirIcons\bckgrd.bmp) }
}
if ($did == 42) {
set %nl.temp_halftext $dll($colordll,Color,.))
if (%nl.temp_halftext != $false) { drawcolorpreview %nl.temp_halftext halfops | did -g NicklistEdit 42 $shortfn($ScriptdirIcons\halfops.bmp) }
}
if ($did == 44) {
set %nl.temp_tiptext $dll($colordll,Color,.))
if (%nl.temp_tiptext != $false) { drawcolorpreview %nl.temp_tiptext infotxt | did -g NicklistEdit 44 $shortfn($ScriptdirIcons\infotxt.bmp) }
}
if ($did == 46) {
set %nl.temp_tipbkg $dll($colordll,Color,.))
if (%nl.temp_tipbkg != $false) { drawcolorpreview %nl.temp_tipbkg infobck | did -g NicklistEdit 46 $shortfn($ScriptdirIcons\infobck.bmp) }
}
if ($did == 33) {
if ($len($did(NicklistEdit,32).text) > 0) {
if ($checknicks($did(NicklistEdit,32).text) == false) {
did -a NicklistEdit 31 $did(NicklistEdit,32).text
}
did -r NicklistEdit 32
}
}
if ($did == 10) {
if ($len($did(NicklistEdit,4).text) >= 5 && $exists($shortfn($did(NicklistEdit,4).text)) == $true) { set %nl.operator $did(NicklistEdit,4).text }
if ($len($did(NicklistEdit,5).text) >= 5 && $exists($shortfn($did(NicklistEdit,5).text)) == $true) { set %nl.voice $did(NicklistEdit,5).text }
if ($len($did(NicklistEdit,6).text) >= 5 && $exists($shortfn($did(NicklistEdit,6).text)) == $true) { set %nl.regular $did(NicklistEdit,6).text }
if ($len($did(NicklistEdit,38).text) >= 5 && $exists($shortfn($did(NicklistEdit,38).text)) == $true) { set %nl.halfops $did(NicklistEdit,38).text }
if (%nl.temp_optext != $false) && (%nl.temp_optext != $null) { set %nl.optext %nl.temp_optext }
if (%nl.temp_voicetext != $false) && (%nl.temp_voicetext != $null) { set %nl.voicetext %nl.temp_voicetext }
if (%nl.temp_regtext != $false) && (%nl.temp_regtext != $null) { set %nl.regtext %nl.temp_regtext }
if (%nl.temp_bkgcolor != $false) && (%nl.temp_bkgcolor != $null) { set %nl.bkgcolor %nl.temp_bkgcolor }
if (%nl.temp_owntext != $false) && (%nl.temp_owntext != $null) { set %nl.owntext %nl.temp_owntext }
if (%nl.temp_specialtext != $false) && (%nl.temp_specialtext != $null) { set %nl.specialtext %nl.temp_specialtext }
if (%nl.temp_halftext != $false) && (%nl.temp_halftext != $null) { set %nl.halftext %nl.temp_halftext }
if (%nl.temp_tiptext != $false) && (%nl.temp_tiptext != $null) { set %nl.tiptext %nl.temp_tiptext }
if (%nl.temp_tipbkg != $false) && (%nl.temp_tipbkg != $null) { set %nl.tipbkg %nl.temp_tipbkg }
if ($did(NicklistEdit,31,0).lines > 0) {
var %x 1
unset %nl.specialnicks
while (%x <= $did(NicklistEdit,31,0).lines) {
set %nl.specialnicks $did(NicklistEdit,31,%x).text $+ $chr(44) $+ %nl.specialnicks
inc %x
}
}
if ($did(NicklistEdit,31,0).lines <= 0) { unset %nl.specialnicks }
unset %nl.temp*
updatenickicon
}
if ($did == 34) && ($did(NicklistEdit,31,0).sel != 0) { did -d NicklistEdit 31 $did(NicklistEdit,31).sel }
if ($did == 35) { did -r NicklistEdit 31 }
if ($did == 11) { unset %nl.temp* | dialog -x NicklistEdit }
}
}
;*******************************************************************
;******************* End Custom Nicklist By l0n3R ******************
;*******************************************************************