From ed521c96a03dad1f860bcc818482eed0ffadb378 Mon Sep 17 00:00:00 2001
From: lookshe <mail@lookshe.org>
Date: Mon, 6 Feb 2012 12:28:12 +0100
Subject: removed unwanted entry from filelist added !random to decision

---
 decision.tcl | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)

(limited to 'decision.tcl')

diff --git a/decision.tcl b/decision.tcl
index 80f7d6c..92fbdb2 100644
--- a/decision.tcl
+++ b/decision.tcl
@@ -15,6 +15,38 @@
 
 
 bind pub - \[ proc_decision
+bind pub - !zufall proc_zufall
+bind pub - !random proc_zufall
+
+proc proc_zufall {nick host hand chan arguments} {
+   global do_dec
+   if {[info exists do_dec($nick:$chan)]} {
+      set act_do_dec $do_dec($nick:$chan)
+      if {$act_do_dec < 3} {
+         incr act_do_dec
+         set do_dec($nick:$chan) $act_do_dec
+      } else {
+         putserv "NOTICE $nick :no flooding!"
+         return 0
+      }
+   } else {
+      set do_dec($nick:$chan) 1
+      timer 10 "unset do_dec($nick:$chan)"
+   }
+   if {$arguments == ""} {
+      set arguments 0
+   }
+   if {![string is integer $arguments]} {
+      set arguments 0
+   }
+   set arg $arguments
+   set myran 0
+   if {$arg == 0} {
+      set arg 6
+   }
+   set myran [expr [rand $arg] + 1]
+   putserv "PRIVMSG $chan :Der Würfel sagt: $myran ($arg)"
+}
 
 proc proc_decision {nick host hand chan arguments} {
 
-- 
cgit v1.2.3