Resolve Issue #9: Filter repetitive messages

carlbennett · Sep 26, 2015 · e2ae40c · e2ae40c
1 parent 014c031
commit e2ae40c
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 0 deletions.
diff --git a/.BNRBot.rbuistate b/.BNRBot.rbuistate
diff --git a/Modules/Packets.rbbas b/Modules/Packets.rbbas
@@ -1247,11 +1247,14 @@ Protected Module Packets
 		    // If bTmp = True then they are talking at most 0.4 seconds after entering.
 
 		    If dTmp <> Nil Then
+		      If Sock.Config.SpamPrevention = True And Text = dTmp.Value("LastMessage") Then bTmp = True
 		      dTmp.Value("LastMessageTime") = Microseconds()
 		      dTmp.Value("LastMessageType") = EventID
 		      dTmp.Value("LastMessage") = Text
 		    End If
 
+		    // If bTmp = True now then they may also be repeating their message.
+
 		    If BitAnd(Flags, &H20) <= 0 And bTmp = False Then
 		      If BitAnd(Flags, &H09) > 0 Then
 		        colorA = Colors.Teal
@@ -1375,11 +1378,14 @@ Protected Module Packets
 		    // If bTmp = True then they are talking at most 0.4 seconds after entering.
 
 		    If dTmp <> Nil Then
+		      If Sock.Config.SpamPrevention = True And Text = dTmp.Value("LastMessage") Then bTmp = True
 		      dTmp.Value("LastMessageTime") = Microseconds()
 		      dTmp.Value("LastMessageType") = EventID
 		      dTmp.Value("LastMessage") = Text
 		    End If
 
+		    // If bTmp = True now then they may also be repeating their message.
+
 		    If BitAnd(Flags, &H20) <= 0 And bTmp = False Then
 		      If BitAnd(Flags, &H09) > 0 Then
 		        colorA = Colors.Teal