Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;####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
- }
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement