menu channel,status {
  Channel Central
  .Un-Install: uninstall
}
dialog BE {
  title "Ban Editor"
  size -1 -1 204 32
  option dbu
  edit "Ban", 1, 11 6 190 10, autohs
  check "Unset Ban In ", 2, 19 20 42 10
  edit "#", 3, 61 18 23 10, disable autohs
  text "Minutes.", 4, 85 21 20 8
  button "Set", 5, 162 17 37 12, ok
}
dialog CC {
  title "Channel Central v2 by LO_KEY"
  size -1 -1 298 165
  option dbu
  combo 1, 1 9 295 50, size drop edit
  text "Topic History:", 2, 1 1 33 8
  list 3, 1 26 131 92, size hsbar vsbar extsel
  button "Ban List", 4, 2 119 37 12
  button "Except List", 5, 47 119 37 12,
  button "Invite List", 6, 93 119 37 12,
  button "Edit Selected", 7, 2 134 59 12
  button "Remove Selected", 8, 71 134 59 12
  check "Op Set Topic Only (+t)", 9, 139 32 64 10
  check "Private (+p)", 10, 203 32 39 10
  check "Secret (+s)", 11, 244 32 40 10
  check "Invite Only (+i)", 12, 139 42 45 10
  check "Moderated (+m)", 13, 185 42 49 10
  check "Registered (+r)", 14, 234 42 46 10
  check "No External Msgs (+n)", 15, 139 52 63 10
  check "Registered Nicks Only (+R)", 16, 203 52 75 10
  check "No Colors (+c)", 17, 139 62 44 10
  check "IRCops Only (+O)", 18, 184 62 52 10
  check "Admins Only (+A)", 19, 236 62 52 10
  check "No Knocks (+K)", 20, 139 72 48 10
  check "No Invites (+V)", 21, 188 72 50 10
  check "Strip Codes (+S)", 22, 235 72 49 10
  check "No Nick Changes (+N)", 23, 139 82 64 10
  check "G Rated (+G)", 24, 203 82 42 10
  check "No CTCP (+C)", 25, 246 82 45 10
  check "Auditorium (+u)", 26, 139 92 46 10
  check "SSL Connection Only (+z)", 27, 186 92 72 10
  check "Limit  To", 28, 139 102 31 10
  check "Channel Key (+k)", 29, 139 112 51 10
  check "Channel Link (+L)", 30, 139 122 50 10
  edit "", 31, 169 102 21 10, disable autohs
  text "Users On Chan (+l)", 32, 192 103 52 8
  edit "k3y", 33, 191 112 79 10, disable autohs
  text "Link To Channel:", 34, 152 131 41 8
  edit "#Channel", 35, 194 128 50 10, disable autohs
  button "&Done", 36, 258 156 37 8, ok
  box "Channel Modes", 37, 136 24 159 118
  text "This Script is Free To Distribute So Long As Credits To Me Are LEFT IN THE CODE!  Script Ripping Is LAME and only Bitch Ass N00BS do it, Coded Solely By LO_KEY. BA-2K4", 38, 1 149 250 13
  button "&Cancel", 39, 257 146 37 8, cancel
}
;---------------------- INSTALL/UNINSTALL START --------------------------------------------------------
on *:load: {
  echo -a  $+ $color(info) mIRC Must Restart To Properly Install This Script...
  echo -a  $+ $color(info) mIRC Will Restart In 45 Seconds. Please Close Any Scripts/DCC Sends.
  echo -a  $+ $color(info) If You Wish To Cancel This Install, Type 4/stop_install $+ $color(info) Now.
  .enable #Cancel_Install
  .timerinstall 1 45 exit
}
alias uninstall {
  echo -a  $+ $color(info) mIRC Must Restart To Properly UN-Install This Script...
  echo -a  $+ $color(info) mIRC Will Restart In 45 Seconds. Please Close Any Scripts/DCC Sends.
  echo -a  $+ $color(info) If You Wish To Cancel This UN-Install, Type 4/stop_uninstall $+ $color(info) Now.
  .enable #Cancel_UNInstall
  .timeruninstall 1 45 exit
}
#Cancel_Install off
on *:input:*: {
  if ($1- = /stop_install) { .timerinstall off | .disable #Cancel_Install | echo -a  $+ $color(info) Channel Central By LO_KEY Installation Cancelled. | haltdef | .unload -rs cc.mrc }
}
on *:exit: {
  writeini mirc.ini Clicks Channel /dialog -dm cc cc
  set %install Yes
  run $mircexe
}
on *:start: {
  if (%install = yes) { 
    echo -s  $+ $color(Info) Channel Central By LO_KEY Successfully Installed. Any Questions Or Bugs You May Have Can Be Directed To LO_KEY @ irc.bararcade.com
    .disable #Cancel_Install
    unset %install
  }
}
#Cancel_Install End

#Cancel_UNInstall off
on *:input:*: {
  if ($1- = /stop_uninstall) { .timeruninstall off | .disable #Cancel_UNInstall | echo -a  $+ $color(info) Channel Central By LO_KEY UN-Installation Cancelled. | halt }
}
on *:exit: {
  writeini mirc.ini Clicks Channel /channel
  run $mircexe
}
on *:start: {
  echo -s  $+ $color(Info) Channel Central By LO_KEY Successfully UN-Installed. 
  .disable #Cancel_UNInstall
  .unload -rs cc.mrc
}
#Cancel_UNInstall End
;------------------------------------------ INSTALL/UNINSTALL END------------------------------------------
on *:dialog:cc:init:0: {
  did -a cc 3 UPDATING BAN LIST
  set %updateban yes
  set %looking b
  set %bans 0
  mode $active +b
  did -i cc 1 0 $chan($active).topic

  if ($ini(cc.ini, $active ,0) > 0) {
    var %stopat = $ini(cc.ini, $active ,0)
    var %this = 1
    while (%stopat >= %this) {
      did -a cc 1 $replace($readini(cc.ini, $active , %this),&k,,&r,,&u,,&b,)
      inc %this
    }
  }


  set %modes $gettok($chan( $active ).mode,1,32)
  set %xtras $gettok($chan( $active ).mode,2-,32)
  if (t isincs %modes) { did -c cc 9 }
  if (p isincs %modes) { did -c cc 10 }
  if (s isincs %modes) { did -c cc 11 }
  if (i isincs %modes) { did -c cc 12 }
  if (m isincs %modes) { did -c cc 13 }
  if (r isincs %modes) { did -c cc 14 }
  if (n isincs %modes) { did -c cc 15 }
  if (R isincs %modes) { did -c cc 16 }
  if (c isincs %modes) { did -c cc 17 }
  if (O isincs %modes) { did -c cc 18 }
  if (A isincs %modes) { did -c cc 19 }
  if (K isincs %modes) { did -c cc 20 }
  if (V isincs %modes) { did -c cc 21 }
  if (S isincs %modes) { did -c cc 22 }
  if (N isincs %modes) { did -c cc 23 }
  if (G isincs %modes) { did -c cc 24 }
  if (C isincs %modes) { did -c cc 25 }
  if (u isincs %modes) { did -c cc 26 }
  if (z isincs %modes) { did -c cc 27 }
  if (l isincs %modes) { 
    did -c cc 28 
    did -e cc 31
    did -a cc 31 $gettok(%xtras,1,32)
  }
  if (k isincs %modes) { 
    did -c cc 29 
    did -e cc 33
    did -a cc 33 $gettok(%xtras,2,32)
  }
  if (L isincs %modes) { did -c cc 30 }
}
raw 367:*: { 
  if (%updateban = yes) { 
    inc %bans
    if (%bans = 1) { did -r cc 3 }
    did -a cc 3 $3 $4 $iif($address($4,3) != $null, ( $+ $address($4,3) $+ ) ) $date($5) $time($5)
    did -z cc 3
  }
}
on *:dialog:cc:sclick:4: {
  did -ra cc 3 Updating Ban List
  set %looking b
  set %updateban yes
  set %bans 0
  mode $active +b
}
raw 368:*: {
  if (%updateban = yes) {
    if (%bans = 0) { did -r cc 3 }
    did -a cc 3 End Of Ban List
    haltdef
    unset %updateban %bans
  }
}
on *:dialog:cc:sclick:6: {
  set %looking I
  did -ra cc 3 Updating Invite List
  set %invite 0
  mode $active +I
}
on *:dialog:cc:sclick:5: {
  set %looking e
  did -ra cc 3 Updating Except List
  set %except 0
  mode $active +e
}
raw 346:*: {
  if (%invite isnum) {
    inc %invite
    if (%invite = 1) { did -r cc 3 }
    did -a cc 3 $3 - $4 $iif($address( $4 , 3 ) != $null, $address( $4 , 3 )) - $date( $5 ) $time( $5 )
    haltdef
  }
}
raw 347:*: {
  if (%invite isnum) {
    if (%invite = 0) { did -r cc 3 }
    did -a cc 3 End Of Invite List
    haltdef
    unset %invite
  }
}
raw 348:*: {
  if (%except isnum) {
    inc %except
    if (%except = 1) { did -r cc 3 }
    did -a cc 3 $3 - $4 $iif($address( $4 , 3 ) != $null, $address( $4 , 3 )) - $date( $5 ) $time( $5 )
    haltdef
  }
}
raw 349:*: {
  if (%except isnum) {
    if (%except = 0) { did -r cc 3 }
    did -a cc 3 End Of Except List
    haltdef
    unset %except
  }
}
on *:dialog:cc:sclick:36: {
  if ($chan($active).topic != $did(cc,1).text) { /topic $active $did(cc,1).text }
  if ($did(cc,26).state = 1) && (u !isincs %modes) { set %plus %plus $+ u }
  if ($did(cc,26).state = 0) && (u isincs %modes) { set %minus %minus $+ u }

  if ($did(cc,25).state = 1) && (C !isincs %modes) { set %plus %plus $+ C }
  if ($did(cc,25).state = 0) && (C isincs %modes) { set %minus %minus $+ C }

  if ($did(cc,24).state = 1) && (G !isincs %modes) { set %plus %plus $+ G }
  if ($did(cc,24).state = 0) && (G isincs %modes) { set %minus %minus $+ G }

  if ($did(cc,23).state = 1) && (N !isincs %modes) { set %plus %plus $+ N }
  if ($did(cc,23).state = 0) && (N isincs %modes) { set %minus %minus $+ N }

  if ($did(cc,22).state = 1) && (S !isincs %modes) { set %plus %plus $+ S }
  if ($did(cc,22).state = 0) && (S isincs %modes) { set %minus %minus $+ S }

  if ($did(cc,21).state = 1) && (V !isincs %modes) { set %plus %plus $+ V }
  if ($did(cc,21).state = 0) && (V isincs %modes) { set %minus %minus $+ V }

  if ($did(cc,20).state = 1) && (K !isincs %modes) { set %plus %plus $+ K }
  if ($did(cc,20).state = 0) && (K isincs %modes) { set %minus %minus $+ K }

  if ($did(cc,19).state = 1) && (A !isincs %modes) { set %plus %plus $+ A }
  if ($did(cc,19).state = 0) && (A isincs %modes) { set %minus %minus $+ A }

  if ($did(cc,18).state = 1) && (O !isincs %modes) { set %plus %plus $+ O }
  if ($did(cc,18).state = 0) && (O isincs %modes) { set %minus %minus $+ O }

  if ($did(cc,17).state = 1) && (c !isincs %modes) { set %plus %plus $+ c }
  if ($did(cc,17).state = 0) && (c isincs %modes) { set %minus %minus $+ c }

  if ($did(cc,16).state = 1) && (R !isincs %modes) { set %plus %plus $+ R }
  if ($did(cc,16).state = 0) && (R isincs %modes) { set %minus %minus $+ R }

  if ($did(cc,15).state = 1) && (n !isincs %modes) { set %plus %plus $+ n }
  if ($did(cc,15).state = 0) && (n isincs %modes) { set %minus %minus $+ n }

  if ($did(cc,14).state = 1) && (r !isincs %modes) { set %plus %plus $+ r }
  if ($did(cc,14).state = 0) && (r isincs %modes) { set %minus %minus $+ r }

  if ($did(cc,13).state = 1) && (m !isincs %modes) { set %plus %plus $+ m }
  if ($did(cc,13).state = 0) && (m isincs %modes) { set %minus %minus $+ m }

  if ($did(cc,12).state = 1) && (i !isincs %modes) { set %plus %plus $+ i }
  if ($did(cc,12).state = 0) && (i isincs %modes) { set %minus %minus $+ i }

  if ($did(cc,11).state = 1) && (s !isincs %modes) { set %plus %plus $+ s }
  if ($did(cc,11).state = 0) && (s isincs %modes) { set %minus %minus $+ s }

  if ($did(cc,10).state = 1) && (p !isincs %modes) { set %plus %plus $+ p }
  if ($did(cc,10).state = 0) && (p isincs %modes) { set %minus %minus $+ p }

  if ($did(cc,9).state = 1) && (t !isincs %modes) { set %plus %plus $+ t }
  if ($did(cc,9).state = 0) && (t isincs %modes) { set %minus %minus $+ t }

  $iif(%plus != $null, mode $active  + $+ %plus )
  $iif(%minus != $null, mode $active - $+ %minus )

  unset %modes %xtras %plus %minus %looking
}
on *:dialog:cc:sclick:8: {
  if ($did(cc,3).seltext = $null) { halt }
  var %many = $did(cc,3,0).sel
  var %count = 1
  while (%count <= %many) {
    set %unset %unset $gettok($did(cc,3).seltext,1,32)
    did -d cc 3 $did(cc,3,1).sel
    inc %count
  }
  mp $numtok(%unset,32)
}
on *:dialog:cc:sclick:7: { 
  if ($did(cc,3).seltext = $null) { halt }
  set %editban $gettok( $did(cc,3).seltext , 1, 32)
  dialog -x cc cc
  dialog -dm be be
}
on *:dialog:be:init:0: {
  did -ar be 1 %editban
}
on *:dialog:be:sclick:5: {
  if ($did(be,1) != %editban) && ($did(be,2).state = 0) { 
    mode $active -b+b %editban $did(be,1)
  }
  if ($did(be,1) != %editban) && ($did(be,2).state = 1) && ($did(be,3).text isnum) { 
    mode $active -b %editban
    ban -u $+ $calc( 60 * $did(be,3).text ) $active $did(be,1)
  }
  dialog -dm cc cc
}
on *:dialog:be:sclick:2: {
  if ($did(be,2).state = 1) { did -e be 3 }
  if ($did(be,2).state = 0) { did -b be 3 }
}
alias mp {
  var %nicks_selected = $1
  vaR %counting = 1
  var %modespl = $iif( $modespl <= 10 , $modespl , 10)
  while (%counting <= %nicks_selected) {
    set %mode_niks %mode_niks $gettok( %unset , %counting ,32)
    if ( $numtok( %mode_niks , 32 ) = %modespl) {
      mode $active - $+ $str( %looking , %modespl) %mode_niks
      unset %mode_niks
    }
    if (%counting = %nicks_selected) {
      mode $active - $+ $str( %looking , %modespl) %mode_niks
    }
    inc %counting
  }
  unset %mode_niks
}

on *:topic:#: {
  if ($ini(cc.ini, $chan ,0) != 6) {
    writeini cc.ini $chan 1 -NULL-
    writeini cc.ini $chan 2 -NULL-
    writeini cc.ini $chan 3 -NULL-
    writeini cc.ini $chan 4 -NULL-
    writeini cc.ini $chan 5 -NULL-
    writeini cc.ini $chan 6 -NULL-
  }
  if ($ini(cc.ini, $chan ,0) = 6) {
    writeini cc.ini $chan 6 $readini(cc.ini, $chan , 5 )
    writeini cc.ini $chan 5 $readini(cc.ini, $chan , 4 )
    writeini cc.ini $chan 4 $readini(cc.ini, $chan , 3 )
    writeini cc.ini $chan 3 $readini(cc.ini, $chan , 2 )
    writeini cc.ini $chan 2 $readini(cc.ini, $chan , 1 )
    writeini cc.ini $chan 1 $replace($1-,,&b,,&u,,&r,,&k)
  }
}

---------------------------------------------------------------------