tclscripts-BlackTools-TCL/BlackTools/Commands/BT.H.tcl

#########################################################################
##          BlackTools - The Ultimate Channel Control Script           ##
##                    One TCL. One smart Eggdrop                       ##
#########################################################################
#############################   HCMDS TCL   #############################
#########################################################################
##						                       ##
##   BlackTools  : http://blacktools.tclscripts.net	               ##
##   Bugs report : http://www.tclscripts.net/	                       ##
##   GitHub page : https://github.com/tclscripts/BlackToolS-TCL	       ##
##   Online Help : irc://irc.undernet.org/tcl-help 	               ##
##                 #TCL-HELP / UnderNet                                ##
##                 You can ask in english or romanian                  ##
##					                               ##
#########################################################################

proc h:process {nick host hand chan chan1 command type} {
global black botnick config lastbind
if {[matchattr $hand q]} { blacktools:tell $nick $host $hand $chan $chan1 gl.glsuspend none
	return
}
if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
	return
}
	set cmd_status [btcmd:status $chan $hand "h" 0]
if {$cmd_status == "1"} {
	return
}
	set number [scan $black(antiflood:cmd) %\[^:\]]
	set show_cmds ""
	set timer [scan $black(antiflood:cmd) %*\[^:\]:%s]
	set split_lastbind [split $lastbind ""]
	set charbind [lindex $split_lastbind 0]
if {[lsearch -exact $black(cmdchar) $charbind] < 0} {
	set charbind ""
}
	set replace(%botnick%) $botnick
if {[string equal $lastbind "*"]} { set charbind "" }
if {[string equal -nocase "**" $lastbind]} { set charbind "$botnick " }
	set replace(%char%) $charbind
if {[info exists black(flood:activ:$host)]} {
foreach tmr [utimers] {
if {[string match "*black(flood:activ:$host)*" [join [lindex $tmr 1]]]} {
	set time [lindex $tmr 0]
	}
}
	blacktools:tell $nick $host $hand $chan $chan1 h.16 "$time h"
	return
}
	foreach tmr [utimers] {
if {[string match "*black(floodcmd:$host:$chan)*" [join [lindex $tmr 1]]]} {
	killutimer [lindex $tmr 2]
	}
}

if {![info exists black(floodcmd:$host:$chan)]} { 
	set black(floodcmd:$host:$chan) 0 
}
	incr black(floodcmd:$host:$chan)
	utimer $timer [list unset black(floodcmd:$host:$chan)]

if {$black(floodcmd:$host:$chan) == "$number"} {
	blacktools:tell $nick $host $hand $chan $chan1 h.16 "30 h"
	set black(flood:activ:$host) 1
	utimer 30 [list unset black(flood:activ:$host)]
	return
}
	set replace(%chan%) $chan
	set greeting [getuser $hand XTRA BT_WELCOME]
	set chanlang [string tolower [setting:get $chan lang]]

if {[matchattr $hand -|V $chan]} {
	set access "VOICE"
} elseif {[matchattr $hand -|O $chan]} {
	set access "OP"
} elseif {[matchattr $hand -|A $chan]} {
	set access "ADMIN"
} elseif {[matchattr $hand -|M $chan]} {
	set access "MANAGER"
} elseif {[matchattr $hand n]} {
	set access "BOSS"
} elseif {[matchattr $hand m]} {
	set access "OWNER"
} elseif  {[matchattr $hand o]} {
	set access "MASTER"
}

if {$chanlang == ""} { set chanlang "[string tolower $black(default_lang)]" }
if {$greeting == ""} {
	set text1 [black:color:set "" $black(say.$chanlang.greeting.1)]
	set reply1 [join $text1]
	set text2 [black:color:set "" $black(say.$chanlang.greeting.2)]
	set reply2 [join $text2]
	set text3 [black:color:set "" $black(say.$chanlang.greeting.3)]
	set reply3 [join $text3]
	set text4 [black:color:set "" $black(say.$chanlang.greeting.4)]
	set reply4 [join $text4]
	set text5 [black:color:set "" $black(say.$chanlang.greeting.5)]
	set reply5 [join $text5]
	set text6 [black:color:set "" $black(say.$chanlang.greeting.6)]
	set reply6 [join $text6]
	putserv "PRIVMSG $nick :[string map [array get replace] $reply1]"
	putserv "PRIVMSG $nick :[string map [array get replace] $reply2]"
	putserv "PRIVMSG $nick :[string map [array get replace] $reply3]"
	putserv "PRIVMSG $nick :[string map [array get replace] $reply4]"
	putserv "PRIVMSG $nick :[string map [array get replace] $reply5]"
	putserv "PRIVMSG $nick :[string map [array get replace] $reply6]"
	setuser $hand XTRA BT_WELCOME 1
	return
}
	set getlang [string tolower [getuser $hand XTRA OUTPUT_LANG]]
if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }

