diff options
-rw-r--r-- | decision.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/decision.tcl b/decision.tcl index 92fbdb2..f0eb41c 100644 --- a/decision.tcl +++ b/decision.tcl @@ -41,7 +41,7 @@ proc proc_zufall {nick host hand chan arguments} { } set arg $arguments set myran 0 - if {$arg == 0} { + if {$arg <= 0} { set arg 6 } set myran [expr [rand $arg] + 1] |