Changeset 898

Timestamp:

03/27/08 06:48:16 (10 months ago)

Author:

james

Message:

add global bias option (just for complex plugins for now)

Location:

trunk/modules

Files:

• plugins.tcl (modified) (2 diffs)
• settings.sample.tcl (modified) (1 diff)

trunk/modules/plugins.tcl

@@ -201 +201 @@
   bMotion_putloglev 3 * "Looking for a complex plugin to match !$text!"
 
+        set bias [bMotion_setting_get "bias"]
+        if {$bias == ""} {
+                set bias 1
+        }
+
   foreach key $s {
     if {$key == "dummy"} { continue }
@@ -213 +218 @@
       if [regexp -nocase $rexp $text] {
         set c [rand 100]
+                                set chance [expr $chance * $bias]
         bMotion_putloglev 4 * "matched complex:$key, chance is $chance, c is $c"
         if {$chance > $c} {

trunk/modules/settings.sample.tcl

@@ -151 +151 @@
 # so that it can talk to them (when they're in the same channel)
 set bMotion_interbot_enable 1
+
+# bias the output probability
+# 0 = never trigger
+# 1 = normal
+# 2 = about twice as likely
+# floating-point is fine
+set bMotionSettings(bias) 1