;####Channel Centeral PRO####
;####Version 1.0####
;####HeatedHeart####
;####www.XeroCreative.Com####

;####Popups
menu channel {
  -
  Channel Centeral:dialog $iif(!$dialog(CCPRO),-m,-vma) CCPRO CCPRO
}

;####Startup
on *:DIALOG:CCPRO:init:*: {
  CheckChannels
}
;#### Dialog
dialog CCPRO {
  title "Channel Central PRO"
  size -1 -1 242 122
  option dbu
  list 5, 4 32 39 74, size vsbar
  box "Channels", 6, 1 24 45 84
  box "Users", 14, 48 24 71 84
  list 15, 51 32 65 74, size vsbar
  box "Bans/Excepts/Invites", 1, 144 24 97 96
  list 2, 146 33 91 84, size
  edit "", 3, 3 8 234 14, autohs
  box "Topic Editor", 4, 1 0 239 23
  button "Kick", 7, 122 29 17 12, flat ok
  box "", 8, 120 24 21 33
  button "Ban", 9, 122 42 17 12, flat ok
  box "", 10, 120 56 21 52
  button "Qop", 11, 122 61 17 8, flat ok
  button "Sop", 12, 122 70 17 8, flat ok
  button "Aop", 13, 122 79 17 8, flat ok
  button "Hop", 16, 122 88 17 8, flat ok
  button "Vop", 17, 122 97 17 8, flat ok
  box "", 23, 1 107 45 14
  box "", 22, 48 107 32 14
  text "Channels:", 25, 3 111 25 8
  text "Users:", 26, 50 111 16 8
  text "Modes:", 27, 85 111 16 8
  box "", 28, 83 107 58 14
  text "N/A", 29, 28 111 11 8
  text "N/A", 30, 66 111 11 8
  text "N/A", 31, 102 111 37 8
}

;#### Coding
on *:dialog:CCPRO:SCLICK:*: {
  if ($did == 5) { CheckUsers | CheckBEI | CheckTopic | CheckCounts }
  if ($did == 7) { kick $did(5).seltext $did(15).seltext $Logo [KICK] | CheckCounts | CheckBEI }
  if ($did == 9) { mode $did(5).seltext +b $address($did(15).seltext,2) | CheckCounts | CheckBEI }
}


;#### Functions
alias Logo { return 4,1C14hannel 4C15entral 4P0ro }
alias CheckCounts {
  did -r $dname 29
  did -a $dname 29 $Chan(0)
  did -r $dname 30 
  did -a $dname 30 $Nick($did(5).seltext,0)
  did -r $dname 31
  did -a $dname 31 $Chan($did(5).seltext).mode

}
alias CheckTopic {
  did -r $dname 3
  did -a $dname 3 $Strip($chan($did(5).seltext).topic)
}
alias CheckUsers {
  did -r $dname 15
  var %z $did(5).seltext
  var %x $Nick(%z,0)
  var %loop 1
  while (%Loop <= %X) {
    did -a $dname 15 $nick(%z,%loop)
    inc %loop
  }
}
alias CheckChannels {
  did -r $dname 5
  var %x $Chan(0)
  var %loop 1
  while (%Loop <= %X) {
    did -a $dname 5 $chan(%Loop)
    inc %loop
  }
}
alias CheckBEI {
  did -r $dname 2
  var %x $ibl($did(5).seltext,0)
  var %Loop 1
  while (%Loop <= %X) {
    did -a $dname 2 $ibl($did(5).seltext,%loop)
    inc %loop
  }
  var %x $iel($did(5).seltext,0)
  var %Loop 1
  while (%Loop <= %X) {
    did -a $dname 2 $iel($did(5).seltext,%loop)
    inc %loop
  }
  var %x $iil($did(5).seltext,0)
  var %Loop 1
  while (%Loop <= %X) {
    did -a $dname 2 $iil($did(5).seltext,%loop)
    inc %loop
  }
}