Update BT.Seen.tcl

BlackTools/Modules/BT.Seen.tcl

@@ -136,6 +136,13 @@ if {$line != ""} {
 	set readhost [lindex [split $line] 3]
 	set chanentry [lindex [split $line] 1]
 	set time [lindex [split $line] 4]
+ if {[string tolower $chanentry] != [string tolower $chan]} {
+ 	set chanmode [getchanmode $chanentry]
+if {[string match -nocase "*p*" $chanmode] || [string match -nocase "*s*" $chanmode]} {
+	blacktools:tell $nick $host $hand $chan $chan1 seen.18 "$what"
+	return
+	}
+}
 if {[info exists entry]} {
 if {[lsearch -exact [string tolower "$i%$userentry%$readhost%$time"] [string tolower $entry]] == "-1"} {
 	lappend entry "$i%$userentry%$readhost%$time"
@@ -767,4 +774,4 @@ if {$search_it > -1} {
 			}
 		}
 	}
-}
+}