diff options
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)" |