Changeset 265 for trunk/modules/plugins.tcl

Timestamp:

09/16/03 05:52:42 (9 years ago)

Author:

jamesoff

Message:

more debug

File:

• trunk/modules/plugins.tcl (modified) (2 diffs)

trunk/modules/plugins.tcl

@@ -75 +75 @@
 ## Find a simple plugin
 proc bMotion_plugin_find_simple { text lang } {
+  bMotion_putloglev 3 * "bMotion_plugin_find_simple: text = $text, lang = $lang"
   global bMotion_plugins_simple botnicks
   set s [lsort [array names bMotion_plugins_simple]]
@@ -90 +91 @@
       if [regexp -nocase $rexp $text] {
         set c [rand 100]
+        bMotion_putloglev 4 * "simple plugin $key matches"
         if {$chance > $c} {
+          bMotion_putloglev 4 * "  `- firing"
           return $response
         }