Changeset 251 for trunk/modules/flood.tcl

Timestamp:

09/10/03 06:55:52 (9 years ago)

Author:

jamesoff

Message:

tcl errors when someone reached top flood tier

File:

• trunk/modules/flood.tcl (modified) (1 diff)

trunk/modules/flood.tcl

@@ -210 +210 @@
 
 proc bMotion_flood_check { nick } {
+  bMotion_putloglev 3 * "checking flood for $nick"
   set flood [bMotion_flood_get $nick]
   set chance 2
   if {$flood > 35} {
-    #sendnote "bMotion" "JamesOff" "bMotion added an ignore on $nick for half an hour"
-    set ignorehost [maskhost $host]
-    newignore $ignorehost "bMotion" "Flooding bmotion" 30
-    #puthelp "NOTICE $nick :Sorry, you're flooding bMotion too much. I'll be ignoring you for a bit."
     set chance -1
   }
+
   if {$flood > 25} {
     set chance -1
   }
+
   if {$flood > 15} {
     set chance 1