Delete BT.LocalCmds.tcl

BlackTools2.5.2/Commands/BT.LocalCmds.tcl

@@ -1,3139 +0,0 @@
-#########################################################################
-##          BlackTools - The Ultimate Channel Control Script           ##
-##                    One TCL. One smart Eggdrop                       ##
-#########################################################################
-#########################   LOCAL CMDS TCL   ############################
-#########################################################################
-##						                       						   ##
-##   BlackTools  : http://blacktools.tclscripts.net	        	       ##
-##   Bugs report : http://www.tclscripts.net/	                       ##
-##   GitHub page : https://github.com/tclscripts/BlackToolS-TCL-script ##
-##   Online Help : irc://irc.undernet.org/tcl-help 	    	           ##
-##                 #TCL-HELP / UnderNet                                ##
-##                 You can ask in english or romanian                  ##
-##					                               					   ##
-#########################################################################
-
-
-################################ Commands ###################################
-
-################################## report ###################################
-
-proc report:process {nick host host1 hand chan chan1 type what message} {
-	global black
-if {[setting:get $chan reportnick]} {
-	set cmd_status [btcmd:status $chan $hand "report" 0]
-if {$cmd_status == "1"} {
-	return 
-}
-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 number [scan $black(report:flood) %\[^:\]]
-	set timer [scan $black(report:flood) %*\[^:\]:%s]
-	
-if {[info exists black(floodreport:$host1:$chan)]} {
-if {$black(floodreport:$host1:$chan) >= "$number"} {
-	return
-	}
-}
-
-foreach tmr [utimers] {
-if {[string match "*black(floodreport:$host1:$chan)*" [join [lindex $tmr 1]]]} {
-	killutimer [lindex $tmr 2]
-	}
-}
-
-if {![info exists black(floodreport:$host1:$chan)]} { 
-	set black(floodreport:$host1:$chan) 0 
-}
-	incr black(floodreport:$host1:$chan)
-	utimer $timer [list unset black(floodreport:$host1:$chan)]
-	
-if {$what == ""} {
-if {$type == "0"} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "report"
-}
-if {$type == "1"} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "report"
-}
-if {$type == "2"} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_priv "report"
-}
-	return
-}
-
-if {![validchan $chan]} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
-	return
-}
-
-if {![botisop $chan]} {
-	return
-}
-
-if {[isbotnick $what]} {
-	return
-}
-
-	set handle [nick2hand $what]
-if {[validuser $handle]} {
-	set found_acces 0
-foreach c [channels] {
-if {[matchattr $handle $black(exceptflags) $chan]} {
-	set found_acces 1
-		}
-	}
-if {$found_acces == "1"} {
-	return
-	}
-}
-
-if {[string equal -nocase $what $nick]} {
-	blacktools:tell $nick $host $hand $chan $chan1 report.5 none
-	return
-}
-	set getlang [string tolower [setting:get $chan lang]]
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
-if {[onchan $what $chan]} {
-	set replace(%msg.1%) $what
-	set replace(%msg.2%) $nick
-	set replace(%msg.8%) $message
-if {$message != ""} {
-	set text [black:color:set "" $black(say.$getlang.report.2)]
-} else {
-	set text [black:color:set "" $black(say.$getlang.report.3)]
-}	
-	set reply [join $text]
-	set output [string map [array get replace] $reply]
-	putserv "NOTICE @$chan :$output"
-	blacktools:tell $nick $host $hand $chan $chan1 report.4 none
-	} else {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.usernotonchan $what
-		}
-	}
-}
-
-################################# disable ###################################
-
-proc disable:process {nick host hand chan chan1 type what user} {
-	global black
-	set cmd_status [btcmd:status $chan $hand "disable" 0]
-if {$cmd_status == "1"} { 
-	return 
-}
-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
-}
-	
-if {$what == ""} {
-if {$type == "0"} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "disable"
-}
-if {$type == "1"} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "disable"
-}
-if {$type == "2"} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_priv "disable"
-}
-	return
-}
-	set local_cmds "h omsg o v ho man version mode cycle broadcast say act i stats t myset b black stick dr bot n id spam bw vr gag sb banlist k w anunt bt badchan idle limit seen clonescan securemode private guestnick greet leave topic next helped noidle skip topwords q note report"
-
-if {[matchattr $hand -|M $chan] && [lsearch -exact $what $local_cmds] < 0} {
-	blacktools:tell $nick $host $hand $chan $chan1 disable.8 $what
-	return
-}
-
-if {[string equal -nocase $user "global"] && [matchattr $hand nm]} {
-	set return_cmd [btcmd:global:set $hand $what 1]
-		switch $return_cmd {
-	0 {
-	blacktools:tell $nick $host $hand $chan $chan1 disable.6 $what
-}
-	1 {
-	blacktools:tell $nick $host $hand $chan $chan1 disable.7 $what
-}
-	2 {
-	blacktools:tell $nick $host $hand $chan $chan1 disable.3 $what
-		}
-	3 {
-	blacktools:tell $nick $host $hand $chan $chan1 disable.8 $what
-		}
-	}
-	return
-}
-
-if {$user != ""} {
-	btcmd:set:user $nick $host $hand $chan $chan1 $user $what "1"
-	return
-}
-	set return_cmd [btcmd:set $chan $hand $what 1]
-	
-	switch $return_cmd {
-	0 {
-	blacktools:tell $nick $host $hand $chan $chan1 disable.1 $what
-}
-	1 {
-	blacktools:tell $nick $host $hand $chan $chan1 disable.2 $what
-}
-	2 {
-	blacktools:tell $nick $host $hand $chan $chan1 disable.3 $what
-}
-	3 {
-	blacktools:tell $nick $host $hand $chan $chan1 disable.8 $what
-		}
-	}
-}
-
-################################# enable ####################################
-
-proc enable:process {nick host hand chan chan1 type what user} {
-	global black
-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
-}
-
-if {$what == ""} {
-if {$type == "0"} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "enable"
-}
-if {$type == "1"} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "enable"
-}
-if {$type == "2"} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_priv "enable"
-}
-	return
-}
-
-if {[string equal -nocase $user "global"] && [matchattr $hand nm]} {
-	set return_cmd [btcmd:global:set $hand $what 0]
-	switch $return_cmd {
-	0 {
-	blacktools:tell $nick $host $hand $chan $chan1 enable.7 $what
-}
-	1 {
-	blacktools:tell $nick $host $hand $chan $chan1 enable.6 $what
-}
-	2 {
-	blacktools:tell $nick $host $hand $chan $chan1 enable.3 $what
-		}
-	}
-	return
-}
-
-if {$user != ""} {
-	btcmd:set:user $nick $host $hand $chan $chan1 $user $what "0"
-	return
-}
-	set gl_check [btcmd:gl:status $what]
-if {$gl_check == "1" && $type == "0"} {
-	blacktools:tell $nick $host $hand $chan $chan1 enable.8 $what
-}
-
-if {[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"
-} 
-
-	set disable_level [btcmd:getlevel $chan $what]
-
-if {$access == "MANAGER" && $disable_level == "OWNER"} {
-	blacktools:tell $nick $host $hand $chan $chan1 enable.9 $what
-	return
-}
-if {$access == "OWNER" && $disable_level == "BOSS"} {
-	blacktools:tell $nick $host $hand $chan $chan1 enable.9 $what
-	return
-}
-if {$access == "MANAGER" && $disable_level == "BOSS"} {
-	blacktools:tell $nick $host $hand $chan $chan1 enable.9 $what
-	return
-}
-if {$access == "MANAGER" && $disable_level == "MASTER"} {
-	blacktools:tell $nick $host $hand $chan $chan1 enable.9 $what
-	return
-}
-if {$access == "MASTER" && $disable_level == "OWNER"} {
-	blacktools:tell $nick $host $hand $chan $chan1 enable.9 $what
-	return
-}
-
-if {$access == "MASTER" && $disable_level == "BOSS"} {
-	blacktools:tell $nick $host $hand $chan $chan1 enable.9 $what
-	return
-}
-	set return_cmd [btcmd:set $chan $hand $what 0]
-	switch $return_cmd {
-	0 {
-	blacktools:tell $nick $host $hand $chan $chan1 enable.2 $what
-}
-	1 {
-	blacktools:tell $nick $host $hand $chan $chan1 enable.1 $what
-}
-	2 {
-	blacktools:tell $nick $host $hand $chan $chan1 enable.3 $what
-}
-	}
-}
-
-################################### t #################################
-
-proc t:process {nick host hand chan chan1 topics type} {
-global botnick black
-	set cmd_status [btcmd:status $chan $hand "t" 0]
-if {$cmd_status == "1"} { 
-	return
-}
-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
-}
-
-if {$topics == ""} {
-switch $type {
-	0 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "t"
-	}
-	1 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "t"
-	}
-	2 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_priv "t"
-		}
-	}
-	return
-}
-
-if {![validchan $chan]} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
-	return
-}
-if {![onchan $botnick $chan]} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
-	return
-}
-
-if {[setting:get $chan showhandle]} {
-	set topics "($hand) $topics"
-	} else { set topics "$topics" 
-}
-
-if {[setting:get $chan xonly]} {
-	if {![botisop $chan]} {
-	putserv "PRIVMSG $black(chanserv) :topic $chan $topics"
-	return
-	}
-}
-
-if {![botisop $chan]} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.noop none
-	return
-}
-	putserv "TOPIC $chan :$topics"
-}
-
-################################# i ###################################
-
-proc i:process {nick host hand chan chan1 inick type} {
-global botnick black
-	set show_inick $inick
-	set cmd_status [btcmd:status $chan $hand "i" 0]
-if {$cmd_status == "1"} { 
-	return
-}
-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
-}
-
-if {$inick == "" && $chan != $chan1} {
-	set inick $nick
-}
-
-if {$inick == ""} {
-switch $type {
-	0 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "i"
-	}
-	1 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "i"
-	}
-	2 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_priv "i"
-		}
-	}
-	return
-}
-
-if {![validchan $chan]} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
-	return
-}
-if {![onchan $botnick $chan]} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
-	return
-}
-
-if {![botisop $chan]} {	
-	blacktools:tell $nick $host $hand $chan $chan1 gl.noop none
-	return
-}
-	putserv "USERHOST :$inick"
-	bind RAW - 302 i:online:check
-	set ::getnick $nick
-	set ::hand $hand
-	set ::host $host
-	set ::chan $chan
-	set ::chan1 $chan1
-	set ::type $type
-	set ::inick $inick
-	set ::show_inick $show_inick
-}
-
-proc i:online:check {from keyword arguments } {
-	global black
-	set anick $::getnick
-	set hand $::hand
-	set host $::host
-	set chan $::chan
-	set chan1 $::chan1
-	set inick $::inick
-	set show_inick $::show_inick 
-	
-set hostname [lindex [split $arguments] 1]
-if {[regexp {\+} $hostname]} {
-	set split_host [split $hostname "+"]
-} else {
-	set split_host [split $hostname "-"]
-}
-	set mask [lindex $split_host 1]
-	set getnick [string map {
-			"=" ""
-			":" ""
-			} [lindex $split_host 0]]
-if {$getnick != ""} {
-	set replace(%nick%) $anick
-	set replace(%chan%) $chan
-	set getlang [string tolower [getuser $hand XTRA OUTPUT_LANG]]
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
-	set text [black:color:set "" $black(say.$getlang.i.7)]
-	set getmsg [join $text]
-if {[info exists black(say.$getlang.i.7)]} {
-	set imessage [string map [array get replace] $getmsg]
-}
-
-if {$inick != ""} {
-if {[onchan $inick $chan]} {
-	blacktools:tell $anick $host $hand $chan $chan1 i.1 $show_inick
-	return
-}
-	putserv "INVITE $inick $chan"
-	putserv "PRIVMSG $inick :$imessage"
-	blacktools:tell $anick $host $hand $chan $chan1 i.2 $show_inick
-		}
-	} else {
-	blacktools:tell $anick $host $hand $chan $chan1 gl.notonline "$inick"
-}
-	check:if:bind "i:online:check" "302"
-}
-
-############################### purge ###############################
-
-proc purge:process {nick host hand chan chan1 reason} {
-	global black
-	set cmd_status [btcmd:status $chan $hand "purge" 0]
-if {$cmd_status == "1"} { 
-	return 
-}
-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
-}
-if {!($black(homechan) == "") && ![string equal -nocase $black(homechan) "#no_home_chan"]} {
-if {[string equal -nocase $chan $black(homechan)]} {
-	blacktools:tell:prv $nick $host $hand delchan.5 $chan
-	return
-	}
-}
-	channel remove $chan
-	delchan:all $chan
-	topwords:delete $chan
-	putserv "PART $chan :PURGED by $hand :$reason"
-}
-
-################################### v #################################
-
-proc v:process {nick host hand chan chan1 arg} {
-global botnick black
-	set xban 0
-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 "v" 0]
-if {$cmd_status == "1"} { 
-	return
-}
-if {![validchan $chan]} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none	
-	return
-}
-if {![onchan $botnick $chan]} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
-	return
-}
-
-if {![botisop $chan] && ![setting:get $chan xonly]} { blacktools:tell $nick $host $hand $chan $chan1 gl.noop none
-	return
-}
-
-if {$arg == ""} {
-	set arg $nick
-}
-
-if {[setting:get $chan xonly] && [onchan $black(chanserv) $chan]} {
-	set xban 1
-}
-
-if {[string equal -nocase $arg "+"]} {
-	set noxonly 0
-	set userlist ""
-	foreach voicenick [chanlist $chan] {
-if {[isvoice $voicenick $chan]} { continue }
-if {[isbotnick $voicenick]} { continue }
-if {$xban == "0"} {
-	set noxonly 1
-	pushmode $chan +v $voicenick	
-		}
-	}
-if {$noxonly == "0"} {
-foreach getuser [chanlist $chan] {
-if {![isvoice $getuser $chan]} {
-	lappend userlist $getuser
-			}
-		}
-		putserv "PRIVMSG $black(chanserv) :voice $chan [join $userlist]"
-	}	
-	return
-}
-
-if {[string equal -nocase $arg "-"]} {
-	set noxonly 0
-	set userlist ""
-	foreach voicenick [chanlist $chan] {
-if {[isbotnick $voicenick]} { continue }
-if {$xban == "0"} {
-	set noxonly 1
-	pushmode $chan -v $voicenick	
-		}
-	}
-if {$noxonly == "0"} {
-foreach getuser [chanlist $chan] {
-if {[isvoice $getuser $chan]} {
-	lappend userlist $getuser
-			}
-		}
-		putserv "PRIVMSG $black(chanserv) :devoice $chan [join $userlist]"
-	}	
-	return
-}
-	set voicelist ""
-	set devoicelist ""
-foreach voicenick [split $arg] {
-if {[isbotnick $voicenick]} { continue }
-if {[isvoice $voicenick $chan]} {
-if {$xban == "0"} {
-	pushmode $chan -v $voicenick
-} else { lappend devoicelist $voicenick }
-} else {
-if {$xban == "0"} {
-	pushmode $chan +v $voicenick
-			} else { lappend voicelist $voicenick }
-		}
-	}
-if {$devoicelist != ""} {
-	putserv "PRIVMSG $black(chanserv) :devoice $chan [join $devoicelist]"
-}
-if {$voicelist != ""} {
-	putserv "PRIVMSG $black(chanserv) :voice $chan [join $voicelist]"
-	}
-}
-
-################################## ho #################################
-
-proc ho:process {nick host hand chan chan1 arg} {
-global botnick black
-	set xban 0
-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 "ho" 0]
-if {$cmd_status == "1"} { 
-	return
-}
-if {![validchan $chan]} {
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
-return
-}
-if {![onchan $botnick $chan]} {
-blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
-return
-}
-if {![botisop $chan] && ![setting:get $chan xonly]} { blacktools:tell $nick $host $hand $chan $chan1 gl.noop none
- return
-}
-
-if {$arg == ""} {
-set arg $nick
-}
-
-if {[setting:get $chan xonly] && [onchan $black(chanserv) $chan]} {
-	set xban 1
-}
-
-if {[string equal -nocase $arg "+"]} {
-	foreach hopnick [chanlist $chan] {
-if {[ishalfop $hopnick $chan]} { continue }
-if {$xban == "0"} {
-	pushmode $chan +h $hopnick
-		} else { return }
-	}
-	return
-}
-
-if {[string equal -nocase $arg "-"]} {
-	foreach hopnick [chanlist $chan] {
-if {![ishalfop $hopnick $chan]} { continue }
-if {[isbotnick $hopnick]} { continue }
-if {[onchan $black(chanserv) $chan] && ![setting:get $chan xonly]} {
-	blacktools:tell $nick $host $hand $chan $chan1 massdeop.429 $black(chanserv)
-	return
-		}
-if {$xban == "0"} {
-	pushmode $chan -h $hopnick	
-		} else { return }
-	}
-	return
-}
-
-foreach hopnick [split $arg] {
-if {[isbotnick $hopnick]} { continue }
-if {[ishalfop $hopnick $chan]} {
-if {$xban == "0"} {
-	pushmode $chan -h $hopnick
-} else { return }
-} else {
-if {![setting:get $chan xonly]} {
-pushmode $chan +h $hopnick
-			} else { return }
-		}
-	}
-}
-
-################################## o ##################################
-
-proc o:process {nick host hand chan chan1 arg} {
-global botnick black
-	set xban 0
-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 "o" 0]
-if {$cmd_status == "1"} { 
-	return
-}
-if {![validchan $chan]} {
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
-return
-}
-if {![onchan $botnick $chan]} {
-blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
-return
-}
-
-if {![botisop $chan] && ![setting:get $chan xonly]} { blacktools:tell $nick $host $hand $chan $chan1 gl.noop none
- return
-}
-
-if {$arg == ""} {
-set arg $nick
-}
-
-if {[setting:get $chan xonly] && [onchan $black(chanserv) $chan]} {
-	set xban 1
-}
-
-if {[string equal -nocase $arg "+"]} {
-	set userlist ""
-	set noxonly 0
-	foreach opnick [chanlist $chan] {
-if {[isop $opnick $chan]} { continue }
-if {$xban == "0"} {
-	set noxonly 1
-	pushmode $chan +o $opnick
-		}
-	}
-if {$noxonly == "0"} {
-foreach getuser [chanlist $chan] {
-if {![isop $getuser $chan]} {
-	lappend userlist $getuser
-		}
-	}
-		putserv "PRIVMSG $black(chanserv) :op $chan [join $userlist]"
-	}	
-	return
-}
-
-if {[string equal -nocase $arg "-"]} {
-	set userlist ""
-	set noxonly 0
-	foreach opnick [chanlist $chan] {
-if {![isop $opnick $chan]} { continue }
-if {[isbotnick $opnick]} { continue }
-if {[onchan $black(chanserv) $chan] && ![setting:get $chan xonly]} {
-	blacktools:tell $nick $host $hand $chan $chan1 o.1 $black(chanserv)
-	return
-}
-if {$xban == "0"} {
-	set noxonly 1
-	pushmode $chan -o $opnick	
-	}
-}
-if {$noxonly == "0"} {
-foreach getuser [chanlist $chan] {
-if {[isop $getuser $chan]} {
-	lappend userlist $getuser
-		}
-	}
-		putserv "PRIVMSG $black(chanserv) :deop $chan [join $userlist]"
-	}
-	return
-}
-	set oplist ""
-	set deoplist ""
-foreach opnick [split $arg] {
-if {[isbotnick $opnick]} { continue }
-if {[isop $opnick $chan]} {
-if {$xban == "0"} {
-pushmode $chan -o $opnick
-} else { lappend deoplist $opnick } 
-} else {
-if {$xban == "0"} {
-pushmode $chan +o $opnick
-			} else { lappend oplist $opnick }
-		}
-	}
-if {$deoplist != ""} {
-	putserv "PRIVMSG $black(chanserv) :deop $chan [join $deoplist]"
-}
-if {$oplist != ""} {
-	putserv "PRIVMSG $black(chanserv) :op $chan [join $oplist]"
-	}
-}
-
-################################ say ##################################
-
-proc say:process {nick host hand chan chan1 text type} {
-global botnick black
-	set cmd_status [btcmd:status $chan $hand "say" 0]
-if {$cmd_status == "1"} { 
-	return
-}
-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
-}
-
-if {$text == ""} {
-switch $type {
-	0 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "say"
-	}
-	1 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "say"
-	}
-	2 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_priv "say"
-		}
-	}
-	return 0
-}
-
-if {![validchan $chan]} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
-	return
-}
-
-if {![onchan $botnick $chan]} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
-	return
-}
-	putserv "PRIVMSG $chan :$text"
-}
-
-################################ act ##################################
-
-proc act:process {nick host hand chan chan1 text type} {
-global botnick black
-	set cmd_status [btcmd:status $chan $hand "act" 0]
-if {$cmd_status == "1"} { 
-	return
-}
-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
-}
-if {$text == ""} {
-switch $type {
-	0 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "act"
-	}
-	1 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "act"
-	}
-	2 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_priv "act"
-		}
-	}
-	return 0
-}
-
-if {![validchan $chan]} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
-	return
-}
-
-if {![onchan $botnick $chan]} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
-	return
-}
-	putserv "PRIVMSG $chan :\001ACTION $text\001"
-}
-
-
-
-############################## version ################################
-
-proc version:process {nick host hand chan chan1 arg} {
-global botnick black
-	set cmd_status [btcmd:status $chan $hand "version" 0]
-if {$cmd_status == "1"} { 
-	return
-}
-if {$arg != ""} { return }
-	blacktools:tell $nick $host $hand $chan $chan1 version.1 $black(vers)
-}
-
-############################### cycle #################################
-
-proc cycle:process {nick host hand chan chan1 reason} {
-global black botnick
-	set cmd_status [btcmd:status $chan $hand "cycle" 0]
-	set reply ""
-if {$cmd_status == "1"} { 
-	return
-}
-	set getlang [string tolower [setting:get $chan lang]]
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
-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
-}
-
-if {![validchan $chan]} {
-blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
-return
-}
-
-if {![onchan $botnick $chan]} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
-	return
-}
-
-if {[regexp {^[0-9]} $reason] && [matchattr $hand nmo|M $chan]} {
-	set replace(%msg.1%) $reason
-	set text [black:color:set "" $black(say.$getlang.cycle.2)]
-	set reply [join $text]
-	putserv "PART $chan :[string map [array get replace] $reply]"
-	channel set $chan +inactive
-	utimer $reason [list channel set $chan -inactive]
-	return
-}
-
-if {$reason == ""} { 
-	set reason "$black(say.$getlang.cycle.1)" 
-	set len [llength $reason] 
-    set random [expr int(rand()*$len)] 
-    set reason [lindex $reason $random]
-	set text [black:color:set "" $reason]
-	set reply [join $text]
-} else {
-	set reply $reason
-}
-	putserv "PART $chan :$reply"
-	putserv "JOIN $chan"
-}
-
-
-################################### mode ######################################
-
-proc mode:process {nick host hand chan chan1 modes type hosts} {
-global botnick black
-	set cmd_status [btcmd:status $chan $hand "mode" 0]
-if {$cmd_status == "1"} { 
-	return
-}
-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
-}
-if {$modes == ""} {
-switch $type {
-	0 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "mode"
-	}
-	1 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "mode"
-	}
-	2 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_priv "mode"
-		}
-	}
-	return 0
-}
-
-if {![validchan $chan]} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
-	return
-}
-
-if {![onchan $botnick $chan]} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
-	return
-}
-
-if {![botisop $chan]} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.noop none
-	return
-}
-
-if {![regexp {^[+ -]} $modes]} {
-switch $type {
-	0 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "mode"
-	}
-	1 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "mode"
-	}
-	2 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_priv "mode"
-		}
-	}
-	return
-}
-	blacktools:tell $nick $host $hand $chan $chan1 mode.6 $modes
-if {![string equal -nocase $modes "+b"] && ![string equal -nocase $modes "-b"]} {
-	putserv "MODE $chan $modes"
-	channel set $chan chanmode $modes
-	} else {
-	putserv "MODE $chan $modes $hosts"
-	}
-}
-
-################################## myset #############################
-
-proc myset:process {nick host hand chan chan1 flags typez type chan2 arg} {
-global black
-	set cmd_status [btcmd:status $chan $hand "myset" 0]
-if {$cmd_status == "1"} { 
-	return
-}
-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 show_greet $arg
-	set show_typez $typez
-if {$flags == ""} {
-switch $type {
-	0 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "myset"
-	}
-	1 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "myset"
-	}
-	2 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_priv "myset"
-		}
-	}
-	return 0
-}
-switch -exact -- [string tolower $flags] {
-lang {
-if {$typez == ""} {
-switch $type {
-	0 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "myset"
-	}
-	1 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "myset"
-	}
-	2 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_priv "myset"
-		}
-	}
-	return
-}
-if {[string equal -nocase $typez "reset"]} {
-	setuser $hand XTRA OUTPUT_LANG
-	blacktools:tell $nick $host $hand $chan $chan1 myset.11 $flags
-	return
-}
-if {[string equal -nocase $typez "show"]} {
-	set get [getuser $hand XTRA OUTPUT_LANG]
-if {$get == ""} { set get "N/A" }
-	blacktools:tell $nick $host $hand $chan $chan1 myset.12 "$flags $get"
-	return
-}
-
-if {![file exists "$black(dirname)/BlackTools/lang/BT.[string tolower $typez].lang.tcl"]} {
-	blacktools:tell $nick $host $hand $chan $chan1 myset.5 \002[string tolower $typez]\002
-	return
-}
-	setuser $hand XTRA OUTPUT_LANG $typez
-	blacktools:tell $nick $host $hand $chan $chan1 myset.1 $typez
-	return
-}
-addhost {
-if {[matchattr $hand mno]} {
-	set found_it 0
-	set found_user ""
-if {$typez == ""} {
-switch $type {
-	0 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "myset"
-	}
-	1 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "myset"
-	}
-	2 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_priv "myset"
-		}
-	}
-	return
-}
-if {![string equal -nocase $typez "-telnet!*@*"]} {
-foreach u [userlist] {
-	set h [getuser $u hosts]
-foreach hs $h {
-if {[string match -nocase $hs $typez]} {
-	set found_it 1
-	set found_user $u
-			}
-		}	
-	}
-}
-if {$found_it == "1"} {
-	blacktools:tell $nick $host $hand $chan $chan1 addhost.1 "[split $found_user] $typez"
-	return
-}
-	setuser $hand HOSTS $typez
-	blacktools:tell $nick $host $hand $chan $chan1 myset.7 $typez
-	}
-}
-
-delhost {
-if {[matchattr $hand mno]} {
-	set found_it 0
-if {$typez == ""} {
-switch $type {
-	0 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "myset"
-	}
-	1 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "myset"
-	}
-	2 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_priv "myset"
-		}
-	}
-	return
-}
-	set h [getuser $hand hosts]
-foreach hs $h {
-if {[string match -nocase $hs $typez]} {
-	set found_it 1
-	}
-}
-
-if {$found_it == "0"} {
-	blacktools:tell $nick $host $hand $chan $chan1 myset.9 $typez
-	return
-}
-	delhost $hand $typez
-	blacktools:tell $nick $host $hand $chan $chan1 myset.8 $typez
-	}
-}
-
-greet {
-if {$typez == ""} {
-switch $type {
-	0 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "myset"
-	}
-	1 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "myset"
-	}
-	2 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_priv "myset"
-		}
-	}
-	return
-}
-
-if {[string equal -nocase $typez "show"]} {
-	set get [getuser $hand INFO]
-if {$get == ""} { set get "N/A" }
-	blacktools:tell $nick $host $hand $chan $chan1 myset.12 "$flags $get"
-	return
-}
-
-if {[string equal -nocase $typez "reset"]} {
-	setuser $hand INFO ""
-	blacktools:tell $nick $host $hand $chan $chan1 myset.11 $flags
-	return
-}
-	setuser $hand INFO $arg
-	blacktools:tell $nick $host $hand $chan $chan1 myset.6 $show_greet
-}
-
-auto {
-if {[matchattr $hand mno|M $chan]} {
-if {[regexp {^[&#]} $chan2]} {
-	set actchan $chan2
-} else {
-if {[string equal -nocase $chan2 "global"]} {
-	set actchan "global"
-} else {
-	set actchan $chan
-	}
-}
-if {![regexp {^[+ -]} $typez]} {
-switch $type {
-	0 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "myset"
-	}
-	1 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "myset"
-	}
-	2 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_priv "myset"
-		}
-	}
-	return
-}
-	set verify [string trim $typez {"+","-"}]
-
-if {![string equal -nocase $verify "o"] && ![string equal -nocase $verify "v"]} {
-if {$type == "0"} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "myset"
-}
-if {$type == "1"} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "myset"
-	}
-	return
-}
-if {[matchattr $hand mno] && [string equal -nocase "$actchan" "global"]} {
-if {[string match -nocase $typez "+o"]} {
-if {[matchattr $hand g]} {
-	chattr $hand -g
-}
-	chattr $hand +a
-	blacktools:tell $nick $host $hand $actchan $chan1 auto.6 $hand
-}
-if {[string match -nocase $typez "-o"]} {
-	chattr $hand -a 
-	blacktools:tell $nick $host $hand $actchan $chan1 auto.14 $hand
-}
-if {[string match -nocase $typez "+v"]} {
-if {[matchattr $hand a]} {
-	chattr $hand -a
-}
-	chattr $hand +g
-	blacktools:tell $nick $host $hand $actchan $chan1 auto.7 $hand
-}
-if {[string match -nocase $typez "-v"]} {
-	chattr $hand -g
-	blacktools:tell $nick $host $hand $actchan $chan1 auto.15 $hand
-	}
-	return
-}
-if {[string match -nocase $typez "+o"]} {
-if {[matchattr $hand -|g $actchan]} {
-	chattr $hand -|-g $actchan
-}
-	chattr $hand -|a $actchan
-	blacktools:tell $nick $host $hand $actchan $chan1 auto.8 $hand
-}
-if {[string match -nocase $typez "-o"]} {
-	chattr $hand -|-a $actchan
-	blacktools:tell $nick $host $hand $actchan $chan1 auto.16 $hand
-}
-if {[string match -nocase $typez "+v"]} {
-if {[matchattr $hand -|a $actchan]} {
-	chattr $hand -|-a $actchan
-}
-	chattr $hand -|g $actchan
-	blacktools:tell $nick $host $hand $actchan $chan1 auto.9 $hand
-}
-if {[string match -nocase $typez "-v"]} {
-	chattr $hand -|-g $actchan
-	blacktools:tell $nick $host $hand $actchan $chan1 auto.17 $hand
-		}
-	}
-}
-
-handle {
-if {[matchattr $hand mno|M $chan]} {
-if {$typez == ""} {
-switch $type {
-	0 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "myset"
-	}
-	1 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "myset"
-	}
-	2 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_priv "myset"
-		}
-	}
-	return
-	}
-if {[string equal -nocase $typez "show"]} {
-	blacktools:tell $nick $host $hand $chan $chan1 myset.12 "$flags $hand"
-	return
-}
-if {[validuser $typez]} {
-	blacktools:tell $nick $host $hand $chan $chan1 chuser.3 none
-return
-}	
-	blacktools:tell $nick $host $hand $chan $chan1 myset.4 "$show_typez"
-	chhandle $hand $typez
-	}
-}
-
-notes {
-if {$typez == ""} {
-switch $type {
-	0 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "myset"
-	}
-	1 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "myset"
-	}
-	2 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_priv "myset"
-		}
-	}
-	return
-}
-	switch $typez {
-	on {
-	blacktools:tell $nick $host $hand $chan $chan1 myset.19 "myset"
-	setuser $hand XTRA NO_NOTES
-	}
-	
-	off {
-	blacktools:tell $nick $host $hand $chan $chan1 myset.20 "myset"
-	setuser $hand XTRA NO_NOTES 1
-	}
-	
-	show {
-	set get [getuser $hand XTRA NO_NOTES]
-if {$get != ""} { set get "OFF" }  else { set get "ON" } 
-	blacktools:tell $nick $host $hand $chan $chan1 myset.12 "$flags $get"
-	return
-}	
-	default {
-	switch $type {
-	0 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "myset"
-	}
-	1 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "myset"
-	}
-	2 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_priv "myset"
-				}
-			}
-		}
-	}
-}
-
-noteexpire {
-if {$typez == ""} {
-switch $type {
-	0 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "myset"
-	}
-	1 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "myset"
-	}
-	2 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_priv "myset"
-		}
-	}
-	return
-}
-
-if {[string equal -nocase $typez "reset"]} {
-	setuser $hand XTRA NOTE_EXPIRE
-	blacktools:tell $nick $host $hand $chan $chan1 myset.11 $flags
-	return
-}
-if {[string equal -nocase $typez "show"]} {
-	set get [getuser $hand XTRA NOTE_EXPIRE]
-if {$get == ""} { set get "N/A" }
-	blacktools:tell $nick $host $hand $chan $chan1 myset.12 "$flags $get"
-	return
-}
-
-if {![regexp {^[0-9]} $typez]} {
-	switch $type {
-	0 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "myset"
-	}
-	1 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "myset"
-	}
-	2 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_priv "myset"
-		}
-	}
-	return
-}
-	set return_time [time_return_minute $typez]
-if {$return_time == "-1"} {
-switch $type {
-	0 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "myset"
-	}
-	1 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "myset"
-	}
-	2 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_priv "myset"
-		}
-	}
-	return
-}
-	setuser $hand XTRA NOTE_EXPIRE [string tolower $typez]
-	blacktools:tell $nick $host $hand $chan $chan1 myset.13 $typez
-}
-
-
-autoinvite {
-	switch [string tolower $typez] {
-	
-	show {
-	set get [getuser $hand XTRA AUTOINVITE]
-if {$get == ""} { set get "N/A" }
-if {$get == "1"} { set get "on"} else { set get "off" }
-	blacktools:tell $nick $host $hand $chan $chan1 myset.12 "$flags $get"
-}
-
-	reset {
-	setuser $hand XTRA AUTOINVITE
-	blacktools:tell $nick $host $hand $chan $chan1 myset.11 $flags
-}
-
-	on {
-	setuser $hand XTRA AUTOINVITE 1
-	blacktools:tell $nick $host $hand $chan $chan1 myset.3 $typez
-}
-	off {
-	setuser $hand XTRA AUTOINVITE 0
-	blacktools:tell $nick $host $hand $chan $chan1 myset.3 $typez
-		}
-	}
-}
-
-output {
-	switch [string tolower $typez] {
-	show {
-	set get [getuser $hand XTRA OUTPUT_TYPE]
-if {$get == ""} { set get "N/A" }
-if {$get == "0"} { set get "NOTICE" } elseif {$get == "1"} { set get "CHAN" } elseif {$get == "2"} { set get "MSG" } else { set get "NOTICE"}
-	blacktools:tell $nick $host $hand $chan $chan1 myset.12 "$flags $get"
-}
-
-	reset {
-	setuser $hand XTRA OUTPUT_TYPE
-	blacktools:tell $nick $host $hand $chan $chan1 myset.11 $flags
-}
-	notice {
-	setuser $hand XTRA OUTPUT_TYPE 0
-	blacktools:tell $nick $host $hand $chan $chan1 myset.2 $typez
-}
-	chan {
-	setuser $hand XTRA OUTPUT_TYPE 1
-	blacktools:tell $nick $host $hand $chan $chan1 myset.2 $typez
-}
-	msg {
-	setuser $hand XTRA OUTPUT_TYPE 2
-	blacktools:tell $nick $host $hand $chan $chan1 myset.2 $typez
-		}
-	}
-}
-
-colors {
-if {[matchattr $hand mno|MAOV $chan]} {
-if {$typez == ""} {
-switch $type {
-	0 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "myset"
-	}
-	1 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "myset"
-	}
-	2 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_priv "myset"
-		}
-	}
-	return
-}
-if {[string equal -nocase $typez "reset"]} {
-	setuser $hand XTRA OUTPUT_COLORS
-	blacktools:tell $nick $host $hand $chan $chan1 myset.11 $flags
-	return
-}
-if {[string equal -nocase $typez "show"]} {
-	set get [getuser $hand XTRA OUTPUT_COLORS]
-if {$get == ""} { set get $black(default_colors) }
-	blacktools:tell $nick $host $hand $chan $chan1 myset.12 "$flags $get"
-	return
-}
-	set validcolors "bold underline red blue green yellow orange cyan grey brown purple pink black"
-	set notvalid 0
-if {[llength $arg] > 4 || [llength $arg] < 4} {
-	blacktools:tell $nick $host $hand $chan $chan1 myset.14 none
-	return
-		}
-foreach color $arg {
-if {[lsearch [string tolower $color] $validcolors] < -1} {
-	set notvalid 1
-	}
-}
-if {$notvalid == "1"} {
-	blacktools:tell $nick $host $hand $chan $chan1 myset.15 none
-	return
-}
-	blacktools:tell $nick $host $hand $chan $chan1 myset.16 $show_greet
-	setuser $hand XTRA OUTPUT_COLORS [string tolower $arg]
-	}
-}
-
-mychan {
-if {[matchattr $hand mno|MAOV $chan]} {
-if {$typez == ""} {
-switch $type {
-	0 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "myset"
-	}
-	1 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "myset"
-	}
-	2 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_priv "myset"
-		}
-	}
-	return
-}
-if {[string equal -nocase $typez "reset"]} {
-	setuser $hand XTRA MYCHAN
-	blacktools:tell $nick $host $hand $chan $chan1 myset.11 $flags
-	return
-}
-if {[string equal -nocase $typez "show"]} {
-	set get [getuser $hand XTRA MYCHAN]
-if {$get == ""} { set get "N/A" }
-	blacktools:tell $nick $host $hand $chan $chan1 myset.12 "$flags $get"
-	return
-}
-
-if {![regexp {^[&#]} $typez]} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
-	return
-		}
-if {![validchan $typez]} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
-	return
-		}
-	setuser $hand XTRA MYCHAN [string tolower $typez]
-	blacktools:tell $nick $host $hand $chan $chan1 myset.10 $typez
-	}
-}
-
-mychar {
-if {[matchattr $hand mno|MAOV $chan]} {
-if {$typez == ""} {
-switch $type {
-	0 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "myset"
-	}
-	1 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "myset"
-	}
-	2 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_priv "myset"
-		}
-	}
-	return
-}
-if {[string equal -nocase $typez "reset"]} {
-	setuser $hand XTRA MYCHAR
-	blacktools:tell $nick $host $hand $chan $chan1 myset.11 $flags
-	return
-}
-if {[string equal -nocase $typez "show"]} {
-	set get [getuser $hand XTRA MYCHAR]
-if {$get == ""} { set get "N/A" }
-	blacktools:tell $nick $host $hand $chan $chan1 myset.12 "$flags $get"
-	return
-}
-	setuser $hand XTRA MYCHAR [string tolower $typez]
-	blacktools:tell $nick $host $hand $chan $chan1 myset.18 $typez
-	}
-}
-
-default {
-switch $type {
-	0 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "myset"
-	}
-	1 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "myset"
-	}
-	2 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_priv "myset"
-				}
-			}
-		}
-	}
-}
-
-################################# set #################################
-
-proc set:process {nick host hand chan chan1 flags type type1} {
-global botnick black
-	set cmd_status [btcmd:status $chan $hand "set" 0]
-if {$cmd_status == "1"} { 
-	return 
-}
-	set getlang [string tolower [setting:get $chan lang]]
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
-	set flags [string tolower $flags]
-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 choption [check_option $nick $host $hand $chan $chan1 $flags $type1 "$flags"]
-if {$choption == "0"} { return }
-if {![validchan $chan]} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
-	return
-}
-if {[regexp {^[+-]} $flags]} {
-	set black_setting [setting:exists $flags]
-if {$black_setting == "1"} {
-	set iflag [string map {"+" ""
-							"-" ""} $flags]
-if {![matchattr $hand n]} {
-if {[string equal -nocase "$iflag" "invisible"] || [string equal -nocase "$iflag" "forward"]} {
-		blacktools:tell $nick $host $hand $chan $chan1 set.5 $flags
-		return
-	}
-}
-	set status [setting:status $chan $flags ""]
-	switch $status {
-	0 {
-if {[regexp {^[-]} $flags]} {
-	blacktools:tell $nick $host $hand $chan $chan1 set.4 $flags
-	return
-	}
-	blacktools:tell $nick $host $hand $chan $chan1 set.6 $flags
-	}
-	1 {
-if {[regexp {^[+]} $flags]} {
-	blacktools:tell $nick $host $hand $chan $chan1 set.4 $flags
-	return
-	}
-	blacktools:tell $nick $host $hand $chan $chan1 set.6 $flags
-	}
-}
-
-if {[string equal -nocase "+xonly" $flags]} {
-if {![info exists black(logged)]} {
-	blacktools:tell $nick $host $hand $chan $chan1 login.3 none
-	return
-	}
-}
-
-	setting:set $chan $flags ""
-	
-if {[string equal -nocase "+anunt" $flags]} {
-if {[setting:get $chan anunt-showtime] != ""} {
-	set time [setting:get $chan anunt-showtime]
-		} else {
-	set time $black(anunttime)
-		}
-	set scan_time [time_return_minute $time]
-	set black(anunt:$chan:timer_start) $scan_time
-}
-
-if {[string equal -nocase "+topwords" $flags]} {
-	set black(topwords:$chan:timer_start) 1
-}
-
-if {[string equal -nocase "-anunt" $flags]} {
-if {[info exists black(anunt:$chan:timer_start)]} {
-	unset black(anunt:$chan:timer_start)
-	}
-if {[info exists black(anunt:counter:$chan)]} {
-	unset black(anunt:counter:$chan)
-	}
-}
-
-if {[string equal -nocase "-topwords" $flags]} {
-	set black(topwords:$chan:timer_start) 1
-if {[info exists black(topwords:$chan:timer_start)]} {
-	unset black(topwords:$chan:timer_start)
-	}
-if {[info exists black(topwords:counter:$chan)]} {
-	unset black(topwords:counter:$chan)
-	}
-}
-
-if {[string equal -nocase "-voiceme"]} {
-if {[info exists black(voiceme:stat:$chan)]} {
-	unset black(voiceme:stat:$chan)
-	}
-}
-
-if {[string equal -nocase "-voiceonmsg"]} {
-if {[info exists black(voiceonmsg:stat:$chan)]} {
-	unset black(voiceonmsg:stat:$chan)
-	}
-}
-
-if {[string equal -nocase "+quoteofday" $flags]} {
-if {[setting:get $chan quote-showtime] != ""} {
-	set time [setting:get $chan quote-showtime]
-		} else {
-	set time $black(quote:msgtime)
-		}
-	set scan_time [time_return_minute $time]
-	set black(quote:$chan:timer_start) $scan_time
-}
-
-if {[string equal -nocase "-quoteofday" $flags]} {
-if {[info exists black(quote:$chan:timer_start)]} {
-	unset black(quote:$chan:timer_start)
-	}
-if {[info exists black(quote:counter:$chan)]} {
-	unset black(quote:counter:$chan)
-	}
-}
-
-if {[string equal -nocase "+clonescan" $flags]} {
-if {[setting:get $chan clonescan-scantime] != ""} {
-	set time [setting:get $chan clonescan-scantime]
-		} else {
-	set time $black(clonescantime)
-		}
-	set scan_time [time_return_minute $time]
-	set black(clonescan:$chan:timer_start) $scan_time
-}
-
-if {[string equal -nocase "-clonescan" $flags]} {
-if {[info exists black(clonescan:$chan:timer_start)]} {
-	unset black(clonescan:$chan:timer_start)
-	}
-if {[info exists black(clonescan:counter:$chan)]} {
-	unset black(clonescan:counter:$chan)
-	}
-}
-
-if {[string equal -nocase "+antibadchan" $flags]} {
-if {[setting:get $chan badchan-scantime] != ""} {
-	set time [setting:get $chan badchan-scantime]
-		} else {
-	set time $black(badchan:scantime)
-		}
-	set scan_time [time_return_minute $time]
-	set black(badchan:$chan:timer_start) $scan_time
-}
-
-if {[string equal -nocase "+voiceme" $flags]} {
-if {[setting:get $chan voiceme-showtime] != ""} {
-	set time [setting:get $chan voiceme-showtime]
-		} else {
-	set time $black(voiceme:msgtime)
-		}
-	set scan_time [time_return_minute $time]
-	set black(voiceme:$chan:timer_start) $scan_time
-}
-
-if {[string equal -nocase "-voiceme" $flags]} {
-if {[info exists black(voiceme:$chan:timer_start)]} {
-	unset black(voiceme:$chan:timer_start)
-	}
-if {[info exists black(voiceme:counter:$chan)]} {
-	unset black(voiceme:counter:$chan)
-	}
-}
-
-
-if {[string equal -nocase "-antibadchan" $flags]} {
-if {[info exists black(badchan:$chan:timer_start)]} {
-	unset black(badchan:$chan:timer_start)
-	}
-if {[info exists black(badchan:counter:$chan)]} {
-	unset black(badchan:counter:$chan)
-	}
-}
-
-if {[string equal -nocase "+xonly" $flags]} {
-if {![info exists black(logged)]} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.noxonly none
-	return
-	}
-}
-
-if {[string equal -nocase "+limit" $flags]} {
-	set black(limit:$chan:timer_start) 1
-}
-
-if {[string equal -nocase "+voiceonmsg" $flags]} {
-	set black(voiceonmsg:$chan:timer_start) 1
-}
-
-if {[string equal -nocase "-limit" $flags]} {
-if {[info exists black(limit:$chan:timer_start)]} {
-	unset black(limit:$chan:timer_start)
-	}
-}
-
-if {[string equal -nocase "+idleop" $flags] || [string equal -nocase "+idlevoice" $flags] || [string equal -nocase "+idlehalfop" $flags]} {
-	antidle:set $chan
-}
-
-if {[string equal -nocase "-idleop" $flags] || [string equal -nocase "-idlevoice" $flags] || [string equal -nocase "-idlehalfop" $flags]} {
-	antidle:unset $chan
-}
-
-if {[string equal -nocase "+antispam" $flags]} {
-if {[setting:get $chan antispam-scantime] != ""} {
-	set time [setting:get $chan antispam-scantime]
-		} else {
-	set time $black(spamcycle)
-		}
-	set scan_time [time_return_minute $time]
-	set black(antispam:$chan:timer_start) $scan_time
-}
-
-if {[string equal -nocase "-antispam" $flags]} {
-if {[info exists black(antispam:$chan:timer_start)]} {
-	unset black(antispam:$chan:timer_start)
-	}
-if {[info exists black(antispam:counter:$chan)]} {
-	unset black(antispam:counter:$chan)
-	}
-}
-
-if {[string equal -nocase "+securemode" $flags]} {
-	putserv "MODE $chan :+Dm"
-foreach tmr [utimers] {
-if {[string match "*securemode:timer*" [join [lindex $tmr 1]]]} {
-	return
-	}
-}
-	utimer 30 [list securemode:timer]
-}
-
-if {[string equal -nocase "-securemode" $flags]} {
-	set found_list 0
-	foreach tmr [utimers] {
-if {[string match "*securemode:timer*" [join [lindex $tmr 1]]]} {
-	putserv "MODE $chan :-Dm"
-	set replace(%chan%) $chan1
-	set text2 [black:color:set "" $black(say.$getlang.securemode.11)]
-	set reply2 [join $text2]
-	putserv "PRIVMSG $chan1 :[string map [array get replace] $reply2]"
-if {[info exists black(secure:$chan:list)]} {
-	set found_list 1
-if {[llength $black(secure:$chan:list)] > 0} {
-	foreach entry $black(secure:$chan:list) {
-	putserv "MODE $chan +v $entry"
-if {[info exists black(securecode:$entry:$chan)]} {
-	unset black(securecode:$entry:$chan)
-						}
-					}
-				}
-			}
-		}
-	}
-if {$found_list == "1"} {
-if {[info exists black(secure:$chan:list)]} {
-	unset black(secure:$chan:list)
-		}
-	}
-}
-	return
-}
-	set why [catch {channel set $chan $flags} error]
-if {$why == "1"} { blacktools:tell $nick $host $hand $chan $chan1 set.5 $flags
-	return
-} else {
-	channel set $chan $flags ; blacktools:tell $nick $host $hand $chan $chan1 set.6 $flags	
-}
-
-} else {
-if {[matchattr $hand nm]} {
-	set check_eggcmd [egg:setting_check $flags]
-if {$check_eggcmd == "1"} {
-	set return [egg:process $nick $host $hand $chan $chan1 $flags $type]
-if {$return == "0"} {
-	blacktools:tell $nick $host $hand $chan $chan1 set.2 "$flags $type"
-	} elseif {$return == "1"} {
-	blacktools:tell $nick $host $hand $chan $chan1 set.1 "$flags $type"
-	return
-	} else {
-	blacktools:tell $nick $host $hand $chan $chan1 set.9 "$flags $type"
-	return
-		}
-	return	
-	}
-}
-	set black_setting [setting:exists $flags]
-	set int_set [catch {channel set $chan $flags $type} error]
-if {$black_setting == "0" && $int_set == "1"} {
-	blacktools:tell $nick $host $hand $chan $chan1 set.7 "$flags $type"
-	return
-}
-	set choption 1
-	set checkflags $flags
-if {$choption == "0"} { return }
-
-if {[string equal -nocase "joinflood" $flags] || [string equal -nocase "antijoinflood-userset" $flags] || [string equal -nocase "antirepeat-setting" $flags] || [string equal -nocase "chanflood" $flags]} {
-if {![regexp {[0-9]:[0-9]} $type]} {
-	blacktools:tell $nick $host $hand $chan $chan1 set.7 "$flags $type"	
-	return
-	}
-}
-
-if {[string equal -nocase "url" $flags]} {
-if {$type == ""} {
-	blacktools:tell $nick $host $hand $chan $chan1 set.7 "$flags $type"
-	return
-	}
-}
-
-if {[string equal -nocase "badchan-bmethod" $flags] || [string equal -nocase "badnick-bmethod" $flags]} {
-if {[regexp {^[0-9]} $type] && [regexp {[a-z]} $type]} {
-	blacktools:tell $nick $host $hand $chan $chan1 set.7 "$flags $type"	
-	return
-	} elseif {![regexp {^[0-9]} $type]} {
-	blacktools:tell $nick $host $hand $chan $chan1 set.7 "$flags $type"	
-	return
-	} elseif {$type < 1 || $type > 2} {
-	blacktools:tell $nick $host $hand $chan $chan1 set.7 "$flags $type"	
-	return
-	}
-}
-
-if {[string equal -nocase "anunt-showtime" $flags]} {
-if {$type != ""} {
-	set scan_time [time_return_minute $type]
-if {$scan_time == "-1"} { 
-	set time $black(anunttime)
-	set scan_time [time_return_minute $time]
-}
-	set black(anunt:$chan:timer_start) $scan_time
-if {[info exists black(anunt:counter:$chan)]} {
-	set black(anunt:counter:$chan) 0
-		}
-	}
-}
-
-if {[string equal -nocase "voiceme-showtime" $flags]} {
-if {$type != ""} {
-	set scan_time [time_return_minute $type]
-if {$scan_time == "-1"} { 
-	set time $black(voiceme:msgtime)
-	set scan_time [time_return_minute $time]
-}
-	set black(voiceme:$chan:timer_start) $scan_time
-if {[info exists black(voiceme:counter:$chan)]} {
-	set black(voiceme:counter:$chan) 0
-		}
-	}
-}
-
-
-if {[string equal -nocase "quote-showtime" $flags]} {
-if {$type != ""} {
-	set scan_time [time_return_minute $type]
-if {$scan_time == "-1"} { 
-	set time $black(quote:msgtime)
-	set scan_time [time_return_minute $time]
-}
-	set black(quote:$chan:timer_start) $scan_time
-if {[info exists black(quote:counter:$chan)]} {
-	set black(quote:counter:$chan) 0
-		}
-	}
-}
-
-if {[string equal -nocase "badchan-scantime" $flags]} {
-if {$type != ""} {
-	set scan_time [time_return_minute $type]
-if {$scan_time == "-1"} { 
-	set time $black(badchan:scantime)
-	set scan_time [time_return_minute $time]
-}
-	set black(badchan:$chan:timer_start) $scan_time
-if {[info exists black(badchan:counter:$chan)]} {
-	set black(badchan:counter:$chan) 0
-		}
-	}
-}
-
-if {[string equal -nocase "idle-scantime" $flags]} {
-if {$type != ""} {
-	set scan_time [time_return_minute $type]
-if {$scan_time == "-1"} { 
-	set time $black(idleinterval)
-	set scan_time [time_return_minute $time]
-}
-	set black(idle:$chan:timer_start) $scan_time
-if {[info exists black(idle:counter:$chan)]} {
-	set black(idle:counter:$chan) 0
-		}
-	}
-}
-
-if {[string equal -nocase "antispam-scantime" $flags]} {
-if {$type != ""} {
-	set scan_time [time_return_minute $type]
-if {$scan_time == "-1"} { 
-	set time $black(spamcycle)
-	set scan_time [time_return_minute $time]
-}
-	set black(antispam:$chan:timer_start) $scan_time
-if {[info exists black(antispam:counter:$chan)]} {
-	set black(antispam:counter:$chan) 0
-		}
-	}
-}
-
-if {[string equal -nocase "clonescan-scantime" $flags]} {
-if {$type != ""} {
-	set time ""
-	set scan_time [time_return_minute $type]
-if {$scan_time == "-1"} { 
-	set time $black(clonescantime) 
-	set scan_time [time_return_minute $time]
-}
-	set black(clonescan:$chan:timer_start) $scan_time
-if {[info exists black(clonescan:counter:$chan)]} {
-	set black(clonescan:counter:$chan) 0
-		}
-	}
-}
-
-if {[string equal -nocase "leave-method" $flags]} {
-	if {![string equal -nocase "notice" $type] && ![string equal -nocase "privmsg" $type]} {
-	set choption [check_option $nick $host $hand $chan $chan1 $type $type1 "leave"]
-if {$choption == "0"} { return }
-	}
-}
-
-if {[string equal -nocase "greet-method" $flags]} {
-	if {![string equal -nocase "notice" $type] && ![string equal -nocase "privmsg" $type]} {
-	set choption [check_option $nick $host $hand $chan $chan1 $type $type1 "greet"]
-if {$choption == "0"} { return }
-	}
-}
-
-if {[string equal -nocase "guestnick-msgmethod" $flags]} {
-	if {![string equal -nocase "notice" $type] && ![string equal -nocase "privmsg" $type] && ![string equal -nocase "chan" $type]} {
-	set choption [check_option $nick $host $hand $chan $chan1 $type $type1 "guestnick"]
-if {$choption == "0"} { return }
-	}
-}
-
-if {[string match -nocase "backchan" $flags]} {
-if {![validchan $type]} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none	
-	return
-	}
-}
-
-if {[string equal -nocase "xbanlevel" $flags]} {
-if {![regexp {^[0-9]} $type]} {
-	blacktools:tell $nick $host $hand $chan $chan1 set.7 "$flags $type"
-	return
-	}
-if {$type < 75 || $type > 500} {
-	blacktools:tell $nick $host $hand $chan $chan1 set.7 "$flags $type"
-	return
-	}
-}
-
-if {[string equal -nocase "vprotect" $flags]} {
-if {![string equal -nocase "on" $type] && ![string equal -nocase "off" $type]} {
-	set choption [check_option $nick $host $hand $chan $chan1 $type $type1 "vprotect"]
-if {$choption == "0"} { return }
-	}
-} 
-
-if {[string equal -nocase "oprotect" $flags]} {
-if {![string equal -nocase "on" $type] && ![string equal -nocase "off" $type]} {
-	set choption [check_option $nick $host $hand $chan $chan1 $type $type1 "oprotect"]
-if {$choption == "0"} { return }
-	}
-}
-
-if {[string equal -nocase "clonescan-action" $flags]} {
-if {![string equal -nocase "message" $type] && ![string equal -nocase "ban" $type]} {
-	set choption [check_option $nick $host $hand $chan $chan1 $type $type1 "clonescan"]
-if {$choption == "0"} { return }
-	}	
-}
-
-if {[string equal -nocase "lang" $flags]} {
-if {![file exists "$black(dirname)/BlackTools/lang/BlackTools.[string tolower $type].lang.tcl"]} {
-	set choption [check_option $nick $host $hand $chan $chan1 $type $type1 "language"]
-if {$choption == "0"} { return }
-	}
-}
-	set black_setting [setting:exists $flags]
-if {$black_setting == "2"} {
-	set status [setting:status $chan $flags $type]
-if {$status != "0"} {
-	blacktools:tell $nick $host $hand $chan $chan1 set.3 "$flags $type"
-	return
-}
-	set split_flags [split $flags "-"]
-	set flags_2 [lindex $split_flags 1]
-if {[string equal -nocase $flags_2 "banmethod"] || [string equal -nocase $flags "banmethod"]} {
-	set validnum [check:validnum $type "banmethod" $type1 $nick $host $hand $chan $chan1]
-	if {$validnum == "0"} { return }
-}
-
-if {[string equal -nocase $flags_2 "bantime"] || [string equal -nocase $flags "banmethod"]} {
-	set return_time [time_return_minute $type]
-if {$return_time == "-1"} {
-	blacktools:tell $nick $host $hand $chan $chan1 set.7 "$flags $type"
-	return
-	}
-}
-
-if {[string equal -nocase $flags_2 "banmask"] || [string equal -nocase $flags "banmask"]} {
-	set validnum [check:validnum2 $type "banmask" $type1 $nick $host $hand $chan $chan1]
-	if {$validnum == "0"} { return }
-}
-	set encoded [join [encoding convertto utf-8 $type]]
-	setting:set $chan $flags $encoded
-	blacktools:tell $nick $host $hand $chan $chan1 set.8 "$flags $type"
-	return
-}
-	set why [catch {channel set $chan $flags $type} error]
-if {$why == "1"} { blacktools:tell $nick $host $hand $chan $chan1 set.7 "$flags $type"
-	return
-} else {
-if {[string equal -nocase $flags "backchan"]} {
-if {![validchan $type]} {
-	blacktools:tell $nick $host $hand $chan $chan1 set.12 $type
-	return
-	}	
-}
-	channel set $chan $flags $type ; blacktools:tell $nick $host $hand $chan $chan1 set.8 "$flags $type" 
-		}
-	}
-}
-
-################################# unset #######################################
-
-proc unset:process {nick host hand chan chan1 setting type} {
-	global black
-	set cmd_status [btcmd:status $chan $hand "unset" 0]
-if {$cmd_status == "1"} { 
-	return 
-}
-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
-}
-if {$setting == ""} {
-switch $type {
-	0 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "unset"
-	}
-	1 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "unset"
-	}
-	2 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_priv "unset"
-		}
-	}
-	return
-}
-	
-if {[string equal -nocase $setting "flag"]} {
-foreach f $black(extra_flag) {
-if {([string equal -nocase $f "invisible"] || [string equal -nocase $f "forward"]) && [matchattr $hand mo|M $chan] && ![matchattr $hand n]} {
-	continue
-}
-	unset:all $chan $f
-}
-	blacktools:tell $nick $host $hand $chan $chan1 unset.4 none
-	return
-}
-
-if {[string equal -nocase $setting "str"]} {
-foreach f $black(extra_str) {
-	unset:all $chan $f
-}
-	blacktools:tell $nick $host $hand $chan $chan1 unset.5 none
-	return
-}
-	set timestamp [clock format [clock seconds] -format {%Y%m%d%H%M%S}]
-	set temp "$black(tempdir)/extra_temp.$timestamp"
-	set black_setting [setting:exists $setting]
-if {$black_setting != "0"} {
-if {[string equal -nocase $setting "invisible"] || [string equal -nocase $setting "forward"] && ![matchattr $hand n]} {
-	blacktools:tell $nick $host $hand $chan $chan1 unset.1 $setting
-	return
-}
-	set status [setting:get $chan $setting]
-if {$status != "" && $status != "0"} {
-	blacktools:tell $nick $host $hand $chan $chan1 unset.2 $setting
-	set file [open $black(extra_file) r]
-	set tempwrite [open $temp w]
-while {[gets $file line] != -1} {
-	set c [lindex [split $line] 0]
-	set gettype [lindex [split $line] 1]
-	set comp [lindex [split $line] 2]
-if {$black_setting == "1"} {
-	set comp [string map {
-	"+" ""
-	"-" ""} $comp]
-}
-if {[string equal -nocase $c $chan] && [string equal -nocase $gettype "XTRA"] && [string equal -nocase $comp $setting]} {
-	continue
-} else {
-	puts $tempwrite $line
-		}	 
-    }
-	close $tempwrite
-	close $file
-    file rename -force $temp $black(extra_file)
-	
-if {[string equal -nocase $setting "clonescan-scantime"]} {
-if {[info exists black(clonescan:counter:$chan)]} {
-	unset black(clonescan:counter:$chan)
-		}
-if {[info exists black(clonescan:$chan:timer_start)]} {
-	set black(clonescan:$chan:timer_start) 0
-	}
-}
-
-if {[string equal -nocase $setting "anunt-showtime"]} {
-if {[info exists black(anunt:counter:$chan)]} {
-	unset black(anunt:counter:$chan)
-		}
-if {[info exists black(anunt:$chan:timer_start)]} {
-	set black(anunt:$chan:timer_start) 0
-	}
-}
-
-if {[string equal -nocase $setting "quote-showtime"]} {
-if {[info exists black(quote:counter:$chan)]} {
-	unset black(quote:counter:$chan)
-		}
-if {[info exists black(quote:$chan:timer_start)]} {
-	set black(quote:$chan:timer_start) 0
-	}
-}
-
-if {[string equal -nocase $setting "badchan-scantime"]} {
-if {[info exists black(badchan:counter:$chan)]} {
-	unset black(badchan:counter:$chan)
-		}
-if {[info exists black(badchan:$chan:timer_start)]} {
-	set black(badchan:$chan:timer_start) 0
-	}
-}
-
-if {[string equal -nocase $setting "idle-scantime"]} {
-if {[info exists black(idle:counter:$chan)]} {
-	unset black(idle:counter:$chan)
-		}
-if {[info exists black(idle:$chan:timer_start)]} {
-	set black(idle:$chan:timer_start) 0
-	}
-}
-	} else {
-	blacktools:tell $nick $host $hand $chan $chan1 unset.3 $setting 
-	}
-} else {
-	blacktools:tell $nick $host $hand $chan $chan1 unset.1 $setting
-	}		
-}
-
-proc unset:all {chan setting} {
-	global black
-	set timestamp [clock format [clock seconds] -format {%Y%m%d%H%M%S}]
-	set temp "$black(tempdir)/extra_temp.$timestamp"
-	set file [open $black(extra_file) r]
-	set tempwrite [open $temp w]
-while {[gets $file line] != -1} {
-	set c [lindex [split $line] 0]
-	set gettype [lindex [split $line] 1]
-	set comp [lindex [split $line] 2]
-if {[regexp {^[+-]} $comp]} {
-	set comp [string map {
-	"+" ""
-	"-" ""} $comp]
-}
-if {[string equal -nocase $c $chan] && [string equal -nocase $gettype "XTRA"] && [string equal -nocase $comp $setting]} {	
-		continue
-		} else {
-	puts $tempwrite $line
-		}	
-	}
-	close $tempwrite
-	close $file
-    file rename -force $temp $black(extra_file)
-}
-
-proc check:validnum {num flags type1 nick host hand chan chan1} {
-	global black
-	if {![regexp {^[0-9]} $num]} {
-if {$type1 == "0"} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr $flags
-}
-if {$type1 == "1"} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick $flags
-		}
-	return 0
-	}
-if {($num < 1) || ($num > 7)} {
-if {$type1 == "0"} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr $flags
-}
-if {$type1 == "1"} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick $flags
-		}
-	return 0
-	}
-	return 1
-}
-
-proc check:validnum2 {num flags type1 nick host hand chan chan1} {
-	global black
-	if {![regexp {^[0-9]} $num]} {
-if {$type1 == "0"} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr $flags
-}
-if {$type1 == "1"} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick $flags
-		}
-	return 0
-	}
-if {($num < 1) || ($num > 5)} {
-if {$type1 == "0"} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr $flags
-}
-if {$type1 == "1"} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick $flags
-		}
-	return 0
-	}
-	return 1
-}
-
-
-############################### ignore ######################################
-
-proc ignore:process {nick host hand chan chan1 what mask time reason type} {
-global botnick black
-	set cmd_status [btcmd:status $chan $hand "ignore" 0]
-	set show_mask $mask
-if {$cmd_status == "1"} { 
-	return 
-}
-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
-}
-
-if {$what == ""} {
-switch $type {
-	0 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "ignore"
-	}
-	1 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "ignore"
-	}
-	2 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_priv "ignore"
-		}
-	}
-}
-switch -exact -- [string tolower $what] {
-
-list {
-if {[llength [ignorelist]] == "0"} { blacktools:tell $nick $host $hand $chan $chan1 ignore.3 none
-	return
-}
-
-foreach ig [ignorelist] {
-	set hostig [lindex $ig 0]
-	set byig [lindex $ig 4]
-	set bytime [lindex $ig 2]
-	set reasig [lindex $ig 1]
-if {$bytime != "0"} {
-	set bytime [clock format $bytime -format %D-%H:%M:%S]
-} else { set bytime "-"}
-	blacktools:tell $nick $host $hand $chan $chan1 ignore.4 "$hostig $byig $bytime [join $reasig]" 
-	}
-}
-
-add {
-
-if {$mask == ""} {
-switch $type {
-	0 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "ignore"
-	}
-	1 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "ignore"
-	}
-	2 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_priv "ignore"
-		}
-	}
-	return
-}
-
-if {[isignore $mask]} {
-	blacktools:tell $nick $host $hand $chan $chan1 ignore.5 $show_mask
-	return
-}
-
-if {![regexp {[!]} $mask]} {
-	switch $type {
-	0 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "ignore"
-	}
-	1 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "ignore"
-	}
-	2 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_priv "ignore"
-		}
-	}
-	return
-}
-	set check_ignore [ignore:stop $mask]
-if {$check_ignore != ""} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.validuser $check_ignore
-	return
-}
-
-if {![regexp {^[0-9]} $time]} {
-	set time $black(ignore:default_time)
-}
-	set ignore_time [time_return_minute $time]
-
-if {$reason == ""} { set reason "N/A" }
-	newignore $mask $hand $reason $ignore_time
-	blacktools:tell $nick $host $hand $chan $chan1 ignore.6 "$show_mask $time $reason"
-}
-
-del {
-if {$mask == ""} {
-switch $type {
-	0 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "ignore"
-	}
-	1 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "ignore"
-	}
-	2 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_priv "ignore"
-		}
-	}
-	return
-}
-
-if {[isignore $mask]} {
-	killignore $mask
-} else { blacktools:tell $nick $host $hand $chan $chan1 ignore.8 $show_mask
-	return
-} 
-	blacktools:tell $nick $host $hand $chan $chan1 ignore.9 $show_mask
-		}
-default {
-	switch $type {
-	0 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "ignore"
-	}
-	1 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "ignore"
-	}
-	2 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_priv "ignore"
-		}
-			}
-		}
-	}
-}
-
-proc ignore:stop {host} {
-	global black
-		set finduser ""
-if {[userlist] != ""} {
-foreach usr [userlist] {
-	set hst [getuser $usr hosts]
-foreach hhost $hst {
-if {[string match -nocase $host $hhost] || [string match -nocase $hhost $host]} {
-	set finduser $usr
-				}
-			}
-		}
-	}
-	return $finduser
-}
-
-################################# show ################################
-
-proc show:process {nick host hand chan chan1 wich type} {
-global black botnick
-	set cmd_status [btcmd:status $chan $hand "show" 0]
-if {$cmd_status == "1"} { 
-	return 
-}
-	set getlang [string tolower [setting:get $chan lang]]
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
-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
-}
-
-if {$wich == ""} {
-switch $type {
-	0 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "show"
-	}
-	1 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "show"
-	}
-	2 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_priv "show"
-		}
-	}
-	return 0
-}
-
-if {![validchan $chan]} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
-	return
-}
-	set setting_exists [setting:exists $wich]
-if {$setting_exists == "0"} {
-	set why [catch {channel get $chan $wich} error]
-if {$why == "1"} { blacktools:tell $nick $host $hand $chan $chan1 show.5 $wich
-	return
-} else {
-	set replyinfo [channel get $chan $wich]
-if {($replyinfo != "") && ($replyinfo == "1")} {
-	blacktools:tell $nick $host $hand $chan $chan1 show.7 "$wich"
-	return
-}
-if {($replyinfo != "") && ($replyinfo == "0")} {
-	blacktools:tell $nick $host $hand $chan $chan1 show.8 "$wich"
-	return
-}
-	blacktools:tell $nick $host $hand $chan $chan1 show.6 "$wich $replyinfo"
-	}
-	return
-}
-	set replyinfo [setting:get $chan $wich]
-if {$setting_exists == "1"} {
-
-if {([string equal -nocase $wich "invisible"] || [string equal -nocase $wich "forward"]) && ![matchattr $hand n]} {
-	blacktools:tell $nick $host $hand $chan $chan1 show.5 $wich
-	return
-}
-	
-if {[regexp {^[1]} $replyinfo]} {
-	blacktools:tell $nick $host $hand $chan $chan1 show.7 $wich
-	return
-}
-
-if {[regexp {^[0]} $replyinfo]} {
-	blacktools:tell $nick $host $hand $chan $chan1 show.8 $wich
-	return
-	}
-if {($replyinfo == "") && [string equal -nocase $wich "oprotect"] || [string equal -nocase $wich "vprotect"] || [string equal -nocase $wich "hoprotect"]} {
-	blacktools:tell $nick $host $hand $chan $chan1 show.7 $wich
-	return
-}
-if {$replyinfo == ""} {
-	blacktools:tell $nick $host $hand $chan $chan1 show.8 $wich
-	}
-	return
-}
-	set split_wich [split $wich "-"]
-	set name [lindex $split_wich 0]
-if {$replyinfo == ""} {
-switch -exact -- [string tolower $wich] {
-
-badnick-bmethod {
-	set replyinfo $black(badnbanmethod)
-}
-
-voiceme-showtime {
-	set replyinfo $black(voiceme:msgtime)
-}
-
-quote-showtime {
-	set replyinfo $black(quote:msgtime)
-}
-
-anunt-showtime {
-	set replyinfo $black(anunttime)
-}
-
-quitpartmsgflood-char {
-	set replyinfo $black(badquitpartmsgchar)
-}
-
-repetitivechars-char {
-	set replyinfo $black(repetitivechars:num)
-}
-
-antispam-scantime {
-	set replyinfo $black(spamcycle)
-}
-
-clonescan-scantime {
-	set replyinfo $black(clonescantime)
-}
-
-badchan-scantime {
-	set replyinfo $black(badchan:scantime)
-}
-
-idle-scantime {
-	set replyinfo $black(idleinterval)
-}
-
-lang {
-	set replyinfo $black(default_lang)
-}
-
-greet-method {
-	set replyinfo $black(greet:method)
-}
-
-leave-method {
-	set replyinfo $black(leave:method)
-}
-
-backchan {
-	set replyinfo $black(say.ro.gl.noset)
-}
-
-url {
-	set replyinfo $black(say.ro.gl.noset)
-}
-
-idlehalfopmax {
-	set replyinfo $black(idlehalfopmax)
-}
-
-nickflood-repeat {
-	set replyinfo $black(nickfloodrepeats)
-}
-
-w-message {
-	set replyinfo $black(say.$getlang.w.6)
-}
-
-antilongtextmax {
-	set replyinfo $black(longchar)
-}
-
-joinflood {
-	set replyinfo $black(joinflood:protect)
-}
-antijoinflood-userset {
-	set replyinfo $black(antijoinflood_user_joins)
-}
-
-chanflood {
-	set replyinfo $black(antichanfloodrepeats)
-}
-
-idleopmax {
-	set replyinfo $black(idleopmax)
-}
-
-idlevoicemax {
-	set replyinfo $black(idlevoicemax)
-}
-
-expirebans {
-	set replyinfo $black(default:bantime)
-}
-
-antirepeat-setting {
-set replyinfo $black(antirepeat:repeats)
-}
-
-gag-reason {
-	set replyinfo $black(say.$getlang.gag.6)
-}
-
-w-reason {
-	set len [llength $black(say.$getlang.w.5)] 
-    set random [expr int(rand()*$len)] 
-    set reply [lindex $black(say.$getlang.w.5) $random]
-	set replyinfo $reply
-}
-
-k-reason {
-	set len [llength $black(say.$getlang.k.5)] 
-    set random [expr int(rand()*$len)] 
-    set reply [lindex $black(say.$getlang.k.5) $random]
-	set replyinfo $reply
-}
-
-b-reason {
-	set len [llength $black(say.$getlang.b.5)] 
-    set random [expr int(rand()*$len)] 
-    set reply [lindex $black(say.$getlang.b.5) $random]
-	set replyinfo $reply
-}
-
-badchan-bmethod {
-	set replyinfo $black(badcbanmethod)
-}
-
-d-bantime {
-	set replyinfo $black(dbtime)
-}
-
-antispam-message {
-	set replyinfo $black(say.$getlang.antispam.2)
-}
-
-limit-default {
-	set replyinfo $black(limit:default)
-}
-
-clonescan-maxclone {
-	set replyinfo $black(maxclone)
-}
-
-clonescan-action {
-	set replyinfo "message"
-				}
-guestnick-message {
-	set replyinfo $black(say.$getlang.guestnick.10)
-				}
-guestnick-msgmethod {
-	set replyinfo $black(guestnick:msgmethod)
-				}
-voiceonmsg-idletime {
-	set replyinfo $black(voiceonmsg:idletime)
-}
-voiceonmsg-linenum {
-	set replyinfo $black(voiceonmsg:linenum)
-			}
-xbantime {
-	set replyinfo $black(chanserv:bantime)
-}
-
-xbanlevel {
-	set replyinfo $black(chanserv:banlevel)
-}
-default {
-	set replyinfo [show:details $wich $name $setting_exists $chan ""]
-			}
-		}
-	} else {
-	set replyinfo [show:details $wich $name $setting_exists $chan $replyinfo]
-	}
-	set remain_timer [show:getscantime:remain $wich $chan]
-if {$remain_timer == "-1"} {
-	blacktools:tell $nick $host $hand $chan $chan1 show.6 "$wich [join $replyinfo]"
-	} else {
-	blacktools:tell $nick $host $hand $chan $chan1 show.4 "$wich [join $replyinfo] $remain_timer"
-	}
-}
-
-proc show:getscantime:remain {setting chan} {
-	global black
-	set remain ""
-	set mod [split $setting "-"]
-	set mod [lindex $mod 0]
-if {[info exists black($mod:$chan:timer_start)] && [info exists black($mod:counter:$chan)]} {
-	set remain [expr $black($mod:$chan:timer_start) - $black($mod:counter:$chan)]
-	}
-if {$remain == ""} {
-		return -1
-	} else { return $remain }
-}
-
-proc show:details {wich name setting_exists chan set} {
-	global black
-	set getlang [string tolower [setting:get $chan lang]]
-	set cmds "dr vr troll bot n id spam bw black stick d next badchan spam"
-	set replyinfo ""
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
-if {[string equal -nocase $wich "$name-banmethod"]} {
-if {$set == ""} {
-	set replyinfo [show:getbanmethod $black($name:banmethod)]
-	} else {
-	set replyinfo [show:getbanmethod $set]
-	}
-}
-if {[string equal -nocase $wich "$name-banmask"]} {
-if {$set == ""} {
-	set replyinfo [show:getbanmask $black($name:banmask)]
-	} else {
-	set replyinfo [show:getbanmask $set]
-	}
-}
-
-if {$setting_exists == "2"} {
-	if {[string equal -nocase $wich "$name-bantime"]} {
-if {$set == ""} {
-	set replyinfo $black($name:bantime)
-			} else {
-	set replyinfo $set
-			}
-		}
-	}
-if {$setting_exists == "2"} {
-if {[string equal -nocase $wich "$name-warn"]} {
-if {$set == ""} {
-	set replyinfo $black(say.$getlang.$name.2)
-			} else {
-	set replyinfo $set
-			}
-		}
-	}
-if {$setting_exists == "2"} {
-	if {[string equal -nocase $wich "$name-reason"] && [lsearch -exact [string tolower $cmds] [string tolower $name]] > -1} {
-if {$set == ""} {
-	set replyinfo $black(say.$getlang.$name.5)
-				} else {
-	set replyinfo $set
-				}
-			}
-		}
-if {$setting_exists == "2" && $replyinfo == ""} {
-	if {[string equal -nocase $wich "$name-reason"]} {
-if {$set == ""} {
-	set replyinfo $black(say.$getlang.$name.1)
-			} else {
-	set replyinfo $set
-			}
-		}
-	}
-if {$replyinfo == ""} {
-	set replyinfo $set
-}
-	return $replyinfo
-}
-
-
-proc show:getbanmask {num} {
-	global black
-switch $num {
-	1 {
-	return "#1 - *!*@host"
-	}
-	2 {
-	return "#2 - *!user@host"
-	}
-	3 {
-	return "#3 - nick!user@host"
-	}
-	4 {
-	return "#4 - nick!*@*"
-	}
-	5 {
-	return "#5 - *!user@*"
-		}
-	}
-}
-
-proc show:getbanmethod {num} {
-	global black
-switch $num {
-	1 {
-	return "#1 - warn"
-	}
-	
-	2 {
-	return "#2 - kick"
-	}
-	
-	3 {
-	return "#3 - ban"
-	}
-	
-	4 {
-	return "#4 - warn -> kick"
-	}
-	
-	5 {
-	return "#5 - warn -> kick -> ban"
-	}
-	
-	6 {
-	return "#6 - kick -> ban"
-	}
-	7 {
-	return "#7 - warn -> ban"
-		}
-	}	
-}
-
-############################## stats ##################################
-
-proc stats:process {nick host hand chan chan1 user option type} {
-global botnick black timezone
-	set cmd_status [btcmd:status $chan $hand "stats" 0]
-if {$cmd_status == "1"} { 
-	return
-}
-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 handle ""
-	set show_user $user
-	set validuser 0
-	set mask ""
-if {$user == ""} {
-switch $type {
-	0 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "stats"
-	}
-	1 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "stats"
-	}
-	2 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_priv "stats"
-		}
-	}
-	return
-}
-
-if {![validchan $chan]} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
-	return
-}
-
-if {[validuser $user]} {
-	set validuser 1
-} else {
-	set handle [nick2hand $user]
-if {[validuser $handle]} {
-	set user $handle
-	set validuser 1
-		}
-	}
-if {$validuser == "0"} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.usernotexist $user
-	return
-}
-switch [string tolower $option] {
-	reset {
-if {[matchattr $hand nmo|M]} {
-	set reseted 0
-	set cmds_today [getuser $user XTRA CMD_STATS_TODAY($chan)]
-	set cmds_total [getuser $user XTRA CMD_STATS($chan)]
-
-if {$cmds_today != ""} {
-	set reseted 1
-	setuser $user XTRA CMD_STATS_TODAY($chan)
-}
-if {$cmds_total != ""} {
-	set reseted 1
-	setuser $user XTRA CMD_STATS($chan)
-}
-if {$reseted == "1"} {
-	blacktools:tell $nick $host $hand $chan $chan1 stats.5 $user
-} else {
-	blacktools:tell $nick $host $hand $chan $chan1 stats.1 $user	
-			}
-		}
-	}
-	total {
-	stats:process:show $nick $host $hand $chan $chan1 $user "CMD_STATS($chan)"
-	}
-	default {
-	stats:process:show $nick $host $hand $chan $chan1 $user "CMD_STATS_TODAY($chan)"
-		}
-	}
-}
-
-proc stats:process:show {nick host hand chan chan1 user option} {
-	global black lastbind
-	set cmds [getuser $user XTRA $option]
-	set stats ""
-	set total 0
-	set total_k 0
-	set cmds_gl ""
-if {[matchattr $hand nmo]} {
-	set cmds_gl [getuser $user XTRA BANS(GLOBAL)]
-if {$cmds_gl == ""} {set cmds_gl 0 }
-}
-	
-if {$cmds == ""} {
-	blacktools:tell $nick $host $hand $chan $chan1 stats.1 $user
-	return
-}
-foreach stat $cmds {
-if {$stat != ""} {
-	set split_stat [split $stat ":"]
-	set cmd [lindex $split_stat 0]
-	set num [lindex $split_stat 1]
-if {[string equal -nocase "k" $cmd] || [string equal -nocase "w" $cmd]} {
-	set total_k [expr $total_k + $num]
-} else {
-	set total [expr $total + $num]
-}
-	lappend stats "[black:color "1" $hand $cmd] ([black:color "2" $hand $num])"
-	}
-}
-
-if {[matchattr $hand nmo]} {
-if {[string equal -nocase "CMD_STATS_TODAY($chan)" $option]} {
-	blacktools:tell $nick $host $hand $chan $chan1 stats.2 "$user $total $total_k [join $stats " ; "]"
-} else {
-	blacktools:tell $nick $host $hand $chan $chan1 stats.4 "$user $total $cmds_gl $total_k [join $stats " ; "]"
-		}
-	} else {
-if {[string equal -nocase "CMD_STATS_TODAY($chan)" $option]} {
-	blacktools:tell $nick $host $hand $chan $chan1 stats.2 "$user $total $total_k [join $stats " ; "]"
-} else {
-	blacktools:tell $nick $host $hand $chan $chan1 stats.3 "$user $total $total_k [join $stats " ; "]"
-		}	
-	}
-}
-
-################################# r #######################################
-
-proc topic:refresh {nick host hand chan chan1 arg} {
-	global black lastbind botnick
-	set cmd_status [btcmd:status $chan $hand "r" 0]
-if {$cmd_status == "1"} { 
-	return
-}
-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
-}
-
-if {![validchan $chan]} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
-	return
-}
-if {![onchan $botnick $chan]} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
-	return
-}
-if {![botisop $chan]} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.noop none
-	return
-}
-	set chantopic [topic $chan]
-	set getlang [string tolower [setting:get $chan lang]]
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
-if {$chantopic != ""} {
-	set top "$black(say.$getlang.r.1)" 
-	set len [llength $top] 
-    set random [expr int(rand()*$len)] 
-    set top [lindex $top $random]
-	set text [black:color:set "" $top]
-	set reply [join $text]
-	putserv "TOPIC $chan :$reply"
-	putserv "TOPIC $chan :$chantopic"
-	} else {
-	blacktools:tell $nick $host $hand $chan $chan1 r.2 none
-	}
-}
-
-
-############################### omsg ###################################
-
-
-proc omsg:process {nick host hand chan chan1 who msg type} {
-	global black
-	set cmd_status [btcmd:status $chan $hand "omsg" 0]
-if {$cmd_status == "1"} { 
-	return
-}
-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 chans ""
-
-if {$who == ""} {
-switch $type {
-	0 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "omsg"
-	}
-	1 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "omsg"
-	}
-	2 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_priv "omsg"
-		}
-	}
-	return
-}
-
-if {$msg == ""} {
-switch $type {
-	0 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "omsg"
-	}
-	1 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "omsg"
-	}
-	2 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_priv "omsg"
-		}
-	}
-	return
-}
-
-if {[string equal -nocase $who "all"]} {
-	foreach c [channels] {
-if {![setting:get $c invisible]} {
-if {[matchattr $hand $black(accessflags) $c]} {
-if {[botisop $c]} {
-	lappend chans $c
-				}
-			}
-		}
-	}
-if {$chans == ""} {
-	return
-}
-	blacktools:tell $nick $host $hand $chan $chan1 omsg.1 [join $chans ", "]
-	omsg:act $hand $chans 0 $msg
-	return
-}
-
-if {![validchan $who]} { 
-	blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
-	return
-}
-
-if {[matchattr $hand $black(accessflags) $who]} {
-if {![botisop $who]} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.noop none
-	return
-}
-	putserv "NOTICE @$who :\[BT\] ($hand) $msg"
-	blacktools:tell $nick $host $hand $chan $chan1 omsg.1 $who
-	}
-}
-
-proc omsg:act {hand chans number msg} {
-	global black
-	set chan [lindex $chans $number]
-	putserv "NOTICE @$chan :\[BT\] ($hand) $msg"
-	set number [expr $number + 1]
-if {[lindex $chans $number] != ""} {
-	utimer 2 [list omsg:act $hand $chans $number $msg]
-	}
-}
-
-##############
-#########################################################################
-##   END                                                               ##
-#########################################################################