Code:

##############################  This is the main channel#############################set om_subc(main) "#xbox-help"############################## This is the sub channel#############################set om_subc(sub) "#xbox-help2"##############################  Warning time, in minutes#############################set om_subc(warntime) 1############################## Warning Message#############################set om_subc(warnmsg) "You have $om_subc(warntime) minute to join $om_subc(main) or you will be banned"############################## Kick Message#############################set om_subc(kickmsg) "You were banned from $om_subc(sub) because you have not joined $om_subc(main).  Please join $om_subc(main) to have the ban removed."##############################  Unban message#############################set om_subc(unbannotice) "You have been unbanned from $om_subc(sub) , if you part $om_subc(main) you while in $om_subc(sub) you will be banned again."############################## Set the ban type here:    ## 1 - *!*@host.domain    ## 2 - *!user@host.domain    ## 3 - nick!*@host.domain    ## 4 - nick!user@host.domain ## 5 - *!?user@*.host.domain ##############################set om_subc(bantype) "1"#################################### Enable use of bold in DCC chat? ####################################set om_subc(bold) 1########################################## Prefix "SPLIT:" in DCC chat messages? ##########################################set om_subc(SUBCHAN:) 1##############################  Code begin#############################if {![string match 1.6.* $version]} { putlog "\002SUBCHAN:\002 \002WARNING:\002 This script is intended to run on eggdrop 1.6.x or later." }if {[info tclversion] < 8.2} { putlog "\002SUBCHAN:\002 \002WARNING:\002 This script is intended to run on Tcl Version 8.2 or later." }bind join - "$om_subc(sub) *" subchan_checkjoinbind join - "$om_subc(main) *" subchan_checkjoinbind part - "$om_subc(main) *" subchan_checkpartproc subchan_ncm {pattern string} { return [string match [string tolower $pattern] [string tolower $string]] }proc subchan_dopre {} {global om_subcif {!$om_subc(SUBCHAN:)} { return "" }if {!$om_subc(bold)} { return "SUBCHAN: " }return "\002SUBCHAN:\002 "}proc subchan_maskban {nick uhost} {global om_subcswitch -- $om_subc(bantype) {1 { set ban "*!*@[lindex [split $uhost @] 1]" }2 { set ban "*!$uhost" }3 { set ban "$nick!*@[lindex [split $uhost @] 1]" }4 { set ban "$nick!$uhost" }5 { set ban [maskhost $uhost] }default { set ban "*!*@[lindex [split $uhost @] 1]" }}return $ban }proc subchan_checkjoin {nick uhost hand chan} {global om_subcif {![botisop $om_subc(sub)]} { return }set banmask [subchan_maskban $nick $uhost]if {[subchan_ncm $chan $om_subc(main)]} {if {![ischanban $banmask $om_subc(sub)]} { return }regsub -all -- "%mainchan" $om_subc(unbannotice) $om_subc(main) msgregsub -all -- "%subchan" $msg $om_subc(sub) msgpushmode $om_subc(sub) -b $banmaskif {$msg != ""} { puthelp "NOTICE $nick :$msg" }return }if {[onchan $nick $om_subc(main)] || [matchattr $hand ov|ov $om_subc(main)] || [matchattr $hand ov|ov $om_subc(sub)] || [isvoice $nick $om_subc(main)] || [isop $nick $om_subc(main)]} { return }if {![onchan $nick $om_subc(main)]} {putserv "NOTICE $nick :$om_subc(warnmsg)" }timer $om_subc(warntime) [list subchan_setJoinban $nick $uhost]}proc subchan_checkpart {nick uhost hand chan text} {global om_subcset banmask [subchan_maskban $nick $uhost]if {![botisop $om_subc(sub)] || ![onchan $nick $om_subc(sub)] || [matchattr $hand vo|vo $om_subc(main)] || [matchattr $hand vo|vo $om_subc(sub)] || [isvoice $nick $om_subc(sub)] || [isop $nick $om_subc(sub)]} { return }if {[onchan $nick $om_subc(sub)] } {putserv "NOTICE $nick :$om_subc(warnmsg)" }timer $om_subc(warntime) [list subchan_setPartban $nick $uhost ]}proc subchan_setPartban {nick uhost} {global om_subcset banmask [subchan_maskban $nick $uhost]if {![botisop $om_subc(sub)] || ![onchan $nick $om_subc(sub)] || [isvoice $nick $om_subc(sub)] || [isop $nick $om_subc(sub)] || [onchan $nick $om_subc(main)] || [isvoice $nick $om_subc(main)] || [isop $nick $om_subc(main)]} { return }putserv "MODE $om_subc(sub) +b $banmask"putserv "KICK $om_subc(sub) $nick :$om_subc(kickmsg)"}proc subchan_setJoinban {nick uhost} {global om_subcset banmask [subchan_maskban $nick $uhost]if {![botisop $om_subc(sub)] || ![onchan $nick $om_subc(sub)] || [isvoice $nick $om_subc(sub)] || [isop $nick $om_subc(sub)] || [onchan $nick $om_subc(main)] || [isvoice $nick $om_subc(main)] || [isop $nick $om_subc(main)]} { return } putserv "MODE $om_subc(sub) +b $banmask"putserv "KICK $om_subc(sub) $nick :$om_subc(kickmsg)"}putlog "\002SUBCHAN:\002 OMSubChannel.tcl 1.0 is loaded."