Pastebin launched a little side project called VERYVIRAL.com, check it out ;-) Want more features on Pastebin? Sign Up, it's FREE!
Guest

Untitled

By: a guest on Feb 27th, 2012  |  syntax: mIRC  |  size: 2.75 KB  |  views: 46  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. ;####Channel Centeral PRO####
  2. ;####Version 1.0####
  3. ;####HeatedHeart####
  4. ;####www.XeroCreative.Com####
  5.  
  6. ;####Popups
  7. menu channel {
  8.   -
  9.   Channel Centeral:dialog $iif(!$dialog(CCPRO),-m,-vma) CCPRO CCPRO
  10. }
  11.  
  12. ;####Startup
  13. on *:DIALOG:CCPRO:init:*: {
  14.   CheckChannels
  15. }
  16. ;#### Dialog
  17. dialog CCPRO {
  18.   title "Channel Central PRO"
  19.   size -1 -1 242 122
  20.   option dbu
  21.   list 5, 4 32 39 74, size vsbar
  22.   box "Channels", 6, 1 24 45 84
  23.   box "Users", 14, 48 24 71 84
  24.   list 15, 51 32 65 74, size vsbar
  25.   box "Bans/Excepts/Invites", 1, 144 24 97 96
  26.   list 2, 146 33 91 84, size
  27.   edit "", 3, 3 8 234 14, autohs
  28.   box "Topic Editor", 4, 1 0 239 23
  29.   button "Kick", 7, 122 29 17 12, flat ok
  30.   box "", 8, 120 24 21 33
  31.   button "Ban", 9, 122 42 17 12, flat ok
  32.   box "", 10, 120 56 21 52
  33.   button "Qop", 11, 122 61 17 8, flat ok
  34.   button "Sop", 12, 122 70 17 8, flat ok
  35.   button "Aop", 13, 122 79 17 8, flat ok
  36.   button "Hop", 16, 122 88 17 8, flat ok
  37.   button "Vop", 17, 122 97 17 8, flat ok
  38.   box "", 23, 1 107 45 14
  39.   box "", 22, 48 107 32 14
  40.   text "Channels:", 25, 3 111 25 8
  41.   text "Users:", 26, 50 111 16 8
  42.   text "Modes:", 27, 85 111 16 8
  43.   box "", 28, 83 107 58 14
  44.   text "N/A", 29, 28 111 11 8
  45.   text "N/A", 30, 66 111 11 8
  46.   text "N/A", 31, 102 111 37 8
  47. }
  48.  
  49. ;#### Coding
  50. on *:dialog:CCPRO:SCLICK:*: {
  51.   if ($did == 5) { CheckUsers | CheckBEI | CheckTopic | CheckCounts }
  52.   if ($did == 7) { kick $did(5).seltext $did(15).seltext $Logo [KICK] | CheckCounts | CheckBEI }
  53.   if ($did == 9) { mode $did(5).seltext +b $address($did(15).seltext,2) | CheckCounts | CheckBEI }
  54. }
  55.  
  56.  
  57. ;#### Functions
  58. alias Logo { return 4,1C14hannel 4C15entral 4P0ro }
  59. alias CheckCounts {
  60.   did -r $dname 29
  61.   did -a $dname 29 $Chan(0)
  62.   did -r $dname 30
  63.   did -a $dname 30 $Nick($did(5).seltext,0)
  64.   did -r $dname 31
  65.   did -a $dname 31 $Chan($did(5).seltext).mode
  66.  
  67. }
  68. alias CheckTopic {
  69.   did -r $dname 3
  70.   did -a $dname 3 $Strip($chan($did(5).seltext).topic)
  71. }
  72. alias CheckUsers {
  73.   did -r $dname 15
  74.   var %z $did(5).seltext
  75.   var %x $Nick(%z,0)
  76.   var %loop 1
  77.   while (%Loop <= %X) {
  78.     did -a $dname 15 $nick(%z,%loop)
  79.     inc %loop
  80.   }
  81. }
  82. alias CheckChannels {
  83.   did -r $dname 5
  84.   var %x $Chan(0)
  85.   var %loop 1
  86.   while (%Loop <= %X) {
  87.     did -a $dname 5 $chan(%Loop)
  88.     inc %loop
  89.   }
  90. }
  91. alias CheckBEI {
  92.   did -r $dname 2
  93.   var %x $ibl($did(5).seltext,0)
  94.   var %Loop 1
  95.   while (%Loop <= %X) {
  96.     did -a $dname 2 $ibl($did(5).seltext,%loop)
  97.     inc %loop
  98.   }
  99.   var %x $iel($did(5).seltext,0)
  100.   var %Loop 1
  101.   while (%Loop <= %X) {
  102.     did -a $dname 2 $iel($did(5).seltext,%loop)
  103.     inc %loop
  104.   }
  105.   var %x $iil($did(5).seltext,0)
  106.   var %Loop 1
  107.   while (%Loop <= %X) {
  108.     did -a $dname 2 $iil($did(5).seltext,%loop)
  109.     inc %loop
  110.   }
  111. }