Rethink damage data type, work on damage sensors

2022-03-13 09:27:35 +00:00
parent d340fd73c3
commit 06a501ff88
30 changed files with 356 additions and 240 deletions
@@ -73,6 +73,7 @@ followImpulse cr w imp = case imp of
    cid  = _crID cr
    posFromID cid' = _crPos $ _creatures w IM.! cid'
    rr a = fst $ randomR (-a,a) $ _randGen w
-    hitCr i = (creatures . ix i . crState . crDamage %~ addDam i)
+    hitCr i = (creatures . ix i . crState . crDamage 
+        .:~ Damage Blunt 100 cpos (posFromID i) (posFromID i) NoDamageEffect
+        )
        . soundStart (CrSound cid) cpos hitS Nothing
-    addDam i = ( Blunt 100 cpos (posFromID i) (posFromID i) : )