Add files via upload

BlackTools 2.5.3/BlackTools/Modules/BT.Gag.tcl

@@ -161,12 +161,7 @@ if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
 	putserv "PRIVMSG $chan :$gag_chan_message"
 	putserv "PRIVMSG $gagger :$gag_user_message"
 	pushmode $chan +b $mask
-while {$temp_num == 0} {
-	set get [blacktools:ban:find_id $num]
-if {$get == "$num"} {
-	set num [expr $num + 1]
-	} else { set temp_num 1 }
-}
+	set num [blacktools:ban:find_id]
 	blacktools:addban $nick $mask $hand $chan $chan1 $return_time "GAG" "0" "0" $show_reason "0" "" "" "" 0 $num
 
 	set backchan [join [setting:get $chan backchan]]

BlackTools 2.5.3/BlackTools/Modules/BT.Next.tcl

@@ -37,6 +37,8 @@ if {[info exists black(next:$chan:list)]} {
 if {[lsearch -exact [string tolower [split $black(next:$chan:list)]]  [string tolower $nick]] == -1} {
 	set black(next:$chan:list) "$black(next:$chan:list) $nick"
 	set black(next:$chan:$nick:time) $time
+	} else {
+	set black(next:$chan:$nick:time) $time
 	}
 } else {
 	set black(next:$chan:list) $nick