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)
}
}
---------------------------------------------------------------------