if {$command == ""} {
	switch $access {

	VOICE {
	blacktools:tell $nick $host $hand $chan $chan1 h.5 $black(say.$getlang.level.6)
switch $type {
	0 {
	blacktools:tell $nick $host $hand $chan $chan1 h.6 none
	}
	1 {
	blacktools:tell $nick $host $hand $chan $chan1 h.24 none
	}
	2 {
	blacktools:tell $nick $host $hand $chan $chan1 h.20 none
		}
	}
}
	OP {
	blacktools:tell $nick $host $hand $chan $chan1 h.7 $black(say.$getlang.level.5)
switch $type {
	0 {
	blacktools:tell $nick $host $hand $chan $chan1 h.8 none	
	}
	1 {
	blacktools:tell $nick $host $hand $chan $chan1 h.24 none
	}
	2 {
	blacktools:tell $nick $host $hand $chan $chan1 h.20 none
		}
	}	
}

	ADMIN {
	blacktools:tell $nick $host $hand $chan $chan1 h.11 $black(say.$getlang.level.4)
switch $type {
	0 {
	blacktools:tell $nick $host $hand $chan $chan1 h.12 none
	}
	1 {
	blacktools:tell $nick $host $hand $chan $chan1 h.23 none
	}
	2 {
	blacktools:tell $nick $host $hand $chan $chan1 h.19 none
		}
	}
}

	MANAGER {
	blacktools:tell $nick $host $hand $chan $chan1 h.13 $black(say.$getlang.level.3)
switch $type {
	0 {
	blacktools:tell $nick $host $hand $chan $chan1 h.14 none
	}
	1 {
	blacktools:tell $nick $host $hand $chan $chan1 h.22 none
	}
	2 {
	blacktools:tell $nick $host $hand $chan $chan1 h.18 none
		}
	}	
}

	OWNER {
	blacktools:tell $nick $host $hand $chan $chan1 h.3 $black(say.$getlang.level.2)
switch $type {
	0 {
	blacktools:tell $nick $host $hand $chan $chan1 h.4 none
	}
	1 {
	blacktools:tell $nick $host $hand $chan $chan1 h.21 none
	}
	2 {
	blacktools:tell $nick $host $hand $chan $chan1 h.17 none
			}	
		}	
	}	
	
	MASTER {
	blacktools:tell $nick $host $hand $chan $chan1 h.1 $black(say.$getlang.level.8)
switch $type {
	0 {
	blacktools:tell $nick $host $hand $chan $chan1 h.25 none
	}
	1 {
	blacktools:tell $nick $host $hand $chan $chan1 h.27 none
	}
	2 {
	blacktools:tell $nick $host $hand $chan $chan1 h.26 none
			}
		}
	}
	
	BOSS {
	blacktools:tell $nick $host $hand $chan $chan1 h.1 $black(say.$getlang.level.1)
	switch $type {
	0 {
	blacktools:tell $nick $host $hand $chan $chan1 h.4 none
	}
	1 {
	blacktools:tell $nick $host $hand $chan $chan1 h.21 none
	}
	2 {
	blacktools:tell $nick $host $hand $chan $chan1 h.17 none
			}	
		}
	}
}
	return
}

