summaryrefslogtreecommitdiffstats
path: root/decision.tcl
diff options
context:
space:
mode:
authorlookshe <lookshe@fumuga.com>2012-09-09 21:02:03 +0200
committerlookshe <lookshe@fumuga.com>2012-09-09 21:02:03 +0200
commit009a87ffad8d3ea804dba65aedef7fddec7aa6d2 (patch)
tree4225ac012adf5eecca15f81756f69a16922e383e /decision.tcl
parente92f4f4425e9afab798910880c146567c22898c8 (diff)
don't know what changed, but there's something ;-)
Diffstat (limited to 'decision.tcl')
-rw-r--r--decision.tcl5
1 files changed, 4 insertions, 1 deletions
diff --git a/decision.tcl b/decision.tcl
index f0eb41c..8cf6967 100644
--- a/decision.tcl
+++ b/decision.tcl
@@ -72,6 +72,9 @@ if {[info exists do_dec($nick:$chan)]} {
}
set allargs [string map {" " _} $arguments]
+ set allargs [string map {"\[" _} $allargs]
+ set allargs [string map {"]" _} $allargs]
+#putlog "all: $allargs"
set arguments [split $arguments]
set count 1
set klammer_count 0
@@ -97,7 +100,7 @@ if {[info exists do_dec($nick:$chan)]} {
set myrand [rand $klammer_count]
if {[info exists do_dec($allargs)]} {
set myrand $do_dec($allargs)
- timer 60 "unset do_dec($allargs)"
+ #timer 1 "unset do_dec($allargs)"
} else {
set do_dec($allargs) $myrand
timer 60 "unset do_dec($allargs)"