diff options
author | lookshe <lookshe@fumuga.com> | 2012-09-09 21:02:03 +0200 |
---|---|---|
committer | lookshe <lookshe@fumuga.com> | 2012-09-09 21:02:03 +0200 |
commit | 009a87ffad8d3ea804dba65aedef7fddec7aa6d2 (patch) | |
tree | 4225ac012adf5eecca15f81756f69a16922e383e /decision.tcl | |
parent | e92f4f4425e9afab798910880c146567c22898c8 (diff) |
don't know what changed, but there's something ;-)
Diffstat (limited to 'decision.tcl')
-rw-r--r-- | decision.tcl | 5 |
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)" |