Delete BT.PrvCmds.tcl

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

@@ -1,2132 +0,0 @@
-#########################################################################
-##          BlackTools - The Ultimate Channel Control Script           ##
-##                    One TCL. One smart Eggdrop                       ##
-#########################################################################
-#######################   PRIVMSG CMDS TCL   ############################
-#########################################################################
-##						                       ##
-##     BlackTools  : http://blacktools.tclscripts.net	               ##
-##     Bugs report : http://www.tclscripts.net/	                       ##
-##     Online Help : irc://irc.undernet.org/tcl-help 	               ##
-##                   #TCL-HELP / UnderNet                              ##
-##                   You can ask in english or romanian                ##
-##					                               ##
-#########################################################################
-
-proc command:pubpriv {nick host hand arg} {
-	global black server uptime {server-online} botnick userfile
-	set cmd [lindex [split $arg] 0]
-	set chan [lindex [split $arg] 1]
-	set check_code [join [lrange [split $arg] 2 end]]
-	set chan1 $nick
-	set found_access 0
-	set mychan_use 0
-if {![regexp {^[&#]} $chan]} {
-if {[validuser $hand]} {
-	set mychan [join [string tolower [getuser $hand XTRA MYCHAN]]]
-if {[validchan $mychan] && [matchattr $hand nmo|OVMA $mychan] && ![string equal -nocase $cmd "unbanme"]} {
-	set chan [string tolower $mychan]
-	set mychan_use 1
-		}
-	}
-}
-
-switch [string tolower $cmd] {
-
-report {
-
-	set type 2
-	set what [lindex [split $arg] 2]
-	set message [join [lrange [split $arg] 3 end]]
-if {$mychan_use == "1"} {
-	set what [lindex [split $arg] 1]
-	set message [join [lrange [split $arg] 2 end]]
-}
-	set chan1 $chan
-if {[matchattr $hand mno|MAO $chan]} {
-	return
-}
-	report:process $nick "prv" $hand $chan $chan1 $type $what $message
-}
-
-idle {
-if {[matchattr $hand nmo|M $chan]} {
-	set type 2
-	set chan1 "$chan"	
-	set why [lindex [split $arg] 2]
-	set user [lindex [split $arg] 3]
-	set host [lindex [split $arg] 4]
-if {$mychan_use == "1"} {
-	set why [lindex [split $arg] 1]
-	set user [lindex [split $arg] 2]
-	set host [lindex [split $arg] 3]
-}
-	antidle:process $why $type $user "prv" $nick $hand $chan $chan1
-	}
-}
-
-
-link {
-if {[matchattr $hand nmo]} {
-	set type 2
-	set channels [join [lrange [split $arg] 1 end]]
-	set what [lindex [split $arg] 1]
-	set delchan [lindex [split $arg] 2]
-	set chan1 $chan
-	link:process $nick "prv" $hand $chan $chan1 $type $what $channels $delchan
-	}
-}
-
-note {
-	set found_access 0
-foreach c [channels] {
-if {[matchattr $hand nmo|MAOV $c]} {
-	set found_access 1
-	}
-}
-if {$found_access == "1"} {
-	set type 2
-	set chan1 $chan
-	set who [lindex [split $arg] 1]
-	set note [join [lrange [split $arg] 1 end]]
-	set number [lindex [split $arg] 2]
-	set user_send [lindex [split $arg] 2]
-	set note_send [join [lrange [split $arg] 3 end]]
-	note:process $nick "prv" $hand $chan $chan1 $who $note $user_send $note_send $number $type
-	}
-}
-
-q {
-if {[matchattr $hand nmo|MAOV $chan]} {
-if {$mychan_use == "1"} {
-	set who [lindex [split $arg] 1]
-	set next [lindex [split $arg] 2]
-	set quote [join [lrange [split $arg] 1 end]]
-if {$who == "*"} {
-	set who [lindex [split $arg] 2]
-	set quote [join [lrange [split $arg] 1 end]]
-}
-if {[regexp {^[\[]} $who]} {
-	set who [lindex [split $arg] 2]
-	set quote [join [lrange [split $arg] 1 end]]
-if {$who == "*"} {
-	set who [lindex [split $arg] 3]
-	set quote [join [lrange [split $arg] 1 end]]
-		}
-	}
-} else {
-	set who [lindex [split $arg] 2]
-	set next [lindex [split $arg] 3]
-	set quote [join [lrange [split $arg] 2 end]]
-if {$who == "*"} {
-	set who [lindex [split $arg] 3]
-	set quote [join [lrange [split $arg] 2 end]]
-}
-if {[regexp {^[\[]} $who]} {
-	set who [lindex [split $arg] 3]
-	set quote [join [lrange [split $arg] 2 end]]
-if {$who == "*"} {
-	set who [lindex [split $arg] 4]
-	set quote [join [lrange [split $arg] 2 end]]
-		}
-	}
-}
-	set type 2
-	set chan1 $chan
-if {$mychan_use == "1"} {
-	quote:process $nick "prv" $hand $chan $chan1 $type $who $quote [lrange [split $arg] 1 end] $next
-	} else {
-	quote:process $nick "prv" $hand $chan $chan1 $type $who $quote [lrange [split $arg] 2 end] $next
-		}
-	}
-}
-
-check {
-if {![validchan $chan]} {
-	return
-}
-if {[setting:get $chan securemode] == "0"} {
-	return
-}
-if {![botisop $chan] && ![setting:get $chan xonly]} {
-	return
-}
-	
-if {![info exists black(securecode:$nick:$chan)]} {
-	return
-}
-	set chanmode [getchanmode $chan]
-if {[string match -nocase "*D*" $chanmode] && [string match -nocase "*m*" $chanmode]} {
-if {[string equal -nocase $check_code $black(securecode:$nick:$chan)]} {
-		set lang [setting:get $chan lang]
-if {$lang == ""} { set lang [string tolower $black(default_lang)] }
-if {[setting:get $chan xonly]} {
-	putserv "PRIVMSG $black(chanserv) :voice $nick $chan"
-	set replace(%chan%) $chan
-	set replace(%msg.1%) $nick
-	set message [string map [array get replace] $black(say.$lang.securemode.2)]
-	putserv "PRIVMSG $nick :$message"
-if {[info exists black(secure:$chan:allowlist)]} {
-if {[lsearch -exact [string tolower $black(secure:$chan:allowlist)]  [string tolower $host]] < 0} {
-	lappend black(secure:$chan:allowlist) $host
-	}
-} else { lappend black(secure:$chan:allowlist) $host }
-		} else {
-	putserv "MODE $chan +v $nick"
-	set replace(%chan%) $chan
-	set replace(%msg.1%) $nick
-	set message [string map [array get replace] $black(say.$lang.securemode.2)]
-	putserv "PRIVMSG $nick :$message"
-if {[info exists black(secure:$chan:allowlist)]} {
-if {[lsearch -exact [string tolower $black(secure:$chan:allowlist)]  [string tolower $host]] < 0} {
-	lappend black(secure:$chan:allowlist) $host
-						}
-					} else { lappend black(secure:$chan:allowlist) $host }
-if {[info exists black(securecode:$nick:$chan)]} {
-	unset black(securecode:$nick:$chan)
-				}
-if {[lsearch -exact [string tolower $black(secure:$chan:list)]  [string tolower $nick]] > -1} {
-	set position [lsearch -exact [string tolower $black(secure:$chan:list)] [string tolower $nick]]
-	set black(secure:$chan:list) [lreplace $black(secure:$chan:list) $position $position]
-				}
-			}
-		}
-	}
-}
-
-voiceme {
-if {![validchan $chan]} {
-	return
-}
-if {[setting:get $chan voiceme]} {
-
-if {![botisop $chan] && ![setting:get $chan xonly]} {
-	return
-}
-if {![onchan $nick $chan]} {
-	return
-}
-
-if {[isop $nick $chan] || [isvoice $nick $chan]} {
-	return
-}
-
-if {[setting:get $chan onlyonmode] && ![info exists black(voiceme:stat:$chan)]} {
-	return
-}
-if {[isvoice $nick $chan]} {
-	blacktools:tell $nick "prv" $hand $chan $chan1 voiceme.4 none
-	return
-}
-
-if {[setting:get $chan nologged]} {
-		set code [join [lrange [split $arg] 2 end]]
-if {$code == ""} {
-	set black(voicemecode:$chan) [string toupper [bot:setcode]]
-	blacktools:tell $nick "prv" $hand $chan $chan1 voiceme.5 $black(voicemecode:$chan)
-foreach tmr [utimers] {
-if {[string match "*unset black(voicemecode:$chan)*" [join [lindex $tmr 1]]]} {
-	killutimer [lindex $tmr 2]
-			}	
-		}
-	utimer 60 [list unset black(voicemecode:$chan)]
-	return
-}
-
-if {![info exists black(voicemecode:$chan)]} {
-	return
-}
-
-if {[string equal -nocase $code $black(voicemecode:$chan)]} {
-if {[setting:get $chan xonly] && [onchan $black(chanserv) $chan]} {	
-	putserv "PRIVMSG $black(chanserv) :voice $chan $nick"
-	blacktools:tell $nick "prv" $hand $chan $chan1 voiceme.3 none
-		} else {
-	putserv "MODE $chan +v $nick"
-	blacktools:tell $nick "prv" $hand $chan $chan1 voiceme.3 none
-		}
-	}
-} else {
-	putserv "WHOIS $nick"
-	set ::vnick $nick
-	set ::vchan $chan
-	set ::vhand $hand
-	set ::vhost $host
-	bind RAW - 330 voiceme:logged
-	bind RAW - 307 voiceme:identified
-		}
-	}
-}
-
-unbanme {
-
-if {![regexp {^[&#]} $chan]} {
-	return
-}
-
-if {![validchan $chan]} {
-	return
-}
-if {![botisop $chan] && ![setting:get $chan xonly]} {
-	return
-}
-	set found_ban 0
-foreach b [blacktools:banlist $chan] {
-	set read_chan [lindex [split $b] 2]
-if {[string equal -nocase $read_chan $chan]} {
-	set read_host [lindex [split $b] 3]
-	set real_read_host [string map [list \[ {\[} \] {\]} \? {\?} \\ {\\}] $read_host]
-if {[string match -nocase $real_read_host "$nick!$host"] || [string match -nocase "$nick!$host" $real_read_host]} {
-	set read_bot [lindex [split $b] 7]
-if {$read_bot == 3} {
-	set found_ban 1
-			}
-		}
-	}
-}
-
-if {$found_ban == "0"} {
-	return
-}
-	set code [join [lrange [split $arg] 2 end]]
-
-if {$code == ""} {
-	set black(botcode:$chan) [string toupper [bot:setcode]]
-	blacktools:tell $nick "prv" $hand $chan $chan1 bot.6 $black(botcode:$chan)
-foreach tmr [utimers] {
-if {[string match "*unset black(botcode:$chan)*" [join [lindex $tmr 1]]]} {
-	killutimer [lindex $tmr 2]
-			}	
-		}
-	utimer 60 [list unset black(botcode:$chan)]
-	return
-}
-
-if {![info exists black(botcode:$chan)]} {
-	return
-}
-if {[string equal -nocase $code $black(botcode:$chan)]} {
-foreach b [blacktools:banlist $chan] {
-	set read_chan [lindex [split $b] 2]
-	set read_host [lindex [split $b] 3]
-	set real_read_host [string map [list \[ {\[} \] {\]} \? {\?} \\ {\\}] $read_host]
-if {[string match -nocase $real_read_host "$nick!$host"]} {
-	set read_bot [lindex [split $b] 7]
-if {$read_bot == 3} {
-if {[ischanban $read_host $chan] && [botisop $chan]} {
-	pushmode $chan -b $read_host
-							}
-if {[setting:get $chan xonly] || [setting:get $chan xtools]} {
-	putquick "PRIVMSG $black(chanserv) :unban $chan $read_host"
-						}
-	blacktools:auto:remove $read_host $chan
-	blacktools:tell $nick "prv" $hand $chan $chan1 bot.7 none
-				}
-			}
-		}
-	}
-}
-
-enable {
-if {[matchattr $hand nmo|M $chan]} {
-	set what [lindex [split $arg] 2]
-	set user [lindex [split $arg] 3]
-if {$mychan_use == "1"} {
-	set what [lindex [split $arg] 1]
-	set user [lindex [split $arg] 2]
-}
-	set chan1 "$chan"
-	set type "2"
-	enable:process $nick "prv" $hand $chan $chan1 $type $what $user
-	}
-}
-
-disable {
-if {[matchattr $hand nmo|M $chan]} {
-	set what [lindex [split $arg] 2]
-	set user [lindex [split $arg] 3]
-if {$mychan_use == "1"} {
-	set what [lindex [split $arg] 1]
-	set user [lindex [split $arg] 2]
-}
-	set chan1 "$chan"
-	set type "2"
-	disable:process $nick "prv" $hand $chan $chan1 $type $what $user
-	}
-}
-
-dr {
-if {[matchattr $hand nmo|OSMA $chan]} {
-	set drone [lindex [split $arg] 2]
-if {$mychan_use == "1"} {
-	set drone [lindex [split $arg] 1]
-}
-	set type 2
-	set chan1 "$chan"
-	userhost:act $drone $nick $hand "prv" $chan $chan1 $type $black(dr:bantime) "dr" "" "0"
-	}
-}
-
-bot {
-if {[matchattr $hand nmo|OSMA $chan]} {
-	set bot [lindex [split $arg] 2]
-if {$mychan_use == "1"} {
-	set bot [lindex [split $arg] 1]
-}
-	set type 2
-	set chan1 "$chan"
-	userhost:act $bot $nick "$hand:bot" "prv" $chan $chan1 $type $black(bot:bantime) "bot" "" "0"
-	}
-}
-
-n {
-if {[matchattr $hand nmo|OMA $chan]} {
-	set badnick [lindex [split $arg] 2]
-if {$mychan_use == "1"} {
-	set badnick [lindex [split $arg] 1]
-}
-	set type 0
-	set chan1 "$chan"
-	
-if {[setting:get $chan nextshortcmd]} {
-	nextpublic:process $nick "prv" $hand $chan $chan1 $badnick
-	return
-}
-
-if {[regexp {\*} $badnick]} {
-	blacktools:tell $nick "prv" $hand $chan $chan1 gl.instr_priv "n"
-	return
-}
-if {$badnick == ""} {
-	blacktools:tell $nick "prv" $hand $chan $chan1 gl.instr_priv "n"
-	return
-		}
-	bancmds:process $badnick $badnick $nick $hand "prv" $chan $chan1 $type $black(n:bantime) "n" "" "0"
-	}
-}
-
-id {
-if {[matchattr $hand nmo|OMA $chan]} {
-	set badident [lindex [split $arg] 2]
-if {$mychan_use == "1"} {
-	set badident [lindex [split $arg] 1]
-}
-	set handle [nick2hand $badident]
-	set type 2
-	set chan1 "$chan"
-	userhost:act $badident $nick $hand "prv" $chan $chan1 $type $black(id:bantime) "id" "" "0"
-	}
-}
-
-spam {
-if {[matchattr $hand nmo|OMA $chan]} {
-	set spammer [lindex [split $arg] 2]
-if {$mychan_use == "1"} {
-	set spammer [lindex [split $arg] 1]
-}
-	set type 2
-	set chan1 "$chan"
-	userhost:act $spammer $nick $hand "prv" $chan $chan1 $type $black(spam:bantime) "spam" "" "0"
-	}
-}
-
-
-bw {
-if {[matchattr $hand nmo|OMA $chan]} {
-	set badw [lindex [split $arg] 2]
-if {$mychan_use == "1"} {
-	set badw [lindex [split $arg] 1]
-}
-	set type 2
-	set chan1 "$chan"
-	userhost:act $badw $nick $hand "prv" $chan $chan1 $type $black(bw:bantime) "bw" "" "0"
-	}
-}
-
-mb {
-if {[matchattr $hand nmo|OMA $chan]} {
-	set badd [lindex [split $arg] 2]
-	set reason [join [lrange [split $arg] 3 end]]
-if {$mychan_use == "1"} {
-	set badd [lindex [split $arg] 1]
-	set reason [join [lrange [split $arg] 2 end]]
-}
-	set type 2
-	set chan1 "$chan"
-	userhost:act $badd $nick $hand "prv" $chan $chan1 $type $black(mb:bantime) "mb" $reason "0"
-	}
-}
-
-black {
-if {[matchattr $hand nmo|MA $chan]} {
-	set blackb [lindex [split $arg] 2]
-	set reason [join [lrange [split $arg] 3 end]]
-if {$mychan_use == "1"} {
-	set blackb [lindex [split $arg] 1]
-	set reason [join [lrange [split $arg] 2 end]]
-}
-	set type 2
-	set chan1 "$chan"
-	userhost:act $blackb $nick $hand "prv" $chan $chan1 $type "0" "black" $reason "0"
-	}
-}
-
-bl {
-if {[matchattr $hand nmo|MA $chan]} {
-	set blackb [lindex [split $arg] 2]
-	set reason [join [lrange [split $arg] 3 end]]
-if {$mychan_use == "1"} {
-	set blackb [lindex [split $arg] 1]
-	set reason [join [lrange [split $arg] 2 end]]
-}
-	set type 2
-	set chan1 "$chan"
-	userhost:act $blackb $nick $hand "prv" $chan $chan1 $type "0" "black" $reason "0"
-	}
-}
-
-b {
-if {[matchattr $hand nmo|MAO $chan]} {
-	set no_chan 0
-	set type 2
-	set gl 0
-	set link 0
-	set chan1 "$chan"
-	set level ""
-	set b [lindex [split $arg] 2]
-	set tm [lindex [split $arg] 3]
-	set global [lindex [split $arg] 4]
-	set reason [join [lrange [split $arg] 5 end]]
-	set return_time [time_return_minute $tm]
-if {$return_time == "-1"} {
-	set global [lindex [split $arg] 3]
-	set reason [join [lrange [split $arg] 4 end]]
-}
-if {![regexp {^[&#]} $chan]} {
-	set no_chan 1
-	set b [lindex [split $arg] 1]
-	set tm [lindex [split $arg] 2]
-	set global [lindex [split $arg] 3]
-	set reason [join [lrange [split $arg] 4 end]]
-	set return_time [time_return_minute $tm]
-if {$return_time == "-1"} {
-	set global [lindex [split $arg] 2]
-	set reason [join [lrange [split $arg] 3 end]]
-	}	
-}
-if {$mychan_use == "1"} {
-	set b [lindex [split $arg] 1]
-	set tm [lindex [split $arg] 2]
-	set global [lindex [split $arg] 3]
-	set reason [join [lrange [split $arg] 4 end]]
-	set return_time [time_return_minute $tm]
-if {$return_time == "-1"} {
-	set global [lindex [split $arg] 2]
-	set reason [join [lrange [split $arg] 3 end]]
-}
-if {[regexp {^[-]} $tm]} {
-	set level [blacktools:check:levelban $hand $chan $tm]
-	set reason [join [lrange [split $arg] 4 end]]
-	set tm [lindex [split $arg] 3]
-	set return_time [time_return_minute $tm]
-if {$return_time == "-1"} {
-	set tm [lindex [split $arg] 2]
-	set reason [join [lrange [split $arg] 3 end]]
-		} 
-} elseif {[string equal -nocase "$global" "global"] && [matchattr $hand nm]} {
-	set gl 1
-	set tm [lindex [split $arg] 2]
-	set reason [join [lrange [split $arg] 4 end]]
-	set return_time [time_return_minute $tm]
-if {$return_time == "-1"} {
-	set reason [join [lrange [split $arg] 3 end]]
-			} 
-} elseif {[string equal -nocase "$global" "link"] && [matchattr $hand nm]} {
-	set link 1
-	set tm [lindex [split $arg] 2]
-	set reason [join [lrange [split $arg] 4 end]]
-	set return_time [time_return_minute $tm]
-if {$return_time == "-1"} {
-	set reason [join [lrange [split $arg] 3 end]]
-			}
-if {$no_chan == "1"} {
-	set b [lindex [split $arg] 1]
-	set tm [lindex [split $arg] 2]
-	set global [lindex [split $arg] 3]
-	set reason [join [lrange [split $arg] 4 end]]
-	set return_time [time_return_minute $tm]
-if {$return_time == "-1"} {
-	set global [lindex [split $arg] 2]
-	set reason [join [lrange [split $arg] 3 end]]
-			}
-		}				
-	} else {
-if {$return_time == "-1"} {
-	set reason [join [lrange [split $arg] 2 end]]
-	} else {
-	set reason [join [lrange [split $arg] 3 end]]
-		}
-	}
-} else {
-if {[regexp {^[-]} $tm]} {
-	set level [blacktools:check:levelban $hand $chan $tm]
-	set reason [join [lrange [split $arg] 5 end]]
-	set tm [lindex [split $arg] 4]
-	set return_time [time_return_minute $tm]
-if {$return_time == "-1"} {
-	set tm [lindex [split $arg] 3]
-	set reason [join [lrange [split $arg] 4 end]]
-		} 
-} elseif {[string equal -nocase "$global" "global"] && [matchattr $hand nm]} {
-	set gl 1
-	set tm [lindex [split $arg] 3]
-	set reason [join [lrange [split $arg] 5 end]]
-	set return_time [time_return_minute $tm]
-if {$return_time == "-1"} {
-	set reason [join [lrange [split $arg] 4 end]]
-			}
-if {$no_chan == "1"} {
-	set b [lindex [split $arg] 1]
-	set tm [lindex [split $arg] 2]
-	set global [lindex [split $arg] 3]
-	set reason [join [lrange [split $arg] 4 end]]
-	set return_time [time_return_minute $tm]
-if {$return_time == "-1"} {
-	set global [lindex [split $arg] 2]
-	set reason [join [lrange [split $arg] 3 end]]
-		}
-	}			
-} elseif {[string equal -nocase "$global" "link"] && [matchattr $hand nm]} {
-	set link 1
-	set tm [lindex [split $arg] 3]
-	set reason [join [lrange [split $arg] 5 end]]
-	set return_time [time_return_minute $tm]
-if {$return_time == "-1"} {
-	set reason [join [lrange [split $arg] 4 end]]
-			}
-if {$no_chan == "1"} {
-	set b [lindex [split $arg] 1]
-	set tm [lindex [split $arg] 2]
-	set global [lindex [split $arg] 3]
-	set reason [join [lrange [split $arg] 4 end]]
-	set return_time [time_return_minute $tm]
-if {$return_time == "-1"} {
-	set global [lindex [split $arg] 2]
-	set reason [join [lrange [split $arg] 3 end]]
-			}
-		}				
-	} else {
-if {$return_time == "-1"} {
-	set reason [join [lrange [split $arg] 3 end]]
-	} else {
-	set reason [join [lrange [split $arg] 4 end]]
-		}
-	}
-}
-	
-if {[setting:get $chan nextshortcmd]} {
-	noidlepublic:process $nick "prv" $hand $chan $chan1 $b 0
-	return
-}
-
-if {($return_time > "20160" || $return_time == "0")  && [matchattr $hand -|OS $b]} {
-	blacktools:tell $nick "prv" $hand $chan $chan1 b.6 none
-	return
-}
-if {$return_time == "-1"} {
-	set return_time $black(b:bantime)
-}
-if {[llength $level] > "1"} {
-	blacktools:tell $nick "prv" $hand $chan $chan1 gl.invalidlevel [string map {"0" ""} $level]
-	return
-}
-	
-if {$level != ""} {
-	userhost:act $b $nick "$hand:$level" "prv" $chan $chan1 $type $return_time "b" $reason $gl
-} else {
-if {$link == "1"} {
-	foreach c [link:get] {
-	userhost:act $b $nick "$hand" "prv" $c $chan1 $type $return_time "b" $reason "2"
-	}
-	return
-}
-	userhost:act $b $nick "$hand" "prv" $chan $chan1 $type $return_time "b" $reason $gl
-		}
-	}
-}
-
-stick {
-if {[matchattr $hand nmo|M $chan]} {
-	set stickb [lindex [split $arg] 2]
-	set tm [lindex [split $arg] 3]
-if {$mychan_use == "1"} {
-	set stickb [lindex [split $arg] 1]
-	set tm [lindex [split $arg] 2]
-}
-	set return_time [time_return_minute $tm]
-if {$return_time == "-1"} {
-	set reason [join [lrange [split $arg] 3 end]]
-if {$mychan_use == "1"} {
-	set reason [join [lrange [split $arg] 2 end]]
-	}
-} else {
-	set tm [lindex [split $arg] 4]
-	set reason [join [lrange [split $arg] 4 end]]
-if {$mychan_use == "1"} {
-	set tm [lindex [split $arg] 3]
-	set reason [join [lrange [split $arg] 3 end]]
-	}
-}
-	set type 2
-	set chan1 "$chan"
-if {($return_time > "20160" || $return_time == "0")  && [matchattr $hand -|OS $stickb]} {
-	blacktools:tell $nick "prv" $hand $chan $chan1 b.6 none
-	return
-}
-
-if {$return_time == "-1"} {
-	set return_time $black(stick:bantime)
-}
-	userhost:act $stickb $nick $hand "prv" $chan $chan1 $type $return_time "stick" $reason "0"
-	}
-}
-
-ub {
-if {[matchattr $hand nmo|MAO $chan]} {
-	set ban [lindex [split $arg] 1]
-	set why [lindex [split $arg] 2]
-if {[regexp {^[&#]} $ban]} { 
-	set ban [lindex [split $arg] 2]
-	set why [lindex [split $arg] 3]
-}
-	set type 2
-	set chan1 "$chan"
-if {[regexp {^[0-9]} $ban]} {
-	set cmd "ub:id"
-} else {
-	set cmd "ub"
-}
-if {[string equal -nocase $why "global"] && [matchattr $hand nm]} {
-	ub:process $ban $ban $nick $hand "prv" $chan $chan1 $type "1" $cmd "" ""
-} elseif {[string equal -nocase $why "link"] && [matchattr $hand nm]} {
-	ub:process $ban $ban $nick $hand "prv" $chan $chan1 $type "" "ub" "" "1"
-} else {
-	ub:process $ban $ban $nick $hand "prv" $chan $chan1 $type "" $cmd "" ""
-		}
-	}
-}
-
-k {
-if {[matchattr $hand nmo|OMA $chan]} {
-	set knick [lindex [split $arg] 2]
-	set type 2
-	set reason [join [lrange [split $arg] 3 end]]
-if {$mychan_use == "1"} {
-	set knick [lindex [split $arg] 1]
-	set reason [join [lrange [split $arg] 2 end]]
-}
-	set handle [nick2hand $knick]
-	set chan1 "$chan"
-if {$knick != ""} {
-	k:process $knick $nick $hand "prv" $reason $chan $chan1 $type
-		} else {k:process $knick $nick $hand "prv" $reason $chan $chan1 $type}
-	}
-}
-
-w {
-if {[matchattr $hand nmo|OMA $chan]} {
-	set wnick [lindex [split $arg] 2]
-if {$mychan_use == "1"} {
-	set wnick [lindex [split $arg] 1]
-}
-	set type 2
-	set handle [nick2hand $wnick]
-	set chan1 "$chan"
-if {$wnick != ""} {
-	w:process $wnick $nick $hand "prv" $chan $chan1 $type
-		} else { w:process $wnick $nick $hand "prv" $chan $chan1 $type }
-	}
-}
-
-ungag {
-if {[matchattr $hand nmo|OMA $chan]} {
-	set gagger [lindex [split $arg] 2]
-if {$mychan_use == "1"} {
-	set gagger [lindex [split $arg] 1]
-}
-	set type 2
-	set chan1 "$chan"
-if {$gagger != ""} {
-	ungag:process $gagger $nick $hand "prv" $chan $chan1 $type
-	} else { ungag:process $gagger $nick $hand "prv" $chan $chan1 $type }
-	}
-}
-
-gag {
-if {[matchattr $hand nmo|OMA $chan]} {
-	set gagger [lindex [split $arg] 2]
-	set time [lindex [split $arg] 3]
-	set reason [join [lrange [split $arg] 4 end]]
-if {$mychan_use == "1"} {
-	set gagger [lindex [split $arg] 1]
-	set time [lindex [split $arg] 2]
-	set reason [join [lrange [split $arg] 3 end]]
-}
-	set type 2
-	set handle [nick2hand $gagger]
-	set chan1 "$chan"
-	set return_time [time_return_minute $time]
-if {$return_time == "-1"} {
-	set reason [join [lrange [split $arg] 3 end]]
-	set time [setting:get $chan gag-bantime]
-if {$time == ""} {
-	set time $black(gag:bantime)
-	}
-}
-
-if {$gagger != ""} {
-	gag:process $gagger $time $reason $nick "$hand:GAG" "prv" $chan $chan1 $type
-		} else { gag:process $gagger $time $reason $nick $hand "prv" $chan $chan1 $type }
-	}
-}
-
-show {
-if {[matchattr $hand nmo|M $chan]} {
-	set wich [lindex [split $arg] 2]
-if {$mychan_use == "1"} {
-	set wich [lindex [split $arg] 1]
-}
-	set type 2
-	set chan1 "$chan"
-	show:process $nick "prv" $hand $chan $chan1 $wich $type
-	}
-}
-
-clonescan {
-if {[matchattr $hand nmo|MA $chan]} {
-	set why [lindex [split $arg] 2]
-	set type 2
-	set chan1 "$chan"
-if {[regexp {^[&#]} $chan] && [matchattr $hand nmo|M $chan] && ($why != "")} {
-	set chan1 "$chan"
-	set clone [join [lrange [split $arg] 3 end]]
-	set number [lindex [split $arg] 3]
-	prot:module:process $nick "prv" $hand $chan $chan1 $chan $clone $type $number "clonescan"
-	return
-		}
-	scanner:process $nick "prv" $hand $chan $chan1 $type
-	}
-}
-
-sb {
-if {[matchattr $hand nmo|MAO $chan]} {
-	set bhost [lindex [split $arg] 2]
-	set what [lindex [split $arg] 3]
-if {$mychan_use == "1"} {
-	set bhost [lindex [split $arg] 1]
-	set what [lindex [split $arg] 2]
-}
-	set type 2
-	set chan1 "$chan"
-if {$bhost != ""} {
-if {[regexp {^[0-9]} $bhost]} {
-	sb:process $bhost $what $nick $hand "prv" $chan $chan1 $type "sb" "2"
-	return
-}
-if {![validchan $chan]} {
-	blacktools:tell $nick "prv" $hand $chan $chan1 gl.novalidchan none
-	return
-}
-if {[onchan $bhost $chan]} {
-	set bhost "$bhost![getchanhost $bhost $chan]"
-	sb:process $bhost $what $nick $hand "prv" $chan $chan1 $type "sb" "1"
-	return
-}
-
-if {[regexp {\*} $bhost]} {
-	sb:process $bhost $what $nick $hand "prv" $chan $chan1 $type "sb" "1"
-	return
-}
-	sb:process $bhost $what $nick $hand "prv" $chan $chan1 $type "sb" ""
-
-		} else { sb:process $bhost $what $nick $hand "prv" $chan $chan1 $type "sb" ""}
-	}
-}
-
-banlist {
-if {[matchattr $hand nmo|AOM $chan]} {
-	set user [lindex [split $arg] 2]
-	set next [lindex [split $arg] 3]
-if {$mychan_use == "1"} {
-	set user [lindex [split $arg] 1]
-	set next [lindex [split $arg] 2]
-}
-if {[string equal -nocase $chan "global"]} {
-	set user $chan
-}
-	set type 2
-	set chan1 "$chan"
-	banlist:process $nick "prv" $hand $chan $chan1 $user $type "banlist" $next
-	}
-}
-
-r {
-if {[matchattr $hand nmo|MAO $chan]} {
-	set c [lindex [split $arg] 1]
-	set chan1 $chan
-if {$c != "" && [matchattr $hand nmo|AMO $c]} {
-	topic:refresh $nick "prv" $hand $c $chan1 $arg
-	return
-}
-	topic:refresh $nick "prv" $hand $chan $chan1 $arg
-	}
-}
-
-egg {
-if {[matchattr $hand nm]} {
-	set why [lindex [split $arg] 1]
-	set type2 2
-	set result [join [lrange [split $arg] 2 end]]
-	egg:process $why $type2 $result $nick $hand "prv" $chan $chan1
-	}
-}
-
-man {
-if {[matchattr $hand nmo|MASOV $chan]} {
-	set command [lindex [split $arg] 1]
-	set type 0
-	man:process $nick $host $hand $chan $chan1 $type $command
-	}
-}
-
-auto {
-if {[matchattr $hand nmo|MA $chan]} {
-	set type 0
-	set option [lindex [split $arg] 2]
-	set user [lindex [split $arg] 3]
-	set gl [lindex [split $arg] 4]
-if {$mychan_use == "1"} {
-	set option [lindex [split $arg] 1]
-	set user [lindex [split $arg] 2]
-	set gl [lindex [split $arg] 3]
-}
-	auto:process $nick "prv" $hand $chan $chan1 $user $option $gl $type 
-	}
-}
-
-version {
-if {[matchattr $hand nmo|MASOV $chan]} {
-	version:process $nick $host $hand $chan $chan1
-	}
-}
-
-seen {
-if {[matchattr $hand nmo|MAOV $chan]} {
-	set type 2
-if {[matchattr $hand nmo]} {
-	set s [lindex [split $arg] 1]
-if {[regexp {^[&#]} $s]} {
-	set s [lindex [split $arg] 2]
-	}
-		} else {
-if {![regexp {^[&#]} $chan]} {
-	blacktools:tell $nick "prv" $hand $chan $chan1 gl.instr_priv "seen"
-	return
-}
-	set s [lindex [split $arg] 2]
-if {$mychan_use == "1"} {
-	set s [lindex [split $arg] 1]
-	}
-}
-	seen:process $nick "$host:prv" $hand $chan $chan1 $s $type
-	}
-}
-
-channels {
-if {[matchattr $hand nmo]} {
-	set chan1 "$nick"
-	channels:process $nick "prv" $hand $chan $chan1
-	}
-}
-
-userlist {
-if {[matchattr $hand nmo|MAOV $chan]} {
-	set type 2
-	set chan1 $nick
-	set level [lindex [split $arg] 2]
-if {$mychan_use == "1"} {
-	set level [lindex [split $arg] 1]
-}
-if {[string equal -nocase $chan "owner"] && [matchattr $hand nmo]} {
-	userlist:execute $hand "prv" $chan $chan $chan1 $nick $type
-	return
-}
-	userlist:execute $hand "prv" $level $chan $chan1 $nick $type
-	}
-}
-
-chuser {
-if {[matchattr $hand nmo|M $chan]} {
-	set user [lindex [split $arg] 1]
-	set chandle [lindex [split $arg] 2]
-	set type 2
-	set chan1 "$nick"
-	chuser:process $nick "prv" $hand $chan $chan1 $user $chandle $type
-	}
-}
-
-securemode {
-if {[matchattr $hand nmo|M $chan]} {
-	set type 2
-	set chan1 "$chan"
-	set why [lindex [split $arg] 2]
-	set except [join [lrange [split $arg] 3 end]]
-	set number [lindex [split $arg] 3]
-if {$mychan_use == "1"} {
-	set why [lindex [split $arg] 1]
-	set except [join [lrange [split $arg] 2 end]]
-	set number [lindex [split $arg] 2]
-		}
-	prot:module:process $nick "prv" $hand $chan $chan1 $why $except $type $number "securemode"
-	}
-}
-
-delhost {
-if {[matchattr $hand nmo|MA $chan]} {
-	set user [lindex [split $arg] 1]
-	set type 2
-	set chan1 "$chan"
-	set hosts [join [lrange [split $arg] 2 end]]
-	delhost:process $nick "prv" $hand $chan $chan1 $user $hosts $type
-	}
-}
-
-addhost {
-if {[matchattr $hand nmo|MA $chan]} {
-	set type 2
-	set chan1 "$chan"
-	set user [lindex [split $arg] 1]
-	set hosts [join [lrange [split $arg] 2 end]]
-	addhost:process $nick "prv" $hand $chan $chan1 $user $hosts $type
-	}
-}
-
-del {
-if {[matchattr $hand nmo|M $chan]} {
-	set args [lrange [split $arg] 1 end]
-	set type 2
-	set chan1 "$chan"
-	del:process $nick "prv" $hand $chan $chan1 $args $type
-	}
-}
-
-delacc {
-if {[matchattr $hand nmo|MA $chan]} {
-	set args [lrange [split $arg] 2 end]
-if {$mychan_use == "1"} {
-	set args [lrange [split $arg] 1 end]
-}
-	set type 2
-	set chan1 "$chan"
-foreach user $args {
-	delacc:process $nick "prv" $hand $chan $chan1 $user $type
-		}
-	}
-}
-
-
-add {
-if {[matchattr $hand nmo|MA $chan]} {
-	set level [lindex [split $arg] 2]
-	set type 2
-	set args [lrange [split $arg] 3 end]
-	set c [lindex [split $arg] 3]
-if {$mychan_use == "1"} {
-	set level [lindex [split $arg] 1]
-	set args [lrange [split $arg] 2 end]
-	set c [lindex [split $arg] 2]
-}
-	set chan1 "$chan"
-	set handle ""
-	set uhost ""
-if {$args != ""} {
-foreach user $args {
-if {$user != ""} {
-if {![regexp  {^[a-zA-Z0-9]} $user]} {
-	blacktools:tell $nick "prv" $hand $chan $chan1 add.18 none
-	continue
-}
-	add:process $user $uhost $handle $level $hand "prv" $chan $chan1 $nick $type "add"
-				}
-			}
-		} else {  add:process "" $uhost $handle $level $hand "prv" $chan $chan1 $nick $type "add" }	
-	}
-}
-
-adduser {
-if {[matchattr $hand nmo|MA $chan]} {
-	set level [lindex [split $arg] 2]
-	set args [lrange [split $arg] 3 end]
-	set c [lindex [split $arg] 3]
-if {$mychan_use == "1"} {
-	set level [lindex [split $arg] 1]
-	set args [lrange [split $arg] 2 end]
-	set c [lindex [split $arg] 2]
-}
-	set type 2
-	set chan1 "$chan"
-if {![validchan $chan]} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
-	return
-}
-if {$args != ""} {
-foreach user $args {
-if {$user != ""} {
-	set handle [nick2hand $user]
-if {![onchan $user $chan] && ![validuser $user]} { 
-	blacktools:tell $nick "prv" $hand $chan $chan1 gl.usernotonchan $user
-	return
-}
-	set hosts [getchanhost $user $chan]
-	set uhost [return_mask $black(addusermask) $hosts $user]
-	add:process $user $uhost $handle $level $hand "prv" $chan $chan1 $nick $type "adduser"
-				}
-			}
-		} else { add:process "" "" "" $level $hand "prv" $chan $chan1 $nick $type "adduser" }
-	}
-}
-
-suspend {
-if {[matchattr $hand nmo]} {
-	set reason [join [lrange [split $arg] 2 end]]
-	set cmd_status [btcmd:status $chan $hand "suspend" 0]
-if {$cmd_status == "1"} { 
-	return 
-}
-	set chan1 "$chan"
-if {$chan == ""} {blacktools:tell $nick "prv" $hand $chan $chan1 gl.instr_priv "suspend"
-	return
-}
-if {![regexp {^[&#]} $chan]} {
-	blacktools:tell $nick "prv" $hand $chan $chan1 gl.novalidchan none
-	return
-}
-if {![validchan $chan]} { blacktools:tell $nick "prv" $hand $chan $chan1 gl.novalidchan none
-	return
-}
-
-if {[channel get $chan inactive]} {
-	blacktools:tell $nick "prv" $hand $chan $chan1 suspend.3 $chan
-	return
-}
-	channel set $chan +inactive
-if {$reason == ""} { set reason "N/A" }
-	suspendchan:note $hand $chan $reason
-	blacktools:tell $nick "prv" $hand $chan $chan1 suspend.4 $chan
-	}
-}
-
-unsuspend {
-if {[matchattr $hand nmo]} {
-	set cmd_status [btcmd:status $chan $hand "unsuspend" 0]
-if {$cmd_status == "1"} { 
-	return 
-}
-	set chan1 "$chan"
-if {$chan == ""} {blacktools:tell $nick "prv" $hand $chan $chan1 gl.instr_priv "unsuspend"
-	return
-}
-
-if {![regexp {^[&#]} $chan]} {
-	blacktools:tell $nick "prv" $hand $chan $chan1 gl.novalidchan none
-	return
-}
- 
-if {![validchan $chan]} { blacktools:tell $nick "prv" $hand $chan $chan1 gl.novalidchan none
-	return
-}
-
-if {![channel get $chan inactive]} {
-	blacktools:tell $nick "prv" $hand $chan $chan1 unsuspend.3 $chan
-	return
-}
-	channel set $chan -inactive
-	blacktools:tell $nick "prv" $hand $chan $chan1 unsuspend.4 $chan
-	}
-}
-
-delchan {
-if {[matchattr $hand nmo]} {
-		set reason [join [lrange [split $arg] 2 end]]
-	set cmd_status [btcmd:status $chan $hand "delchan" 0]
-if {$cmd_status == "1"} { 
-	return 
-}
-	set chan1 "$chan"
-if {$chan == ""} {blacktools:tell $nick "prv" $hand $chan $chan1 gl.instr_priv "delchan"
-	return
-}
-if {![regexp {^[&#]} $chan]} {
-	blacktools:tell $nick "prv" $hand $chan $chan1 gl.novalidchan none 
-	return
-} 
-
-if {![validchan $chan]} { blacktools:tell $nick "prv" $hand $chan $chan1 gl.novalidchan none
-	return
-}
-	set getlang [string tolower [getuser $hand XTRA OUTPUT_LANG]]
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
-
-if {!($black(homechan) == "") && ![string equal -nocase $black(homechan) "#no_home_chan"]} {
-if {[string equal -nocase $chan $black(homechan)]} {
-	blacktools:tell $nick "prv" $hand $chan $chan1 delchan.5 $chan
-	return
-	}
-}
-	channel remove $chan
-	delchan:all $chan
-if {$reason == ""} { set reason "N/A" }
-	delchan:note $hand $chan $reason
-	blacktools:tell $nick "prv" $hand $chan $chan1 delchan.3 $chan
-	}
-}
-
-addchan {
-if {[matchattr $hand nmo]} {
-	set cmd_status [btcmd:status $chan $hand "addchan" 0]
-if {$cmd_status == "1"} { 
-	return 
-}
-	set key [lindex [split $arg] 2]
-	set chan1 "$chan"
-if {$chan == ""} {
-	blacktools:tell $nick "prv" $hand $chan $chan1 gl.instr_priv "addchan"
-	return
-}
-
-if {![regexp {^[&#]} $chan]} {	
-	blacktools:tell $nick "prv" $hand $chan $chan1 gl.novalidchan none
-	return
-} 
-
-if {[validchan $chan]} {
-	blacktools:tell $nick "prv" $hand $chan $chan1 addchan.2 $chan
-	return
-} else {
-	channel add $chan
-	blacktools:tell $nick "prv" $hand $chan $chan1 addchan.3 $chan
-if {$key != ""} {
-	putquick "JOIN $chan :$key"
-	channel set $chan chanmode "+ntk $key"
-			}		
-		}
-	}
-}
-
-die {
-if {[matchattr $hand nm]} {
-	set cmd_status [btcmd:status $chan $hand "die" 0]
-if {$cmd_status == "1"} { 
-	return 
-}
-	set chan1 "$chan"
-	set reason [join [lrange [split $arg] 1 end]]
-	set getlang [string tolower [getuser $hand XTRA OUTPUT_LANG]]
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
-	blacktools:tell $nick "prv" $hand $chan $chan1 die.1 none
-if {$reason == ""} {
-	set reason $black(say.$getlang.die.2)
-}
-	utimer 3 [list die $reason]
-	}
-}
-
-jump {
-if {[matchattr $hand nm]} {
-	set cmd_status [btcmd:status $chan $hand "jump" 0]
-if {$cmd_status == "1"} { 
-	return 
-}
-set chan1 "$chan"
-set serv [lindex [split $arg] 1]
-if {$serv == ""} {
-	blacktools:tell $nick "prv" $hand $chan $chan1 jump.1 "..."
-	utimer 3 [list jump]
-} else {
-	blacktools:tell $nick "prv" $hand $chan $chan1 jump.1 "\002$serv\002"
-	utimer 3 [list jump $serv]
-		}	
-	}
-}
-
-save {
-if {[matchattr $hand nm]} {
-	set cmd_status [btcmd:status $chan $hand "save" 0]
-if {$cmd_status == "1"} { 
-	return 
-}
-	set chan1 "$chan"
-	blacktools:tell $nick "prv" $hand $chan $chan1 save.1 none
-	save
-	}
-}
-
-restart {
-if {[matchattr $hand nm]} {
-	set cmd_status [btcmd:status $chan $hand "restart" 0]
-if {$cmd_status == "1"} { 
-	return 
-}
-	set chan1 "$chan"
-	blacktools:tell $nick "prv" $hand $chan $chan1 restart.1 none
-	utimer 3 [list restart]
-	}
-}
-
-
-rehash {
-if {[matchattr $hand nm]} {
-	set cmd_status [btcmd:status $chan $hand "rehash" 0]
-if {$cmd_status == "1"} { 
-	return 
-}
-	set chan1 "$chan"
-	blacktools:tell $nick "prv" $hand $chan $chan1 rehash.1 none
-	rehash
-	}
-}
-
-nick {
-if {[matchattr $hand nm]} {
-	set thenick [lindex [split $arg] 1]
-	set chan1 $chan
-	set type 2
-	tempnick:process $thenick $nick "prv" $hand $chan $chan1 $type
-	}
-}
-
-msg {
-if {[matchattr $hand nmo]} {
-	set who [lindex [split $arg] 1]	
-	set chan1 "$chan"
-	set type 2
-	set msg [join [lrange [split $arg] 2 end]]
-	msg:process $nick "prv" $hand $chan $chan1 $who $msg $type
-	}
-}
-
-omsg {
-if {[matchattr $hand nmo|OMA $chan]} {
-	set who [lindex [split $arg] 2]	
-	set chan1 "$chan"
-	set type 2
-	set msg [join [lrange [split $arg] 3 end]]
-	omsg:process $nick "prv" $hand $chan $chan1 $who $msg $type
-	}
-}
-
-set {
-if {[matchattr $hand nmo|M $chan]} {
-	set flags [lindex [split $arg] 2]
-	set type [join [lrange [split $arg] 3 end]]
-if {$mychan_use == "1"} {
-	set flags [lindex [split $arg] 1]
-	set type [join [lrange [split $arg] 2 end]]
-}
-	set type1 2
-	set chan1 "$chan"
-if {[matchattr $hand mn]} {
-if {[string equal -nocase "global" $chan]} {
-	set chan "$flags"
-	foreach c [channels] {
-	set:process $nick "prv" $hand $c $chan1 $flags $type $type1	
-		}
-		return
-			}
-		}
-	set:process $nick "prv" $hand $chan $chan1 $flags $type $type1
-	}
-}
-
-
-mode {
-if {[matchattr $hand nmo|OMA $chan]} {
-	set modes [lindex [split $arg] 2]
-	set hosts [lindex [split $arg] 3]
-if {$mychan_use == "1"} {
-	set modes [lindex [split $arg] 1]
-	set hosts [lindex [split $arg] 2]
-}
-	set type 2
-	set chan1 "$chan"
-	mode:process $nick "prv" $hand $chan $chan1 $modes $type $hosts
-	}
-}
-
-cycle {
-if {[matchattr $hand nmo|OMA $chan]} {
-	set reason [join [lrange [split $arg] 2 end]]
-if {$mychan_use == "1"} {
-	set reason [join [lrange [split $arg] 1 end]]
-}
-	set chan1 "$chan"
-	cycle:process $nick "prv" $hand $chan $chan1 $reason
-	}
-}
-
-purge {
-if {[matchattr $hand -|M $chan]} {
-	set reason [join [lrange [split $arg] 2 end]]
-if {$mychan_use == "1"} {
-	set reason [join [lrange [split $arg] 1 end]]
-}
-	set chan1 "$chan"
-if {$reason == ""} {
-	blacktools:tell $nick "prv" $hand $chan $chan1 purge.1 none
-	return
-}
-	purge:process $nick "prv" $hand $chan $chan1 $reason
-	}
-}
-
-broadcast {
-if {[matchattr $hand nm]} {
-	set text [join [lrange [split $arg] 2 end]]	
-	set chan1 "$chan"
-	set type 2
-	broadcast:cmd:process $nick "prv" $hand $chan $chan1 $text $type
-	}
-}
-
-act {
-if {[matchattr $hand nmo|MA $chan]} {
-	set text [join [lrange [split $arg] 2 end]]
-	set c [lindex [split $arg] 2]
-if {$mychan_use == "1"} {
-	set text [join [lrange [split $arg] 1 end]]
-	set c [lindex [split $arg] 1]
-}
-	set type 2
-	set chan1 "$chan"
-	act:process $nick "prv" $hand $chan $chan1 $text $type
-	}
-}
-
-say {
-if {[matchattr $hand nmo|MA $chan]} {
-	set text [join [lrange [split $arg] 2 end]]
-	set c [lindex [split $arg] 2]
-if {$mychan_use == "1"} {
-	set text [join [lrange [split $arg] 1 end]]
-	set c [lindex [split $arg] 1]
-}
-	set type 2
-	set chan1 "$chan"
-	say:process $nick "prv" $hand $chan $chan1 $text $type
-	}
-}
-
-v {
-if {[matchattr $hand nmo|VOMA $chan]} {
-	set voicex [join [lrange [split $arg] 2 end]]
-if {$mychan_use == "1"} {
-	set voicex [join [lrange [split $arg] 1 end]]
-}
-	set chan1 "$chan"
-	v:process $nick "prv" $hand $chan $chan1 $voicex
-	}
-}
-
-ho {
-if {[matchattr $hand nmo|OMA $chan]} {
-	set hopex [join [lrange [split $arg] 2 end]]
-if {$mychan_use == "1"} {
-	set hopex [join [lrange [split $arg] 1 end]]
-}
-	set chan1 "$chan"
-	ho:process $nick "prv" $hand $chan $chan1 $hopex
-	}
-}
-
-o {
-if {[matchattr $hand nmo|OMA $chan]} {
-	set opex [join [lrange [split $arg] 2 end]]
-if {$mychan_use == "1"} {
-	set opex [join [lrange [split $arg] 1 end]]
-}
-	set chan1 "$chan"
-	o:process $nick "prv" $hand $chan $chan1 $opex
-	}
-}
-
-private {
-if {[matchattr $hand nmo|M $chan]} {
-	set type 2
-	set chan1 "$chan"
-	set why [lindex [split $arg] 2]
-	set user [lindex [split $arg] 3]
-if {$mychan_use == "1"} {
-	set why [lindex [split $arg] 1]
-	set user [lindex [split $arg] 2]
-}
-	private:process $nick "prv" $hand $chan $chan1 $why $user $type
-	}
-}
-
-myset {
-	foreach c [channels] {
-if {[matchattr $hand nmo|AOMV $c]} {
-	set chan $c
-	}
-}
-
-if {[regexp {^[&#]} $chan] && [validuser $hand]} {
-	set type 2
-	set chan1 "$chan"	
-	set flags [lindex [split $arg] 1]
-	set typez [lindex [split $arg] 2]
-	set chan2 [lindex [split $arg] 3]
-	set arg [join [lrange [split $arg] 2 end]]
-	myset:process $nick "prv" $hand $chan $chan1 $flags $typez $type $chan2 $arg
-	}
-}
-
-uptime {
-if {[matchattr $hand nmo]} {
-	set cmd_status [btcmd:status $chan $hand "uptime" 0]
-if {$cmd_status == "1"} { 
-	return 
-}
-	set getlang [string tolower [getuser $hand XTRA OUTPUT_LANG]]
-if {[matchattr $hand q]} { blacktools:tell $nick "prv" $hand $chan $chan1 gl.glsuspend none
-	return
-}
-if {[matchattr $hand -|q $chan]} { blacktools:tell $nick "prv" $hand $chan $chan1 gl.suspend none
-	return
-}
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
-	set chan1 "$chan"
-	set up [return_time_2 $getlang [expr [unixtime] - $uptime]]
-	set on [return_time_2 $getlang [expr [unixtime] - ${server-online}]]
-	catch {exec uptime} shelluptime
-	set file [open $black(uptime_file) "r"]
-	set data [read -nonewline $file]
-	close $file
-if {$data == ""} {
-	set read_maxup "-"
-	set read_maxon "-"
-} else {
-	set read_maxup [return_time_2 $getlang [lindex [split $data] 0]]
-	set read_maxon [return_time_2 $getlang [lindex [split $data] 1]]
-}
-	blacktools:tell $nick "prv" $hand $chan $chan1 maxup.1 "$up $read_maxup"
-	blacktools:tell $nick "prv" $hand $chan $chan1 maxon.1 "$on $read_maxon"
-	blacktools:tell $nick "prv" $hand $chan $chan1 uptime.2 $shelluptime
-	blacktools:tell $nick "prv" $hand $chan $chan1 uptime.3 $server
-	}
-}
-
-status {
-if {[matchattr $hand nmo]} {
-	status:process $nick "prv" $hand $chan
-	}
-}
-
-t {
-if {[matchattr $hand nmo|OMA $chan]} {
-	set topics [join [lrange [split $arg] 2 end]]
-if {$mychan_use == "1"} {
-	set topics [join [lrange [split $arg] 1 end]]
-}
-	set type 2
-	set chan1 "$chan"
-	t:process $nick "prv" $hand $chan $chan1 $topics $type
-	}
-}
-
-tcl {
-if {[matchattr $hand n]} {
-	set type 2
-	set chan1 "$chan"
-	set the_script [lindex [split $arg] 2]
-	set who [lindex [split $arg] 1]
-	tcl:process $nick "prv" $hand $chan $chan1 $type $the_script $who
-	}
-}
-
-anunt {
-if {[matchattr $hand nmo|M $chan]} {
-	set type 2
-	set chan1 "$chan"
-	set who [lindex [split $arg] 2]
-	set message [join [lrange [split $arg] 3 end]]
-	set number [lindex [split $arg] 3]
-if {$mychan_use == "1"} {
-	set who [lindex [split $arg] 1]
-	set message [join [lrange [split $arg] 2 end]]
-	set number [lindex [split $arg] 2]
-}
-	anunt:process $nick "prv" $hand $chan $chan1 $who $message $number $type
-	}
-}
-
-h {
-if {[matchattr $hand nmo|MOAV $chan]} {
-	set chan1 "$chan"
-	set type 2
-	set command [lindex [split $arg] 1]
-if {[regexp {^[&#]} $command]} {
-	set chan $command
-	set command [lindex [split $arg] 2]
-}
-	h:process $nick "prv" $hand $chan $chan1 $command $type
-	}
-}
-
-cp {
-if {[matchattr $hand nm]} {
-	set type 2
-	set chan1 $chan
-	set what [lindex [split $arg] 1]
-	set from [lindex [split $arg] 2]
-	set to [lindex [split $arg] 3]
-	cp:process $nick "prv" $hand $chan $chan1 $type $what $from $to
-	}
-}
-
-banstats {
-if {[matchattr $hand nmo|AOM $chan]} {
-	set next [lindex [split $arg] 2]
-if {$mychan_use == "1"} {
-	set next [lindex [split $arg] 1]
-}
-	set cmd ""
-	set type 2
-	set chan1 "$chan"
-if {[string equal -nocase $next "reset"]} {
-	set cmd "reset"
-}
-if {[string equal -nocase $next "total"]} {
-	set next [lindex [split $arg] 3]
-if {$mychan_use == "1"} {
-	set next [lindex [split $arg] 2]
-}
-	set cmd "total"
-}
-	banstats:process $nick "prv" $hand $chan $chan1 $cmd $type $next
-	}
-}
-
-troll {
-if {[matchattr $hand nmo|AOM $chan]} {
-	set tr [lindex [split $arg] 2]
-if {$mychan_use == "1"} {
-	set tr [lindex [split $arg] 1]
-}
-	set chan1 "$chan"
-	set type 2
-	userhost:act $tr $nick $hand "prv" $chan $chan1 $type "1440" "troll" "" "0"
-	}
-}
-
-limit {
-if {[matchattr $hand nmo|M $chan]} {
-	set why [lindex [split $arg] 1]
-	set lm [lindex [split $arg] 2]
-	set type 2
-	set chan1 "$chan"
-if {[regexp {^[&#]} $why] && [matchattr $hand nmo|M $why]} {
-	set chan "$why"
-	set why [lindex [split $arg] 2]
-	set lm [lindex [split $arg] 3]
-		}
-	limit:process $nick "prv" $hand $chan $chan1 $why $lm $type
-	}
-}
-
-bt {
-if {[matchattr $hand nm]} {
-	set chan1 "$chan"
-	set type 2
-	set who [lindex [split $arg] 1]
-	set message [join [lrange [split $arg] 2 end]]
-	set number [lindex [split $arg] 2]
-	broadcast:process $nick "prv" $hand $chan $chan1 $who $message $number $type
-	}
-}
-
-us {
-if {[matchattr $hand nmo|MA $chan]} {
-	set type 2
-	set chan1 "$chan"
-	set users [lindex [split $arg] 2]
-if {$mychan_use == "1"} {
-	set users [lindex [split $arg] 1]
-}
-	us:process $nick "prv" $hand $chan $chan1 $users $type
-	}
-}
-
-s {
-if {[matchattr $hand nmo|MA $chan]} {
-	set type 2
-	set chan1 "$chan"
-	set user [lindex [split $arg] 2]
-	set suspend_time [lindex [split $arg] 3]
-	set suspend_reason [join [lrange [split $arg] 4 end]]
-if {$mychan_use == "1"} {
-	set user [lindex [split $arg] 1]
-	set suspend_time [lindex [split $arg] 2]
-	set suspend_reason [join [lrange [split $arg] 3 end]]
-}
-if {![regexp {^[0-9]} $suspend_time]} {
-	set suspend_reason [join [lrange [split $arg] 3 end]]
-if {$mychan_use == "1"} {
-	set suspend_reason [join [lrange [split $arg] 2 end]]
-			}
-		}
-	s:process $nick "prv" $hand $chan $chan1 $user $type $suspend_time $suspend_reason
-	}
-}
-
-guestnick {
-if {[matchattr $hand nmo|M $chan]} {
-	set who [lindex [split $arg] 2]
-	set modul "guestnick"
-	set type 2
-	set chan1 $chan
-	set gnick [join [lrange [split $arg] 3 end]]
-	set number [lindex [split $arg] 3]
-if {$mychan_use == "1"} {
-	set who [lindex [split $arg] 1]
-	set gnick [join [lrange [split $arg] 2 end]]
-	set number [lindex [split $arg] 2]
-}
-	guestnick:process $nick "prv" $hand $chan $chan1 $who $gnick $type $number $modul
-	}
-}
-
-badhost {
-if {[matchattr $hand nmo|M $chan]} {
-	set type 2
-	set chan1 "$chan"
-	set why [lindex [split $arg] 2]
-	set badh [join [lrange [split $arg] 3 end]]
-	set number [lindex [split $arg] 3]
-if {$mychan_use == "1"} {
-	set why [lindex [split $arg] 1]
-	set badh [join [lrange [split $arg] 2 end]]
-	set number [lindex [split $arg] 2]
-}
-	prot:module:process $nick "prv" $hand $chan $chan1 $why $badh $type $number "badhost"
-	}
-}
-
-badrealname {
-if {[matchattr $hand nmo|M $chan]} {
-	set type 2
-	set chan1 "$chan"
-	set why [lindex [split $arg] 2]
-	set badf [join [lrange [split $arg] 3 end]]
-	set number [lindex [split $arg] 3]
-if {$mychan_use == "1"} {
-	set why [lindex [split $arg] 1]
-	set badf [join [lrange [split $arg] 2 end]]
-	set number [lindex [split $arg] 2]
-}
-	prot:module:process $nick "prv" $hand $chan $chan1 $why $badf $type $number "badrealname"
-	}
-}
-
-badquitpart {
-if {[matchattr $hand nmo|M $chan]} {
-	set type 2
-	set chan1 "$chan"
-	set why [lindex [split $arg] 2]
-	set badq [join [lrange [split $arg] 3 end]]
-	set number [lindex [split $arg] 3]
-if {$mychan_use == "1"} {
-	set why [lindex [split $arg] 1]
-	set badq [join [lrange [split $arg] 2 end]]
-	set number [lindex [split $arg] 2]
-}
-	prot:module:process $nick "prv" $hand $chan $chan1 $why $badq $type $number "badquitpart"
-	}
-}
-
-badident {
-if {[matchattr $hand nmo|M $chan]} {
-	set type 2
-	set chan1 "$chan"
-	set why [lindex [split $arg] 2]
-	set badi [join [lrange [split $arg] 3 end]]
-	set number [lindex [split $arg] 3]
-if {$mychan_use == "1"} {
-	set why [lindex [split $arg] 1]
-	set badi [join [lrange [split $arg] 2 end]]
-	set number [lindex [split $arg] 2]
-}
-	prot:module:process $nick "prv" $hand $chan $chan1 $why $badi $type $number "badident"
-	}
-}
-
-badnick {
-if {[matchattr $hand nmo|M $chan]} {
-	set type 2
-	set chan1 "$chan"
-	set why [lindex [split $arg] 2]
-	set badn [join [lrange [split $arg] 3 end]]
-	set number [lindex [split $arg] 3]
-if {$mychan_use == "1"} {
-	set why [lindex [split $arg] 1]
-	set badn [join [lrange [split $arg] 2 end]]
-	set number [lindex [split $arg] 2]
-}
-	prot:module:process $nick "prv" $hand $chan $chan1 $why $badn $type $number "badnick"
-	}
-}
-
-badword {
-if {[matchattr $hand nmo|M $chan]} {
-	set type 2
-	set chan1 "$chan"
-	set why [lindex [split $arg] 2]
-	set badw [join [lrange [split $arg] 3 end]]
-	set number [lindex [split $arg] 3]
-if {$mychan_use == "1"} {
-	set why [lindex [split $arg] 1]
-	set badw [join [lrange [split $arg] 2 end]]
-	set number [lindex [split $arg] 2]
-}
-	prot:module:process $nick "prv" $hand $chan $chan1 $why $badw $type $number "badword"
-	}
-}
-
-info {
-if {[matchattr $hand nmo|MAOV $chan]} {
-	set user [lindex [split $arg] 2]
-	set infouser [lindex [split $arg] 2]
-if {$mychan_use == "1"} {
-	set user [lindex [split $arg] 1]
-	set infouser [lindex [split $arg] 1]
-}
-if {![regexp {^[&#]} $chan]} {
-	set user $chan
-	}
-	set type 2
-	set chan1 "$chan"
-if {[regexp {^[&#]} $chan] && [matchattr $hand nmo|MAO $chan] && ($infouser == "")} {
-	info:process:chan $nick "prv" $hand $chan $chan1
-	return
-		}
-	info:process $nick "prv" $hand $chan $chan1 $user $type
-	}
-}
-
-antipub {
-if {[matchattr $hand nmo|M $chan]} {
-	set type 2
-	set chan1 "$chan"
-	set why [lindex [split $arg] 2]
-	set except [join [lrange [split $arg] 3 end]]
-	set number [lindex [split $arg] 3]
-if {$mychan_use == "1"} {
-	set why [lindex [split $arg] 1]
-	set except [join [lrange [split $arg] 2 end]]
-	set number [lindex [split $arg] 2]
-}
-	prot:module:process $nick "prv" $hand $chan $chan1 $why $except $type $number "antipub"
-	}
-}
-
-badchan {
-if {[matchattr $hand nmo|M $chan]} {
-	set why [lindex [split $arg] 2]
-	set type1 2
-	set chan1 "$chan"
-	set bdchan [lindex [split $arg] 3]
-	set type [lindex [split $arg] 4]
-	set reason [join [lrange [split $arg] 4 end]]
-if {[string equal -nocase $type "global"]} {
-	set reason [join [lrange [split $arg] 5 end]]
-	}
-if {$mychan_use == "1"} {
-	set why [lindex [split $arg] 1]
-	set bdchan [lindex [split $arg] 2]
-	set type [lindex [split $arg] 3]
-	set reason [join [lrange [split $arg] 3 end]]
-if {[string equal -nocase $type "global"]} {
-	set reason [join [lrange [split $arg] 4 end]]
-	}
-}
-if {![regexp {^[&#]} $chan] && [matchattr $hand nmo]} {
-	set why $chan
-	set bdchan [lindex [split $arg] 2]
-	set type [lindex [split $arg] 3]
-	set reason [join [lrange [split $arg] 3 end]]
-if {[string equal -nocase $type "global"]} {
-	set reason [join [lrange [split $arg] 4 end]]
-	}
-if {$mychan_use == "1"} {
-	set bdchan [lindex [split $arg] 1]
-	set type [lindex [split $arg] 2]
-	set reason [join [lrange [split $arg] 2 end]]
-if {[string equal -nocase $type "global"]} {
-	set reason [join [lrange [split $arg] 3 end]]
-		}
-	}
-}
-	badchan:process $nick "prv" $hand $chan $chan1 $why $bdchan $type1 $type $reason
-	}
-}
-
-unset {
-if {[matchattr $hand nmo|M $chan]} {
-	set setting [lindex [split $arg] 2]
-if {$mychan_use == "1"} {
-	set setting [lindex [split $arg] 1]
-}
-	set chan1 $chan
-	set type 2
-if {[string equal -nocase $setting "global"] && [matchattr $hand nm]} {
-	set setting [lindex [split $arg] 2]
-foreach c [channels] {
-	unset:process $nick "prv" $hand $c $chan1 $setting $type
-			}
-		return
-	}
-	unset:process $nick "prv" $hand $chan $chan1 $setting $type
-	}
-}
-
-greet {
-if {[matchattr $hand nmo|M $chan]} {
-	set who [lindex [split $arg] 2]
-	set modul "greet"
-	set type 2
-	set chan1 $chan
-	set greet [join [lrange [split $arg] 3 end]]
-if {$mychan_use == "1"} {
-	set who [lindex [split $arg] 1]
-	set greet [join [lrange [split $arg] 2 end]]
-}
-	othermodule:process $nick "prv" $hand $chan $chan1 $who $greet $type $modul	
-	}
-}
-
-leave {
-if {[matchattr $hand nmo|M $chan]} {
-	set who [lindex [split $arg] 2]
-	set modul "leave"
-	set type 2
-	set chan1 $chan
-	set leave [join [lrange [split $arg] 3 end]]
-if {$mychan_use == "1"} {
-	set who [lindex [split $arg] 1]
-	set leave [join [lrange [split $arg] 2 end]]
-}
-	othermodule:process $nick "prv" $hand $chan $chan1 $who $leave $type $modul		
-	}
-}
-
-topic {
-if {[matchattr $hand nmo|M $chan]} {
-	set who [lindex [split $arg] 2]
-	set modul "topic"
-	set type 2
-	set chan1 $chan
-	set topic [join [lrange [split $arg] 3 end]]
-if {$mychan_use == "1"} {
-	set who [lindex [split $arg] 1]
-	set topic [join [lrange [split $arg] 2 end]]
-}
-	othermodule:process $nick "prv" $hand $chan $chan1 $who $topic $type $modul	
-	}
-}
-
-vr {
-if {[matchattr $hand nmo|OMA $chan]} {
-	set vr [lindex [split $arg] 2]
-	set chan1 "$chan"
-	set type 2
-if {$mychan_use == "1"} {
-	set vr [lindex [split $arg] 1]
-}
-	userhost:act $vr $nick $hand "prv" $chan $chan1 $type $black(vr:bantime) "vr" "" "0"
-	}
-}
-
-timer {
-if {[matchattr $hand nm]} {
-	set chan1 $chan
-	set cmd [lindex [split $arg] 1]
-	set pid [lindex [split $arg] 2]
-	set timer_args [join [lrange [split $arg] 4 end]]
-	set type 2
-	timer:process $nick "prv" $hand $chan $chan1 $cmd $pid $timer_args $type
-	}
-}
-
-i {
-if {[matchattr $hand nmo|VAOM $chan]} {
-	set type 2
-	set chan1 "$chan"
-	set inick [lindex [split $arg] 2]
-if {$mychan_use == "1"} {
-	set inick [lindex [split $arg] 1]
-}
-if {[regexp {^[&#]} $inick] && [matchattr $hand nmo|VAOM $inick]} {
-	set chan "$inick"
-	set inick [lindex [split $arg] 3]
-}
-	i:process $nick "prv" $hand $chan $chan1 $inick $type
-	}
-}
-
-next {
-if {[matchattr $hand nmo|MAO $chan]} {
-	set option [lindex [split $arg] 2]
-if {$mychan_use == "1"} {
-	set option [lindex [split $arg] 1]
-}
-	set chan1 $chan
-		nextpublic:process $nick "prv" $hand $chan $chan1 $option
-	}
-}
-
-helped {
-if {[matchattr $hand nmo|MAO $chan]} {
-	set user [lindex [split $arg] 2]
-if {$mychan_use == "1"} {
-	set user [lindex [split $arg] 1]
-}
-	set chan1 $chan
-	set type 1
-	helpedpublic:process $nick "prv" $hand $chan $chan1 $user $type
-	}
-}
-
-noidle {
-if {[matchattr $hand nmo|MAO $chan]} {
-	set user [lindex [split $arg] 2]
-if {$mychan_use == "1"} {
-	set user [lindex [split $arg] 1]
-}
-	set chan1 $chan
-	set type 2
-	noidlepublic:process $nick "prv" $hand $chan $chan1 $user $type
-	}
-}
-
-skip {
-if {[matchattr $hand nmo|MAO $chan]} {
-	set user [lindex [split $arg] 2]
-if {$mychan_use == "1"} {
-	set user [lindex [split $arg] 1]
-}
-	set chan1 $chan
-	set type 2
-	skippublic:process $nick "prv" $hand $chan $chan1 $user	$type
-				}
-			}		
-
-activ {
-if {[matchattr $hand nmo|AOMV $chan]} {
-	set type 2
-	set chan1 "$chan"
-	set user [lindex [split $arg] 2]
-	set option [lindex [split $arg] 3]
-if {$mychan_use == "1"} {
-	set user [lindex [split $arg] 1]
-	set option [lindex [split $arg] 2]
-		}
-	activ:process $nick "prv" $hand $chan $chan1 $user $option $type
-	}
-}
-topwords {
-if {[matchattr $hand nmo|AOMV $chan]} {
-	set next [lindex [split $arg] 2]
-	set cmd ""
-	set type 2
-	set chan1 "$chan"
-if {$mychan_use == "1"} {
-	set next [lindex [split $arg] 1]
-}
-if {[string equal -nocase $next "reset"] && [matchattr $hand nmo|M $chan]} {
-	set cmd "reset"
-}
-if {[string equal -nocase $next "total"]} {
-	set next [lindex [split $arg] 3]
-if {$mychan_use == "1"} {
-	set next [lindex [split $arg] 2]
-}
-	set cmd "total"
-}
-if {[string equal -nocase $next "add"] && [matchattr $hand nmo|M $next]} {
-	set next [lindex [split $arg] 3]
-if {$mychan_use == "1"} {
-	set next [lindex [split $arg] 2]
-}
-	set cmd "add"
-}
-if {[string equal -nocase $next "del"] && [matchattr $hand nmo|M $next]} {
-	set next [lindex [split $arg] 3]
-if {$mychan_use == "1"} {
-	set next [lindex [split $arg] 2]
-}
-	set cmd "del"
-}
-	topwords:process $nick "prv" $hand $chan $chan1 $cmd $type $next
-	}	
-}
-
-ignore {
-if {[matchattr $hand nmo|M $chan]} {
-	set chan1 "$chan"
-	set type 2
-	set what [lindex [split $arg] 1]
-	set mask [lindex [split $arg] 2]
-	set time [lindex [split $arg] 3]	
-	set reason [join [lrange [split $arg] 4 end]]
-if {![regexp {^[0-9]} $time]} {
-	set reason [join [lrange [split $arg] 3 end]]
-}
-	ignore:process $nick "prv" $hand $chan $chan1 $what $mask $time $reason $type
-			}
-		}
-chat {
-if {[matchattr $hand nm]} {
-	set cmd_status [btcmd:status $chan $hand "chat" 0]
-if {$cmd_status == "1"} { 
-	return 
-}
-	set chan1 $chan
-	*ctcp:CHAT $nick $host $hand $botnick CHAT $arg
-	blacktools:tell $nick "prv" $hand $chan $chan1 chat.1 none
-			} 
-		}
-hello {
-if {![file exists $userfile]} {
-	blacktools:hello $nick $host $hand
-			}
-		}
-pass {
-if {[validuser $hand]} {
-	set pass [lindex [split $arg] 1]
-if {$pass == ""} {
-	return
-}
-if {[getuser $hand pass] != ""} {
-	return
-}
-	setuser $hand PASS $pass
-	blacktools:tell $nick "prv" $hand "" "" pass.1 $pass
-			}
-		}
-	}
-}
-
-##############
-#########################################################################
-##   END                                                               ##
-#########################################################################