home *** CD-ROM | disk | FTP | other *** search
/ napalm.napnet.hu / 2015-02-12.napalm.napnet.hu.tar / napalm.napnet.hu / programok / kommunikacio / mpp700.exe / afnicklist.mrc < prev    next >
Text File  |  2003-06-11  |  41KB  |  1,059 lines
  1. ;-------------------------------------------------------
  2. ;
  3. ;            ⌐ ArcticFire Platinum Addons ⌐        
  4. ;    All Rights Reserved, All copyright acknowledged.
  5. ;                                                 
  6. ;      If you would like to use this addons in your 
  7. ;         script, all I ask for is FULL credit. 
  8. ;
  9. ;   With all of that out of the way, enjoy the addon!
  10. ;
  11. ;-------------------------------------------------------
  12.  
  13. on *:LOAD: { 
  14.   if ($version <= 6.0) {
  15.     echo -a 6Sorry, but this addon only works for 7mIRC 6.06 and 7above6!
  16.     echo -a 6Goto 13www.ArcticFire.cjb.net 6to get an update!
  17.     unload -rs afnicklist.mrc | halt
  18.   }
  19.   else {
  20.     echo -a 6Addon successfully loaded!
  21.     echo -a 6For more addons, goto 12www.ArcticFire.cjb.net
  22.     echo -a 6Enjoy the addon! :)
  23.     set %nlust on | set %nlistsize 120 | set %nlistheader true | set %nlusttooltiptext 0,0,0 | set %nlusttooltipbkg 0,255,255 | set %nlustop 0,0,255 | set %nlusthop 255,180,255 | set %nlustvoice 255,140,0 | set %nlustnormal 0,0,0 | set %nlustme 0,200,0 | set %nlustbkg 0,245,255 | set %ncols balloon nosortheader autoarrange underlinehot | set %nlusttooltips address ustatus comchans idle | if ($server != $null) { mmhop }
  24.   }
  25. }
  26. on *:UNLOAD: {
  27.   if ($version <= 6.0) {
  28.     halt 
  29.   }
  30.   else {
  31.     echo -a 6Addon has been successfully 7uninstalled6.
  32.     echo -a 6For more addons, goto 12www.ArcticFire.cjb.net
  33.     echo -a 6Thank You for using 13AF's Nicklist Customizer6!
  34.     unset %nlust | unset %nlistsize | unset %nlistheader | unset %nlusttooltiptext | unset %nlusttooltipbkg | unset %nlustop | unset %nlusthop | unset %nlustvoice | unset %nlustnormal | unset %nlustme | unset %nlustbkg | unset %ncols | unset %nlusttooltips | unset %nlisticonop | unset %nlisticonhop | unset %nlisticonvoice | unset %nlisticonreg | unset %nlustrgb1.val | unset %nlustrgb2.val | unset %nlustrgb3.val | unset %nlustrgb4.val | unset %nlustrgbp.val | unset %nlustrgb6.val | unset %nlustrgb7.val | unset %nlustrgb8.val | unset %nlustrgb9.val
  35.   }
  36. }
  37.  
  38. on me:*:join:#:{ ncols # }
  39.  
  40. alias mmhop {
  41.   if ( $chan($prop) ) return $+($,mmhop,$chr(40),$1,$chr(9),$chan($prop),$chr(44),$2,$chr(9),$chan($prop).key,$chr(41),.,$calc($prop +1))
  42.   elseif ( $prop ) return JOIN $replace($1 $2,$chr(9),$chr(44))
  43.   else scid -a mhop
  44. }
  45. alias mhop $eval($mmhop(0,$chr(9)).1,$calc($chan(0)+1))
  46.  
  47. alias join {
  48.   var %tot = $numtok($$1,44), %ctr = 0
  49.   while (%tot > %ctr) {
  50.     inc %ctr
  51.     writeini -n " $+ $mircdir $+ mirc.ini $+ " nicklist $gettok($1,%ctr,44) $+($iif($2 == left,left,$iif($2 == right,right,right)),$chr(44),$iif($3 isnum,$3,%nlistsize))
  52.     .raw JOIN $gettok($$1,%ctr,44)
  53.   }
  54. }
  55.  
  56. alias nlustdll { return " $+ $scriptdir $+ nickLUST.dll" $1- }
  57. alias nlust { dialog -m nlust nlust }
  58.  
  59. dialog nlust {
  60.   title "╗ Nicklist Customizer"
  61.   size -1 -1 126 221
  62.   option dbu
  63.   button "", 50, -50 -50 5 5
  64.   box "", 1, 4 1 118 17
  65.   radio "Use Original Nicklist", 2, 9 6 56 10, group flat
  66.   radio "Use .DLL Nicklist", 3, 69 6 48 10, flat
  67.   box " Colours: ", 4, 4 21 49 87
  68.   icon 5, 9 30 9 8, $scriptdircolors\nlustpreview1b.bmp, 0
  69.   text "Operator", 6, 23 30 23 8
  70.   icon 7, 9 43 9 8, $scriptdircolors\nlustpreview2b.bmp, 0
  71.   text "Half-OP", 8, 23 43 23 8
  72.   icon 9, 9 56 9 8, $scriptdircolors\nlustpreview3b.bmp, 0
  73.   text "Voiced", 10, 23 56 23 8
  74.   icon 11, 9 69 9 8, $scriptdircolors\nlustpreview7b.bmp, 0
  75.   text "Regular", 12, 23 69 23 8
  76.   icon 13, 9 82 9 8, $scriptdircolors\nlustpreview8b.bmp, 0
  77.   text "Yourself", 14, 23 82 23 8
  78.   icon 15, 9 95 9 8, $scriptdircolors\nlustpreview6b.bmp, 0
  79.   text "Background", 16, 22 95 29 8
  80.   box " List Options: ", 17, 4 110 118 93
  81.   check " Auto arrange icons when nicklist is resized", 18, 8 117 112 10
  82.   check " Select nicknames by hovering over them", 19, 8 126 107 10
  83.   check " Seperate each nickname in a grid", 20, 8 135 90 10
  84.   check " Underline selected nickname", 21, 8 144 78 10
  85.   check " Scrollbars are flat", 22, 8 153 53 10
  86.   check " Header does not act like a button", 23, 8 162 91 10
  87.   check " Balloon style tooltips", 24, 8 171 60 10
  88.   check " Do not use icons", 25, 8 180 50 10
  89.   text "Display channel header?", 26, 8 191 60 8
  90.   radio "Yes", 27, 70 190 20 10, group
  91.   radio "No", 28, 92 190 20 10
  92.   box " Tooltip: ", 29, 57 21 65 64
  93.   text "Background", 30, 68 75 29 8
  94.   check "Show Nickname", 31, 61 28 46 10, disable
  95.   icon 32, 54 76 19 5, $scriptdircolors\nlustpreview9b.bmp, 0
  96.   check "Show Address", 33, 61 37 43 10
  97.   box " Miscellaneous: ", 34, 57 86 65 22
  98.   check "Show Channel Idle", 35, 61 46 53 10
  99.   check "Show User Status", 36, 61 55 51 10
  100.   check "Show Common Chan", 37, 61 64 58 10
  101.   button "Close", 38, 29 206 30 12, ok
  102.   button " About", 39, 64 206 30 12
  103.   button "Nicklist Width", 40, 60 94 38 11
  104.   button "Icons", 41, 100 94 19 11
  105.   text "Text", 42, 108 75 12 8
  106.   icon 43, 94 76 19 5, $scriptdircolors\nlustpreviewpb.bmp, 0
  107. }
  108.  
  109. on *:dialog:nlust:*:*:{
  110.   if ($devent == close) { .timernlist off }
  111.   if ($devent == init) {
  112.     .timernlist 0 2 updatenicklist
  113.     did -c nlust 31
  114.     if (%nlust == off) { did -c nlust 2 | did -b nlust 18,19,20,21,22,23,24,25,26,27,28,30,32,33,35,36,37,41,42,43 }
  115.     if (%nlust == on) { did -c nlust 3 }
  116.     if (autoarrange isin %ncols) { did -c nlust 18 }
  117.     if (hottrack isin %ncols) { did -c nlust 19 }
  118.     if (grid isin %ncols) { did -c nlust 20 }
  119.     if (underlinehot isin %ncols) { did -c nlust 21 }
  120.     if (flatsb isin %ncols) { did -c nlust 22 }
  121.     if (nosortheader isin %ncols) { did -c nlust 23 }
  122.     if (balloon isin %ncols) { did -c nlust 24 }
  123.     if (noicon isin %ncols) { did -c nlust 25 }
  124.     if (%nlistheader == true) { did -c nlust 27 }
  125.     elseif (%nlistheader == false) { did -c nlust 28 }
  126.     if (address isin %nlusttooltips) { did -c nlust 33 }
  127.     if (idle isin %nlusttooltips) { did -c nlust 35 }
  128.     if (ustatus isin %nlusttooltips) { did -c nlust 36 }
  129.     if (comchans isin %nlusttooltips) { did -c nlust 37 }
  130.   }
  131.   if ($devent == sclick) {
  132.     if ($did == 2) { set %nlust off | did -b nlust 18,19,20,21,22,23,24,25,26,27,28,30,32,33,35,36,37,41,42,43 }
  133.     if ($did == 3) { set %nlust on | did -e nlust 18,19,20,21,22,23,24,25,26,27,28,30,32,33,35,36,37,41,42,43 }
  134.     if ($did == 5) { nlustrgb1 }
  135.     if ($did == 7) { nlustrgb2 }
  136.     if ($did == 9) { nlustrgb3 }
  137.     if ($did == 11) { nlustrgb7 }
  138.     if ($did == 13) { nlustrgb8 }
  139.     if ($did == 15) { nlustrgb6 }
  140.     if ($did == 18) || ($did == 19) || ($did == 20) || ($did == 21) || ($did == 22) || ($did == 23) || ($did == 24) || ($did == 25) {
  141.       var %x = $replace($did,18,autoarrange,19,hottrack,20,grid,21,underlinehot,22,flatsb,23,nosortheader,24,balloon,25,noicon)
  142.       set %ncols $iif($did($did).state,$addtok(%ncols,%x,32),$remtok(%ncols,%x,32))
  143.     }
  144.     if ($did == 27) { set %nlistheader true }
  145.     if ($did == 28) { set %nlistheader false }
  146.     if ($did == 33) || ($did == 35) || ($did == 36) || ($did == 37) {
  147.       var %y = $replace($did,33,address,35,idle,36,ustatus,37,comchans)
  148.       set %nlusttooltips $iif($did($did).state,$addtok(%nlusttooltips,%y,32),$remtok(%nlusttooltips,%y,32))
  149.     }
  150.     if ($did == 32) { nlustrgb9 }
  151.     if ($did == 39) { dialog -mo afnicklistabout afnicklistabout }
  152.     if ($did == 40) { dialog -m nlistsize nlistsize }
  153.     if ($did == 41) { dialog -m nlisticons nlisticons }
  154.     if ($did == 43) { nlustrgbp }
  155.   }
  156. }
  157.  
  158. alias ncols {
  159.   if (%nlust == on) {
  160.     dll $nlustdll Mark $1 > nlust2 %ncols
  161.     dll $nlustdll ShowHeader # %nlistheader
  162.     dll $nlustdll SetHeaderText # > #
  163.     dll $nlustdll SetTipTitle # 1 > User Info
  164.     dll $nlustdll SetTipColor $1 bkg $rgb( [ %nlusttooltipbkg ] )
  165.     dll $nlustdll SetTipColor $1 text $rgb( [ %nlusttooltiptext ] )
  166.     dll $nlustdll SetIcon $1 op > $shortfn(%nlisticonop)
  167.     dll $nlustdll SetIcon $1 halfop > $shortfn(%nlisticonhop)
  168.     dll $nlustdll SetIcon $1 voice > $shortfn(%nlisticonvoice)
  169.     dll $nlustdll SetIcon $1 normal > $shortfn(%nlisticonreg)
  170.     dll $nlustdll SetColor $1 op $rgb( [ %nlustop ] )
  171.     dll $nlustdll SetColor $1 halfop $rgb( [ %nlusthop ] )
  172.     dll $nlustdll SetColor $1 normal $rgb( [ %nlustnormal ] )
  173.     dll $nlustdll SetColor $1 voice $rgb( [ %nlustvoice ] )
  174.     dll $nlustdll SetColor $1 bkg $rgb( [ %nlustbkg ] )
  175.   }
  176.   else {
  177.     dll $nlustdll Mark $1 > nlust2 noicon noheader autoarrange
  178.     dll $nlustdll SetColor $1 op $rgb( [ %nlustop ] )
  179.     dll $nlustdll SetColor $1 halfop $rgb( [ %nlusthop ] )
  180.     dll $nlustdll SetColor $1 normal $rgb( [ %nlustnormal ] )
  181.     dll $nlustdll SetColor $1 voice $rgb( [ %nlustvoice ] )
  182.     dll $nlustdll SetColor $1 bkg $rgb( [ %nlustbkg ] )
  183.   }
  184. }
  185.  
  186. alias updatenicklist {
  187.   var %xa = 0
  188.   :nicks
  189.   while (%xa <= $chan(0)) {
  190.     ncols $chan(%xa)
  191.     inc %xa
  192.     goto nicks
  193.   }
  194. }
  195.  
  196. alias userstatus {
  197.   if ($1 isop $2) return Operator
  198.   elseif ($1 ishop $2) return Half Operator
  199.   elseif ($1 isvoice $2) return Voice
  200.   elseif ($1 isban $2) return Banned
  201.   else return Normal
  202. }
  203.  
  204. alias nlust2 {
  205.   if ($1 == color) {
  206.     if ($3 == $me) return $rgb( [ %nlustme ] )
  207.   }
  208.   if ($1 == tooltip) {
  209.     if ($3 == sgt-haxed) return Yup, this is you alright :)
  210.     else {
  211.       var %a $3, %b $duration($nick($2,$3).idle)), %c $address($3,0), %d $iif($comchan($3,0) > 0,$comchan($3,0),None), %e $userstatus($3,$active)
  212.       return Nickname: %a $+ $iif(%c && address isin %nlusttooltips, $crlf $+ Address: %c) $+ $iif(idle isin %nlusttooltips,$crlf $+ Channel Idle: %b) $+ $iif(ustatus isin %nlusttooltips,$crlf $+ User Status: %e) $+ $iif(comchans isin %nlusttooltips,$crlf $+ Common Channels: %d)
  213.     }
  214.   }  
  215. }
  216.  
  217. dialog nlistsize {
  218.   title "╗ Nicklist Width"
  219.   size -1 -1 142 75
  220.   option dbu
  221.   button "", 15, -50 -50 5 5, ok
  222.   box " Information: ", 1, 3 1 136 30
  223.   text "To set the default nicklist width, you must enter into a channel, manually size the nicklist to your satisfaction, and push the 'Set Width' button below.", 2, 6 8 130 21, center
  224.   text "Active Channel:", 3, 6 38 39 8
  225.   edit "", 4, 45 37 40 10, read autohs
  226.   text "Channel Nicklist Width:", 5, 6 49 56 8
  227.   edit "", 6, 62 48 23 10, read autohs
  228.   box "", 7, 3 31 85 41
  229.   text "Current Nicklist Width:", 8, 6 60 55 8
  230.   edit "", 9, 61 59 24 10, read autohs
  231.   box "", 10, 91 31 48 41
  232.   button "Refresh", 11, 95 37 40 9
  233.   button "Set Width", 12, 95 48 40 10
  234.   button "Close", 13, 95 60 40 9
  235. }
  236.  
  237. on *:dialog:nlistsize:*:*:{ 
  238.   if ($devent == close) { unset %nlistcurrentchan | unset %nlistchannelsize }
  239.   if ($devent == init) {
  240.     set %nlistcurrentchan $active
  241.     set %nlistchannelsize $gettok($gettok($readini($mircini,nicklist,$active),2,44) $gettok($readini($mircini,options,n4),29,44),1,32)
  242.     did -a nlistsize 4 %nlistcurrentchan
  243.     did -a nlistsize 6 %nlistchannelsize
  244.     did -a nlistsize 9 %nlistsize
  245.   }
  246.   if ($devent == sclick) {
  247.     if ($did == 11) { dialog -x nlistsize | dialog -m nlistsize nlistsize }
  248.     if ($did == 12) { set %nlistsize %nlistchannelsize | dialog -x nlistsize | dialog -m nlistsize nlistsize }
  249.     if ($did == 13) { dialog -x nlistsize | unset %nlistcurrentchan | unset %nlistchannelsize }
  250.   }
  251. }
  252.  
  253. dialog nlisticons {
  254.   title "╗ Icons"
  255.   size -1 -1 142 136
  256.   option dbu
  257.   button "", 20, -50 -50 5 5
  258.   box " Operator: ", 1, 4 1 134 28
  259.   icon 2, 9 9 15 15, $shortfn($scriptdiricons\op.ico), 0
  260.   edit %nlisticonop, 3, 28 12 73 11, read autohs
  261.   button "Change", 4, 104 12 30 11
  262.   box " Half-OP: ", 5, 4 30 134 28
  263.   icon 6, 9 38 15 15, $shortfn($scriptdiricons\hop.ico), 0
  264.   edit %nlisticonhop, 7, 28 41 73 11, read autohs
  265.   button "Change", 8, 104 41 30 11
  266.   box " Voiced: ", 9, 4 59 134 28
  267.   icon 10, 9 67 15 15, $shortfn($scriptdiricons\voice.ico), 0
  268.   edit %nlisticonvoice, 11, 28 70 73 11, read autohs
  269.   button "Change", 12, 104 70 30 11
  270.   box " Regular: ", 13, 4 88 134 28
  271.   icon 14, 9 96 15 15, $shortfn($scriptdiricons\reg.ico), 0
  272.   edit %nlisticonreg, 15, 28 99 73 11, read autohs
  273.   button "Change", 16, 104 99 30 11
  274.   button "Use Default Icons", 17, 44 120 54 12
  275.   button "OK", 18, 9 120 30 12, ok
  276.   button "Cancel", 19, 103 120 30 12
  277. }
  278.  
  279. on *:dialog:nlisticons:*:*:{
  280.   if ($devent == init) {
  281.     if ($exists($shortfn(%nlisticonop)) == $true) { did -g nlisticons 2 $shortfn(%nlisticonop) }
  282.     else { set %nlisticonop $scriptdiricons\op.ico | did -ar nlisticons 3 %nlisticonop }
  283.     if ($exists($shortfn(%nlisticonhop)) == $true) { did -g nlisticons 6 $shortfn(%nlisticonhop) }
  284.     else { set %nlisticonhop $scriptdiricons\hop.ico | did -ar nlisticons 7 %nlisticonhop }
  285.     if ($exists($shortfn(%nlisticonvoice)) == $true) { did -g nlisticons 10 $shortfn(%nlisticonvoice) }
  286.     else { set %nlisticonvoice $scriptdiricons\voice.ico | did -ar nlisticons 11 %nlisticonvoice }
  287.     if ($exists($shortfn(%nlisticonreg)) == $true) { did -g nlisticons 14 $shortfn(%nlisticonreg) }
  288.     else { set %nlisticonreg $scriptdiricons\reg.ico | did -ar nlisticons 15 %nlisticonreg }
  289.   }
  290.   if ($devent == sclick) {
  291.     if ($did == 4) { set %nl.temp_operator $sfile($mircdir,Select Operator Icon...,Set) 
  292.       if ($len(%nl.temp_operator) > 0) { did -g nlisticons 2 $shortfn(%nl.temp_operator) | did -ar nlisticons 3 %nl.temp_operator } 
  293.     }
  294.     if ($did == 8) { set %nl.temp_hop $sfile($mircdir,Select Half-OP Icon...,Set)
  295.       if ($len(%nl.temp_hop) > 0) { did -g nlisticons 6 $shortfn(%nl.temp_hop) | did -ar nlisticons 7 %nl.temp_hop }
  296.     }
  297.     if ($did == 12) { set %nl.temp_voice $sfile($mircdir,Select Voice Icon...,Set)
  298.       if ($len(%nl.temp_voice) > 0) { did -g nlisticons 10 $shortfn(%nl.temp_voice) | did -ar nlisticons 11 %nl.temp_voice }
  299.     }
  300.     if ($did == 16) { set %nl.temp_regular $sfile($mircdir,Select Regular Icon...,Set)
  301.       if ($len(%nl.temp_regular) > 0) { did -g nlisticons 14 $shortfn(%nl.temp_regular) | did -ar nlisticons 15 %nl.temp_regular }
  302.     }
  303.     if ($did == 17) { set %nlisticonop $scriptdiricons\op.ico | set %nlisticonhop $scriptdiricons\hop.ico | set %nlisticonvoice $scriptdiricons\voice.ico | set %nlisticonreg $scriptdiricons\reg.ico | unset %nl.temp* | updatenicklist | dialog -x nlisticons }
  304.     if ($did == 18) {
  305.       if ($len($did(nlisticons,3).text) >= 5 && $exists($shortfn($did(nlisticons,3).text)) == $true) { set %nlisticonop $did(nlisticons,3).text }
  306.       if ($len($did(nlisticons,7).text) >= 5 && $exists($shortfn($did(nlisticons,7).text)) == $true) { set %nlisticonhop $did(nlisticons,7).text }
  307.       if ($len($did(nlisticons,11).text) >= 5 && $exists($shortfn($did(nlisticons,11).text)) == $true) { set %nlisticonvoice $did(nlisticons,11).text }
  308.       if ($len($did(nlisticons,15).text) >= 5 && $exists($shortfn($did(nlisticons,15).text)) == $true) { set %nlisticonreg $did(nlisticons,15).text }
  309.       unset %nl.temp*
  310.       updatenicklist
  311.     }
  312.     if ($did == 19) { unset %nl.temp* | dialog -x nlisticons }
  313.   }
  314. }
  315.  
  316. alias -l nlustpreview1 {
  317.   window -phn +b @nlustcolour1 -1 -1 270 25
  318.   drawfill -r @nlustcolour1 $rgb($1,$2,$3) 1 1 1
  319.   drawsave @nlustcolour1 " $+ $scriptdir $+ colors\ $+ nlustpreview1.bmp"
  320.   window -c @nlustcolour1
  321. }
  322. alias -l nlustpreview1b {
  323.   window -phn +b @nlustcolour1 -1 -1 25 25
  324.   drawfill -r @nlustcolour1 $rgb($1,$2,$3) 1 1 1
  325.   drawsave @nlustcolour1 " $+ $scriptdir $+ colors\ $+ nlustpreview1b.bmp"
  326.   window -c @nlustcolour1
  327. }
  328. alias -l nlustcolour1 {
  329.   window -phn +b @nlustcolour1 -1 -1 18 18
  330.   drawfill -r @nlustcolour1 $rgb($1,$2,$3) 1 1 1
  331.   drawsave @nlustcolour1 " $+ $scriptdir $+ colors\ $+ $+($4,.bmp) $+ "
  332.   window -c @nlustcolour1
  333. }
  334. dialog nlustrgb1 {
  335.   title "╗ Operator Colour"
  336.   size -1 -1 107 82
  337.   option dbu
  338.   icon 1, 2 34 103 9,  " $+ $scriptdir $+ colors\ $+ nlustpreview1.bmp", 0
  339.   scroll "", 3, 10 3 96 8, range 0 255 horizontal
  340.   scroll "", 4, 10 13 96 8, range 0 255 horizontal
  341.   scroll "", 5, 10 23 96 8, range 0 255 horizontal
  342.   icon 6, 2 4 6 6, $scriptdircolors\nlustr1.bmp, 0
  343.   icon 7, 2 14 6 6, $scriptdircolors\nlustg1.bmp, 0
  344.   icon 8, 2 24 6 6, $scriptdircolors\nlustb1.bmp, 0
  345.   text "RGB", 10, 10 48 16 8
  346.   text "HEX", 11, 10 56 16 8
  347.   button "Close", 12, 78 70 28 11, ok
  348.   text "", 13, 31 48 32 8
  349.   text "", 14, 31 56 32 8
  350.   box "", 15, 2 42 104 25
  351.   button "Copy HEX", 16, 37 70 34 11
  352.   button "Copy RGB", 17, 2 70 33 11
  353. }
  354. on *:dialog:nlustrgb1:*:*:{
  355.   if ($devent == close) { dialog -x nlust | nlust }
  356.   if ($devent == init) {
  357.     did -a $dname 13 0,0,0
  358.     did -a $dname 14 #0
  359.   }
  360.   if ($devent == scroll) {
  361.     %nlustrgb1.val = $did(3).sel $did(4).sel $did(5).sel
  362.     %nlustop = $did(3).sel $+ , $+ $did(4).sel $+ , $+ $did(5).sel
  363.     nlustpreview1 %nlustrgb1.val
  364.     nlustpreview1b %nlustrgb1.val
  365.     did -g $dname 1 " $+ $scriptdir $+ colors\ $+ nlustpreview1.bmp"
  366.     did -ra $dname 13 $replace(%nlustrgb1.val,$chr(32),$chr(44))
  367.     did -ra $dname 14 $chr(35) $+ $base($rgb($token(%nlustrgb1.val,1,32),$token(%nlustrgb1.val,2,32),$token(%nlustrgb1.val,3,32)),10,16)
  368.     nlustcolour1 $did($did).sel 0 0 nlustr1
  369.     nlustcolour1 0 $did($did).sel 0 nlustg1
  370.     nlustcolour1 0 0 $did($did).sel nlustb1
  371.     did -g $dname $calc(3+ $did) " $+ $scriptdir $+ colors\ $+ $+($replace($did,3,nlustr1,4,nlustg1,5,nlustb1),.bmp) $+ "  
  372.   }
  373.   if ($devent == sclick) {
  374.     if ($did isnum 16-17) {
  375.       %nlustrgb1.c = $iif($did == 16,~)
  376.       if (%nlustrgb1.c) {
  377.         clipboard $did(14)
  378.       }
  379.       else {
  380.         clipboard $did(13)
  381.       }
  382.     }
  383.   }
  384. }
  385. alias nlustrgb1 {
  386.   nlustpreview1 0 0 0
  387.   %nlustrgb1.count = 1
  388.   while ($token(nlustr1.nlustg1.nlustb1,%nlustrgb1.count,46)) {
  389.     nlustcolour1 0 0 0 $ifmatch
  390.     inc %nlustrgb1.count
  391.   }
  392.   unset %nlustrgb1.*
  393.   dialog -mo nlustrgb1 nlustrgb1
  394. }
  395.  
  396. alias -l nlustpreview2 {
  397.   window -phn +b @nlustcolour2 -1 -1 270 25
  398.   drawfill -r @nlustcolour2 $rgb($1,$2,$3) 1 1 1
  399.   drawsave @nlustcolour2 " $+ $scriptdir $+ colors\ $+ nlustpreview2.bmp"
  400.   window -c @nlustcolour2
  401. }
  402. alias -l nlustpreview2b {
  403.   window -phn +b @nlustcolour2 -1 -1 25 25
  404.   drawfill -r @nlustcolour2 $rgb($1,$2,$3) 1 1 1
  405.   drawsave @nlustcolour2 " $+ $scriptdir $+ colors\ $+ nlustpreview2b.bmp"
  406.   window -c @nlustcolour2
  407. }
  408. alias -l nlustcolour2 {
  409.   window -phn +b @nlustcolour2 -1 -1 18 18
  410.   drawfill -r @nlustcolour2 $rgb($1,$2,$3) 1 1 1
  411.   drawsave @nlustcolour2 " $+ $scriptdir $+ colors\ $+ $+($4,.bmp) $+ "
  412.   window -c @nlustcolour2
  413. }
  414. dialog nlustrgb2 {
  415.   title "╗ Half-OP Colour"
  416.   size -1 -1 107 82
  417.   option dbu
  418.   icon 1, 2 34 103 9,  " $+ $scriptdir $+ colors\ $+ nlustpreview2.bmp", 0
  419.   scroll "", 3, 10 3 96 8, range 0 255 horizontal
  420.   scroll "", 4, 10 13 96 8, range 0 255 horizontal
  421.   scroll "", 5, 10 23 96 8, range 0 255 horizontal
  422.   icon 6, 2 4 6 6, $scriptdircolors\nlustr2.bmp, 0
  423.   icon 7, 2 14 6 6, $scriptdircolors\nlustg2.bmp, 0
  424.   icon 8, 2 24 6 6, $scriptdircolors\nlustb2.bmp, 0
  425.   text "RGB", 10, 10 48 16 8
  426.   text "HEX", 11, 10 56 16 8
  427.   button "Close", 12, 78 70 28 11, ok
  428.   text "", 13, 31 48 32 8
  429.   text "", 14, 31 56 32 8
  430.   box "", 15, 2 42 104 25
  431.   button "Copy HEX", 16, 37 70 34 11
  432.   button "Copy RGB", 17, 2 70 33 11
  433. }
  434. on *:dialog:nlustrgb2:*:*:{
  435.   if ($devent == close) { dialog -x nlust | nlust }
  436.   if ($devent == init) {
  437.     did -a $dname 13 0,0,0
  438.     did -a $dname 14 #0
  439.   }
  440.   if ($devent == scroll) {
  441.     %nlustrgb2.val = $did(3).sel $did(4).sel $did(5).sel
  442.     %nlusthop = $did(3).sel $+ , $+ $did(4).sel $+ , $+ $did(5).sel
  443.     nlustpreview2 %nlustrgb2.val
  444.     nlustpreview2b %nlustrgb2.val
  445.     did -g $dname 1 " $+ $scriptdir $+ colors\ $+ nlustpreview2.bmp"
  446.     did -ra $dname 13 $replace(%nlustrgb2.val,$chr(32),$chr(44))
  447.     did -ra $dname 14 $chr(35) $+ $base($rgb($token(%nlustrgb2.val,1,32),$token(%nlustrgb2.val,2,32),$token(%nlustrgb2.val,3,32)),10,16)
  448.     nlustcolour2 $did($did).sel 0 0 nlustr2
  449.     nlustcolour2 0 $did($did).sel 0 nlustg2
  450.     nlustcolour2 0 0 $did($did).sel nlustb2
  451.     did -g $dname $calc(3+ $did) " $+ $scriptdir $+ colors\ $+ $+($replace($did,3,nlustr2,4,nlustg2,5,nlustb2),.bmp) $+ "
  452.   }
  453.   if ($devent == sclick) {
  454.     if ($did isnum 16-17) {
  455.       %nlustrgb2.c = $iif($did == 16,~)
  456.       if (%nlustrgb2.c) {
  457.         clipboard $did(14)
  458.       }
  459.       else {
  460.         clipboard $did(13)
  461.       }
  462.     }
  463.   }
  464. }
  465. alias nlustrgb2 {
  466.   nlustpreview2 0 0 0
  467.   %nlustrgb2.count = 1
  468.   while ($token(nlustr2.nlustg2.nlustb2,%nlustrgb2.count,46)) {
  469.     nlustcolour2 0 0 0 $ifmatch
  470.     inc %nlustrgb2.count
  471.   }
  472.   unset %nlustrgb2.*
  473.   dialog -mo nlustrgb2 nlustrgb2
  474. }
  475.  
  476. alias -l nlustpreview3 {
  477.   window -phn +b @nlustcolour3 -1 -1 270 25
  478.   drawfill -r @nlustcolour3 $rgb($1,$2,$3) 1 1 1
  479.   drawsave @nlustcolour3 " $+ $scriptdir $+ colors\ $+ nlustpreview3.bmp"
  480.   window -c @nlustcolour3
  481. }
  482. alias -l nlustpreview3b {
  483.   window -phn +b @nlustcolour3 -1 -1 25 25
  484.   drawfill -r @nlustcolour3 $rgb($1,$2,$3) 1 1 1
  485.   drawsave @nlustcolour3 " $+ $scriptdir $+ colors\ $+ nlustpreview3b.bmp"
  486.   window -c @nlustcolour3
  487. }
  488. alias -l nlustcolour3 {
  489.   window -phn +b @nlustcolour3 -1 -1 18 18
  490.   drawfill -r @nlustcolour3 $rgb($1,$2,$3) 1 1 1
  491.   drawsave @nlustcolour3 " $+ $scriptdir $+ colors\ $+ $+($4,.bmp) $+ "
  492.   window -c @nlustcolour3
  493. }
  494. dialog nlustrgb3 {
  495.   title "╗ Voiced Colour"
  496.   size -1 -1 107 82
  497.   option dbu
  498.   icon 1, 2 34 103 9,  " $+ $scriptdir $+ colors\ $+ nlustpreview3.bmp", 0
  499.   scroll "", 3, 10 3 96 8, range 0 255 horizontal
  500.   scroll "", 4, 10 13 96 8, range 0 255 horizontal
  501.   scroll "", 5, 10 23 96 8, range 0 255 horizontal
  502.   icon 6, 2 4 6 6, $scriptdircolors\nlustr3.bmp, 0
  503.   icon 7, 2 14 6 6, $scriptdircolors\nlustg3.bmp, 0
  504.   icon 8, 2 24 6 6, $scriptdircolors\nlustb3.bmp, 0
  505.   text "RGB", 10, 10 48 16 8
  506.   text "HEX", 11, 10 56 16 8
  507.   button "Close", 12, 78 70 28 11, ok
  508.   text "", 13, 31 48 32 8
  509.   text "", 14, 31 56 32 8
  510.   box "", 15, 2 42 104 25
  511.   button "Copy HEX", 16, 37 70 34 11
  512.   button "Copy RGB", 17, 2 70 33 11
  513. }
  514. on *:dialog:nlustrgb3:*:*:{
  515.   if ($devent == close) { dialog -x nlust | nlust }
  516.   if ($devent == init) {
  517.     did -a $dname 13 0,0,0
  518.     did -a $dname 14 #0
  519.   }
  520.   if ($devent == scroll) {
  521.     %nlustrgb3.val = $did(3).sel $did(4).sel $did(5).sel
  522.     %nlustvoice = $did(3).sel $+ , $+ $did(4).sel $+ , $+ $did(5).sel
  523.     nlustpreview3 %nlustrgb3.val
  524.     nlustpreview3b %nlustrgb3.val
  525.     did -g $dname 1 " $+ $scriptdir $+ colors\ $+ nlustpreview3.bmp"
  526.     did -ra $dname 13 $replace(%nlustrgb3.val,$chr(32),$chr(44))
  527.     did -ra $dname 14 $chr(35) $+ $base($rgb($token(%nlustrgb3.val,1,32),$token(%nlustrgb3.val,2,32),$token(%nlustrgb3.val,3,32)),10,16)
  528.     nlustcolour3 $did($did).sel 0 0 nlustr3
  529.     nlustcolour3 0 $did($did).sel 0 nlustg3
  530.     nlustcolour3 0 0 $did($did).sel nlustb3
  531.     did -g $dname $calc(3+ $did) " $+ $scriptdir $+ colors\ $+ $+($replace($did,3,nlustr3,4,nlustg3,5,nlustb3),.bmp) $+ "
  532.   }
  533.   if ($devent == sclick) {
  534.     if ($did isnum 16-17) {
  535.       %nlustrgb3.c = $iif($did == 16,~)
  536.       if (%nlustrgb3.c) {
  537.         clipboard $did(14)
  538.       }
  539.       else {
  540.         clipboard $did(13)
  541.       }
  542.     }
  543.   }
  544. }
  545. alias nlustrgb3 {
  546.   nlustpreview3 0 0 0
  547.   %nlustrgb3.count = 1
  548.   while ($token(nlustr3.nlustg3.nlustb3,%nlustrgb3.count,46)) {
  549.     nlustcolour3 0 0 0 $ifmatch
  550.     inc %nlustrgb3.count
  551.   }
  552.   unset %nlustrgb3.*
  553.   dialog -mo nlustrgb3 nlustrgb3
  554. }
  555.  
  556. alias -l nlustpreviewp {
  557.   window -phn +b @nlustcolourp -1 -1 270 25
  558.   drawfill -r @nlustcolourp $rgb($1,$2,$3) 1 1 1
  559.   drawsave @nlustcolourp " $+ $scriptdir $+ colors\ $+ nlustpreviewp.bmp"
  560.   window -c @nlustcolourp
  561. }
  562. alias -l nlustpreviewpb {
  563.   window -phn +b @nlustcolourp -1 -1 25 25
  564.   drawfill -r @nlustcolourp $rgb($1,$2,$3) 1 1 1
  565.   drawsave @nlustcolourp " $+ $scriptdir $+ colors\ $+ nlustpreviewpb.bmp"
  566.   window -c @nlustcolourp
  567. }
  568. alias -l nlustcolourp {
  569.   window -phn +b @nlustcolourp -1 -1 18 18
  570.   drawfill -r @nlustcolourp $rgb($1,$2,$3) 1 1 1
  571.   drawsave @nlustcolourp " $+ $scriptdir $+ colors\ $+ $+($4,.bmp) $+ "
  572.   window -c @nlustcolourp
  573. }
  574. dialog nlustrgbp {
  575.   title "╗ Tooltip Text"
  576.   size -1 -1 107 82
  577.   option dbu
  578.   icon 1, 2 34 103 9,  " $+ $scriptdir $+ colors\ $+ nlustpreviewp.bmp", 0
  579.   scroll "", 3, 10 3 96 8, range 0 255 horizontal
  580.   scroll "", 4, 10 13 96 8, range 0 255 horizontal
  581.   scroll "", 5, 10 23 96 8, range 0 255 horizontal
  582.   icon 6, 2 4 6 6, $scriptdircolors\nlustrp.bmp, 0
  583.   icon 7, 2 14 6 6, $scriptdircolors\nlustgp.bmp, 0
  584.   icon 8, 2 24 6 6, $scriptdircolors\nlustbp.bmp, 0
  585.   text "RGB", 10, 10 48 16 8
  586.   text "HEX", 11, 10 56 16 8
  587.   button "Close", 12, 78 70 28 11, ok
  588.   text "", 13, 31 48 32 8
  589.   text "", 14, 31 56 32 8
  590.   box "", 15, 2 42 104 25
  591.   button "Copy HEX", 16, 37 70 34 11
  592.   button "Copy RGB", 17, 2 70 33 11
  593. }
  594. on *:dialog:nlustrgbp:*:*:{
  595.   if ($devent == close) { dialog -x nlust | nlust }
  596.   if ($devent == init) {
  597.     did -a $dname 13 0,0,0
  598.     did -a $dname 14 #0
  599.   }
  600.   if ($devent == scroll) {
  601.     %nlustrgbp.val = $did(3).sel $did(4).sel $did(5).sel
  602.     %nlusttooltiptext = $did(3).sel $+ , $+ $did(4).sel $+ , $+ $did(5).sel
  603.     nlustpreviewp %nlustrgbp.val
  604.     nlustpreviewpb %nlustrgbp.val
  605.     did -g $dname 1 " $+ $scriptdir $+ colors\ $+ nlustpreviewp.bmp"
  606.     did -ra $dname 13 $replace(%nlustrgbp.val,$chr(32),$chr(44))
  607.     did -ra $dname 14 $chr(35) $+ $base($rgb($token(%nlustrgbp.val,1,32),$token(%nlustrgbp.val,2,32),$token(%nlustrgbp.val,3,32)),10,16)
  608.     nlustcolourp $did($did).sel 0 0 nlustrp
  609.     nlustcolourp 0 $did($did).sel 0 nlustgp
  610.     nlustcolourp 0 0 $did($did).sel nlustbp
  611.     did -g $dname $calc(3+ $did) " $+ $scriptdir $+ colors\ $+ $+($replace($did,3,nlustrp,4,nlustgp,5,nlustbp),.bmp) $+ "
  612.   }
  613.   if ($devent == sclick) {
  614.     if ($did isnum 16-17) {
  615.       %nlustrgbp.c = $iif($did == 16,~)
  616.       if (%nlustrgbp.c) {
  617.         clipboard $did(14)
  618.       }
  619.       else {
  620.         clipboard $did(13)
  621.       }
  622.     }
  623.   }
  624. }
  625. alias nlustrgbp {
  626.   nlustpreviewp 0 0 0
  627.   %nlustrgbp.count = 1
  628.   while ($token(nlustrp.nlustgp.nlustbp,%nlustrgbp.count,46)) {
  629.     nlustcolourp 0 0 0 $ifmatch
  630.     inc %nlustrgbp.count
  631.   }
  632.   unset %nlustrgbp.*
  633.   dialog -mo nlustrgbp nlustrgbp
  634. }
  635.  
  636. alias -l nlustpreview6 {
  637.   window -phn +b @nlustcolour6 -1 -1 270 25
  638.   drawfill -r @nlustcolour6 $rgb($1,$2,$3) 1 1 1
  639.   drawsave @nlustcolour6 " $+ $scriptdir $+ colors\ $+ nlustpreview6.bmp"
  640.   window -c @nlustcolour6
  641. }
  642. alias -l nlustpreview6b {
  643.   window -phn +b @nlustcolour6 -1 -1 25 25
  644.   drawfill -r @nlustcolour6 $rgb($1,$2,$3) 1 1 1
  645.   drawsave @nlustcolour6 " $+ $scriptdir $+ colors\ $+ nlustpreview6b.bmp"
  646.   window -c @nlustcolour6
  647. }
  648. alias -l nlustcolour6 {
  649.   window -phn +b @nlustcolour6 -1 -1 18 18
  650.   drawfill -r @nlustcolour6 $rgb($1,$2,$3) 1 1 1
  651.   drawsave @nlustcolour6 " $+ $scriptdir $+ colors\ $+ $+($4,.bmp) $+ "
  652.   window -c @nlustcolour6
  653. }
  654. dialog nlustrgb6 {
  655.   title "╗ Background Colour"
  656.   size -1 -1 107 82
  657.   option dbu
  658.   icon 1, 2 34 103 9,  " $+ $scriptdir $+ colors\ $+ nlustpreview6.bmp", 0
  659.   scroll "", 3, 10 3 96 8, range 0 255 horizontal
  660.   scroll "", 4, 10 13 96 8, range 0 255 horizontal
  661.   scroll "", 5, 10 23 96 8, range 0 255 horizontal
  662.   icon 6, 2 4 6 6, $scriptdircolors\nlustr6.bmp, 0
  663.   icon 7, 2 14 6 6, $scriptdircolors\nlustg6.bmp, 0
  664.   icon 8, 2 24 6 6, $scriptdircolors\nlustb6.bmp, 0
  665.   text "RGB", 10, 10 48 16 8
  666.   text "HEX", 11, 10 56 16 8
  667.   button "Close", 12, 78 70 28 11, ok
  668.   text "", 13, 31 48 32 8
  669.   text "", 14, 31 56 32 8
  670.   box "", 15, 2 42 104 25
  671.   button "Copy HEX", 16, 37 70 34 11
  672.   button "Copy RGB", 17, 2 70 33 11
  673. }
  674. on *:dialog:nlustrgb6:*:*:{
  675.   if ($devent == close) { dialog -x nlust | nlust }
  676.   if ($devent == init) {
  677.     did -a $dname 13 0,0,0
  678.     did -a $dname 14 #0
  679.   }
  680.   if ($devent == scroll) {
  681.     %nlustrgb6.val = $did(3).sel $did(4).sel $did(5).sel
  682.     %nlustbkg = $did(3).sel $+ , $+ $did(4).sel $+ , $+ $did(5).sel
  683.     nlustpreview6 %nlustrgb6.val
  684.     nlustpreview6b %nlustrgb6.val
  685.     did -g $dname 1 " $+ $scriptdir $+ colors\ $+ nlustpreview6.bmp"
  686.     did -ra $dname 13 $replace(%nlustrgb6.val,$chr(32),$chr(44))
  687.     did -ra $dname 14 $chr(35) $+ $base($rgb($token(%nlustrgb6.val,1,32),$token(%nlustrgb6.val,2,32),$token(%nlustrgb6.val,3,32)),10,16)
  688.     nlustcolour6 $did($did).sel 0 0 nlustr6
  689.     nlustcolour6 0 $did($did).sel 0 nlustg6
  690.     nlustcolour6 0 0 $did($did).sel nlustb6
  691.     did -g $dname $calc(3+ $did) " $+ $scriptdir $+ colors\ $+ $+($replace($did,3,nlustr6,4,nlustg6,5,nlustb6),.bmp) $+ "
  692.   }
  693.   if ($devent == sclick) {
  694.     if ($did isnum 16-17) {
  695.       %nlustrgb6.c = $iif($did == 16,~)
  696.       if (%nlustrgb6.c) {
  697.         clipboard $did(14)
  698.       }
  699.       else {
  700.         clipboard $did(13)
  701.       }
  702.     }
  703.   }
  704. }
  705. alias nlustrgb6 {
  706.   nlustpreview6 0 0 0
  707.   %nlustrgb6.count = 1
  708.   while ($token(nlustr6.nlustg6.nlustb6,%nlustrgb6.count,46)) {
  709.     nlustcolour6 0 0 0 $ifmatch
  710.     inc %nlustrgb6.count
  711.   }
  712.   unset %nlustrgb6.*
  713.   dialog -mo nlustrgb6 nlustrgb6
  714. }
  715.  
  716. alias -l nlustpreview7 {
  717.   window -phn +b @nlustcolour7 -1 -1 270 25
  718.   drawfill -r @nlustcolour7 $rgb($1,$2,$3) 1 1 1
  719.   drawsave @nlustcolour7 " $+ $scriptdir $+ colors\ $+ nlustpreview7.bmp"
  720.   window -c @nlustcolour7
  721. }
  722. alias -l nlustpreview7b {
  723.   window -phn +b @nlustcolour7 -1 -1 25 25
  724.   drawfill -r @nlustcolour7 $rgb($1,$2,$3) 1 1 1
  725.   drawsave @nlustcolour7 " $+ $scriptdir $+ colors\ $+ nlustpreview7b.bmp"
  726.   window -c @nlustcolour7
  727. }
  728. alias -l nlustcolour7 {
  729.   window -phn +b @nlustcolour7 -1 -1 18 18
  730.   drawfill -r @nlustcolour7 $rgb($1,$2,$3) 1 1 1
  731.   drawsave @nlustcolour7 " $+ $scriptdir $+ colors\ $+ $+($4,.bmp) $+ "
  732.   window -c @nlustcolour7
  733. }
  734. dialog nlustrgb7 {
  735.   title "╗ Regulars Colour"
  736.   size -1 -1 107 82
  737.   option dbu
  738.   icon 1, 2 34 103 9,  " $+ $scriptdir $+ colors\ $+ nlustpreview7.bmp", 0
  739.   scroll "", 3, 10 3 96 8, range 0 255 horizontal
  740.   scroll "", 4, 10 13 96 8, range 0 255 horizontal
  741.   scroll "", 5, 10 23 96 8, range 0 255 horizontal
  742.   icon 6, 2 4 6 6, $scriptdircolors\nlustr7.bmp, 0
  743.   icon 7, 2 14 6 6, $scriptdircolors\nlustg7.bmp, 0
  744.   icon 8, 2 24 6 6, $scriptdircolors\nlustb7.bmp, 0
  745.   text "RGB", 10, 10 48 16 8
  746.   text "HEX", 11, 10 56 16 8
  747.   button "Close", 12, 78 70 28 11, ok
  748.   text "", 13, 31 48 32 8
  749.   text "", 14, 31 56 32 8
  750.   box "", 15, 2 42 104 25
  751.   button "Copy HEX", 16, 37 70 34 11
  752.   button "Copy RGB", 17, 2 70 33 11
  753. }
  754. on *:dialog:nlustrgb7:*:*:{
  755.   if ($devent == close) { dialog -x nlust | nlust }
  756.   if ($devent == init) {
  757.     did -a $dname 13 0,0,0
  758.     did -a $dname 14 #0
  759.   }
  760.   if ($devent == scroll) {
  761.     %nlustrgb7.val = $did(3).sel $did(4).sel $did(5).sel
  762.     %nlustnormal = $did(3).sel $+ , $+ $did(4).sel $+ , $+ $did(5).sel
  763.     nlustpreview7 %nlustrgb7.val
  764.     nlustpreview7b %nlustrgb7.val
  765.     did -g $dname 1 " $+ $scriptdir $+ colors\ $+ nlustpreview7.bmp"
  766.     did -ra $dname 13 $replace(%nlustrgb7.val,$chr(32),$chr(44))
  767.     did -ra $dname 14 $chr(35) $+ $base($rgb($token(%nlustrgb7.val,1,32),$token(%nlustrgb7.val,2,32),$token(%nlustrgb7.val,3,32)),10,16)
  768.     nlustcolour7 $did($did).sel 0 0 nlustr7
  769.     nlustcolour7 0 $did($did).sel 0 nlustg7
  770.     nlustcolour7 0 0 $did($did).sel nlustb7
  771.     did -g $dname $calc(3+ $did) " $+ $scriptdir $+ colors\ $+ $+($replace($did,3,nlustr7,4,nlustg7,5,nlustb7),.bmp) $+ "
  772.   }
  773.   if ($devent == sclick) {
  774.     if ($did isnum 16-17) {
  775.       %nlustrgb7.c = $iif($did == 16,~)
  776.       if (%nlustrgb7.c) {
  777.         clipboard $did(14)
  778.       }
  779.       else {
  780.         clipboard $did(13)
  781.       }
  782.     }
  783.   }
  784. }
  785. alias nlustrgb7 {
  786.   nlustpreview7 0 0 0
  787.   %nlustrgb7.count = 1
  788.   while ($token(nlustr7.nlustg7.nlustb7,%nlustrgb7.count,46)) {
  789.     nlustcolour7 0 0 0 $ifmatch
  790.     inc %nlustrgb7.count
  791.   }
  792.   unset %nlustrgb7.*
  793.   dialog -mo nlustrgb7 nlustrgb7
  794. }
  795.  
  796. alias -l nlustpreview8 {
  797.   window -phn +b @nlustcolour8 -1 -1 270 25
  798.   drawfill -r @nlustcolour8 $rgb($1,$2,$3) 1 1 1
  799.   drawsave @nlustcolour8 " $+ $scriptdir $+ colors\ $+ nlustpreview8.bmp"
  800.   window -c @nlustcolour8
  801. }
  802. alias -l nlustpreview8b {
  803.   window -phn +b @nlustcolour8 -1 -1 25 25
  804.   drawfill -r @nlustcolour8 $rgb($1,$2,$3) 1 1 1
  805.   drawsave @nlustcolour8 " $+ $scriptdir $+ colors\ $+ nlustpreview8b.bmp"
  806.   window -c @nlustcolour8
  807. }
  808. alias -l nlustcolour8 {
  809.   window -phn +b @nlustcolour8 -1 -1 18 18
  810.   drawfill -r @nlustcolour8 $rgb($1,$2,$3) 1 1 1
  811.   drawsave @nlustcolour8 " $+ $scriptdir $+ colors\ $+ $+($4,.bmp) $+ "
  812.   window -c @nlustcolour8
  813. }
  814. dialog nlustrgb8 {
  815.   title "╗ Yourself Colour"
  816.   size -1 -1 107 82
  817.   option dbu
  818.   icon 1, 2 34 103 9,  " $+ $scriptdir $+ colors\ $+ nlustpreview8.bmp", 0
  819.   scroll "", 3, 10 3 96 8, range 0 255 horizontal
  820.   scroll "", 4, 10 13 96 8, range 0 255 horizontal
  821.   scroll "", 5, 10 23 96 8, range 0 255 horizontal
  822.   icon 6, 2 4 6 6, $scriptdircolors\nlustr8.bmp, 0
  823.   icon 7, 2 14 6 6, $scriptdircolors\nlustg8.bmp, 0
  824.   icon 8, 2 24 6 6, $scriptdircolors\nlustb8.bmp, 0
  825.   text "RGB", 10, 10 48 16 8
  826.   text "HEX", 11, 10 56 16 8
  827.   button "Close", 12, 78 70 28 11, ok
  828.   text "", 13, 31 48 32 8
  829.   text "", 14, 31 56 32 8
  830.   box "", 15, 2 42 104 25
  831.   button "Copy HEX", 16, 37 70 34 11
  832.   button "Copy RGB", 17, 2 70 33 11
  833. }
  834. on *:dialog:nlustrgb8:*:*:{
  835.   if ($devent == close) { dialog -x nlust | nlust }
  836.   if ($devent == init) {
  837.     did -a $dname 13 0,0,0
  838.     did -a $dname 14 #0
  839.   }
  840.   if ($devent == scroll) {
  841.     %nlustrgb8.val = $did(3).sel $did(4).sel $did(5).sel
  842.     %nlustme = $did(3).sel $+ , $+ $did(4).sel $+ , $+ $did(5).sel
  843.     nlustpreview8 %nlustrgb8.val
  844.     nlustpreview8b %nlustrgb8.val
  845.     did -g $dname 1 " $+ $scriptdir $+ colors\ $+ nlustpreview8.bmp"
  846.     did -ra $dname 13 $replace(%nlustrgb8.val,$chr(32),$chr(44))
  847.     did -ra $dname 14 $chr(35) $+ $base($rgb($token(%nlustrgb8.val,1,32),$token(%nlustrgb8.val,2,32),$token(%nlustrgb8.val,3,32)),10,16)
  848.     nlustcolour8 $did($did).sel 0 0 nlustr8
  849.     nlustcolour8 0 $did($did).sel 0 nlustg8
  850.     nlustcolour8 0 0 $did($did).sel nlustb8
  851.     did -g $dname $calc(3+ $did) " $+ $scriptdir $+ colors\ $+ $+($replace($did,3,nlustr8,4,nlustg8,5,nlustb8),.bmp) $+ "
  852.   }
  853.   if ($devent == sclick) {
  854.     if ($did isnum 16-17) {
  855.       %nlustrgb8.c = $iif($did == 16,~)
  856.       if (%nlustrgb8.c) {
  857.         clipboard $did(14)
  858.       }
  859.       else {
  860.         clipboard $did(13)
  861.       }
  862.     }
  863.   }
  864. }
  865. alias nlustrgb8 {
  866.   nlustpreview8 0 0 0
  867.   %nlustrgb8.count = 1
  868.   while ($token(nlustr8.nlustg8.nlustb8,%nlustrgb8.count,46)) {
  869.     nlustcolour8 0 0 0 $ifmatch
  870.     inc %nlustrgb8.count
  871.   }
  872.   unset %nlustrgb8.*
  873.   dialog -mo nlustrgb8 nlustrgb8
  874. }
  875.  
  876. alias -l nlustpreview9 {
  877.   window -phn +b @nlustcolour9 -1 -1 270 25
  878.   drawfill -r @nlustcolour9 $rgb($1,$2,$3) 1 1 1
  879.   drawsave @nlustcolour9 " $+ $scriptdir $+ colors\ $+ nlustpreview9.bmp"
  880.   window -c @nlustcolour9
  881. }
  882. alias -l nlustpreview9b {
  883.   window -phn +b @nlustcolour9 -1 -1 25 25
  884.   drawfill -r @nlustcolour9 $rgb($1,$2,$3) 1 1 1
  885.   drawsave @nlustcolour9 " $+ $scriptdir $+ colors\ $+ nlustpreview9b.bmp"
  886.   window -c @nlustcolour9
  887. }
  888. alias -l nlustcolour9 {
  889.   window -phn +b @nlustcolour9 -1 -1 18 18
  890.   drawfill -r @nlustcolour9 $rgb($1,$2,$3) 1 1 1
  891.   drawsave @nlustcolour9 " $+ $scriptdir $+ colors\ $+ $+($4,.bmp) $+ "
  892.   window -c @nlustcolour9
  893. }
  894. dialog nlustrgb9 {
  895.   title "╗ Tooltip Background"
  896.   size -1 -1 107 82
  897.   option dbu
  898.   icon 1, 2 34 103 9,  " $+ $scriptdir $+ colors\ $+ nlustpreview9.bmp", 0
  899.   scroll "", 3, 10 3 96 8, range 0 255 horizontal
  900.   scroll "", 4, 10 13 96 8, range 0 255 horizontal
  901.   scroll "", 5, 10 23 96 8, range 0 255 horizontal
  902.   icon 6, 2 4 6 6, $scriptdircolors\nlustr9.bmp, 0
  903.   icon 7, 2 14 6 6, $scriptdircolors\nlustg9.bmp, 0
  904.   icon 8, 2 24 6 6, $scriptdircolors\nlustb9.bmp, 0
  905.   text "RGB", 10, 10 48 16 8
  906.   text "HEX", 11, 10 56 16 8
  907.   button "Close", 12, 78 70 28 11, ok
  908.   text "", 13, 31 48 32 8
  909.   text "", 14, 31 56 32 8
  910.   box "", 15, 2 42 104 25
  911.   button "Copy HEX", 16, 37 70 34 11
  912.   button "Copy RGB", 17, 2 70 33 11
  913. }
  914. on *:dialog:nlustrgb9:*:*:{
  915.   if ($devent == close) { dialog -x nlust | nlust }
  916.   if ($devent == init) {
  917.     did -a $dname 13 0,0,0
  918.     did -a $dname 14 #0
  919.   }
  920.   if ($devent == scroll) {
  921.     %nlustrgb9.val = $did(3).sel $did(4).sel $did(5).sel
  922.     %nlusttooltipbkg = $did(3).sel $+ , $+ $did(4).sel $+ , $+ $did(5).sel
  923.     nlustpreview9 %nlustrgb9.val
  924.     nlustpreview9b %nlustrgb9.val
  925.     did -g $dname 1 " $+ $scriptdir $+ colors\ $+ nlustpreview9.bmp"
  926.     did -ra $dname 13 $replace(%nlustrgb9.val,$chr(32),$chr(44))
  927.     did -ra $dname 14 $chr(35) $+ $base($rgb($token(%nlustrgb9.val,1,32),$token(%nlustrgb9.val,2,32),$token(%nlustrgb9.val,3,32)),10,16)
  928.     nlustcolour9 $did($did).sel 0 0 nlustr9
  929.     nlustcolour9 0 $did($did).sel 0 nlustg9
  930.     nlustcolour9 0 0 $did($did).sel nlustb9
  931.     did -g $dname $calc(3+ $did) " $+ $scriptdir $+ colors\ $+ $+($replace($did,3,nlustr9,4,nlustg9,5,nlustb9),.bmp) $+ "
  932.   }
  933.   if ($devent == sclick) {
  934.     if ($did isnum 16-17) {
  935.       %nlustrgb9.c = $iif($did == 16,~)
  936.       if (%nlustrgb9.c) {
  937.         clipboard $did(14)
  938.       }
  939.       else {
  940.         clipboard $did(13)
  941.       }
  942.     }
  943.   }
  944. }
  945. alias nlustrgb9 {
  946.   nlustpreview9 0 0 0
  947.   %nlustrgb9.count = 1
  948.   while ($token(nlustr9.nlustg9.nlustb9,%nlustrgb9.count,46)) {
  949.     nlustcolour9 0 0 0 $ifmatch
  950.     inc %nlustrgb9.count
  951.   }
  952.   unset %nlustrgb9.*
  953.   dialog -mo nlustrgb9 nlustrgb9
  954. }
  955.  
  956. dialog afnicklistabout {
  957.   title " "
  958.   size -1 -1 100 115
  959.   option dbu
  960.   button "OK",2, 150 150 20 20, ok
  961.   link "www.ArcticFire.cjb.net", 3, 22 95 56 13, center
  962.   text "A",4, 3 1 5 7, center
  963.   text "R",5, 13 1 5 7, center
  964.   text "C",6, 23 1 5 7, center 
  965.   text "T",7, 33 1 5 7, center
  966.   text "I",8, 43 1 5 7, center
  967.   text "C",9, 53 1 5 7, center
  968.   text "F",10, 63 1 5 7, center
  969.   text "I",11, 73 1 5 7, center
  970.   text "R",12, 83 1 5 7, center
  971.   text "E",13, 93 1 5 7, center
  972.   text "A",14, 3 107 5 7, center
  973.   text "R",15, 13 107 5 7, center
  974.   text "C",16, 23 107 5 7, center 
  975.   text "T",17, 33 107 5 7, center
  976.   text "I",18, 43 107 5 7, center
  977.   text "C",19, 53 107 5 7, center
  978.   text "F",20, 63 107 5 7, center
  979.   text "I",21, 73 107 5 7, center
  980.   text "R",22, 83 107 5 7, center
  981.   text "E",23, 93 107 5 7, center
  982.   box "",24, 3 6 94 100
  983.   box "",25, 19 10 61 40
  984.   text "Arctic Fire 2003",46, 30 21 39 8
  985.   text "All Rights Reserved",47, 26 33 50 8
  986.   text "⌐",48, 22 14 5 6
  987.   text "⌐",49, 73 14 5 6
  988.   text "⌐",50, 22 41 5 6
  989.   text "⌐",51, 73 41 5 6
  990.   text "----------------------",52, 27 27 45 4
  991.   text "This Has Been A Product",53, 19 53 64 8
  992.   text "of The One And Only",54, 23 60 57 8
  993.   text " ArcticFire Platinum",55, 25 67 46 8
  994.   link "Credits",56, 40 74 45 10
  995.   text "For More Great Addons,",57, 21 81 60 8
  996.   text "Visit AF's Homepage At:",58, 21 88 60 8
  997. }
  998. on *:dialog:afnicklistabout:*:*:{
  999.   if ($devent == init) {
  1000.     did -b afnicklistabout 4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23
  1001.     ppblink
  1002.   }
  1003.   if ($devent == sclick) {
  1004.     if ($did == 3) { run http://www.liquiddesignz.com/arcticfire/ }
  1005.     if ($did == 56) { dialog -mo afnicklistcredits afnicklistcredits }
  1006.   }
  1007. }
  1008. alias ppblinkvar {
  1009.   if ($dialog(afnicklistabout) == $null) { return }
  1010.   .did -e afnicklistabout $1
  1011.   .timerppblinkrem $+ $1 1 1 ppblinkrem $1
  1012. }
  1013. alias ppblinkrem {
  1014.   if ($dialog(afnicklistabout) == $null) { return }
  1015.   .did -b afnicklistabout $1
  1016. }
  1017. alias ppblink {
  1018.   if ($dialog(afnicklistabout) == $null) { return }
  1019.   .timerppblink1 1 1 /ppblinkvar 4,14
  1020.   .timerppblink2 1 2 /ppblinkvar 5,15
  1021.   .timerppblink3 1 3 /ppblinkvar 6,16
  1022.   .timerppblink4 1 4 /ppblinkvar 7,17
  1023.   .timerppblink5 1 5 /ppblinkvar 8,18
  1024.   .timerppblink6 1 6 /ppblinkvar 9,19
  1025.   .timerppblink7 1 7 /ppblinkvar 10,20
  1026.   .timerppblink8 1 8 /ppblinkvar 11,21
  1027.   .timerppblink9 1 9 /ppblinkvar 12,22
  1028.   .timerppblink10 1 10 /ppblinkvar 13,23
  1029.   .timerppblink12 1 12 /ppblinkvar 4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23
  1030.   .timerppblink14 1 14 /ppblink
  1031. }
  1032.  
  1033. dialog afnicklistcredits {
  1034.   title " "
  1035.   size -1 -1 68 129
  1036.   option dbu
  1037.   button "Close",1, 20 114 26 12, ok
  1038.   text "The Following Sources Must Be Given Credit For Their Part In This Addon:",2, 4 2 62 20, center
  1039.   text "-------------------------------",3, 3 21 62 4
  1040.   link "Narusegawa-Naru",4, 12 28 62 8, center
  1041.   text "For creating the beautiful DLL that is nickLUST.",5, 3 35 62 13, center
  1042.   link "l0n3R",6, 26 51 30 8
  1043.   text "I *borrowed* his icon coding, aswell as the basic icons. Thanks l0n4r.",7, 3 58 62 20, center
  1044.   link "iak-",8, 29 80 36 8
  1045.   text "For his RGB converter in which I used for retrieving all of the colours.",9, 3 87 63 20, center
  1046.   text "-------------------------------",10, 3 107 62 4
  1047. }
  1048. on *:dialog:afnicklistcredits:sclick:*:{
  1049.   if ($did == 4) { run http://mircscripts.org/users/Narusegawa-Naru/ }
  1050.   if ($did == 6) { run http://mircscripts.org/users/loner/ }
  1051.   if ($did == 8) { run http://mircscripts.org/users/iak_/ }
  1052. }
  1053.  
  1054. menu menubar {
  1055.   Experimental
  1056.  .Nicklist Customizer:nlust
  1057.   -
  1058. }
  1059.