From 3ca035eb933a6623cc2bd64758bb411d034130e1 Mon Sep 17 00:00:00 2001 From: lookshe Date: Mon, 6 Feb 2012 12:35:29 +0100 Subject: Fix for numbers less then zero in !zufall --- decision.tcl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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] -- cgit v1.2.3