Add files via upload

BlackTools/Modules/BT.Idle.tcl

@@ -213,6 +213,7 @@ proc antidle:module {chans} {
 	set channels ""
 foreach chan $chans {
 if {[validchan $chan]} {
+if {[info exists black(secure_mode:$chan)]} {continue}
 	lappend channels $chan
 		}
 	}

BlackTools/Modules/BT.SecureMode.tcl

@@ -82,6 +82,13 @@ if {[onchan $botnick $chan]} {
 	set chanmode [getchanmode $chan]
 if {[string match -nocase "*D*" $chanmode] && [string match -nocase "*m*" $chanmode]} {
 	set secure_act 1
+if {![info exists black(secure_mode:$chan)]} {
+	set black(secure_mode:$chan) 1
+}
+			} else {
+if {[info exists black(secure_mode:$chan)]} {
+	unset black(secure_mode:$chan)
+				}		
 			}
 		}	
 	}