1 files changed, 18 insertions(+), 1 deletions(-)

M magic.fs

@@ 78,7 78,9 @@ end-struct mage-struct
     
 ;
 
-\ spell-difficulty is the difference of (mage dots in arcanum) and (spell arcanum dots)
+: calculate-free-reach ( mage 
+
+\ spell-difficulty is the difference of <mage dots in arcanum> and <spell arcanum dots>
 : calculate-paradox ( reaches free-reach mage-gnosis -- w )
     \ calculate the special paradox dice pool
     2 /mod + -rot - * ;


@@ 94,6 96,9 @@ end-struct mage-struct
 
 : 8-again ( w -- w ) 8 >= if  1 else 0 then ;
 
+: free-reach ( mage spell-dots spell-arcanum -- mage free-reach )
+    rot dup rot + @ swap -rot swap - 1+ ;
+
 \G Rolls n dice, calculating successes (8+) and re-rolling 10s
 : roll-10again ( n -- w )
     0


@@ 110,3 115,15 @@ end-struct mage-struct
 \G +1 Reach: Decrease structure instead
 \G Source: MtAw2 p129
 death-arcanum 2 spell decay
+
+\ No op, for flavor
+: casts ;
+: with ;
+
+: reaches ( mage spell-dots spell-arcanum w -- mage overreaches ) 
+    >r free-reach - r> swap ;
+
+mage noah
+5 noah death-dots !
+
+\ noah casts decay with 3 reaches