switch -exact -- [string tolower $command] {
	cmds {
	switch $access {
VOICE {
	set cmds [string map [array get replace] $black(say.$getlang.cmdsvoice)]
	set split_cmds [split $cmds ";"]
foreach cmd $split_cmds {
	set thecmd [lindex $cmd 0]
	set rest_of [lrange $cmd 1 end]
	set status [btcmd:status $chan $hand $thecmd 1]
if {$status == "1"} {
	continue
} else { set applycmd "[black:color 1 $hand $thecmd] [black:color 6 $hand [join $rest_of]] ;"  }
	lappend show_cmds [join $applycmd " "]
}
foreach txt [h:wrap [string map [array get replace] [join $show_cmds]] 330] {
	blacktools:tell:h $nick $host $hand $chan $chan1 h.15 $txt
	}
}	
	
OP {
	set cmds [string map [array get replace] $black(say.$getlang.cmdsop)]
	set split_cmds [split $cmds ";"]
foreach cmd $split_cmds {
	set thecmd [lindex $cmd 0]
	set rest_of [lrange $cmd 1 end]
	set status [btcmd:status $chan $hand $thecmd 1]
if {$status == "1"} {
	continue
} else { set applycmd "[black:color 1 $hand $thecmd] [black:color 6 $hand [join $rest_of]] ;" }
	lappend show_cmds [join $applycmd " "]
}
foreach txt [h:wrap [string map [array get replace] [join $show_cmds]] 330] {
	blacktools:tell:h $nick $host $hand $chan $chan1 h.15 $txt
	}
}

ADMIN {
	set cmds [string map [array get replace] $black(say.$getlang.cmdadmin)]
	set split_cmds [split $cmds ";"]
foreach cmd $split_cmds {
	set thecmd [lindex $cmd 0]
	set rest_of [lrange $cmd 1 end]
	set status [btcmd:status $chan $hand $thecmd 1]
if {$status == "1"} {
	continue
} else { set applycmd "[black:color 1 $hand $thecmd] [black:color 6 $hand [join $rest_of]] ;"  }
	lappend show_cmds [join $applycmd " "]
}
foreach txt [h:wrap [string map [array get replace] [join $show_cmds]] 330] {
	blacktools:tell:h $nick $host $hand $chan $chan1 h.15 $txt
	}
}

MANAGER {
	set cmds [string map [array get replace] $black(say.$getlang.cmdmanager)]
	set split_cmds [split $cmds ";"]
foreach cmd $split_cmds {
	set thecmd [lindex $cmd 0]
	set rest_of [lrange $cmd 1 end]
	set status [btcmd:status $chan $hand $thecmd 1]
if {$status == "1"} {
	set applycmd "\00300,14$thecmd [join $rest_of]\003"
} else { set applycmd "[black:color 1 $hand $thecmd] [black:color 6 $hand [join $rest_of]] ;"  }
	lappend show_cmds [join $applycmd " "]
}
foreach txt [h:wrap [string map [array get replace] [join $show_cmds]] 330] {
	blacktools:tell:h $nick $host $hand $chan $chan1 h.15 $txt
	}
}

OWNER {
	set cmds [string map [array get replace] $black(say.$getlang.cmdbossowner)]
	set split_cmds [split $cmds ";"]
foreach cmd $split_cmds {
	set thecmd [lindex $cmd 0]
	set rest_of [lrange $cmd 1 end]
	set status [btcmd:status $chan $hand $thecmd 1]
if {$status == "1"} {
	set applycmd "\00300,14$thecmd [join $rest_of]\003"
} else { set applycmd "[black:color 1 $hand $thecmd] [black:color 6 $hand [join $rest_of]] ;"  }
	lappend show_cmds [join $applycmd " "]
}
foreach txt [h:wrap [string map [array get replace] [join $show_cmds]] 330] {
	blacktools:tell:h $nick $host $hand $chan $chan1 h.15 $txt
	}
}

BOSS {
	set cmds [string map [array get replace] $black(say.$getlang.cmdbossowner)]
	set split_cmds [split $cmds ";"]
foreach cmd $split_cmds {
	set thecmd [lindex $cmd 0]
	set rest_of [lrange $cmd 1 end]
	set status [btcmd:status $chan $hand $thecmd 1]
if {$status == "1"} {
	set applycmd "\00300,14$thecmd [join $rest_of]\003"
} else { 
	set applycmd "[black:color 1 $hand $thecmd] [black:color 6 $hand [join $rest_of]] ;" 
}												
	lappend show_cmds [join $applycmd " "]
}
foreach txt [h:wrap [string map [array get replace] [join $show_cmds]] 330] {
	blacktools:tell:h $nick $host $hand $chan $chan1 h.15 $txt
	}
}
	
MASTER {
	set cmds [string map [array get replace] $black(say.$getlang.cmdmaster)]
	set split_cmds [split $cmds ";"]
foreach cmd $split_cmds {
	set thecmd [lindex $cmd 0]
	set rest_of [lrange $cmd 1 end]
	set status [btcmd:status $chan $hand $thecmd 1]
if {$status == "1"} {
	set applycmd "\00300,14$thecmd [join $rest_of]\003"
} else { set applycmd "[black:color 1 $hand $thecmd] [black:color 6 $hand [join $rest_of]] ;"  }
	lappend show_cmds [join $applycmd " "]
}
foreach txt [h:wrap [string map [array get replace] [join $show_cmds]] 330] {
	blacktools:tell:h $nick $host $hand $chan $chan1 h.15 $txt
		}
	}	
}
	set alias_cmds [blacktools:alias_get $hand $chan]
if {$alias_cmds != 0} {
	set text "$black(say.$getlang.alias.7) $alias_cmds"
foreach txt [h:wrap [join $text] 330] {
	blacktools:tell:h $nick $host $hand $chan $chan1 h.15 $txt
	}	
}
	switch $type {
	0 {
	blacktools:tell $nick $host $hand $chan $chan1 hcommand.1 none
	}
	1 {
	blacktools:tell $nick $host $hand $chan $chan1 hcommand.2 none
	}
	2 {
	blacktools:tell $nick $host $hand $chan $chan1 hcommand.3 none
		}
	}
}

	ban {
switch $access {

VOICE {
	set cmds [string map [array get replace] $black(say.$getlang.banvoice)]
	set split_cmds [split $cmds ";"]
foreach cmd $split_cmds {
	set thecmd [lindex $cmd 0]
	set rest_of [lrange $cmd 1 end]
	set status [btcmd:status $chan $hand $thecmd 1]
if {$status == "1"} {
	continue
} else { set applycmd "[black:color 1 $hand $thecmd] [black:color 6 $hand [join $rest_of]] ;"  }
	lappend show_cmds [join $applycmd " "]
}
foreach txt [h:wrap [string map [array get replace] [join $show_cmds]] 450] {	
	blacktools:tell:h $nick $host $hand $chan $chan1 h.15 "$txt"
	}
}

OP {
	set cmds [string map [array get replace] $black(say.$getlang.banop)]
	set split_cmds [split $cmds ";"]
foreach cmd $split_cmds {
	set thecmd [lindex $cmd 0]
	set rest_of [lrange $cmd 1 end]
	set status [btcmd:status $chan $hand $thecmd 1]
if {$status == "1"} {
	continue
} else { set applycmd "[black:color 1 $hand $thecmd] [black:color 6 $hand [join $rest_of]] ;"  }
	lappend show_cmds [join $applycmd " "]
}
foreach txt [h:wrap [string map [array get replace] [join $show_cmds]] 450] {	
	blacktools:tell:h $nick $host $hand $chan $chan1 h.15 "$txt"
	}
}

ADMIN {
	set cmds [string map [array get replace] $black(say.$getlang.banadmin)]
	set split_cmds [split $cmds ";"]
foreach cmd $split_cmds {
	set thecmd [lindex $cmd 0]
	set rest_of [lrange $cmd 1 end]
	set status [btcmd:status $chan $hand $thecmd 1]
if {$status == "1"} {
	continue
} else { set applycmd "[black:color 1 $hand $thecmd] [black:color 6 $hand [join $rest_of]] ;"  }
	lappend show_cmds [join $applycmd " "]
}
foreach txt [h:wrap [string map [array get replace] [join $show_cmds]] 450] {	
	blacktools:tell:h $nick $host $hand $chan $chan1 h.15 "$txt"
	}
}


MANAGER {
	set cmds [string map [array get replace] $black(say.$getlang.banmanager)]
	set split_cmds [split $cmds ";"]
foreach cmd $split_cmds {
	set thecmd [lindex $cmd 0]
	set rest_of [lrange $cmd 1 end]
	set status [btcmd:status $chan $hand $thecmd 1]
if {$status == "1"} {
	set applycmd "\00300,14$thecmd [join $rest_of]\003"
} else { set applycmd "[black:color 1 $hand $thecmd] [black:color 6 $hand [join $rest_of]] ;"  }
	lappend show_cmds [join $applycmd " "]
}
foreach txt [h:wrap [string map [array get replace] [join $show_cmds]] 450] {
	blacktools:tell:h $nick $host $hand $chan $chan1 h.15 "$txt"
	}
}

OWNER {
	set cmds [string map [array get replace] $black(say.$getlang.banbossowner)]
	set split_cmds [split $cmds ";"]
foreach cmd $split_cmds {
	set thecmd [lindex $cmd 0]
	set rest_of [lrange $cmd 1 end]
	set status [btcmd:status $chan $hand $thecmd 1]
if {$status == "1"} {
	set applycmd "\00300,14$thecmd [join $rest_of]\003"
} else { set applycmd "[black:color 1 $hand $thecmd] [black:color 6 $hand [join $rest_of]] ;"  }
	lappend show_cmds [join $applycmd " "]
}
foreach txt [h:wrap [string map [array get replace] [join $show_cmds]] 440] {	
	blacktools:tell:h $nick $host $hand $chan $chan1 h.15 "$txt"
	}
}

BOSS {
	set cmds [string map [array get replace] $black(say.$getlang.banbossowner)]
	set split_cmds [split $cmds ";"]
foreach cmd $split_cmds {
	set thecmd [lindex $cmd 0]
	set rest_of [lrange $cmd 1 end]
	set status [btcmd:status $chan $hand $thecmd 1]
if {$status == "1"} {
	set applycmd "\00300,14$thecmd [join $rest_of]\003"
} else { set applycmd "[black:color 1 $hand $thecmd] [black:color 6 $hand [join $rest_of]] ;"  }
	lappend show_cmds [join $applycmd " "]
}
foreach txt [h:wrap [string map [array get replace] [join $show_cmds]] 440] {	
	blacktools:tell:h $nick $host $hand $chan $chan1 h.15 "$txt"
		}
	}
	
MASTER {
	set cmds [string map [array get replace] $black(say.$getlang.banmaster)]
	set split_cmds [split $cmds ";"]
foreach cmd $split_cmds {
	set thecmd [lindex $cmd 0]
	set rest_of [lrange $cmd 1 end]
	set status [btcmd:status $chan $hand $thecmd 1]
if {$status == "1"} {
	set applycmd "\00300,14$thecmd [join $rest_of]\003"
} else { set applycmd "\002$thecmd\002 [join $rest_of] ;" }
	lappend show_cmds [join $applycmd " "]
}
foreach txt [h:wrap [string map [array get replace] [join $show_cmds]] 440] {	
	blacktools:tell:h $nick $host $hand $chan $chan1 h.15 "$txt"
		}
	}	
}
	switch $type {
	0 {
	blacktools:tell $nick $host $hand $chan $chan1 hcommand.1 none
	}
	1 {
	blacktools:tell $nick $host $hand $chan $chan1 hcommand.2 none
	}
	2 {
	blacktools:tell $nick $host $hand $chan $chan1 hcommand.3 none
		}
	}
}

	add {
	switch $access {
ADMIN {
	set cmds [string map [array get replace] $black(say.$getlang.addadmin)]
	set split_cmds [split $cmds ";"]
foreach cmd $split_cmds {
	set thecmd [lindex $cmd 0]
	set rest_of [lrange $cmd 1 end]
	set status [btcmd:status $chan $hand $thecmd 1]
if {$status == "1"} {
	continue
} else { set applycmd "[black:color 1 $hand $thecmd] [black:color 6 $hand [join $rest_of]] ;"  }
	lappend show_cmds [join $applycmd " "]
}
foreach txt [h:wrap [string map [array get replace] [join $show_cmds]] 330] {
	blacktools:tell:h $nick $host $hand $chan $chan1 h.15 $txt
	}
}

MASTER {
	set cmds [string map [array get replace] $black(say.$getlang.addmaster)]
	set split_cmds [split $cmds ";"]
foreach cmd $split_cmds {
	set thecmd [lindex $cmd 0]
	set rest_of [lrange $cmd 1 end]
	set status [btcmd:status $chan $hand $thecmd 1]
if {$status == "1"} {
	set applycmd "\00300,14$thecmd [join $rest_of]\003"
} else { set applycmd "[black:color 1 $hand $thecmd] [black:color 6 $hand [join $rest_of]] ;"  }
	lappend show_cmds [join $applycmd " "]
}
foreach txt [h:wrap [string map [array get replace] [join $show_cmds]] 330] {
	blacktools:tell:h $nick $host $hand $chan $chan1 h.15 $txt
	}
}

MANAGER {
	set cmds [string map [array get replace] $black(say.$getlang.addmanager)]
	set split_cmds [split $cmds ";"]
foreach cmd $split_cmds {
	set thecmd [lindex $cmd 0]
	set rest_of [lrange $cmd 1 end]
	set status [btcmd:status $chan $hand $thecmd 1]
if {$status == "1"} {
	set applycmd "\00300,14$thecmd [join $rest_of]\003"
} else { set applycmd "[black:color 1 $hand $thecmd] [black:color 6 $hand [join $rest_of]] ;"  }
	lappend show_cmds [join $applycmd " "]
}
foreach txt [h:wrap [string map [array get replace] [join $show_cmds]] 330] {
	blacktools:tell:h $nick $host $hand $chan $chan1 h.15 $txt
	}
}

OWNER {
	set cmds [string map [array get replace] $black(say.$getlang.addowner)]
	set split_cmds [split $cmds ";"]
foreach cmd $split_cmds {
	set thecmd [lindex $cmd 0]
	set rest_of [lrange $cmd 1 end]
	set status [btcmd:status $chan $hand $thecmd 1]
if {$status == "1"} {
	set applycmd "\00300,14$thecmd [join $rest_of]\003"
} else { set applycmd "[black:color 1 $hand $thecmd] [black:color 6 $hand [join $rest_of]] ;"  }
	lappend show_cmds [join $applycmd " "]
}
foreach txt [h:wrap [string map [array get replace] [join $show_cmds]] 330] {
	blacktools:tell:h $nick $host $hand $chan $chan1 h.15 $txt
	}
}

BOSS {
	set cmds [string map [array get replace] $black(say.$getlang.addbossowner)]
	set split_cmds [split $cmds ";"]
foreach cmd $split_cmds {
	set thecmd [lindex $cmd 0]
	set rest_of [lrange $cmd 1 end]
	set status [btcmd:status $chan $hand $thecmd 1]
if {$status == "1"} {
	set applycmd "\00300,14$thecmd [join $rest_of]\003"
} else { set applycmd "[black:color 1 $hand $thecmd] [black:color 6 $hand [join $rest_of]] ;"  }
	lappend show_cmds [join $applycmd " "]
}
foreach txt [h:wrap [string map [array get replace] [join $show_cmds]] 330] {
	blacktools:tell:h $nick $host $hand $chan $chan1 h.15 $txt
				}
			}
		}	
	switch $type {
	0 {
	blacktools:tell $nick $host $hand $chan $chan1 hcommand.1 none
	}
	1 {
	blacktools:tell $nick $host $hand $chan $chan1 hcommand.2 none
	}
	2 {
	blacktools:tell $nick $host $hand $chan $chan1 hcommand.3 none
		}
	}
}

	manager {
if {$access == "MANAGER"} {
	set cmds [string map [array get replace] $black(say.$getlang.hmanager.1)]
	set split_cmds [split $cmds ";"]
foreach cmd $split_cmds {
	set thecmd [lindex $cmd 0]
	set rest_of [lrange $cmd 1 end]
	set status [btcmd:status $chan $hand $thecmd 1]
if {$status == "1"} {
	set applycmd "\00300,14$thecmd [join $rest_of]\003"
} else { set applycmd "[black:color 1 $hand $thecmd] [black:color 6 $hand [join $rest_of]] ;"  }
	lappend show_cmds [join $applycmd " "]
}
foreach txt [h:wrap [string map [array get replace] [join $show_cmds]] 330] {
	blacktools:tell:h $nick $host $hand $chan $chan1 h.15 $txt
	}
switch $type {
	0 {
	blacktools:tell $nick $host $hand $chan $chan1 hcommand.1 none
	}
	1 {
	blacktools:tell $nick $host $hand $chan $chan1 hcommand.2 none
	}
	2 {
	blacktools:tell $nick $host $hand $chan $chan1 hcommand.3 none
			}
		}	
	}
}

	master {
if {$access == "MASTER"} {
	set cmds [string map [array get replace] $black(say.$getlang.hmaster.1)]
	set split_cmds [split $cmds ";"]
foreach cmd $split_cmds {
	set thecmd [lindex $cmd 0]
	set rest_of [lrange $cmd 1 end]
	set status [btcmd:status $chan $hand $thecmd 1]
if {$status == "1"} {
	set applycmd "\00300,14$thecmd [join $rest_of]\003"
} else { set applycmd "[black:color 1 $hand $thecmd] [black:color 6 $hand [join $rest_of]] ;"  }
	lappend show_cmds [join $applycmd " "]
		}
	foreach txt [h:wrap [string map [array get replace] [join $show_cmds]] 330] {	
	blacktools:tell:h $nick $host $hand $chan $chan1 h.15 "$txt"
		}
	switch $type {
	0 {
	blacktools:tell $nick $host $hand $chan $chan1 hcommand.1 none
	}
	1 {
	blacktools:tell $nick $host $hand $chan $chan1 hcommand.2 none
	}
	2 {
	blacktools:tell $nick $host $hand $chan $chan1 hcommand.3 none
				}
			}
		}
	}
	
	owner {
if {[matchattr $hand nm]} {
	set cmds [string map [array get replace] $black(say.$getlang.hbossowner.1)]
	set split_cmds [split $cmds ";"]
foreach cmd $split_cmds {
	set thecmd [lindex $cmd 0]
	set rest_of [lrange $cmd 1 end]
	set status [btcmd:status $chan $hand $thecmd 1]
if {$status == "1"} {
	set applycmd "\00300,14$thecmd [join $rest_of]\003"
} else { set applycmd "[black:color 1 $hand $thecmd] [black:color 6 $hand [join $rest_of]] ;"  }
	lappend show_cmds [join $applycmd " "]
		}
	}
	foreach txt [h:wrap [string map [array get replace] [join $show_cmds]] 330] {	
	blacktools:tell:h $nick $host $hand $chan $chan1 h.15 "$txt"
}
	switch $type {
	0 {
	blacktools:tell $nick $host $hand $chan $chan1 hcommand.1 none
	}
	1 {
	blacktools:tell $nick $host $hand $chan $chan1 hcommand.2 none
	}
	2 {
	blacktools:tell $nick $host $hand $chan $chan1 hcommand.3 none
		}
	}
}

btinfo {
if {[matchattr $hand nmo|M $chan]} {
	set btstr_list ""
foreach setting $black(extra_flag) {
if {$setting != ""} {
if {[string equal -nocase $setting "chanlink"]} {
	continue
}
if {([string equal -nocase $setting "invisible"] || [string equal -nocase $setting "forward"]) && [matchattr $hand mo|M $chan] && ![matchattr $hand n]} {
	continue
}
if {[string equal -nocase $setting "settingsaved"]} {
	continue
}
if {[setting:get $chan $setting]} {
	lappend btflags +[black:color 2 $hand $setting]
	} else {
	lappend btflags -[black:color 4 $hand $setting]
		}
	}
}

foreach setting $black(extra_str) {
if {$setting != ""} {
if {[setting:get $chan $setting] != ""} {
if {![string equal -nocase $setting "joincount"] && ![string equal -nocase $setting "jointime"] && ![string equal -nocase $setting "kickcount"]} {
	set str_length [llength [setting:get $chan $setting]]
	set text [setting:get $chan $setting]
if {$str_length > 1} {
if {$str_length > 3 } {
	set text "[lrange $text 0 3] .."
}
	set text \"[join $text]\"
} else { set text [join $text] }
	lappend btstr_list [black:color 1 $hand $setting] $text
			}
		}
	}
}

if {$btstr_list == ""} {
	set btstr_list "N/A"
}

	set btflag_list "$black(say.$getlang.hchaninfo.2) $btflags"
	set btstr_list "$black(say.$getlang.hchaninfo.4) $btstr_list"
foreach flag [wordwrap [join $btflag_list]  440] {
	blacktools:tell:h $nick $host $hand $chan $chan1 h.15 "$flag"
}
foreach str [wordwrap [join $btstr_list]  440] {
	blacktools:tell:h $nick $host $hand $chan $chan1 h.15 "$str"
}
switch $type {
	0 {
	blacktools:tell $nick $host $hand $chan $chan1 hcommand.4 none
	}
	1 {
	blacktools:tell $nick $host $hand $chan $chan1 hcommand.5 none
	}
	2 {
	blacktools:tell $nick $host $hand $chan $chan1 hcommand.6 none
			}
		}
	}
}

chaninfo {

if {[matchattr $hand nmo|M $chan]} {
	set flag_list ""
foreach info [channel info $chan] { 
if {[regexp {^[+]} $info]} {
 lappend flag_list [black:color 2 $hand $info] 
	}
if {[regexp {^[-]} $info]} {
 lappend flag_list [black:color 4 $hand $info] 
	}
}
	set expirebans [setting:get $chan expirebans]
if {$expirebans == ""} {
	set expirebans $black(default:bantime)
}
	set floodchan [channel get $chan flood-chan]
	set floodjoin [channel get $chan flood-join]
	set floodkick [channel get $chan flood-kick]
	set floodctcp [channel get $chan flood-ctcp]
	set floodnick [channel get $chan flood-nick]
	set flooddeop [channel get $chan flood-deop]
	set chanmode [channel get $chan chanmode]

	set floodchan [string map {" " ":"} $floodchan]
	set floodjoin [string map {" " ":"} $floodjoin]
	set floodkick [string map {" " ":"} $floodkick]
	set floodctcp [string map {" " ":"} $floodctcp]
	set floodnick [string map {" " ":"} $floodnick]
	set flooddeop [string map {" " ":"} $flooddeop]
	set eggdrop_flags "[black:color 1 $hand flood-chan] $floodchan [black:color 1 $hand flood-join] $floodjoin [black:color 1 $hand flood-kick]  $floodkick [black:color 1 $hand flood-ctcp] $floodctcp [black:color 1 $hand flood-nick] $floodnick [black:color 1 $hand flood-deop] $flooddeop [black:color 1 $hand expirebans] $expirebans [black:color 1 $hand chanmode]  $chanmode"
foreach flag [wordwrap $flag_list 400] {
	blacktools:tell:h $nick $host $hand $chan $chan1 h.15 " $black(say.$getlang.hchaninfo.1) $flag"
		}
	blacktools:tell:h $nick $host $hand $chan $chan1 h.15 "$black(say.$getlang.hchaninfo.3) : $eggdrop_flags"
switch $type {
	0 {
	blacktools:tell $nick $host $hand $chan $chan1 hcommand.4 none
	}
	1 {
	blacktools:tell $nick $host $hand $chan $chan1 hcommand.5 none
	}
	2 {
	blacktools:tell $nick $host $hand $chan $chan1 hcommand.6 none
			}
		}
	}
}

module {

set allmodules "Anunt AutoBroadcast BadChan Idle Limit XTools Xonly Seen VoiceMe VoiceOnMsg CloneScan EGG ChanLink SecureMode Private Greet Leave Count Topic Timer Next TopWords BackChan ReportNick Quote Note Language AutoUpdate Vote Alias TCL"
set manager_module "Anunt BadChan Idle Limit XTools Xonly Seen VoiceMe VoiceOnMsg Clonescan Securemode Private Greet Leave Count Topic Next TopWords BackChan ReportNick Quote Note Language Vote Alias"
set owner_modules "Anunt AutoBroadcast BadChan Idle Limit CloneScan XTools Xonly Seen VoiceMe VoiceOnMsg CloneScan EGG ChanLink SecureMode Private Greet Leave Count Topic Timer Next TopWords BackChan ReportNick Quote Note Language Vote Alias"
set module_output ""
set other_module "Note Quote TopWords Vote Alias"
set master_module "Anunt BadChan Idle Limit XTools Xonly Seen VoiceMe VoiceOnMsg Clonescan Securemode Private Greet Leave Count Topic Next TopWords BackChan ReportNick Quote Note Language Vote Alias"

if {[matchattr $hand n]} {
	set current_modules $allmodules
} elseif {[matchattr $hand m]} {
	set current_modules $owner_modules
} elseif {[matchattr $hand o]} {
	set current_modules $master_module
} elseif {[matchattr $hand -|M $chan]} {
	set current_modules $manager_module
} else {
	set current_modules $other_module
}
foreach m $current_modules {
if {[string equal -nocase $m "quote"]} {
	set m "q"
}
if {[string equal -nocase $m "autobroadcast"]} {
	set m "bt"
}
	set cmd_status [btcmd:status $chan $hand $m 1]
if {[string equal -nocase $m "Topic"]} {
	set m "AutoTopic"
}
if {[string equal -nocase $m "q"]} {
	set m "Quote"
}
if {[string equal -nocase $m "bt"]} {
	set m "AutoBroadcast"
}

if {$cmd_status == "1"} {
	set m "\0034$m\003"
}
	switch [string tolower [color:filter $m]] {
	
count {
if {[setting:get $chan greet]} {
	set read_msg ""
	set file [open $black(join_file) r]
while {[gets $file line] != -1} {
	set read_modul [lindex [split $line] 0]
	set read_chan [lindex [split $line] 1]
	set enc_chan [encoding convertfrom utf-8 $read_chan]
if {[string equal -nocase $read_modul "greet"] && [string equal -nocase $chan $enc_chan]} {	
	set read_msg [lrange [split $line] 2 end]
	set getgreet [encoding convertfrom utf-8 $read_msg]
	}
}
	close $file
if {[lsearch -exact [color:filter $read_msg] "%count%"] > -1} {
	lappend module_output "[black:color 2 $hand $m]\[+\]"
} else { lappend module_output "[black:color 4 $hand $m]\[-\]"}
	} else { lappend module_output "[black:color 4 $hand $m]\[-\]"}
}

anunt {
if {[setting:get $chan anunt]} {
	lappend module_output "[black:color 2 $hand $m]\[+\] ;"
} else { lappend module_output "[black:color 4 $hand $m]\[-\]"}
}

quote {
if {[setting:get $chan quote]} {
	lappend module_output "[black:color 2 $hand $m]\[+\] ;"
} else { lappend module_output "[black:color 4 $hand $m]\[-\]"}
}

note {
if {[setting:get $chan note]} {
	lappend module_output "[black:color 2 $hand $m]\[+\] ;"
} else { lappend module_output "[black:color 4 $hand $m]\[-\]"}
}

chanlink {
if {[link:status $chan] == "1"} {
	lappend module_output "[black:color 2 $hand $m]\[+\] ;"
} else { lappend module_output "[black:color 4 $hand $m]\[-\]"
	}
}

autobroadcast {
	set found_module 0
	foreach tmr [timers] {
if {[string match "*broadcastpublic:show*" [join [lindex $tmr 1]]]} {
	lappend module_output "[black:color 2 $hand $m]\[+\]"
	set found_module 1
	}
}
if {$found_module == "0"} {
	lappend module_output "[black:color 4 $hand $m]\[-\]"
	}
}

badchan {
if {[setting:get $chan antibadchan]} {
	lappend module_output "[black:color 2 $hand $m]\[+\]"
} else { lappend module_output "[black:color 4 $hand $m]\[-\]"}	
}

idle {
	set idle_type ""
if {[setting:get $chan idleop]} {
	lappend idle_type "@"
}
if {[setting:get $chan idlevoice]} {
	lappend idle_type "+"
}
if {[setting:get $chan idlehalfop]} {
	lappend idle_type "%"
}
if {$idle_type == ""} {
	set idle_type ""
}
	lappend module_output "[black:color 1 $hand $m]\[$idle_type\]"
}

limit {
if {[setting:get $chan limit]} {
	lappend module_output "[black:color 2 $hand $m]\[+\]"
} else { lappend module_output "[black:color 4 $hand $m]\[-\]"}	
}

clonescan {
if {[setting:get $chan clonescan]} {
	lappend module_output "[black:color 2 $hand $m]\[+\]"
} else { lappend module_output "[black:color 4 $hand $m]\[-\]"}	
}

xtools {
if {[setting:get $chan xtools]} {
	lappend module_output "[black:color 2 $hand $m]\[+\] ;"
} else { lappend module_output "[black:color 4 $hand $m]\[-\]"}
}

xonly {
if {[setting:get $chan xonly]} {
	lappend module_output "[black:color 2 $hand $m]\[+\] ;"
} else { lappend module_output "[black:color 4 $hand $m]\[-\]"}
}

seen {
if {[setting:get $chan seen]} {
	lappend module_output "[black:color 2 $hand $m]\[+\]"
} else { lappend module_output "[black:color 4 $hand $m]\[-\]"}
}

voiceme {
if {[setting:get $chan voiceme]} {
	lappend module_output "[black:color 2 $hand $m]\[+\]"
} else { lappend module_output "[black:color 4 $hand $m]\[-\]"}
}

voiceonmsg {
if {[setting:get $chan voiceonmsg]} {
	lappend module_output "[black:color 2 $hand $m]\[+\]"
} else { lappend module_output "[black:color 4 $hand $m]\[-\]"}
}

egg {
	lappend module_output "[black:color 1 $hand $m]\[\]"
}

autoupdate {
if {$black(update_type) == 0} {
	lappend module_output "[black:color 2 $hand $m]\[+\]"
} else {
	lappend module_output "[black:color 1 $hand $m]\[-\]"
	}
}

tcl {
	lappend module_output "[black:color 1 $hand $m]\[\]"
}

alias {
	lappend module_output "[black:color 1 $hand $m]\[\]"
}

note {
if {[setting:get $chan note]} {
	lappend module_output "[black:color 2 $hand $m]\[+\]"
} else { lappend module_output "[black:color 4 $hand $m]\[-\]"}
}

securemode {
if {[setting:get $chan securemode]} {
	lappend module_output "[black:color 2 $hand $m]\[+\]"
} else { lappend module_output "[black:color 4 $hand $m]\[-\]" }	
}

vote {
if {[setting:get $chan vote]} {
	lappend module_output "[black:color 2 $hand $m]\[+\]"
} else { lappend module_output "[black:color 4 $hand $m]\[-\]" }	
}

private {
if {[setting:get $chan private]} {
	lappend module_output "[black:color 2 $hand $m]\[+\]"
} else { lappend module_output "[black:color 4 $hand $m]\[-\]" }	
}

greet {
if {[setting:get $chan greet]} {
	lappend module_output "[black:color 2 $hand $m]\[+\]"
} else { lappend module_output "[black:color 4 $hand $m]\[-\]"}	
}

leave {
if {[setting:get $chan leave]} {
	lappend module_output "[black:color 2 $hand $m]\[+\]"
} else { lappend module_output "[black:color 4 $hand $m]\[-\]"}	
}

autotopic {
if {[setting:get $chan autotopic]} {
	lappend module_output "[black:color 2 $hand $m]\[+\]"
} else { lappend module_output "[black:color 4 $hand $m]\[-\]"}	
}

timer {
	lappend module_output "[black:color 1 $hand $m]\[\]"
}

topwords {
if {[setting:get $chan topwords]} {
	lappend module_output "[black:color 2 $hand $m]\[+\]"
} else { lappend module_output "[black:color 4 $hand $m]\[-\]"}	
}

next {
if {[setting:get $chan next]} {
	lappend module_output "[black:color 2 $hand $m]\[+\]"
} else { lappend module_output "[black:color 4 $hand $m]\[-\]"}	
}

quote {
if {[setting:get $chan quoteofday]} {
	lappend module_output "[black:color 2 $hand $m]\[+\]"
} else { lappend module_output "[black:color 4 $hand $m]\[-\]"}	
}

backchan {
if {[setting:get $chan backchan] != ""} {
	lappend module_output "[black:color 2 $hand $m]\[+\]"
} else { lappend module_output "[black:color 4 $hand $m]\[-\]"}	
}

reportnick {
if {[setting:get $chan reportnick]} {
	lappend module_output "[black:color 2 $hand $m]\[+\]"
} else { lappend module_output "[black:color 4 $hand $m]\[-\]"}	
}

language {
	set lang [string toupper [setting:get $chan language]]
if {$lang == ""} { set lang "[string toupper $black(default_lang)]" }
	lappend module_output "[black:color 1 $hand $m]\[$lang\]"
					}
				}
			}
foreach m [h:wrap [join $module_output " ; "]  450] {
		blacktools:tell:h $nick $host $hand $chan $chan1 h.15 $m
}
	switch $type {
	0 {
	blacktools:tell $nick $host $hand $chan $chan1 hcommand.7 none
	}
	1 {
	blacktools:tell $nick $host $hand $chan $chan1 hcommand.8 none
	}
	2 {
	blacktools:tell $nick $host $hand $chan $chan1 hcommand.9 none
				}
			}
		}
egg {
	set tcl_config $black(tclconfig)
	set eggcmds ""
	set egg_cmds "nick realname away homechan chanserv hostchanserv userlogin userpass chanremove-setting add-defaultmask add-mask user-expire banmethod-expire broadcast-showtime cmdchar defaultlang defaultoutput floodmenuprot userfloodmsgprot massfloodmsgprot massfloodsilencetime floodnotcprot pagelimit antibotidle"
	set split_cmds [split $egg_cmds " "]
foreach cmd [color:filter $split_cmds] {
	switch $cmd {
	away {
	set get_info [config:getinfo $tcl_config "set black(default_away) \"*\""]
	lappend eggcmds [black:color 2 $hand $cmd]\[$get_info\]
	}
	add-mask {
	set get_info [config:getinfo $tcl_config "set black(hostdefaultadd) \"*\""]
	switch $get_info {
	1 {
	set get_info "*!*@host"
	}
	2 {
	set get_info "*!user@host"
	}
	3 {
	set get_info "nick!user@host"
	}
	4 {
	set get_info "nick!*@*"
	}
	5 {
	set get_info "*!user@*"
			}
		}
	lappend eggcmds [black:color 2 $hand $cmd]\[$get_info\]
	}
	hostchanserv {
	set get_info [config:getinfo $tcl_config "set black(hostchanserv) \"*\""]
	lappend eggcmds [black:color 2 $hand $cmd]\[$get_info\]
	}
	add-defaultmask {
	set get_info [config:getinfo $tcl_config "set black(hostadd) \"*\""]
	lappend eggcmds [black:color 2 $hand $cmd]\[$get_info\]
	}
	realname {
	set get_info [config:getinfo $config "set realname \"*\""]
	lappend eggcmds [black:color 2 $hand $cmd]\[$get_info\]
	}
	userlogin {
	set get_info [config:getinfo $tcl_config "set black(username) \"*\""]
	lappend eggcmds [black:color 2 $hand $cmd]\[$get_info\]
	}
	userpass {
	set get_info [config:getinfo $tcl_config "set black(password) \"*\""]
if {$get_info == ""} { set get_info "N/A" }
	set getc [string length $get_info]
	set password ""
	for {set i 0} { $i < $getc } { incr i} {
	lappend password "*"
	}
	set get_info [join $password ""]
	lappend eggcmds [black:color 2 $hand $cmd]\[$get_info\]
	}
	chanserv {
	set get_info [config:getinfo $tcl_config "set black(chanserv) \"*\""]
	lappend eggcmds [black:color 2 $hand $cmd]\[$get_info\]
	}
	nick {
	set get_info [config:getinfo $config "set nick \"*\""]
	lappend eggcmds [black:color 2 $hand $cmd]\[$get_info\]
	}
	cmdchar {
	set get_info [config:getinfo $tcl_config "set black(cmdchar) \"*\""]
	lappend eggcmds [black:color 2 $hand $cmd]\[$get_info\]
	}
	defaultlang {
	set get_info [config:getinfo $tcl_config "set black(default_lang) \"*\""]
	lappend eggcmds [black:color 2 $hand $cmd]\[$get_info\]
	}
	defaultoutput {
	set get_info [config:getinfo $tcl_config "set black(default_output) \"*\""]
	switch $get_info {
	0 {
	set get_info "NOTICE"
	}
	1 {
	set get_info "CHAN"
	}
	2 {
	set get_info "PRIVMSG"
		}
	}
	lappend eggcmds [black:color 2 $hand $cmd]\[$get_info\]
	}
	homechan {
	set get_info [config:getinfo $tcl_config "set black(homechan) \"*\""]
if {[string equal -nocase $get_info "#no_home_chan"]} {
	set get_info "N/A"
}
	lappend eggcmds [black:color 2 $hand $cmd]\[$get_info\]
	}
	floodmenuprot {
	set get_info [config:getinfo $tcl_config "set black(antiflood:cmd) \"*\""]
	lappend eggcmds [black:color 2 $hand $cmd]\[$get_info\]
	}
	userfloodmsgprot {
	set get_info [config:getinfo $tcl_config "set black(msg:flood) \"*\""]
	lappend eggcmds [black:color 2 $hand $cmd]\[$get_info\]
	}
	massfloodmsgprot {
	set get_info [config:getinfo $tcl_config "set black(mass:msg:flood) \"*\""]
	lappend eggcmds [black:color 2 $hand $cmd]\[$get_info\]
	}
	massfloodsilencetime {
	set get_info [config:getinfo $tcl_config "set black(mass:msg:silence_time) \"*\""]
	lappend eggcmds [black:color 2 $hand $cmd]\[$get_info$black(say.$getlang.timeout.9)\]
	}
	
	floodnotcprot {
	set get_info [config:getinfo $tcl_config "set black(notice:flood) \"*\""]
	lappend eggcmds [black:color 2 $hand $cmd]\[$get_info\]
	}
	chanremove-setting {
	set get_info [config:getinfo $tcl_config "set black(chanremove_all) \"*\""]
	lappend eggcmds [black:color 2 $hand $cmd]\[$get_info\]
	}
	antibotidle {
	set get_info [config:getinfo $tcl_config "set black(antibotidle_status) \"*\""]
	lappend eggcmds [black:color 2 $hand $cmd]\[$get_info\]
	}
	user-expire {
	set get_info [config:getinfo $tcl_config "set black(user_expire_time) \"*\""]
	lappend eggcmds [black:color 2 $hand $cmd]\[$get_info$black(say.$getlang.timeout.4)\]
	}
	banmethod-expire {
	set get_info [config:getinfo $tcl_config "set black(banmethod_memory_time) \"*\""]
	lappend eggcmds [black:color 2 $hand $cmd]\[$get_info\]
	}
	broadcast-showtime {
	set get_info [config:getinfo $tcl_config "set black(bttime) \"*\""]
	lappend eggcmds [black:color 2 $hand $cmd]\[$get_info\]
	}
	pagelimit {
	set get_info [config:getinfo $tcl_config "set black(modul:nr:entries) \"*\""]
	lappend eggcmds [black:color 2 $hand $cmd]\[$get_info\]
	}
	login {
	lappend eggcmds [black:color 2 $hand $cmd]
	}
	default {
	lappend eggcmds [black:color 2 $hand $cmd]\[\]
		}
	}
}
	foreach option [h:wrap [join $eggcmds " ; "]  450] {
	blacktools:tell:h $nick $host $hand $chan $chan1 hegg.1 "$option"
		}
	switch $type {
	0 {
	blacktools:tell $nick $host $hand $chan $chan1 hegg.2 none
	}
	1 {
	blacktools:tell $nick $host $hand $chan $chan1 hegg.3 none
	}
	2 {
	blacktools:tell $nick $host $hand $chan $chan1 hegg.4 none
				}
			}
		}		
	}
}

##############
#########################################################################
##   END                                                               ##
#########################################################################