From 25e144a02c3b285cec9f444d17033b6222a53e79 Mon Sep 17 00:00:00 2001
From: Tom Ryder <tom@sanctum.geek.nz>
Date: Wed, 3 Aug 2016 18:03:46 +1200
Subject: Add dr(6)

Tabletop dice rolling
---
 games/dr | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)
 create mode 100755 games/dr

(limited to 'games')

diff --git a/games/dr b/games/dr
new file mode 100755
index 00000000..785ec2bd
--- /dev/null
+++ b/games/dr
@@ -0,0 +1,34 @@
+#!/bin/sh
+# Roll D&D-style dice in a ndn+n formula, e.g. 10d6+2
+
+# Need exactly one argument
+[ "$#" -eq 1 ] || exit 2
+
+# Arcane string chopping
+n=1 a=0 nd=${1%+*} d=${nd#*d}
+[ "${nd%d*}" != "" ] && n=${nd%d*}
+[ "${1#*+}" = "$1" ] || a=${1#*+}
+
+# Check number of roles and addendum make sense
+[ "$((n > 0 && a >= 0))" -eq 1 ] || exit 2
+
+# Check this is a real die you can actually roll
+case $d in
+    4|6|8|10|12|20) : ;;
+    *) exit 2 ;;
+esac
+
+# Roll the dice the appropriate number of times using rndi(1)
+i=0 t=0
+while [ "$i" -lt "$n" ] ; do
+    seed=$(rnds)
+    r=$(rndi 1 "$d" "$seed")
+    t=$((t + r))
+    i=$((i + 1))
+done
+
+# Add the addendum
+t=$((t + a))
+
+# Print it
+printf '%u\n' "$t"
-- 
cgit v1.2.3