blob: 1292bf2733dc0a3936507e835906940532b71a8f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
(ns votann-battle-simulator.util)
(defn roll-d6 [n]
(loop [i 0
rolls ()]
(if (>= i n)
(vec rolls)
(recur (+ i 1) (conj rolls (+ 1 (rand-int 6)))))))
(defn roll-d3 [n]
(mapv #(int (Math/ceil (double (/ % 2)))) (roll-d6 n)))
(defn d+ [n rolls]
(vec (filter #(>= % n) rolls)))
(defn resolve-stat-count [stat]
(if (int? stat)
stat
(let [add-num (re-find #"\+\d+" stat)
num (if (nil? add-num)
0
(Integer/parseInt add-num))]
(cond
(re-find #"D6" stat)
(+ num (first (roll-d6 1)))
(re-find #"D3" stat)
(+ num (first (roll-d3 1)))))))
(defn modifier-cap [modifier]
(cond
(< modifier 0) -1
(> modifier 0) 1
:else 0))
(defn dice-cap [dice]
(cond
(< dice 1) 1
(> dice 6) 6
:else dice))
(defn mod+1 [modifier]
(+ modifier 1))
(defn mod-1 [modifier]
(- modifier 1))
|
