2 files changed, 13 insertions(+), 3 deletions(-)

M grimoire.fs
M magic.fs

@@ 2,4 2,4 @@ require death.fs
 require awakened.fs
 
 \ ...
-noah casts decay with 3 reaches paradox? with-mage-tool
+noah casts decay with 3 reaches paradox? with-mage-tool 1 mana-contain

@@ 86,6 86,7 @@ end-struct mage-struct
 
 \G Rolls n dice, calculating successes 8+ and re-rolling 10s
 : roll-10again ( dice-pool -- successes )
+    1 max
     0 cr
     begin
         roll-dice ( #dice successes roll )


@@ 123,8 124,17 @@ end-struct mage-struct
         1- dup -rot 0=
     until swap drop ( and roll ) ;
 
-: roll-chance-die ( -- f )
- roll-dice 10-again ;
+\ TODO: finish implementing chance die
+: roll-chance-die ( -- successes ) 
+    roll-dice 10 = if 
+;
+
+: roll-pool ( dice-pool -- successes ) 
+    dup 0= if
+        drop 1 roll-chance-die
+    else
+        roll-10again
+    then ;
 
 \ No op, for flavor
 : casts ;