Untitled

menu * {
  Runey's Channel Modes:/dialog -dm cc cc
}
dialog cc {
  title "mIRC Channel Central"
  size -1 -1 189 164
  option dbu
  text "Topic:", 1, 5 3 18 8
  edit "", 2, 4 12 184 10, autohs
  text "Bans List:", 3, 5 25 49 8
  list 4, 4 34 140 77, size hsbar vsbar
  check "Only ops set Topic", 5, 6 118 60 10
  check "No external messages", 6, 6 130 62 10
  check "Invite only", 7, 6 141 50 10
  check "Moderated", 8, 6 152 50 10
  check "Key:", 9, 75 120 23 10
  check "Limit to:", 10, 75 131 28 10
  check "Private", 11, 75 142 29 10
  check "Serect", 12, 75 153 28 10
  text "users", 13, 126 132 15 8
  edit "", 14, 97 120 47 10, autohs
  edit "", 15, 104 131 19 10, limit 4
  button "OK", 16, 149 124 36 11, ok
  button "Cancel", 17, 149 138 36 11
  button "Help", 18, 149 152 36 11
  button "Edit", 19, 148 98 37 12, disable
  button "Remove", 20, 148 84 37 12, disable
  button "Bans", 21, 148 34 37 12
  button "Excepts", 22, 148 49 37 12
  button "Invites", 23, 148 64 37 12
}
on *:dialog:cc:init:0:{
  set %chanel $iif($active == Status Window,$chan(1),$active)
  /dialog -t cc mIRC Channel Central %chanel
  /did -ra cc 2 $chan(%chanel).topic | set %topci $chan(%chanel).topic
  $iif(*t* iswm $chan(%chanel).mode, /did -c cc 5)  
  $iif(*n* iswm $chan(%chanel).mode, /did -c cc 6)
  $iif(*i* iswm $chan(%chanel).mode, /did -c cc 7)
  $iif(*m* iswm $chan(%chanel).mode, /did -c cc 8)
  $iif($chan(%chanel).key != $null,/did -ra cc 14 $chan(%chanel).key) | $iif($chan(%chanel).key != $null,/did -c cc 9)
  $iif($chan(%chanel).limit != $null,/did -ra cc 15 $chan(%chanel).limit) | $iif($chan(%chanel).key != $null,/did -c cc 10)  
  $iif(*p* iswm $chan(%chanel).mode, /did -c cc 11)
  $iif(*s* iswm $chan(%chanel).mode, /did -c cc 12)
  $iif($chan(%chanel).ibl != $null,/ibl %chanel)
}
on *:dialog:cc:close:0:{
  timer 1 .5 unset %chanel
  timer 1 .5 unset %topci
}
on *:dialog:cc:sclick:4:{
  /did -e cc 19,20
}
on *:dialog:cc:sclick:16:{
  $iif($did(2) != %topci,/topic %chanel $did(2))
  $iif($did(5).state == 1, /mode %chanel +t,/mode %chanel -t)
  $iif($did(6).state == 1, /mode %chanel +n,/mode %chanel -n)
  $iif($did(7).state == 1, /mode %chanel +i,/mode %chanel -i)
  $iif($did(8).state == 1, /mode %chanel +m,/mode %chanel -m)
  $iif($did(9).state == 1, /mode %chanel +k $did(14),/mode %chanel -k $did(14))
  $iif($did(10).state == 1, /mode %chanel +l $did(15),/mode %chanel -l $did(15))
  $iif($did(11).state == 1, /mode %chanel +p,/mode %chanel -p)
  $iif($did(12).state == 1, /mode %chanel +s,/mode %chanel -s)
  /dialog -x cc cc
}
on *:dialog:cc:sclick:18:{
  /help mk:@MSITStore:C:\Program%20Files\mIRC\bots\Mirc.chm::/channel_central.htm
}
on *:dialog:cc:sclick:19:{
  set %address $did(4).seltext
  /dialog -i cc cc
  /dialog -m cc2 cc2
}
on *:dialog:cc:sclick:20:{
  /ban -r %chanel $did(4).seltext  
  /did -d cc 4 $did(4).sel
}
on *:dialog:cc:sclick:21:{
  /did -ra cc 3 Bans List:
  $iif($chan(%chanel).ibl != $null,/ibl %chanel)
}
on *:dialog:cc:sclick:22:{
  /did -ra cc 3 Excepts List:
  $iif($chan(%chanel).iel != $null,/iel %chanel)
}
on *:dialog:cc:sclick:23:{
  /did -ra cc 3 Invites List:
  $iif($chan(%chanel).iil != $null,/iil %chanel)
}
on *:dialog:cc:dclick:4:{
  set %adress $did(4).seltext
  /dialog -i cc cc
  /dialog -m cc2 cc2
}
dialog -l cc2 {
  title "Edit Address"
  size -1 -1 118 72
  option dbu
  text "Edit Address:", 1, 5 7 35 8
  edit "", 2, 4 16 104 10
  check "Remove ban in:", 3, 34 30 50 10
  combo 4, 45 41 23 50, disable size vsbar drop
  button "OK", 5, 34 59 37 12, ok
  text "mins", 6, 70 42 13 8, disable
  button "Cancel", 7, 76 59 37 12, cancel
}
on *:dialog:cc2:init:0:{
  /did -a cc2 2 %adress
  /did -a cc2 4 1
  /did -a cc2 4 2
  /did -a cc2 4 3
  /did -a cc2 4 4
  /did -a cc2 4 5
  /did -a cc2 4 6
  /did -a cc2 4 7
  /did -a cc2 4 8
  /did -a cc2 4 9
  /did -a cc2 4 10
  /did -a cc2 4 15
  /did -a cc2 4 20
  /did -a cc2 4 25
  /did -a cc2 4 30
  /did -a cc2 4 35
  /did -a cc2 4 40
  /did -a cc2 4 45
  /did -a cc2 4 50
  /did -a cc2 4 55
  /did -a cc2 4 60
}
on *:dialog:cc2:sclick:3:{
  /did -e cc2 4
}
on *:dialog:cc2:sclick:5:{
  if ($did(3).state == 1) {
    if ($did(4) != $null) {
      /timer 1 $~($calc($did(4) * 60),2) /ban -r $~(%chanel,2) $did(2)
    }
  }
  if ($did(2).edited == $true) {
    /ban -r %chanel %adress
    /ban %chanel $did(2)
  }
  unset %adress
}
alias ibl {
  var %x = 1
  var %y = $1
  /did -r cc 4  
  while (%x <= $ibl(%y,0)) {
    did -a cc 4 $ibl(%y,%x)
    inc %x
  }
}
alias iel {
  var %x = 1
  var %y = $1
  /did -r cc 4  
  while (%x <= $iel(%y,0)) {
    did -a cc 4 $iel(%y,%x)
    inc %x
  }
}
alias iil {
  var %x = 1
  var %y = $1
  /did -r cc 4  
  while (%x <= $iil(%y,0)) {
    did -a cc 4 $iil(%y,%x)
    inc %x
  }
}