Add files via upload

BlackTools/Commands/BT.ChanCmds.tcl

@@ -27,7 +27,7 @@ if {[isbotnick $nick]} { return }
 if {$return == "0"} {
 		return
 }
-switch -exact -- [string tolower $cmd] {
+switch [string tolower $cmd] {
 
 exempt {
 if {[matchattr $hand mno|M $chan]} {
@@ -1648,8 +1648,9 @@ if {[matchattr $hand q]} { blacktools:tell $nick $host $hand $chan $chan1 gl.gls
 	return
 }
 	set what [lindex [split $arg] 1]
+	set option [lindex [split $arg] 2]
 	set type 0
-	update:process $nick $char $hand $chan $chan $what $type
+	update:process $nick $char $hand $chan $chan [list $what $option] $type
 	}
 }
 

BlackTools/Commands/BT.ForCmds.tcl

@@ -31,8 +31,9 @@ if {[matchattr $hand q]} { blacktools:tell $nick $host $hand $chan $chan1 gl.gls
 	return
 }
 	set what [lindex [split $arg] 3]
+	set option [lindex [split $arg] 4]
 	set type 1
-	update:process $nick $host $hand $chan $chan $what $type
+	update:process $nick $host $hand $chan $chan [list $what $option] $type
 	}
 }
 

BlackTools/Commands/BT.MeCmds.tcl

@@ -29,8 +29,9 @@ if {[matchattr $hand q]} { blacktools:tell $nick $host $hand $chan $chan1 gl.gls
 	return
 }
 	set what [lindex [split $arg] 2]
+	set option [lindex [split $arg] 3]
 	set type 1
-	update:process $nick $host $hand $chan $chan $what $type
+	update:process $nick $host $hand $chan $chan [list $what $option] $type
 	}
 }
 

BlackTools/Commands/BT.PrvCmds.tcl

@@ -40,8 +40,9 @@ if {[matchattr $hand q]} { blacktools:tell $nick $host $hand $chan $chan1 gl.gls
 	return
 }
 	set what [lindex [split $arg] 2]
+	set option [lindex [split $arg] 3]
 	set type 2
-	update:process $nick "prv" $hand $chan $chan $what $type
+	update:process $nick "prv" $hand $chan $chan [list $what $option] $type
 	}
 }