API tools faq
paste
Advertisement
SaNCaK

mIRC Nicklist Colors

SaNCaK
Feb 1st, 2014
555
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 7.17 KB | None | 0 0
raw download clone embed print report
  1. on *:LOAD: {
  2.   echo -a _____________________________________________________
  3.   echo -a 4,1[15,1 SaNCaK 4,1] 0,1 Loading Add-On... 
  4.   echo -a 4,1[15,1 SaNCaK 4,1] 0,1 You are running mIRC $version on $os  $+ .
  5.   echo -a 4,1[15,1 SaNCaK 4,1] 0,1 Coder: 15SaNCaK 0,1 E-Mail: 15SaNCaK@SaNCaK.gen.tr 
  6.   echo -a 4,1[15,1 SaNCaK 4,1] 0,1 Copyright © 200915 http://www.sancak.gen.tr
  7.   echo -a ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
  8. }
  9. #cnl on
  10. on *:join:#:{
  11.   if ($nick == $me) { .timer -m 1 1 make.co }
  12.   else {
  13.     if ($nick isreg $chan) { cline %cnl.reg $chan $nick }
  14.     if ($nick isvo $chan) { cline %cnl.voice $chan $nick }
  15.     if ($nick ishelp $chan) { cline %cnl.help $chan $nick }
  16.     if ($nick isop $chan) { cline %cnl.op $chan $nick }
  17.     if ($nick == $me) { cline %cnl.me $chan $nick }
  18.     if ($nick isnotify) { cline %cnl.notify $chan $nick }
  19.     if ($nick $+ !*@* isignore) { cline %cnl.ignore $chan $nick }
  20.   }
  21. }
  22. on *:OP:#:{
  23.   if ($opnick == $me) { cline %cnl.me $chan $opnick | halt }
  24.   if ($opnick isnotify) { cline %cnl.notify $chan $opnick | halt }
  25.   if ($opnick $+ !*@* isignore) { cline %cnl.ignore $chan $opnick | halt }
  26.   cline %cnl.op $chan $opnick
  27. }
  28. on *:serverOP:#:{
  29.   if ($opnick == $me) { cline %cnl.me $chan $opnick | halt }
  30.   if ($opnick isnotify) { cline %cnl.notify $chan $opnick | halt }
  31.   if ($opnick $+ !*@* isignore) { cline %cnl.ignore $chan $opnick | halt }
  32.   cline %cnl.op $chan $opnick
  33. }
  34. on *:DEOP:#:{
  35.   if ($opnick == $me) { cline %cnl.me $chan $opnick | halt }
  36.   if ($opnick ishelp $chan) { cline %cnl.voice $chan $opnick | halt }
  37.   if ($opnick isvo $chan) { cline %cnl.voice $chan $opnick | halt }
  38.   if ($opnick isnotify) { cline %cnl.notify $chan $opnick | halt }
  39.   if ($opnick $+ !*@* isignore) { cline %cnl.ignore $chan $opnick | halt }
  40.   cline %cnl.reg $chan $opnick
  41. }
  42.  
  43. on *:HELP:#:{
  44.   if ($hnick == $me) { cline %cnl.me $chan $hnick | halt }
  45.   if ($hnick isnotify) { cline %cnl.notify $chan $hnick | halt }
  46.   if ($hnick $+ !*@* isignore) { cline %cnl.ignore $chan $hnick | halt }
  47.   if ($hnick isop $chan) { cline %cnl.op $chan $hnick | halt }
  48.   cline %cnl.help $chan $hnick
  49. }
  50. on *:DEHELP:#:{
  51.   if ($hnick == $me) { cline %cnl.me $chan $hnick | halt }
  52.   if ($hnick isop $chan) { cline %cnl.op $chan $hnick | halt }
  53.   if ($hnick isnotify) { cline %cnl.notify $chan $hnick | halt }
  54.   if ($hnick $+ !*@* isignore) { cline %cnl.ignore $chan $hnick | halt }
  55.   if ($hnick isvo $chan) { cline %cnl.voice $chan $hnick | halt }
  56.   cline %cnl.reg $chan $hnick
  57. }
  58. on *:VOICE:#:{
  59.   if ($vnick == $me) { cline %cnl.me $chan $vnick | halt }
  60.   if ($vnick isnotify) { cline %cnl.notify $chan $vnick | halt }
  61.   if ($vnick $+ !*@* isignore) { cline %cnl.ignore $chan $vnick | halt }
  62.   if ($vnick isop $chan) { cline %cnl.op $chan $vnick | halt }
  63.   if ($vnick ishelp $chan) { cline %cnl.help $chan $vnick | halt }
  64.   cline %cnl.voice $chan $vnick
  65. }
  66. on *:DEVOICE:#:{
  67.   if ($vnick == $me) { cline %cnl.me $chan $vnick | halt }
  68.   if ($vnick isnotify) { cline %cnl.notify $chan $vnick | halt }
  69.   if ($vnick $+ !*@* isignore) { cline %cnl.ignore $chan $vnick | halt }
  70.   if ($vnick isop $chan) { cline %cnl.op $chan $vnick | halt }
  71.   if ($vnick ishelp $chan) { cline %cnl.help $chan $vnick | halt }
  72.   cline %cnl.reg $chan $vnick
  73. }
  74. #cnl end
  75.  
  76. dialog cnl {
  77.   title "NickList Color"
  78.   size -1 -1 0 0
  79.   option pixels
  80.   button "&OK", 1, 30 245 50 25, default flat ok
  81.   button "Cancel", 2, 80 245 50 25, flat cancel
  82.   box "Me", 3, 30 10 100 50
  83.   combo 4, 40 30 80 100, drop
  84.   combo 6, 180 30 80 100, drop
  85.   box "Help Color", 7, 170 80 100 50
  86.   combo 8, 180 100 80 100, drop
  87.   box "Voice Color", 9, 170 150 100 50
  88.   combo 10, 180 170 80 100, drop
  89.   box "Reg Color", 11, 170 220 100 50
  90.   combo 12, 180 240 80 100, drop
  91.   box "Notify`s Color", 13, 30 80 100 50
  92.   combo 14, 40 100 80 100, drop
  93.   box "Ignored Color", 15, 30 150 100 50
  94.   combo 16, 40 170 80 100, drop
  95.   radio "on", 17, 38 220 30 15, flat
  96.   radio "off", 18, 88 220 30 15, flat
  97. }
  98.  
  99. on *:dialog:cnl:init:0:{
  100.   %anim.cnl = 0 | .timer_anim_cnl -m 0 1 anim.cnl
  101.  
  102.   did -i cnl 4,6,8,10,12,14,16 1 White (0)
  103.   did -i cnl 4,6,8,10,12,14,16 2 Black (1)
  104.   did -i cnl 4,6,8,10,12,14,16 3 Blue (2)
  105.   did -i cnl 4,6,8,10,12,14,16 4 Green (3)
  106.   did -i cnl 4,6,8,10,12,14,16 5 LightRed (4)
  107.   did -i cnl 4,6,8,10,12,14,16 6 Brown (5)
  108.   did -i cnl 4,6,8,10,12,14,16 7 Purple (6)
  109.   did -i cnl 4,6,8,10,12,14,16 8 Orange (7)
  110.   did -i cnl 4,6,8,10,12,14,16 9 Yellow (8)
  111.   did -i cnl 4,6,8,10,12,14,16 10 LightGreen (9)
  112.   did -i cnl 4,6,8,10,12,14,16 11 Cyan (10)
  113.   did -i cnl 4,6,8,10,12,14,16 12 LightCyan (11)
  114.   did -i cnl 4,6,8,10,12,14,16 13 LightBlue (12)
  115.   did -i cnl 4,6,8,10,12,14,16 14 Pink (13)
  116.   did -i cnl 4,6,8,10,12,14,16 15 Grey (14)
  117.   did -i cnl 4,6,8,10,12,14,16 16 LightGrey (15)
  118.   did -c cnl 4 $calc(%cnl.me +1)
  119.   did -c cnl 6 $calc(%cnl.op +1)
  120.   did -c cnl 8 $calc(%cnl.help +1)
  121.   did -c cnl 10 $calc(%cnl.voice +1)
  122.   did -c cnl 12 $calc(%cnl.reg +1)
  123.   did -c cnl 14 $calc(%cnl.notify +1)
  124.   did -c cnl 16 $calc(%cnl.ignore +1)
  125.   if ($group(#cnl) == on) { did -c $dname 17 }
  126.   if ($group(#cnl) == off) { did -c $dname 18 | did -b $dname 3,4,5,6,7,8,9,10,11,12,13,14,15,16 }
  127. }
  128. on *:dialog:cnl:*:1:{
  129.   set %cnl.me $calc($did(cnl,4).sel -1)
  130.   set %cnl.op $calc($did(cnl,6).sel -1)
  131.   set %cnl.help $calc($did(cnl,8).sel -1)
  132.   set %cnl.voice $calc($did(cnl,10).sel -1)
  133.   set %cnl.reg $calc($did(cnl,12).sel -1)
  134.   set %cnl.notify $calc($did(cnl,14).sel -1)
  135.   set %cnl.ignore $calc($did(cnl,16).sel -1)
  136.   if ($did(cnl,17).state == 1) { .enable #cnl | make.co }
  137.   if ($did(cnl,18).state == 1) { .disable #cnl | un.co }
  138. }
  139. on *:DIALOG:cnl:sclick:17:{ did -e $dname 3,4,5,6,7,8,9,10,11,12,13,14,15,16 }
  140. on *:DIALOG:cnl:sclick:18:{ did -b $dname 3,4,5,6,7,8,9,10,11,12,13,14,15,16 }
  141.  
  142. alias make.co {
  143.   set -u0 %i 1
  144.   while (%i <= $chan(0)) {
  145.     set -u0 %j 1
  146.     while (%j <= $nick($chan(%i),0)) {
  147.       if ($nick($chan(%i),%j) isreg $chan(%i)) { cline %cnl.reg $chan(%i) $nick($chan(%i),%j)) }
  148.       if ($nick($chan(%i),%j) isvo $chan(%i)) { cline %cnl.voice $chan(%i) $nick($chan(%i),%j)) }
  149.       if ($nick($chan(%i),%j) ishelp $chan(%i)) { cline %cnl.help $chan(%i) $nick($chan(%i),%j)) }
  150.       if ($nick($chan(%i),%j) isop $chan(%i)) { cline %cnl.op $chan(%i) $nick($chan(%i),%j)) }
  151.       if ($nick($chan(%i),%j) == $me) { cline %cnl.me $chan(%i) $nick($chan(%i),%j)) }
  152.       if ($nick($chan(%i),%j) isnotify) { cline %cnl.notify $chan(%i) $nick($chan(%i),%j)) }
  153.       if ($nick($chan(%i),%j) $+ !*@* isignore) { cline %cnl.ignore $chan(%i) $nick($chan(%i),%j)) }
  154.       inc %j
  155.     }
  156.     inc %i
  157.   }
  158. }
  159. alias un.co {
  160.   set -u0 %i 1
  161.   while (%i <= $chan(0)) {
  162.     set -u0 %j 1
  163.     while (%j <= $nick($chan(%i),0)) {
  164.       if ($nick($chan(%i),%j) ison $chan(%i)) { cline 01 $chan(%i) $nick($chan(%i),%j)) }
  165.       inc %j
  166.     }
  167.     inc %i
  168.   }
  169. }
  170. alias cnl { dialog -m cnl cnl }
  171. alias anim.cnl { if ((%anim.cnl == 300) || ($dialog(cnl) == $null)) { .timer_anim_cnl off | unset %anim.cnl } | else { dialog -s cnl 250 150 300 %anim.cnl | inc %anim.cnl 5 }
  172. }
  173. menu menubar,channel {
  174.   Nicklist Colors:/cnl
  175. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!