Create BT.H.tcl

BlackTools2.5/BlackTools/Commands/BT.H.tcl

@@ -0,0 +1,1168 @@
+#########################################################################
+##          BlackTools - The Ultimate Channel Control Script           ##
+##                    One TCL. One smart Eggdrop                       ##
+#########################################################################
+#############################   HCMDS TCL   #############################
+#########################################################################
+##						                       ##
+##     BlackTools  : http://blacktools.tclscripts.net	               ##
+##     Bugs report : http://www.tclscripts.net/	                       ##
+##     Online Help : irc://irc.undernet.org/tcl-help 	               ##
+##                   #TCL-HELP / UnderNet                              ##
+##                   You can ask in english or romanian                ##
+##					                               ##
+#########################################################################
+
+proc hpublic {nick host hand chan arg} {
+	global black botnick lastbind
+	set chan1 "$chan"
+	set type 0
+	set command [lindex [split $arg] 0]
+	set return [blacktools:mychar $lastbind $hand]
+if {$return == "0"} {
+		return
+}
+if {[regexp {^[&#]} $command]} {
+	set chan $command
+	set command [lindex [split $arg] 1]
+}
+foreach c [channels] {
+	set nextbackchan [join [setting:get $c next-backchan]]
+if {[string match -nocase $chan $nextbackchan]} {
+if {[setting:get $c nextshortcmd]} {
+	set chan "$c"
+		}
+	}
+}
+	
+if {[setting:get $chan nextshortcmd]} {
+	helpedpublic:process $nick $host $hand $chan $chan1 $command 0
+	return
+}
+	h:process $nick $host $hand $chan $chan1 $command $type
+}
+
+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 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 == ""} {
+	putserv "PRIVMSG $nick :[string map [array get replace] $black(say.$chanlang.greeting.1)]"
+	putserv "PRIVMSG $nick :[string map [array get replace] $black(say.$chanlang.greeting.2)]"
+	putserv "PRIVMSG $nick :[string map [array get replace] $black(say.$chanlang.greeting.3)]"
+	putserv "PRIVMSG $nick :[string map [array get replace] $black(say.$chanlang.greeting.4)]"
+	putserv "PRIVMSG $nick :[string map [array get replace] $black(say.$chanlang.greeting.5)]"
+	putserv "PRIVMSG $nick :[string map [array get replace] $black(say.$chanlang.greeting.6)]"
+	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 " "]
+}
+	blacktools:tell:h $nick $host $hand $chan $chan1 h.15 "[join $show_cmds]"
+}	
+	
+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 " "]
+}
+	blacktools:tell:h $nick $host $hand $chan $chan1 h.15 "[join $show_cmds]"
+}
+
+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 " "]
+}
+	blacktools:tell:h $nick $host $hand $chan $chan1 h.15 "[join $show_cmds]"
+}
+
+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 " "]
+}
+	blacktools:tell:h $nick $host $hand $chan $chan1 h.15 "[join $show_cmds]"
+}
+
+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 " "]
+}
+	blacktools:tell:h $nick $host $hand $chan $chan1 h.15 "[join $show_cmds]"
+}
+
+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 " "]
+}
+	blacktools:tell:h $nick $host $hand $chan $chan1 h.15 "[join $show_cmds]"
+	}
+	
+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 " "]
+}
+	blacktools:tell:h $nick $host $hand $chan $chan1 h.15 "[join $show_cmds]"
+	}	
+}
+	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 [wordwrap [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 [wordwrap [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 [wordwrap [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 [wordwrap [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 [wordwrap [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 [wordwrap [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 [wordwrap [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 " "]
+}
+	blacktools:tell:h $nick $host $hand $chan $chan1 h.15 "[join $show_cmds]"
+}
+
+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 " "]
+}
+	blacktools:tell:h $nick $host $hand $chan $chan1 h.15 "[join $show_cmds]"
+}
+
+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 " "]
+}
+	blacktools:tell:h $nick $host $hand $chan $chan1 h.15 "[join $show_cmds]"
+}
+
+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 " "]
+}
+	blacktools:tell:h $nick $host $hand $chan $chan1 h.15 "[join $show_cmds]"
+
+}
+
+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 " "]
+}
+	blacktools:tell:h $nick $host $hand $chan $chan1 h.15 "[join $show_cmds]"
+			}
+		}	
+	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 " "]
+}
+	blacktools:tell:h $nick $host $hand $chan $chan1 h.15 "[join $show_cmds]"
+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 [wordwrap [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 [wordwrap [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 nm|M $chan]} {
+foreach setting $black(extra_flag) {
+if {$setting != ""} {
+if {[string equal -nocase $setting "chanlink"]} {
+	continue
+}
+if {[string equal -nocase $setting "invisible"] && [matchattr $hand mo|M $chan] && ![matchattr $hand n]} {
+	continue
+}
+if {[setting:get $chan $setting]} {
+	lappend btflags +[black:color 2 $hand $setting]
+	} else {
+	lappend btflags -[black:color 4 $hand $setting]
+		}
+	}
+}
+
+	set btflag_list "$black(say.$getlang.hchaninfo.2) $btflags"
+foreach flag [wordwrap [join $btflag_list]  440] {
+	blacktools:tell:h $nick $host $hand $chan $chan1 h.15 "$flag"
+		}
+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 nm|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 bantime [channel get $chan ban-time]
+	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 bantime] $bantime [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 GuestNick Greet Leave Topic Timer Next TopWords BackChan ReportNick Quote Note Language"
+set manager_module "Anunt BadChan Idle Limit XTools Xonly Seen VoiceMe VoiceOnMsg Clonescan Securemode Private Guestnick Greet Leave Topic Next TopWords BackChan ReportNick Quote Note Language"
+set owner_modules "Anunt AutoBroadcast BadChan Idle Limit CloneScan XTools Xonly Seen VoiceMe VoiceOnMsg CloneScan EGG ChanLink SecureMode Private GuestNick Greet Leave Topic Timer Next TopWords BackChan ReportNick Quote Note Language"
+set module_output ""
+set other_module "Note"
+set master_module "Anunt BadChan Idle Limit XTools Xonly Seen VoiceMe VoiceOnMsg Clonescan Securemode Private Guestnick Greet Leave Topic Next TopWords BackChan ReportNick Quote Note Language"
+
+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]] {
+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]} {
+	set idle_type "@"
+}
+if {[setting:get $chan idlevoice]} {
+	set idle_type "$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]\[\] ;"
+}
+
+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]\[-\] ;" }	
+}
+
+private {
+if {[setting:get $chan private]} {
+	lappend module_output "[black:color 2 $hand $m]\[+\] ;"
+} else { lappend module_output "[black:color 4 $hand $m]\[-\] ;" }	
+}
+
+
+guestnick {
+if {[setting:get $chan guestnick]} {
+	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 lang]]
+if {$getlang == ""} { set getlang "[string toupper $black(default_lang)]" }
+	lappend module_output "[black:color 1 $hand $m]\[$lang\] ;"
+					}
+				}
+			}					
+	blacktools:tell:h $nick $host $hand $chan $chan1 h.15 "[join $module_output]"
+	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 "cmdchar;defaultlang;homechan;nick;realname;away;defaultoutput;floodmenuprot;floodmsgprot;floodnotcprot;chanremove-setting;user-expire;pagelimit;login;chanserv;hostchanserv;userlogin;userpass;add-mask;adduser-mask;antispam-cycletime;idle-scantime ;clonescan-scantime;broadcast-showtime;badchan-scantime;anunt-showtime;quoteofday-showtime"
+	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\]
+	}
+	adduser-mask {
+	set get_info [config:getinfo $tcl_config "set black(addusermask) \"*\""]
+	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\]
+	}
+	quoteofday-showtime {
+	set get_info [config:getinfo $tcl_config "set black(quote:msgtime) \"*\""]
+	lappend eggcmds [black:color 2 $hand $cmd]\[$get_info\]
+	}
+	anunt-showtime {
+	set get_info [config:getinfo $tcl_config "set black(anunttime) \"*\""]
+	lappend eggcmds [black:color 2 $hand $cmd]\[$get_info\]
+	}
+	badchan-scantime {
+	set get_info [config:getinfo $tcl_config "set black(badchan:scantime) \"*\""]
+	lappend eggcmds [black:color 2 $hand $cmd]\[$get_info\]
+	}
+	clonescan-scantime {
+	set get_info [config:getinfo $tcl_config "set black(clonescantime) \"*\""]
+	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\]
+	}
+	idle-scantime {
+	set get_info [config:getinfo $tcl_config "set black(idleinterval) \"*\""]
+	lappend eggcmds [black:color 2 $hand $cmd]\[$get_info\]
+	}
+	antispam-cycletime {
+	set get_info [config:getinfo $tcl_config "set black(spamcycle) \"*\""]
+	lappend eggcmds [black:color 2 $hand $cmd]\[$get_info\]
+	}
+	add-mask {
+	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\]
+	}
+	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) \"*\""]
+	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\]
+	}
+	floodmsgprot {
+	set get_info [config:getinfo $tcl_config "set black(msg:flood) \"*\""]
+	lappend eggcmds [black:color 2 $hand $cmd]\[$get_info\]
+	}
+	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\]
+	}
+	user-expire {
+	set get_info [config:getinfo $tcl_config "set black(user_expire_time) \"*\""]
+	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 [wordwrap [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                                                               ##
+#########################################################################