alias rebar { dll $shortfn($scriptdir\dll\rebar.dll) $$1- }
alias mdxdll return $shortfn($scriptdir\dll\mdx.dll)
alias bars return $shortfn($scriptdir\dll\bars.mdx)
alias _dialog return $shortfn($scriptdir\dll\dialog.mdx)
alias _views return $shortfn($scriptdir\dll\views.mdx)
alias _mdx dll $shortfn($scriptdir\dll\mdx.dll) $1-
alias _mdxinit dll $shortfn($scriptdir\dll\mdx.dll) SetMircVersion $version | dll $shortfn($scriptdir\dll\mdx.dll) MarkDialog $dname
alias nicklust { dll $+(",$scriptdir\dll\nicklust.dll,") $1- }
alias renklikutu { return $+(",$scriptdir\dll\colorcombo.dll,")
}
menu channel,status,nicklist,menubar {
-
NickList Preferences
.Preferences General:nicklist
.Colours Preferences:dialog -m rgb2 rgb2 | acinca2
.-
.Unload :/unload -rs $shortfn($script)
}
alias nicklist { if ($dialog(nicklist)) { dialog -x nicklist } | dialog -ma nicklist nicklist | echo -a 0,1Warning Dialog: 12Now Menu of NickList 1Preferences General 12is Opened. }
dialog nicklist {
title " NickList Preferences v2.0 "
size -1 -1 188 185
option dbu
icon $scriptdir\icon\simge.ico
box "",19, 4 -1 180 34
text "", 12, 4 3 180 30
list 13, 150 9 28 32, size disable
text " NickList Preferences v2.0", 14, 8 4 90 10
text "You can only select colored nicklist or nicklist with icon only.", 15, 9 16 140 16
box "", 322, 4 33 180 130
text "Own Nick :", 329, 9 44 29 8, center
combo 330, 44 43 50 44, size drop
text "Op (@) :", 323, 9 58 29 8, center
combo 324, 44 57 50 50, size drop
text "Halfop (+h) :", 333, 9 72 33 8, center
combo 334, 44 71 50 20, size drop
text "Voice (+v) :", 325, 9 86 29 8, center
combo 326, 44 85 50 50, size drop
text "Users :", 327, 9 100 29 8, center
combo 328, 44 99 50 50, size drop
text "Ignore :", 331, 9 114 29 8, center
combo 332, 44 113 50 50, size drop
check "Use Colour NickList", 353, 25 145 65 10, flat
check "Use Icons NickList", 354, 115 145 62 10, flat
box "", 335, 100 38 2 120
text "Owner channel :", 340, 108 44 40 8
text "Super Op :", 347, 108 58 40 8
text "Operator (@) :", 336, 108 72 40 8
text "Halfop (+h) :", 339, 108 86 40 8
text "Voice (+v) :", 337, 108 100 40 8
text "Users :", 338, 108 114 40 8
combo 346, 155 43 24 70, size
combo 348, 155 57 24 70, size
combo 342, 155 71 24 70, size
combo 345, 155 85 24 70, size
combo 343, 155 99 24 70, size
combo 344, 155 113 24 70, size
button "OK", 10, 140 168 40 13, ok
button "Colours Settings", 112, 134 128 45 15
}
on *:dialog:nicklist:init:0:{
_mdxinit
renk
_mdx SetControlMDX $dname 342,343,344,345,346,348 ComboBoxEx drop > $_views
_mdx SetBorderStyle $dname 10,112 staticedge
did -i $dname 342,343,344,345,346,348 1 iconsize small
var %x = 1
while (%x <= 40) {
did -i $dname 342,343,344,345,346,348 1 seticon 0 $+($calc(%x -1),$chr(44),$scriptdir/icon/list.icl)
did -a $dname 342,343,344,345,346,348 %x
inc %x 1
_mdx SetBorderStyle $dname 12,14,15
_mdx SetControlMDX $dname 13 toolbar flat list nodivider arrows > $bars
did -i $dname 13 1 bmpsize 35 35
_mdx SetBorderStyle $dname 13
_mdx SetColor $dname 13 background $rgb(255,255,255)
did -i $dname 13 1 setimage +nhd 0 icon large $scriptdir/icon/simge.ico
did -i $dname 13 1 bwidth 200 200
did -a $dname 13 1 a
mdx SetColor $dname 12,14,15 background $rgb(255,255,255)
mdx SetColor $dname 12,14,15 textbg $rgb(255,255,255)
mdx SetColor $dname 14 text $rgb(255,0,0)
mdx SetColor $dname 14 text $rgb(0,0,255)
mdx SetFont $dname 14 17 800 Tahoma
mdx SetFont $dname 15 13 600 Tahoma
}
did -c $dname 342 $calc(%op.ico + 2)
did -c $dname 343 $calc(%voice.ico + 2)
did -c $dname 344 $calc(%normal.ico + 2)
did -c $dname 345 $calc(%halfop.ico + 2)
did -c $dname 346 $calc(%sahip.ico + 2)
did -c $dname 348 $calc(%sop.ico + 2)
;--- Nicklist colours
renk
did -c $dname 324 $calc(%rengli.324 + 2)
did -c $dname 326 $calc(%rengli.326 + 2)
did -c $dname 328 $calc(%rengli.328 + 2)
did -c $dname 330 $calc(%rengli.330 + 2)
did -c $dname 332 $calc(%rengli.332 + 2)
did -c $dname 334 $calc(%rengli.334 + 2)
if (%nkreng.aktiv) { did -c $dname 353 | did -b $dname 342,336,343,337,344,338,345,339,346,347,348,340,112 }
if (%icon.nl) { did -c $dname 354 | did -b $dname 324,326,328,330,332,323,325,327,329,331,333,334 }
}
on *:dialog:nicklist:sclick:11:
on *:dialog:nicklist:sclick:112:rgb2 | echo -a 0,1Warning Dialog: 12Now Menu of 1Colours Preferences 12is Opened, 4Menu of NickList 1Preferences General 4is Closed.
}
on *:dialog:nicklist:sclick:*:{
if ($did == 354) { if ($did(354).state == 1) {
set %icon.nl on
.disable #renkli
.unset %nkreng.aktiv
did -u $dname 353
did -b $dname 324,326,328,330,332,323,325,327,329,331,333,334
did -e $dname 342,336,343,337,344,338,345,339,346,347,348,340,112
nick.rengsiz
}
else {
unset %icon.nl
did -e $dname 324,326,328,330,332,323,325,327,329,331,333,334
}
}
if ($did == 353) {
if ($did(353).state == 1) {
.enable #renkli | set %nkreng.aktiv on | nick.rengle
did -u $dname 354
.unset %icon.nl
did -e $dname 324,326,328,330,332,323,325,327,329,331,333,334
did -b $dname 342,336,343,337,344,338,345,339,346,347,348,340,112
}
else {
unset %nkreng.aktiv
.disable #renkli
nick.rengsiz
did -e $dname 342,336,343,337,344,338,345,339,346,347,348,340,112
}
}
if ($did isnum 324-334) { set %rengli. $+ $did $calc($did($dname,$did).sel - 2) | nick.rengle }
if ($did == 342) { echo -a set %op.ico $calc($did(342).sel - 2) }
if ($did == 343) { echo -a set %voice.ico $calc($did(343).sel - 2) }
if ($did == 344) { echo -a set %normal.ico $calc($did(344).sel - 2) }
if ($did == 345) { echo -a set %halfop.ico $calc($did(345).sel - 2) }
if ($did == 346) { echo -a set %sahip.ico $calc($did(346).sel - 2) }
if ($did == 348) { echo -a set %sop.ico $calc($did(348).sel - 2) }
}
alias -l renk { var %x = dll $renklikutu COMBO $dname | %x 324 | %x 326 | %x 328 | %x 330 | %x 332 | %x 334 }
#renkli off
on *:nick:{
var %rbg = $comchan($newnick,0)
var %rbg2 = 1
while (%rbg < %rbg2) {
if ($nick = $me) && $comchan($newnick,%rbg2) { cline %rengli.330 $comchan($newnick,%rbg2) $newnick | nick.rengle }
elseif ($newnick isop $comchan($newnick,%rbg2)) { cline %rengli.324 $comchan($newnick,%rbg2) $newnick | nick.rengle }
elseif ($newnick isvo $comchan($newnick,%rbg2)) { cline %rengli.326 $comchan($newnick,%rbg2) $newnick | nick.rengle }
elseif ($newnick ishelp $comchan($newnick,%rbg2)) { cline %rengli.334 $comchan($newnick,%rbg2) $newnick | nick.rengle }
elseif ($address($newnick,5) isignore) { cline %rengli.332 $comchan($newnick,%rbg2) $newnick | nick.rengle }
elseif $comchan($newnick,%rbg2) { cline %rengli.22 $comchan($newnick,%rbg2) $newnick | nick.rengle }
else { break }
inc %rbg2
}
}
on *:op:#:{ if ($opnick != $me) { cline %rengli.324 $chan $opnick | nick.rengle } }
on *:deop:#:{ if ($opnick != $me) { cline %rengli.328 $chan $opnick | nick.rengle } }
on *:voice:#:{ if ($vnick != $me) { cline %rengli.326 $chan $vnick } | nick.rengle }
on *:devoice:#:{ if ($vnick != $me) { cline %rengli.328 $chan $vnick | nick.rengle } }
on *:help:#:{ if ($hnick != $me) { cline %rengli.334 $chan $hnick | nick.rengle } }
on *:dehelp:#:{ if ($hnick != $me) { cline %rengli.334 $chan $hnick | nick.rengle } }
on *:join:#:{
set %rbg.c $chan
if $nick = $me { .enable #renklenen | nick.rengle }
else { cline %rengli.328 $chan $nick | nick.rengle }
}
#renkli end
#renklenen off
raw 366:*:{
var %tot = $nick(%rbg.c,0)
var %cont = 1
while (%cont <= %tot) {
if ($nick(%rbg.c,%cont) = $me) { cline %rengli.330 %rbg.c $me }
elseif ($nick(%rbg.c,%cont) isop %rbg.c) { cline %rengli.324 %rbg.c $nick(%rbg.c,%cont) }
elseif ($nick(%rbg.c,%cont) isvo %rbg.c) { cline %rengli.326 %rbg.c $nick(%rbg.c,%cont) }
elseif ($nick(%rbg.c,%cont) ishelp %rbg.c) { cline %rengli.334 %rbg.c $nick(%rbg.c,%cont) }
else { cline %rengli.328 %rbg.c $nick(%rbg.c,%cont) }
inc %cont
}
.disable #renklenen | unset %rbg.c
}
#renkleken end
alias nick.rengle {
var %rbg = $chan(0)
%rbg2 = 1
while %rbg2 <= %rbg {
var %rbg3 = $nick($chan(%rbg2),0)
var %rbg6 = $chan(%rbg2)
var %rbg4 = 1
while %rbg4 <= %rbg3 {
if $1 = -r { cline $color(listbox text) %rgb6 $nick(%rbg6,%rbg4) }
else {
if $nick(%rbg6,%rbg4) = $me { cline %rengli.330 %rbg6 $nick(%rbg6,%rbg4) }
elseif $nick(%rbg6,%rbg4) isop %rbg6 { cline %rengli.324 %rbg6 $nick(%rbg6,%rbg4) }
elseif $nick(%rbg6,%rbg4) isvo %rbg6 { cline %rengli.326 %rbg6 $nick(%rbg6,%rbg4) }
elseif $nick(%rbg6,%rbg4) ishelp %rbg6 { cline %rengli.334 %rbg6 $nick(%rbg6,%rbg4) }
elseif $address($nick(%rbg6,%rbg4),5) isignore { cline %rengli.332 %rbg6 $nick(%rbg6,%rbg4) }
elseif $nick(%rbg6,%rbg4) isreg %rbg6 { cline %rengli.328 %rbg6 $nick(%rbg6,%rbg4) }
}
inc %rbg4
}
inc %rbg2
}
}
alias nick.rengsiz {
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
}
}
on 1:load:{
echo -a 0,4« NickList Preferences v2.0 » 11,12 NickList Preferences mIRC Loaded.
}
on 1:unload:{
echo -a 0,4« NickList Preferences v2.0 » 11,12 NickList Preferences mIRC Unloaded.
}
on *:join:#:{
if ($nick == $me) && (%icon.nl != $null) { who # | nlust.chan $chan }
}
alias nlust.chan {
if ($nick == $me) {
nicklust Mark $window(#).hwnd nLUST_CallBack rowselect tooltips balloontips hideempty hottrack dlgframe clientedge
nicklust AddIcon # > echo -a %op.ico $+ ,nicklist\icon\list.icl
nicklust AddIcon # > echo -a %voice.ico $+ ,nicklist\icon\list.icl
nicklust AddIcon # > echo -a %normal.ico $+ ,nicklist\icon\list.icl
nicklust AddIcon # > echo -a %halfop.ico $+ ,nicklist\icon\list.icl
nicklust AddIcon # > echo -a %op.ico $+ ,nicklist\icon\list.icl
nicklust AddIcon # > echo -a %sop.ico $+ ,nicklist\icon\list.icl
nicklust AddIcon # > echo -a %sahip.ico $+ ,nicklist\icon\list.icl
nicklust SetGroupText # 1 > User's
nicklust AddGroup # 10 + 2 > Voice's (+v)
nicklust AddGroup # 11 @ 1 > Op's (@)
nicklust AddGroup # 12 % 4 > Halfop's (+h)
nicklust AddGroup # 13 - 5 > Op's (@)
nicklust AddGroup # 14 & 6 > Sop's
nicklust AddGroup # 15 . 7 > Owner
nicklust SetGroupView # 1 normal
nicklust SetGroupView # 10 normal
nicklust SetGroupView # 11 normal
nicklust SetGroupView # 12 normal
nicklust SetGroupView # 13 normal
nicklust SetGroupView # 14 normal
nicklust SetGroupView # 15 normal
nicklust SetGroupIcon # 1 3
nicklust SetGroupPos # 15 start
nicklust SetGroupPos # 14 end
nicklust SetGroupPos # 13 end
nicklust SetGroupPos # 11 end
nicklust SetGroupPos # 12 end
nicklust SetGroupPos # 10 end
nicklust SetGroupPos # 1 end
nicklust SetHotCursor # > $scriptdir\icon\red.cur
nicklust SetHeaderFontStyle # bold
theme_nlist #
}
}
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)) $+ $crlf $+ Idle: $duration($nick($2,$nick($2,$3)).idle) $+ $crlf $+ Notify: $iif($notify($3),Yes,No) $+ $crlf $+ Adrress: $iif($address($3,1),$ifmatch,Unknown) $+ $crlf $+ Channel: $_comchans($3,32))
}
}
alias nlist_pnick {
if ($1 = @) { return Kanal Operatörü }
elseif ($1 = .) { return Owner channel }
elseif ($1 = &) { return Super Op (Sop) }
elseif ($1 = +) { return Voice }
elseif ($1 = %) { return Halfop }
elseif ($1 = -) { return Operator }
elseif ($1 = $null) { return Users }
}
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)
}
if (($1 == nickAdding) && ($notify($3))) return 11
if ($1 == nickadded) {
if ($3 == $me) return 2 $rgb(255,0,255) > $me $crlf $+ This is you
}
alias theme_nlist {
nicklust SetColor $1 bkg %rgbcode
nicklust SetColor $1 text %rgbcode2
nicklust SetColor $1 hottext %rgbcode9
nicklust SetColor $1 tipbkg %rgbcode10
nicklust SetColor $1 tiptext %rgbcode11
nicklust SetColor $chan divider %rgbcode3
nicklust SetHeaderColor $chan 1 %rgbcode4
nicklust SetHeaderColor $chan 10 %rgbcode5
nicklust SetHeaderColor $chan 11 %rgbcode6
nicklust SetHeaderColor $chan 12 %rgbcode7
nicklust SetHeaderColor $chan 15 %rgbcode8
nicklust SetHeaderColor $chan 14 %rgbcode12
}
ON *:JOIN:#:{
if ($nick == $me) {
haltdef
}
}
alias Rgb2 { dialog -m rgb2 rgb2 | acinca2 | dialog -x nicklist nicklist }
dialog rgb2 {
title " Colours Settings - (Icon's Nicklist) "
size -1 -1 410 490
option pixels
icon $scriptdir/icon/renk.ico, 0
box "", 32, 5 -4 360 77
box "&Colour Box", 1, 30 75 310 143
edit "", 2, 45 95 31 20, disable
list 3, 100 96 155 20, size
list 4, 265 91 63 83, size
edit "", 5, 45 120 31 20, disable
list 6, 100 120 155 20, size
edit "", 7, 45 145 31 20, disable
list 8, 100 145 155 20, size
text "Hex Code:", 9, 47 174 62 16
edit "", 10, 45 190 100 19
text "Rgb Code:", 11, 178 175 55 16
edit "", 12, 175 190 103 19
button "Background ", 13, 15 245 110 25, ok
button "Nick text", 15, 130 245 110 25, ok
button "Group text line", 16, 245 245 110 25, ok
button "User Grup's text", 17, 245 314 110 25, ok
button "Voice Grup's text", 18, 130 315 110 25, ok
button "Sop Grup's text", 33, 130 280 110 25, ok
button "Op Grup's text", 19, 245 280 110 25, ok
button "Halfop Grup's text", 20, 15 315 110 25, ok
button "Owner channel text", 21, 15 280 110 25, ok
button "Hot text", 22, 15 350 110 25, ok
button "Ýnfo background", 23, 130 350 110 25, ok
button "Ýnfo text", 24, 245 350 110 25, ok
button "Nicklist Preferences", 25, 6 399 120 30, ok
box "&Colours Settings", 14, 4 222 358 165
text "", 26, 5 2 360 68
list 27, 305 14 53 40, disable
text " Colours Settings - (Icon's Nicklist) ", 28, 5 7 255 20
text " To change the settings of colour, first select the colours from box of colour, then press the position which you want to change.", 29, 5 27 285 40
button "Close", 30, 263 396 100 30, ok
}
on *:dialog:rgb2:init:*:{
mdxini
mdx SetMircVersion $version
mdx MarkDialog $dname
mdx SetColor $dname 4 background %rgbcode
mdx SetColor $dname 2 background $rgb(255,0,0)
mdx SetColor $dname 5 background $rgb(0,255,0)
mdx SetColor $dname 7 background $rgb(0,0,255)
mdx SetFont $dname 2,5,7,9,10,11,12 +a 12 600 Arial
mdx SetBorderStyle $dname 2,5,7,10,12 staticedge
mdx SetBorderStyle $dname 13,15,16,17,18,19,20,21,22,23,24,33 staticedge
mdx SetControlMDX $dname 3,6,8 TrackBar autoticks > $bars
mdx SetBorderStyle $dname 3,6,8 windowedge
did -i $dname 3,6,8 1 params 0 0 255 * * * * 12
did -i $dname 3,6,8 1 tickfreq 1
mdx SetBorderStyle $dname 26,28,29
mdx SetControlMDX $dname 27 toolbar flat list nodivider arrows > $bars
did -i $dname 27 1 bmpsize 35 35
mdx SetBorderStyle $dname 27
mdx SetColor $dname 27 background $rgb(255,255,255)
did -i $dname 27 1 setimage +nhd 0 icon large $scriptdir/icon/renk.ico
did -i $dname 27 1 bwidth 250 250
did -a $dname 27 1 a
mdx SetColor $dname 26,28,29 background $rgb(255,255,255)
mdx SetColor $dname 26,28,29 textbg $rgb(255,255,255)
mdx SetColor $dname 28 text $rgb(255,0,0)
mdx SetColor $dname 1,14 text $rgb(0,0,255)
mdx SetFont $dname 28,30 17 800 Tahoma
mdx SetFont $dname 1,14,25,29 13 600 Tahoma
}
on *:dialog:rgb2:sclick:3,6,8:{
mdx SetColor $dname 4 background $rgb($gettok($did(3).seltext,1,32),$gettok($did(6).seltext,1,32),$gettok($did(8).seltext,1,32))
did -ra $dname 12 $gettok($did(3).seltext,1,32) $+ , $+ $gettok($did(6).seltext,1,32) $+ , $+ $gettok($did(8).seltext,1,32)
did -ra $dname 10 $base($gettok($did(3).seltext,1,32),10,16,2) $+ $base($gettok($did(6).seltext,1,32),10,16,2) $+ $base($gettok($did(8).seltext,1,32),10,16,2)
}
alias mdx_fullpath { return $+(",$scriptdir\dll\mdx.dll,") }
alias mdx { dll $mdx_fullpath $1- }
alias mdxini {
dll $mdx_fullpath SetMircVersion $version
dll $mdx_fullpath MarkDialog $dname
}
on *:dialog:rgb2:sclick:13:{
set %rgbcode $rgb( $gettok($did(3).seltext,1,32) $+ , $+ $gettok($did(6).seltext,1,32) $+ , $+ $gettok($did(8).seltext,1,32) )
alias theme_nlist | /hop $active #
}
on *:dialog:rgb2:sclick:15:{
set %rgbcode2 $rgb( $gettok($did(3).seltext,1,32) $+ , $+ $gettok($did(6).seltext,1,32) $+ , $+ $gettok($did(8).seltext,1,32) )
alias theme_nlist | /hop $active #
}
on *:dialog:rgb2:sclick:16:{
set %rgbcode3 $rgb( $gettok($did(3).seltext,1,32) $+ , $+ $gettok($did(6).seltext,1,32) $+ , $+ $gettok($did(8).seltext,1,32) )
alias theme_nlist | /hop $active #
}
on *:dialog:rgb2:sclick:17:{
set %rgbcode4 $rgb( $gettok($did(3).seltext,1,32) $+ , $+ $gettok($did(6).seltext,1,32) $+ , $+ $gettok($did(8).seltext,1,32) )
alias theme_nlist | /hop $active #
}
on *:dialog:rgb2:sclick:18:{
set %rgbcode5 $rgb( $gettok($did(3).seltext,1,32) $+ , $+ $gettok($did(6).seltext,1,32) $+ , $+ $gettok($did(8).seltext,1,32) )
alias theme_nlist | /hop $active #
}
on *:dialog:rgb2:sclick:19:{
set %rgbcode6 $rgb( $gettok($did(3).seltext,1,32) $+ , $+ $gettok($did(6).seltext,1,32) $+ , $+ $gettok($did(8).seltext,1,32) )
alias theme_nlist | /hop $active #
}
on *:dialog:rgb2:sclick:20:{
set %rgbcode7 $rgb( $gettok($did(3).seltext,1,32) $+ , $+ $gettok($did(6).seltext,1,32) $+ , $+ $gettok($did(8).seltext,1,32) )
alias theme_nlist | /hop $active #
}
on *:dialog:rgb2:sclick:21:{
set %rgbcode8 $rgb( $gettok($did(3).seltext,1,32) $+ , $+ $gettok($did(6).seltext,1,32) $+ , $+ $gettok($did(8).seltext,1,32) )
alias theme_nlist | /hop $active #
}
on *:dialog:rgb2:sclick:22:{
set %rgbcode9 $rgb( $gettok($did(3).seltext,1,32) $+ , $+ $gettok($did(6).seltext,1,32) $+ , $+ $gettok($did(8).seltext,1,32) )
alias theme_nlist | /hop $active #
}
on *:dialog:rgb2:sclick:23:{
set %rgbcode10 $rgb( $gettok($did(3).seltext,1,32) $+ , $+ $gettok($did(6).seltext,1,32) $+ , $+ $gettok($did(8).seltext,1,32) )
alias theme_nlist | /hop $active #
}
on *:dialog:rgb2:sclick:24:{
set %rgbcode11 $rgb( $gettok($did(3).seltext,1,32) $+ , $+ $gettok($did(6).seltext,1,32) $+ , $+ $gettok($did(8).seltext,1,32) )
alias theme_nlist | /hop $active #
}
on *:dialog:rgb2:sclick:33:{
set %rgbcode12 $rgb( $gettok($did(3).seltext,1,32) $+ , $+ $gettok($did(6).seltext,1,32) $+ , $+ $gettok($did(8).seltext,1,32) )
alias theme_nlist | /hop $active #
}
on *:dialog:rgb2:sclick:25:/dialog -m nicklist nicklist | dialog -x rgb2 rgb2 | echo -a 0,1Warning Dialog: 12Now Menu of NickList 1Preferences General 12is Opened, 4Menu of 1Colours Preferences 12is Closed.
on *:dialog:rgb2:sclick:31:/run http://www.mirc.com.tr
alias acinca2 {
var %i = 10
while (%i < 264) {
dialog -s rgb2 %i $calc(%i - 110) 370 440
inc %i
}
dialog -v rgb2
}
