Delete BT.AddCmds.tcl

BlackTools2.5.1/BlackTools/Commands/BT.AddCmds.tcl

@@ -1,1856 +0,0 @@
-#########################################################################
-##          BlackTools - The Ultimate Channel Control Script           ##
-##                    One TCL. One smart Eggdrop                       ##
-#########################################################################
-############################   ADDCMDS 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                ##
-##					                               ##
-#########################################################################
-
-
-############################## Commands #################################
-
-########################## adduser ##################################
-
-proc add:process {user uhost handle level hand host chan chan1 nick type cmd} {
-global black botnick
-	set cmd_status [btcmd:status $chan $hand $cmd 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 {[validuser $handle]} {
-	set user $handle
-}
-if {$user == ""} {
-	switch $type {
-	0 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "$cmd"
-	}
-	1 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "$cmd"
-	}
-	2 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_priv "$cmd"
-		}
-	}
-	return
-}
-	set show_user $user
-	set time [unixtime]
-	set flags "nmo|NMOAVH"
-
-if {![validchan $chan]} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
-	return
-}
-	
-if {$user != ""} {
-	set user [strip:all $user]
-	set replace(%user%) $show_user
-if {$uhost == ""} {
-	set uhost [string map [array get replace] $black(hostadd)]
-}
-if {[userlist] != ""} {
-foreach usr [userlist] {
-	set hst [getuser $usr hosts]
-foreach hhost $hst {
-if {[string match -nocase $hhost $uhost] && (![string match -nocase $usr $user])} {
-	blacktools:tell $nick $host $hand $chan $chan1 add.5 $usr
-	set user $usr
-	set show_user $usr
-			}
-		}
-	}
-}
- 
-if {[matchattr $hand -|A $chan] && ($level == [string tolower [blacktools:getlevelname 3 $hand]])} {
-	blacktools:tell $nick $host $hand $chan $chan1 add.6 [blacktools:getlevelname 3 $hand]
-	return
-}
-if {[matchattr $hand -|A $chan] && ($level == [string tolower [blacktools:getlevelname 4 $hand]])} {
-	blacktools:tell $nick $host $hand $chan $chan1 add.7 [blacktools:getlevelname 4 $hand]
-	return
-}
-if {[matchattr $hand -|M $chan] && ($level == [string tolower [blacktools:getlevelname 3 $hand]])} {
-	blacktools:tell $nick $host $hand $chan $chan1 add.8 [blacktools:getlevelname 3 $hand]
-	return
-}
-
-if {[string equal -nocase $level [blacktools:getlevelname 3 $hand]]} { 
-	set flags "-|olM"
-if {[validuser $user]} {
-	set check_global [check:global $user]
-if {$check_global != "0"} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.isowner "$user $check_global"
-	return
-}
-if {[matchattr $user m|- $chan] && [matchattr $hand -|M $chan]} { 
-	blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
-	return
-}
-if {[matchattr $user -|M $chan] && [matchattr $hand -|M $chan]} { 
-	blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
-	return
-}
-if {[matchattr $user n|- $chan] && [matchattr $hand n|- $chan]} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
-	return
-}
-if {[matchattr $user m|- $chan] && [matchattr $hand m|- $chan] && (![matchattr $hand n|- $chan])} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
-	return 
-}
-if {[matchattr $user n|- $chan] && [matchattr $hand m|- $chan]} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
-	return
-}
-if {[matchattr $user o|- $chan] && [matchattr $hand -|M $chan]} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
-	return
-}
-if {[matchattr $user n|- $chan] && [matchattr $hand o|- $chan]} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
-	return
-}
-if {[matchattr $user m|- $chan] && [matchattr $hand o|- $chan]} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
-	return
-}
-if {[matchattr $user o|- $chan] && [matchattr $hand o|- $chan]} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
-	return
-}
-	chattr $user -|-qolSOHAMV $chan
-	chattr $user $flags $chan
-	setuser $user XTRA CHANMODIF($chan) $time:$hand
-	blacktools:tell $nick $host $hand $chan $chan1 add.19 "$show_user [blacktools:getlevelname 3 $hand]"
-} else {
-	adduser $user $uhost
-	set user [check:handle $user $nick $host $hand $chan $chan1]
-	chattr $user -|-SOHAMV $chan
-	chattr $user $flags $chan
-	setuser $user XTRA CHANMODIF($chan) $time:$hand
-	blacktools:tell $nick $host $hand $chan $chan1 add.10 "$show_user $uhost"
-	blacktools:tell $nick $host $hand $chan $chan1 add.19 "$show_user [blacktools:getlevelname 3 $hand]"
-	}
-} elseif {[string equal -nocase $level [blacktools:getlevelname 4 $hand]]} {
-	set flags "-|olA"
- if {[validuser $user]} {
-	set check_global [check:global $user]
-if {$check_global != "0"} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.isowner "$user $check_global"
-	return
-}
-	set get_status_access [check:access $nick $host $hand $chan $chan1 $user]
-if {$get_status_access == "1"} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
-	return
-}
-	chattr $user -|-qolSHOAMV $chan
-	chattr $user $flags $chan
-	setuser $user XTRA CHANMODIF($chan) $time:$hand
-	blacktools:tell $nick $host $hand $chan $chan1 add.19 "$show_user [blacktools:getlevelname 4 $hand]"
-} else {
-	adduser $user $uhost
-	set user [check:handle $user $nick $host $hand $chan $chan1]
-	chattr $user -|-qolSHOAMV $chan
-	chattr $user $flags $chan 
-	setuser $user XTRA CHANMODIF($chan) $time:$hand
-	blacktools:tell $nick $host $hand $chan $chan1 add.10 "$show_user $uhost"
-	blacktools:tell $nick $host $hand $chan $chan1 add.19 "$show_user [blacktools:getlevelname 4 $hand]"
-	}
-} elseif {[string equal -nocase $level [blacktools:getlevelname 2 $hand]]} {
-	set flags "m|-"
-if {[matchattr $hand n]} {
-if {[validuser $user]} { 
-	set get_status_access [check:access $nick $host $hand $chan $chan1 $user]
-if {$get_status_access == "1"} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
-	return
-}
-	chattr $user -omjlptxq|-qolSHOAMV $chan
-	chattr $user $flags
-	setuser $user XTRA CHANMODIF(GLOBAL) $time:$hand
-	blacktools:tell $nick $host $hand $chan $chan1 add.20 "$show_user [blacktools:getlevelname 2 $hand]"
-} else {
-	adduser $user $uhost
-	set user [check:handle $user $nick $host $hand $chan $chan1]
-	chattr $user -|-qolSHOAMV $chan
-	chattr $user $flags 
-	setuser $user XTRA CHANMODIF(GLOBAL) $time:$hand
-	blacktools:tell $nick $host $hand $chan $chan1 add.10 "$show_user $uhost"
-	blacktools:tell $nick $host $hand $chan $chan1 add.20 "$show_user [blacktools:getlevelname 2 $hand]"
-		}
-	}
-} elseif {[string equal -nocase $level [blacktools:getlevelname 8 $hand]]} {
-	set flags "o|-"
-if {[matchattr $hand nm]} {
-if {[validuser $user]} { 
-	set get_status_access [check:access $nick $host $hand $chan $chan1 $user]
-if {$get_status_access == "1"} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
-	return
-}
-	chattr $user -omjlptxq|-qolSHOAMV $chan
-	chattr $user $flags
-	setuser $user XTRA CHANMODIF(GLOBAL) $time:$hand
-	blacktools:tell $nick $host $hand $chan $chan1 add.20 "$show_user [blacktools:getlevelname 8 $hand]"
-} else {
-	adduser $user $uhost
-	set user [check:handle $user $nick $host $hand $chan $chan1]
-	chattr $user -|-qolSHOAMV $chan
-	chattr $user $flags 
-	setuser $user XTRA CHANMODIF(GLOBAL) $time:$hand
-	blacktools:tell $nick $host $hand $chan $chan1 add.10 "$show_user $uhost"
-	blacktools:tell $nick $host $hand $chan $chan1 add.20 "$show_user [blacktools:getlevelname 8 $hand]"
-		}
-	}
-} elseif {[string equal -nocase $level [blacktools:getlevelname 5 $hand]]} {
-	set flags "-|olO"
-if {[validuser $user]} { 
-	set check_global [check:global $user]
-if {$check_global != "0"} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.isowner "$user $check_global"
-	return
-}
-	set get_status_access [check:access $nick $host $hand $chan $chan1 $user]
-if {$get_status_access == "1"} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
-	return
-}
-	chattr $user -|-qolSHOAMV $chan
-	chattr $user $flags $chan 
-	setuser $user XTRA CHANMODIF($chan) $time:$hand
-	blacktools:tell $nick $host $hand $chan $chan1 add.19 "$show_user [blacktools:getlevelname 5 $hand]"
-} else {
-	adduser $user $uhost
-	set user [check:handle $user $nick $host $hand $chan $chan1]
-	chattr $user -|-qolSHOAMV $chan
-	chattr $user $flags $chan 
-	setuser $user XTRA CHANMODIF($chan) $time:$hand
-	blacktools:tell $nick $host $hand $chan $chan1 add.10 "$show_user $uhost"
-	blacktools:tell $nick $host $hand $chan $chan1 add.19 "$show_user [blacktools:getlevelname 5 $hand]"
-	}
-} elseif {[string equal -nocase $level [blacktools:getlevelname 7 $hand]]} {
-	set flags "-|H"
-if {[validuser $user]} { 
-	set check_global [check:global $user]
-if {$check_global != "0"} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.isowner "$user $check_global"
-	return
-}
-	set get_status_access [check:access $nick $host $hand $chan $chan1 $user]
-if {$get_status_access == "1"} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
-	return
-}
-	chattr $user -|-qHolSOAMV $chan
-	chattr $user $flags $chan 
-	setuser $user XTRA CHANMODIF($chan) $time:$hand
-	blacktools:tell $nick $host $hand $chan $chan1 add.19 "$show_user [blacktools:getlevelname 7 $hand]"
-} else {
-	adduser $user $uhost
-	set user [check:handle $user $nick $host $hand $chan $chan1]
-	chattr $user -|-qolHSOAMV $chan
-	chattr $user $flags $chan 
-	setuser $user XTRA CHANMODIF($chan) $time:$hand
-	blacktools:tell $nick $host $hand $chan $chan1 add.10 "$show_user $uhost"
-	blacktools:tell $nick $host $hand $chan $chan1 add.19 "$show_user [blacktools:getlevelname 7 $hand]"
-	}
-} elseif {[string equal -nocase $level [blacktools:getlevelname 6 $hand]]} {
-	set flags "-|olV"
-if {[validuser $user]} { 
-	set check_global [check:global $user]
-if {$check_global != "0"} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.isowner "$user $check_global"
-	return
-}	
-	set get_status_access [check:access $nick $host $hand $chan $chan1 $user]
-if {$get_status_access == "1"} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
-	return
-}
-	chattr $user -|-qolSHOAMV $chan	
-	chattr $user $flags $chan
-	setuser $user XTRA CHANMODIF($chan) $time:$hand
-	blacktools:tell $nick $host $hand $chan $chan1 add.19 "$show_user [blacktools:getlevelname 6 $hand]"
-} else {
-	adduser $user $uhost
-	set user [check:handle $user $nick $host $hand $chan $chan1]
-	chattr $user -|-qolSHOAMV $chan
-	chattr $user $flags $chan 
-	setuser $user XTRA CHANMODIF($chan) $time:$hand
-
-	blacktools:tell $nick $host $hand $chan $chan1 add.10 "$show_user $uhost"
-	blacktools:tell $nick $host $hand $chan $chan1 add.19 "$show_user [blacktools:getlevelname 6 $hand]"
-							
-				}
-			} else {
-if {$type == "0"} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "$cmd"
-	return
-}
-if {$type == "1"} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "$cmd"
-	return
-			}
-		}
-	}
-}
-
-############################## delacc ################################
-
-proc delacc:process {nick host hand chan chan1 user type} {
-global botnick black
-	set cmd_status [btcmd:status $chan $hand "delacc" 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 {$user == ""} {
-	switch $type {
-	0 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "delacc"
-	}
-	1 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "delacc"
-	}
-	2 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_priv "delacc"
-		}
-	}
-	return
-}
-
-if {![validchan $chan]} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "delacc"
-	return
-}
-
-if {$user != ""} {
-	set show_user $user
-if {[onchan $user $chan] && ![validuser $user]} {
-	set user [nick2hand $user]
-}
-	set get_status_access [check:access $nick $host $hand $chan $chan1 $user]
-
-if {$get_status_access == "1"} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
-	return
-}
-
-if {[matchattr $hand n|- $chan]} {
-if {[matchattr $user mo]} {
-if {[matchattr $user n|- $chan] && [matchattr $hand n|- $chan]} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
-	return
-}
-
-if {[validuser $user]} { 
-if {[matchattr $user m]} {
-	blacktools:tell $nick $host $hand $chan $chan1 delacc.2 $show_user
-} elseif {[matchattr $user o]} {
-	blacktools:tell $nick $host $hand $chan $chan1 delacc.4 $show_user
-}
-		chattr $user -moagjlptxq
-} else { blacktools:tell $nick $host $hand $chan $chan1 gl.nomem none }
-	return
-	}
-} elseif {[matchattr $hand m]} {
-if {[matchattr $user o]} {
-if {[matchattr $user m|- $chan] && [matchattr $hand m|- $chan]} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
-	return
-}
-
-if {[validuser $user]} { 
-	chattr $user -oagjlptxq
-	blacktools:tell $nick $host $hand $chan $chan1 delacc.4 $show_user
-} else { blacktools:tell $nick $host $hand $chan $chan1 gl.nomem none }
-	return
-	}
-}
-	
-if {![matchattr $user -|OAMVH $chan]} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.noaccess none
-	return
-}
-
-if {[validuser $user]} { 
-	chattr $user -|-qolSgaOAMVHf $chan
-	blacktools:tell $nick $host $hand $chan $chan1 delacc.1 $show_user
-			} else { blacktools:tell $nick $host $hand $chan $chan1 gl.nomem none }
-	}
-}
-
-############################## del #####################################
-
-proc del:process {nick host hand chan chan1 args type} {
-global botnick black
-	set cmd_status [btcmd:status $chan $hand "del" 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 {$args == ""} {
-	switch $type {
-	0 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "del"
-	}
-	1 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "del"
-	}
-	2 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_priv "del"
-		}
-	}
-	return
-} 
-
-foreach user $args {
-	set show_user $user
-if {$user != ""} {
-if {$host != "prv"} {
-if {[onchan $user $chan] && ![validuser $user]} {
-	set user [nick2hand $user]
-	}
-}
-	set get_status_access [check:access $nick $host $hand $chan $chan1 $user]
-
-if {$get_status_access == "1"} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
-	continue
-}
-
-if {[validuser $user]} { 
-if {[matchattr $hand -|MA $chan]} {
-foreach c [channels] {
-	if {![string equal -nocase $c $chan]} {
-	if {[matchattr $user nmo|HAMOVSo $c]} {
-	blacktools:tell $nick $host $hand $chan $chan1 del.2 $show_user
-	continue
-			}
-		}
-	}
-}
-	deluser $user
-	notes:remove:ondelete $user
-	s:remove:ondelete $user
-	blacktools:tell $nick $host $hand $chan $chan1 del.1 $show_user
-			} else { blacktools:tell $nick $host $hand $chan $chan1 gl.nomem none }
-		}
-	}
-}
-
-
-################################ addhost #############################
-
-proc addhost:process {nick host hand chan chan1 user hosts type} {
-global black botnick
-	set cmd_status [btcmd:status $chan $hand "addhost" 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 found_it 0
-	set found_user ""
-	set show_user $user
-	set show_hosts $hosts
-if {$user == ""} {
-	switch $type {
-	0 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "addhost"
-	}
-	1 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "addhost"
-	}
-	2 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_priv "addhost"
-		}
-	}
-	return
-}
-
-if {$host != "prv"} {
-if {[onchan $user $chan] && ![validuser $user]} {
-	set user [nick2hand $user]
-	}
-}
-
-	set get_status_access [check:access $nick $host $hand $chan $chan1 $user]
-
-if {$get_status_access == "1"} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
-	return
-}
-
-foreach u [userlist] {
-	set h [getuser $u hosts]
-foreach hs $h {
-if {[string match -nocase [split $hs] $hosts]} {
-	set found_it 1
-	set found_user $u
-		}
-	}
-}
-
-if {[validuser $user]} {
-if {$found_it == "1"} {
-	blacktools:tell $nick $host $hand $chan $chan1 addhost.1 "[split $found_user] $show_hosts"
-	return
-}
-	setuser $user HOSTS $hosts
-	blacktools:tell $nick $host $hand $chan $chan1 addhost.2 "$show_user $show_hosts"
-	} else { blacktools:tell $nick $host $hand $chan $chan1 gl.nomem none }
-}
-
-############################### delhost ############################
-
-proc delhost:process {nick host hand chan chan1 user hosts type} {
-global black botnick
-	set cmd_status [btcmd:status $chan $hand "delhost" 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_user $user
-	set show_hosts $hosts
-if {$user == ""} {
-	switch $type {
-	0 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "delhost"
-	}
-	1 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "delhost"
-	}
-	2 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_priv "delhost"
-		}
-	}
-	return
-}
-
-if {$host != "prv"} {
-if {[onchan $user $chan] && ![validuser $user]} {
-	set user [nick2hand $user]
-	}
-}
-
-	set get_status_access [check:access $nick $host $hand $chan $chan1 $user]
-
-if {$get_status_access == "1"} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
-	return
-}
-
-if {[validuser $user]} {
-	set hhost [getuser $user hosts]
-foreach hhost $hhost {
-if {[string match -nocase [split $hhost] $hosts]} {
-	set foundhost 1
-	}
-}
-
-if {![info exists foundhost]} {
-	blacktools:tell $nick $host $hand $chan $chan1 delhost.1 "$show_user $show_hosts"
-	return
-}
-	delhost $user $hosts
-	blacktools:tell $nick $host $hand $chan $chan1 delhost.2 "$show_user $show_hosts"
-		} else { 
-	blacktools:tell $nick $host $hand $chan $chan1 gl.nomem none
-	}
-}
-
-############################### chuser ############################
-
-proc chuser:process {nick host hand chan chan1 user chandle type} {
-global botnick black
-	set cmd_status [btcmd:status $chan $hand "chuser" 0]
-if {$cmd_status == "1"} { 
-	return 
-}
-	set owner_user $user
-	set owner_chandle $chandle
-	set show_user $user
-	set show_chandle $chandle
-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 {$user == ""} {
-	switch $type {
-	0 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "chuser"
-	}
-	1 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "chuser"
-	}
-	2 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_priv "chuser"
-		}
-	}
-	return
-}
-
-if {[onchan $user $chan] && ![validuser $user]} {
-	set user [nick2hand $user]
-}
-
-	set get_status_access [check:access $nick $host $hand $chan $chan1 $user]
-
-if {$get_status_access == "1"} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
-	return
-}
-
-if {[matchattr $hand -|M $chan] && ![matchattr $user -|ASOV $chan]} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.noaccess none 
-	return
-}
-
-if {[validuser $chandle]} {
-	blacktools:tell $nick $host $hand $chan $chan1 chuser.3 none
-return
-}
-
-if {[validuser $user]} {
-	chhandle $user $chandle
-	blacktools:tell $nick $host $hand $chan $chan1 chuser.1 "$show_user $show_chandle"
-	} else {blacktools:tell $nick $host $hand $chan $chan1 gl.nomem none }
-}
-
-############################ userlist #############################
-
-proc userlist:execute {hand host level chan chan1 nick type} {
-global black botnick
-	set cmd_status [btcmd:status $chan $hand "userlist" 0]
-if {$cmd_status == "1"} { 
-	return 
-}
-	set getlang [string tolower [getuser $hand XTRA OUTPUT_LANG]]
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
-	set gl 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
-}
-if {$level == ""} {
-	switch $type {
-	0 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "userlist"
-	}
-	1 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "userlist"
-	}
-	2 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_priv "userlist"
-		}
-	}
-	return
-}
-if {[string equal -nocase $level [blacktools:getlevelname 3 $hand]]} {
-    set flags "-|M"
-    set numar [llength [userlist $flags $chan]]
-    set list [userlist $flags $chan]
-foreach user [wordwrap [join $list " "] 250 ,] {
-if {$list == ""} { set user "N/A" }
-	userlist:details $nick $host $hand $chan $chan1 [blacktools:getlevelname 3 $hand] $user $gl
-	}
-} elseif {[string equal -nocase $level [blacktools:getlevelname 4 $hand]]} {
-	set flags "-|A"
-	set numar [llength [userlist $flags $chan]]
-	set list [userlist $flags $chan]
-foreach user [wordwrap [join $list " "] 250 ,] {
-if {$list == ""} { set user "N/A" }
-	userlist:details $nick $host $hand $chan $chan1 [blacktools:getlevelname 4 $hand] $user $gl
-	}
-} elseif {[string equal -nocase $level [blacktools:getlevelname 7 $hand]]} {
-	set flags "-|H"
-	set list [userlist $flags $chan]
-    set numar [llength [userlist $flags $chan]]
-foreach user [wordwrap [join $list " "] 250 ,] {
-if {$list == ""} { set user "N/A" } 
-	userlist:details $nick $host $hand $chan $chan1 [blacktools:getlevelname 7 $hand] $user $gl
-	}
-} elseif {[string equal -nocase $level [blacktools:getlevelname 5 $hand]]} {
-	set flags "-|O"
-    set list [userlist $flags $chan]
-    set numar [llength [userlist $flags $chan]]
-foreach user [wordwrap [join $list " "] 250 ,] {
-if {$list == ""} { set user "N/A" }
-	userlist:details $nick $host $hand $chan $chan1 [blacktools:getlevelname 5 $hand] $user $gl
-	}
-} elseif {[string equal -nocase $level [blacktools:getlevelname 2 $hand]]} {
-if {[matchattr $hand nmo]} {
-	set gl 1
-	set bossflags "n|-"
-	set ownerflags "m|-"
-	set listbossowner [userlist $bossflags]
-	set listowner [userlist $ownerflags]
-foreach user $listbossowner {
-if {[lsearch -exact $listowner $user] > -1} {
-	set pos [lsearch -exact	$listowner $user]
-	set listowner [lreplace $listowner $pos $pos]
-	}
-}
-if {$listowner == ""} { set listowner "N/A" }
-	userlist:details $nick $host $hand $chan $chan1 [blacktools:getlevelname 1 $hand] $listbossowner $gl
-	userlist:details $nick $host $hand $chan $chan1 [blacktools:getlevelname 2 $hand] $listowner $gl
-	}
-} elseif {[string equal -nocase $level [blacktools:getlevelname 8 $hand]]} {
-if {[matchattr $hand nmo]} {
-	set gl 1
-	set bossflags "n|-"
-	set ownerflags "m|-"
-	set masterflags "o|-"
-	set listbossowner [userlist $bossflags]
-	set listowner [userlist $ownerflags]
-	set listmaster [userlist $masterflags]
-foreach user $listbossowner {
-if {[lsearch -exact $listmaster $user] > -1} {
-	set pos [lsearch -exact	$listmaster $user]
-	set listmaster [lreplace $listmaster $pos $pos]
-	}
-}
-foreach user $listowner {
-if {[lsearch -exact $listmaster $user] > -1} {
-	set pos [lsearch -exact	$listmaster $user]
-	set listmaster [lreplace $listmaster $pos $pos]
-	}
-}
-if {$listmaster == ""} { set listmaster "N/A" }
-	userlist:details $nick $host $hand $chan $chan1 [blacktools:getlevelname 8 $hand] $listmaster $gl
-	}
-} elseif {[string equal -nocase $level [blacktools:getlevelname 6 $hand]]} {
-set flags "-|V"
-    set numar [llength [userlist $flags $chan]]
-    set list [userlist $flags $chan]
-foreach user [wordwrap [join $list " "] 250 ,] {
-if {$list == ""} { set user "N/A" }
-	userlist:details $nick $host $hand $chan $chan1 [blacktools:getlevelname 6 $hand] $user $gl
-	}
-} elseif {[string equal -nocase $level "all"]} {
-array set flgc [list]	
-	set flags "-|MHAVO"
-	set list [userlist $flags $chan]
-	set numar [llength [userlist $flags $chan]]
-foreach user $list {
-if {[matchattr $user -|M $chan]} {
-	lappend flgc([blacktools:getlevelname 3 $hand]) $user
-} elseif {[matchattr $user -|A $chan]} { 
-	lappend flgc([blacktools:getlevelname 4 $hand]) $user
-} elseif {[matchattr $user -|O $chan]} {
-	lappend flgc([blacktools:getlevelname 5 $hand]) $user
-} elseif {[matchattr $user -|V $chan]} {
-	lappend flgc([blacktools:getlevelname 6 $hand]) $user
-} elseif {[matchattr $user -|H $chan]} {
-	lappend flgc([blacktools:getlevelname 7 $hand]) $user
-	}
-}
-
-	blacktools:tell $nick $host $hand $chan $chan1 userlist.2 $numar
-foreach flw [array names flgc] {
-	foreach user [wordwrap [join $flgc($flw) " "] 250 ,] {
-	userlist:details $nick $host $hand $chan $chan1 $flw $user $gl
-				}
-			}
-		} else {
-if {$type == "0"} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "userlist"
-	return
-}
-if {$type == "1"} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "userlist"
-	return
-		}
-	}		
-}
-
-proc userlist:details {nick host hand chan chan1 access usernames gl} {
-	global black
-if {![info exists onchan]} {
-	set onchan ""
-}
-
-if {![info exists the_usernames]} {
-	set the_usernames ""
-}
-
-foreach user [split $usernames] {
-if {$host != "prv"} {
-	foreach n [chanlist $chan] {
-	set id [nick2hand $n]
-
-if {[string equal -nocase $id $user]} {
-	lappend the_usernames "$user/\002$n\002\[[userlist:check_mode $user $chan]\]"
-	lappend onchan $user
-			}
-		}
-	}
-if {[lsearch -exact [string tolower $onchan] [string tolower $user]] == -1} {
-	lappend the_usernames "$user\[[userlist:check_mode $user $chan]\]"
-	}
-}
-if {$usernames == "-"} {
-	blacktools:tell $nick $host $hand $chan $chan1 userlist.1 "\[\002$access\002\] $usernames"
-	return
-}
-	blacktools:tell $nick $host $hand $chan $chan1 userlist.1 "\[\002$access\002\] [join $the_usernames]"
-}
-
-proc userlist:check_mode {user chan} {
-	global black
-if {[matchattr $user a]} {
-	return "+o all"
-	}
-if {[matchattr $user g]} {
-	return "+v all"
-	}
-if {[matchattr $user -|a $chan]} {
-	return "+o"
-	}
-if {[matchattr $user -|g $chan]} {
-	return "+v"
-	}
-}
-
-############################### info ############################
-
-proc info:process:info_return {nick host hand chan chan1 user} {
-	global black
-	set show_user $user
-	set getlang [string tolower [getuser $hand XTRA OUTPUT_LANG]]
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
-	blacktools:tell $nick $host $hand $chan $chan1 info.11 "$show_user"
-if {[matchattr $hand nmo]} {
-foreach c [channels] {
-if {[matchattr $user -|H $c]} { 
-	set fl [blacktools:getlevelname 7 $hand]
-	lappend flg($fl) $c
-} elseif {[matchattr $user -|V $c]} { 
-	set fl [blacktools:getlevelname 6 $hand]
-	lappend flg($fl) $c
-} elseif {[matchattr $user -|O $c]} { 
-	set fl [blacktools:getlevelname 5 $hand]
-	lappend flg($fl) $c
-} elseif {[matchattr $user -|A $c]} {
-	set fl [blacktools:getlevelname 4 $hand]
-	lappend flg($fl) $c
-} elseif {[matchattr $user -|M $c]} {
-	set fl [blacktools:getlevelname 3 $hand]
-	lappend flg($fl) $c 
-	}
-}
-foreach cf [array names flg] {
-lappend exit \002[join $flg($cf) ", "]\002 ($cf)
-	}
-}
-
-if {![info exists exit]} { set exit "N/A"}
-
-	set lastseen [getuser $user LASTON $chan]
-	set hosts [getuser $user hosts]
-
-if {$lastseen == ""} {
-	set lastseen "N/A"
-} else {
-	set lastseen [clock format $lastseen -format %D-%H:%M:%S]
-}
-if {[matchattr $hand mno]} {
-	set laston [getuser $user laston]
-	set lastseen [lindex $laston 0]
-	set lastchan [lindex $laston 1]
-if {$laston == ""} {
-	set lastseen "N/A"
-	set lastchan "N/A"
-} else {
-	set lastseen [clock format $lastseen -format %D-%H:%M:%S]
-}
-	blacktools:tell $nick $host $hand $chan $chan1 info.10 "$lastseen $lastchan"
-} else {
-	blacktools:tell $nick $host $hand $chan $chan1 info.5 $lastseen
-}
-	blacktools:tell $nick $host $hand $chan $chan1 info.6 $hosts
-if {![matchattr $user nmo|- $chan] && [matchattr $hand nmo|- $chan] && ($exit != "N/A")} {
-	blacktools:tell $nick $host $hand $chan $chan1 info.8 "[join $exit]"
-	}
-}
-
-proc info:process:chan {nick host hand chan chan1} {
-	global black botnick
-	set cmd_status [btcmd:status $chan $hand "info" 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.nocmem $chan
-	return
-}
-	set getlang [string tolower [getuser $hand XTRA OUTPUT_LANG]]
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
-	set status "OK"
-	set modes [channel get $chan chanmode]
-	set manager [userlist -|M $chan]
-	if {$manager == ""} { set manager "N/A" }
-	set topic [join [topic:return $chan]]
-	set url [setting:get $chan url]
-if {[setting:get $chan jointime] == ""} {
-	set jointime "N/A"
-	set jointime_2 "N/A"
-} else {
-	set jointime [clock format [setting:get $chan jointime] -format %D-%H:%M:%S]
-	set jointime_2 [return_time $getlang [expr [unixtime] - [setting:get $chan jointime]]]
-}
-
-	set joincount [setting:get $chan joincount]
-if {$joincount == ""} {set joincount 0}
-	set nr_user [llength [chanlist $chan]]
-	set nr_ban [llength [blacktools:banlist $chan]]
-	set nr_user_ac 0
-foreach user [chanlist $chan] {
-	set handle [nick2hand $user]
-if {[matchattr $handle -|OgaAHMNV $chan]} {
-	set nr_user_ac [expr $nr_user_ac + 1]
-	}
-}
-	set file [open $black(seen_file) "r"]
-	set database [read -nonewline $file]
-	set data [split $database "\n"]
-	close $file
-	set nr_seen [llength [lsearch -all [string tolower $data] [string tolower "* $chan *"]]]
-
-	blacktools:tell $nick $host $hand $chan $chan1 info.15 "$chan $modes"
-	blacktools:tell $nick $host $hand $chan $chan1 info.16 "$manager"
-
-if {[channel get $chan inactive]} {
-	set found_it 1
-if {[info exists black(abuse:$chan)]} {
-if {$black(abuse:$chan) == "1"} {
-	set text [black:color:set "" $black(say.$getlang.info.29)]
-	set status "$text"
-	} elseif {$black(abuse:$chan) == "3"} {
-	set text [black:color:set "" $black(say.$getlang.info.27)]
-	set status "$text"
-	} elseif {$black(abuse:$chan) == "2"} {
-	set text [black:color:set "" $black(say.$getlang.info.28)]
-	set status "$text"
-	} elseif {$black(abuse:$chan) == "4"} {
-	set text [black:color:set "" $black(say.$getlang.info.26)]
-	set status "$text"
-	} elseif {$black(abuse:$chan) == "5"} {
-	set text [black:color:set "" $black(say.$getlang.info.35)]
-	set status "$text"
-	}
-} else {
-	set text [black:color:set "" $black(say.$getlang.info.22)]
-	set status "$text"
-	}
-}
-if {![info exist found_it]} {
-if {![onchan $botnick $chan]} {
-	set found_it 1
-if {[info exists black(abuse:$chan)]} {
-if {$black(abuse:$chan) == "1"} {
-	set text [black:color:set "" $black(say.$getlang.info.33)]
-	set status "$text"
-	} elseif {$black(abuse:$chan) == "3"} {
-	set text [black:color:set "" $black(say.$getlang.info.31)]
-	set status "$text"
-	} elseif {$black(abuse:$chan) == "2"} {
-	set text [black:color:set "" $black(say.$getlang.info.32)]
-	set status "$text"
-	} elseif {$black(abuse:$chan) == "4"} {
-	set text [black:color:set "" $black(say.$getlang.info.30)]
-	set status "$text"
-	} elseif {$black(abuse:$chan) == "5"} {
-	set text [black:color:set "" $black(say.$getlang.info.34)]
-	set status "$text"
-	} 
-} else {
-	set text [black:color:set "" $black(say.$getlang.info.23)]
-	set status "$text"
-		}
-	}
-}
-
-if {![info exist found_it]} {
-if {![botisop $chan]} {
-	set text [black:color:set "" $black(say.$getlang.info.24)]
-	set status "$text"
-		}
-	}
-if {$status != "OK"} {
-	blacktools:tell $nick $host $hand $chan $chan1 info.19 "$status"
-}
-if {$topic != ""} {
-	blacktools:tell $nick $host $hand $chan $chan1 info.17 "$topic"
-}
-if {$url != ""} {
-	blacktools:tell $nick $host $hand $chan $chan1 info.18 "$url"
-}
-	blacktools:tell $nick $host $hand $chan $chan1 info.20 "$jointime $jointime_2"
-
-	blacktools:tell $nick $host $hand $chan $chan1 info.21 "$joincount $nr_user $nr_user_ac $nr_ban $nr_seen"
-}
-
-proc info:process:host {nick host hand chan chan1 get_host} {
-	global black
-	set users ""
-foreach user [userlist] {
-foreach h [getuser $user hosts] {
-if {[string match -nocase $get_host $h]} {
-	set found_host 1
-	lappend users $user
-		}
-	}	
-}
-	set users [lsort -unique $users]
-	set user_num [llength $users]
-if {![info exists found_host]} {
-	return 0
-}
-if {$user_num == 1} {
-	info:process:info_return $nick $host $hand $chan $chan1 [join $users]
-	return 1
-}
-
-if {$user_num > 1 && $user_num < 11} {
-	blacktools:tell $nick $host $hand $chan $chan1 info.12 "$user_num $users"
-	blacktools:tell $nick $host $hand $chan $chan1 info.14 none
-	return 1
-}
-
-if {$user_num > 10} {
-	blacktools:tell $nick $host $hand $chan $chan1 info.13 "$user_num"
-	return 1
-	}
-}
-
-proc info:process {nick host hand chan chan1 user type} {
-global botnick black
-	set cmd_status [btcmd:status $chan $hand "info" 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 getlang [string tolower [getuser $hand XTRA OUTPUT_LANG]]
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
-	set show_user $user
-	set time [ctime [unixtime]]
-	array set flg [list]
-
-if {$user == ""} {
-switch $type {
-	0 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "info"
-	}
-	1 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "info"
-	}
-	2 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_priv "info"
-		}
-	}
-	return
-}
-
-if {[matchattr $hand nmo] && ($host == "prv") && (![regexp {^[&#]} $chan])} {
-foreach chan [channels] {
-if {[onchan $user $chan]} {
-	set handle [nick2hand $user]
-		}
-	}
-} else {
-if {[onchan $user $chan]} {
-	set handle [nick2hand $user]
-	}
-}
-
-if {[info exists handle]} {
-if {[validuser $handle]} {
-	set user $handle
-	}
-}
-
-if {[regexp {\*} $user]} {
-if {[matchattr $hand nmo]} {
-	set check [info:process:host $nick $host $hand $chan $chan1 $user]
-if {$check == "0"} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.hostnotexist $user
-		}
-	return
-	}
-}
-
-if {![validuser $user]} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.nomem none 
-	return
-}
-
-if {(![matchattr $user nmago|OwgaAHSMNV $chan]) && [matchattr $hand mno]} { 
-	info:process:info_return $nick $host $hand $chan $chan1 $user
-	return
-}
-
-if {![matchattr $user nmgao|OwgaAHSMNV $chan]} { 
-	blacktools:tell $nick $host $hand $chan $chan1 gl.noaccess none  
-	return
-}
-
-if {[matchattr $hand nmo|- $chan]} {
-foreach c [channels] {
-if {[matchattr $user -|H $c]} { 
-	set fl [blacktools:getlevelname 7 $hand]
-	lappend flg($fl) $c
-} elseif {[matchattr $user -|V $c]} { 
-	set fl [blacktools:getlevelname 6 $hand]
-	lappend flg($fl) $c
-} elseif {[matchattr $user -|O $c]} { 
-	set fl [blacktools:getlevelname 5 $hand]
-	lappend flg($fl) $c
-} elseif {[matchattr $user -|A $c]} {
-	set fl [blacktools:getlevelname 4 $hand]
-	lappend flg($fl) $c
-} elseif {[matchattr $user -|M $c]} {
-	set fl [blacktools:getlevelname 3 $hand]
-	lappend flg($fl) $c 
-	}
-}
-foreach cf [array names flg] {
-lappend exit \002[join $flg($cf) ", "]\002 ($cf)
-	}
-}
-
-if {![info exists exit]} { set exit "N/A"}
-
-	set cflags [chattr $user | $chan]
-if {[matchattr $user a]} {
-	set automode_gl "OP"
-} elseif {[matchattr $user g]} {
-	set automode_gl "VOICE"
-} else {
-	set automode_gl "N/A"
-}
-
-if {[matchattr $user -|V $chan]} { set flags [blacktools:getlevelname 6 $hand] } elseif {[matchattr $user -|O $chan]} { set flags [blacktools:getlevelname 5 $hand] } elseif {[matchattr $user -|A $chan]} { set flags [blacktools:getlevelname 4 $hand] } elseif {[matchattr $user -|H $chan]} { set flags [blacktools:getlevelname 7 $hand] } else { set flags "\002N/A\002" }
-if {[matchattr $user n|- $chan]} { set flags [blacktools:getlevelname 1 $hand] } elseif {[matchattr $user m|- $chan]} { set flags [blacktools:getlevelname 2 $hand] } elseif {[matchattr $user o|- $chan]} { set flags [blacktools:getlevelname 8 $hand]} elseif {[matchattr $user -|M $chan]} { set flags [blacktools:getlevelname 3 $hand] } elseif {$cflags == "-|-"} { blacktools:tell $nick $host $hand $chan $chan1 info.18 "NONE" } 
-
-if {[matchattr $user -|a $chan]} {
-	set automode "OP"
-} elseif {[matchattr $user -|g $chan]} {
-	set automode "VOICE"
-} else {
-	set automode "N/A"
-}
-
-if {[matchattr $user -|q $chan]} {
-	set suspended 1
-} else {
-	set suspended 0
-}
-	set getflags [getflags $user $chan]
-if {![string equal -nocase $show_user $user]} {
-	blacktools:tell $nick $host $hand $chan $chan1 info.1 "$show_user\[[black:color 1 $hand $user]\] $flags"
-} else {
-	blacktools:tell $nick $host $hand $chan $chan1 info.1 "$show_user $flags"
-}
-	
-if {$automode_gl != "N/A"} {
-if {[matchattr $user mnaog]} {
-if {$getflags != ""} {
-	blacktools:tell $nick $host $hand $chan $chan1 info.25 "* $automode_gl\[all\] $getflags $user"
-	} else {
-	blacktools:tell $nick $host $hand $chan $chan1 info.2 "* $automode_gl\[all\] $user"	
-}
-} else {
-if {$getflags != ""} {
-	blacktools:tell $nick $host $hand $chan $chan1 info.25 "$chan $automode_gl\[all\] $getflags $user"
-	} else {
-	blacktools:tell $nick $host $hand $chan $chan1 info.2 "$chan $automode_gl\[all\] $user"
-	}
-}
-		} else {
-if {[matchattr $user mno]} {
-if {$getflags != ""} {
-	blacktools:tell $nick $host $hand $chan $chan1 info.25 "* $automode $getflags $user"
-	} else {
-	blacktools:tell $nick $host $hand $chan $chan1 info.2 "* $automode $user"
-}
-	} else {
-if {$getflags != ""} {	
-	blacktools:tell $nick $host $hand $chan $chan1 info.25 "$chan $automode $getflags $user"
-	} else {
-	blacktools:tell $nick $host $hand $chan $chan1 info.2 "$chan $automode $user"
-			}
-		}	
-	}
-	set extra "CHANMODIF($chan)"
-	set get_chan $chan
-if {[matchattr $user mno]} {
-	set extra "CHANMODIF(GLOBAL)"
-	set get_chan "GLOBAL"
-}
-	set file [open $black(s_file) "r"]
-	set database [read -nonewline $file]
-	close $file
-	set data [split $database "\n"]
-foreach line $data {
-	set read_chan [lindex [split $line] 0]
-	set read_user [lindex [split $line] 1]
-if {[string equal -nocase $read_chan $get_chan] && [string equal -nocase $read_user $user]} {
-	set read_time [lindex [split $line] 2]
-	
-if {[unixtime] > $read_time} {
-	set read_time [expr [unixtime] - $read_time]
-} else {
-	set read_time [expr $read_time - [unixtime]]
-}
-	set read_time [return_time_2 $getlang $read_time]
-	
-if {$read_time == 0} {
-	continue
-}
-	set split_readtime [split $read_time " "]
-	set days [lindex $split_readtime 0]
-	set the_time [lindex $split_readtime 1]
-	set read_level [lindex [split $line] 4]
-	set read_reason [lrange [split $line] 5 end]
-if {[string equal -nocase $get_chan "GLOBAL"]} {
-	blacktools:tell $nick $host $hand $chan $chan1 info.9 "$read_time $read_level $read_reason"
-			} else {
-	blacktools:tell $nick $host $hand $chan $chan1 info.7 "$read_time $read_level $read_reason"
-			}
-		}
-	}
-
-if {[getuser $user INFO] != ""} {
-	blacktools:tell $nick $host $hand $chan $chan1 info.3 "[split [getuser $user INFO]]"
-}
-	set lastmodify [getuser $user XTRA $extra]
-if {$lastmodify != ""} {
-	set split_last [split $lastmodify ":"]
-	set lastmodif_time [lindex $split_last 0]
-	set lastmodif_time [clock format $lastmodif_time -format %D-%H:%M:%S]
-	set lastmodif_hand [join [lindex [split $split_last] 1]]
-} else {
-	set date [getuser $user XTRA LASTMODIFDATE]
-	set last [getuser $user XTRA LASTMODIFBY]
-	set lastmodif_time $date
-	set lastmodif_hand $last
-}
-
-if {($lastmodif_time == "") && ($lastmodif_hand == "")} {
-	set lastmodif_time "N/A"
-	set lastmodif_hand "N/A"
-}
-
-	set lastseen [getuser $user LASTON $chan]
-	set hosts [getuser $user hosts]
-
-if {$lastseen == ""} {
-	set lastseen "N/A"
-} else {
-	set lastseen [clock format $lastseen -format %D-%H:%M:%S]
-}
-	blacktools:tell $nick $host $hand $chan $chan1 info.4 "$lastmodif_hand $lastmodif_time"
-if {[matchattr $hand mno]} {
-	set laston [getuser $user laston]
-	set lastseen [lindex $laston 0]
-	set lastchan [lindex $laston 1]
-if {$laston == ""} {
-	set lastseen "N/A"
-	set lastchan "N/A"
-} else {
-	set lastseen [clock format $lastseen -format %D-%H:%M:%S]
-}
-	blacktools:tell $nick $host $hand $chan $chan1 info.10 "$lastseen $lastchan"
-} else {
-	blacktools:tell $nick $host $hand $chan $chan1 info.5 $lastseen
-}
-	blacktools:tell $nick $host $hand $chan $chan1 info.6 $hosts
-if {[matchattr $hand nmo|- $chan] || [string equal -nocase $user $hand]} {
-if {[getsettings $user] != ""} {
-	blacktools:tell $nick $host $hand $chan $chan1 info.36 [join [getsettings $user] " ; "]
-	}
-}
-if {![matchattr $user nmo|- $chan] && [matchattr $hand nmo|- $chan] && ($exit != "N/A")} {
-	blacktools:tell $nick $host $hand $chan $chan1 info.8 "[join $exit]"
-	}
-}
-
-proc getsettings {user} {
-	global black
-	set output ""
-	set settings "OUTPUT_LANG OUTPUT_TYPE autoinvite mychan mychar OUTPUT_COLORS"
-foreach setting [string toupper $settings] {
-	set get [getuser $user XTRA $setting]
-if {$get != ""} {
-if {$setting == "OUTPUT_COLORS"} {
-	set setting "COLORS"
-}
-if {$setting == "OUTPUT_TYPE"} {
-	set setting "OUTPUT"
-	switch $get {
-	0 {
-	set get "NOTICE"
-	}
-	1 {
-	set get "CHAN"
-	}
-	2 {
-	set get "MSG"
-			}
-		}
-	}
-if {$setting == "OUTPUT_LANG"} {
-	set setting "LANG"
-	set get [string toupper $get]
-}
-if {$setting == "AUTOINVITE"} {
-	switch $get {
-	1 {
-	set get "ON"
-		}
-	0 {
-	set get "OFF"
-					}
-				}
-			}
-	lappend output "$setting\[[join $get ","]\]"
-		}
-	}
-	return $output
-}
-
-proc getflags {user chan} {
-	global black
-	set flags ""
-if {[matchattr $user -|f $chan]} {	
-	lappend flags "f"
-}
-if {[matchattr $user -|w $chan]} {	
-	lappend flags "w"
-}
-if {[matchattr $user -|P $chan]} {	
-	lappend flags "P"
-}
-	return [join $flags ""]
-}
-
-################################# s ###############################
-
-proc s:process {nick host hand chan chan1 user type suspend_time suspend_reason} {
-global botnick black
-	set cmd_status [btcmd:status $chan $hand "s" 0]
-if {$cmd_status == "1"} { 
-	return 
-}
-	set show_user $user
-	set suspend_time $suspend_time
-	set show_suspend_reason $suspend_reason
-	set flags "-|q"
-	set gl_flags "+q"
-	set getlang [string tolower [getuser $hand XTRA OUTPUT_LANG]]
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
-	set unixtime [unixtime]
-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 {$user == ""} {
-switch $type {
-	0 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "s"
-	}
-	1 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "s"
-	}
-	2 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_priv "s"
-		}
-	}
-	return
-}
-
-if {![validchan $chan]} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
-	return
-}
-
-if {![validuser $user]} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.nomem none
-	return
-}
-
-if {[matchattr $user -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 s.1 $show_user
-	return
-}
-
-if {![matchattr $user nmo|OASMNV $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.noaccess none
-	return
-}
-	set get_status_access [check:access $nick $host $hand $chan $chan1 $user]
-if {$get_status_access == "1"} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
-	return
-}
-if {![regexp {^[0-9]} $suspend_time]} {
-	set suspend_time $black(s:default_time)
-}
-
-if {$suspend_reason == ""} {
-	set suspend_reason $black(say.$getlang.s.3)
-}
-	
-	set get_time [expr [time_return_minute $suspend_time] * 60]
-	set get_time [expr $unixtime + $get_time]
-
-if {[matchattr $hand n] && [matchattr $user m]} {
-	chattr $user $gl_flags
-	setuser $user XTRA CHANMODIF(GLOBAL) $get_time:$hand
-	set current_flags [s:process:getlevel $hand $chan]
-	set s_add [s:process:add $nick $hand "GLOBAL" $chan1 $user $get_time $hand $suspend_reason]
-if {$s_add == "1"} {
-	blacktools:tell $nick $host $hand $chan $chan1 s.5 $show_user
-	}
-	return
-} elseif {[matchattr $hand n] && [matchattr $user o] && ![matchattr $user m]} {
-	chattr $user $gl_flags
-	setuser $user XTRA CHANMODIF(GLOBAL) $get_time:$hand
-	set current_flags [s:process:getlevel $hand $chan]
-	set s_add [s:process:add $nick $hand "GLOBAL" $chan1 $user $get_time $hand $suspend_reason]
-if {$s_add == "1"} {
-	blacktools:tell $nick $host $hand $chan $chan1 s.5 $show_user
-	}
-	return
-} elseif {[matchattr $hand m] && [matchattr $user o] && ![matchattr $user m]} {
-	chattr $user $gl_flags
-	setuser $user XTRA CHANMODIF(GLOBAL) $get_time:$hand
-	set current_flags [s:process:getlevel $hand $chan]
-	set s_add [s:process:add $nick $hand "GLOBAL" $chan1 $user $get_time $hand $suspend_reason]
-if {$s_add == "1"} {
-	blacktools:tell $nick $host $hand $chan $chan1 s.5 $show_user
-	}
-	return
-}
-	chattr $user $flags $chan
-	setuser $user XTRA CHANMODIF($chan) $get_time:$hand
-	set current_flags [s:process:getlevel $hand $chan]
-	set s_add [s:process:add $nick $hand $chan $chan1 $user $get_time $hand $suspend_reason]
-if {$s_add == "1"} {
-	blacktools:tell $nick $host $hand $chan $chan1 s.2 $show_user
-	}
-}
-
-proc s:process:add {nick hand chan chan1 user suspend_time bywho reason} {
-	global black username
-	set current_level [s:process:getlevel $bywho $chan]
-	set not_allowed 0
-	set found_timer 0
-	set found_entry 0
-	set lin 0
-	set file [open $black(s_file) "r"]
-	set database [read -nonewline $file]
-	close $file
-	set data [split $database "\n"]
-foreach line $data {
-	set lin [expr $lin + 1]
-	set get_channel [lindex [split $line] 0]
-	set get_username [lindex [split $line] 1]
-	set get_bywho [lindex [split $line] 3]
-if {[string equal -nocase $get_channel $chan] && [string equal -nocase $get_username $user]} {
-	set found_entry 1
-	set get_level [lindex [split $line] 4]
-	set not_allowed [s:process:allow $get_level $current_level]
-	}
-}
-if {$not_allowed == "0" && $found_entry == 1} {
-	set num [expr $lin - 1]
-	set delete [lreplace $data $num $num]
-	set files [open $black(s_file) "w"]
-	puts $files [join $delete "\n"]
-	close $files
-
-	set file [open $black(s_file) "r"]
-	set data [read -nonewline $file]
-	close $file
-if {$data == ""} {
-	set file [open $black(s_file) "w"]
-	close $file
-	}
-}
-
-if {$not_allowed == "1"} {
-	blacktools:tell $nick "" $hand $chan $chan1 s.4 $user
-	return 0
-} else {
-	set who "$chan $user $suspend_time $bywho $current_level $reason"
-	set file [open $black(s_file) "a"]
-	puts $file $who
-	close $file
-foreach tmr [timers] {
-if {[string match "*s:process:timer*" [join [lindex $tmr 1]]]} {
-	set found_timer 1
-	}	 
-}
-if {$found_timer == "0"} {
-	timer 1 s:process:timer
-}
-	return 1
-	}
-}
-
-proc s:process:getlevel {hand chan} {
-	global black
-if {[matchattr $hand n]} {
-	set current_flags "BOSS-OWNER"
-} elseif {[matchattr $hand m]} {
-	set current_flags "OWNER"
-} elseif {[matchattr $hand o]} { 
-	set current_flags "MASTER" 
-} elseif {[matchattr $hand -|M $chan]} { 
-	set current_flags "MANAGER"
-} elseif {[matchattr $hand -|A $chan]} { 
-	set current_flags "ADMIN"
-	}
-	return $current_flags
-}
-
-proc s:process:allow {get_level current_level} {
-	global black
-if {[string equal -nocase $get_level "BOSS-OWNER"] && [string equal -nocase $current_level "OWNER"]} {
-	return 1			
-				} elseif {[string equal -nocase $get_level "BOSS-OWNER"] && [string equal -nocase $current_level "MANAGER"]} {
-	return 1			
-				} elseif {[string equal -nocase $get_level "BOSS-OWNER"] && [string equal -nocase $current_level "ADMIN"]} {
-	return 1			
-				} elseif {[string equal -nocase $get_level "OWNER"] && [string equal -nocase $current_level "MANAGER"]} {
-	return 1			
-				} elseif {[string equal -nocase $get_level "OWNER"] && [string equal -nocase $current_level "ADMIN"]} {
-	return 1			
-				} elseif {[string equal -nocase $get_level "MANAGER"] && [string equal -nocase $current_level "ADMIN"]} {
-	return 1
-	}
-	return 0
-}
-
-################################## us ################################
-
-proc us:process {nick host hand chan chan1 user type} {
-global botnick black
-set cmd_status [btcmd:status $chan $hand "us" 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_user $user
-	set get_time [unixtime]
-	set flags "-|-q"
-	set gl_flags "-q"
-
-
-if {$user == ""} {
-switch $type {
-	0 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "us"
-	}
-	1 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "us"
-	}
-	2 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_priv "us"
-		}
-	}
-	return
-}
-
-if {![validchan $chan]} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
-	return
-}
-
-if {![validuser $user]} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.nomem none
-	return
-}
-if {![matchattr $user nmo|OASMNV $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.noaccess none
-	return
-}
-if {![matchattr $user q|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 us.1 $show_user
-	return
-}
-	set get_status_access [check:access $nick $host $hand $chan $chan1 $user]
-
-if {$get_status_access == "1"} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
-	return
-}
-
-if {[matchattr $hand n] && [matchattr $user m]} {
-	setuser $user XTRA CHANMODIF(GLOBAL) $get_time:$hand
-	set type2 "1"
-	set inf [us:process:remove $chan $user $type2]
-} elseif {[matchattr $hand n] && [matchattr $user o] && ![matchattr $user m]} {
-	setuser $user XTRA CHANMODIF(GLOBAL) $get_time:$hand
-	set type2 "1"
-	set inf [us:process:remove $chan $user $type2]
-}  elseif {[matchattr $hand m] && [matchattr $user o] && ![matchattr $user m]} {
-	setuser $user XTRA CHANMODIF(GLOBAL) $get_time:$hand
-	set type2 "1"
-	set inf [us:process:remove $chan $user $type2]
-
-} else {
-	set type2 "0"
-	set inf [us:process:remove $chan $user $type]
-	setuser $user XTRA CHANMODIF($chan) $get_time:$hand
-}
-if {$inf == "1"} {
-if {$type2 == "1"} {
-	blacktools:tell $nick $host $hand $chan $chan1 us.3 $show_user
-		} else {
-	blacktools:tell $nick $host $hand $chan $chan1 us.2 $show_user
-		}	
-	}
-}
-
-proc us:process:remove {chan user type} {
-	global black
-	set flags "-|-q"
-	set gl_flags "-q"
-	set get_user [string map [list \[ {\[} \] {\]} \? {\?} \\ {\\}] $user]
-	set file [open $black(s_file) "r"]
-	set database [read -nonewline $file]
-	close $file
-	set data [split $database "\n"]
-if {$type == "1"} {
-	set i [lsearch -glob -nocase $data "* $get_user *"]
-} else {
-	set i [lsearch -glob -nocase $data "$chan $get_user *"]
-}
-if {$i > -1} {
-	set line [lindex $data $i]
-	set suspend_chan [lindex [split $line] 0]
-	set suspend_user [lindex [split $line] 1]
-if {[string equal -nocase $suspend_chan "GLOBAL"]} {
-if {$suspend_user != "" && $suspend_chan != ""} {
-	chattr $suspend_user $gl_flags
-}
-} else {
-if {$suspend_user != "" && $suspend_chan != ""} {
-	chattr $suspend_user $flags $suspend_chan
-			}
-		}
-	set delete [lreplace $data $i $i]
-	set file [open $black(s_file) "w"] 
-	puts $file [join $delete "\n"]
-	close $file
-	
-	set file [open $black(s_file) "r"]
-	set data [read -nonewline $file]
-	close $file
-if {$data == ""} {
-	set file [open $black(s_file) "w"]
-	close $file
-		}
-	return 1
-	}
-return 0
-}
-
-############################# auto #################################
-
-proc auto:join {nick host hand chan} {
-	global black
-if {[matchattr $hand a|a $chan]} {
-if {[matchattr $hand q|q $chan]} {
-	return
-}
-	pushmode $chan +o $nick
-}	
-
-if {[matchattr $hand g|g $chan]} {
-if {[matchattr $hand q|q $chan]} {
-	return
-}
-	pushmode $chan +v $nick
-	}	
-}
-
-proc auto:process {nick host hand chan chan1 user option global type} {
-	global black
-	set cmd_status [btcmd:status $chan $hand "auto" 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_user $user
-if {[onchan $user $chan] && ![validuser $user]} {
-	set user [nick2hand $user]
-	
-}	
-
-if {$user == "" || ![regexp {^[+ -]} $option]} {
-switch $type {
-	0 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "auto"
-	}
-	1 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "auto"
-	}
-	2 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_priv "auto"
-		}
-	}
-	return 0
-}
-
-set verify [string trim $option {"+","-"}]
-
-if {[string equal -nocase $verify "o"] || [string equal -nocase $verify "v"]} {
-if {[onchan $user $chan] && ![validuser $user]} {
-	set user [nick2hand $user]
-}
-
-if {![validuser $user]} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.nomem none	
-	return	
-}
-
-	set get_status_access [check:access $nick $host $hand $chan $chan1 $user]
-if {$get_status_access == "1"} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.nomodif none
-	return
-	}
-}
-
-if {[string equal -nocase "$global" "global"] && [matchattr $hand nm]} {
-
-if {[string equal -nocase $option "+o"]} {
-if {[matchattr $user g]} {
-	chattr $user -g
-}
-	chattr $user +a
-	blacktools:tell $nick $host $hand $chan $chan1 auto.12 $show_user
-}
-
-if {[string equal -nocase $option "-o"]} {
-	chattr $user -a
-	blacktools:tell $nick $host $hand $chan $chan1 auto.20 $show_user
-}
-
-if {[string equal -nocase $option "+v"]} {
-if {[matchattr $user a]} {
-	chattr $user -a
-}
-	chattr $user +g
-	blacktools:tell $nick $host $hand $chan $chan1 auto.13 $show_user
-}
-
-if {[string equal -nocase $option "-v"]} {
-	chattr $user -g
-	blacktools:tell $nick $host $hand $chan $chan1 auto.21 $show_user
-}
-	return
-}
-
-if {![matchattr $user -|MAOV $chan]} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.noaccess none
-	return
-}
-
-if {[string equal -nocase $option "+o"]} {
-if {[matchattr $user -|g $chan]} {
-	chattr $user -|-g $chan
-}
-	chattr $user -|a $chan
-	blacktools:tell $nick $host $hand $chan $chan1 auto.10 $show_user
-}
-
-if {[string equal -nocase $option "-o"]} {
-	chattr $user -|-a $chan
-	blacktools:tell $nick $host $hand $chan $chan1 auto.18 $show_user
-}
-
-if {[string equal -nocase $option "+v"]} {
-if {[matchattr $user -|a $chan]} {
-	chattr $user -|-a $chan
-}
-	chattr $user -|g $chan
-	blacktools:tell $nick $host $hand $chan $chan1 auto.11 $show_user
-}
-
-if {[string equal -nocase $option "-v"]} {
-	chattr $user -|-g $chan
-	blacktools:tell $nick $host $hand $chan $chan1 auto.19 $show_user
-	}
-}
-
-##############
-#########################################################################
-##   END                                                               ##
-#########################################################################