Add explicit machine damage application

2022-06-05 10:56:15 +01:00
parent fcc6d3952c
commit 0afbb39aaf
4 changed files with 7 additions and 1 deletions
@@ -958,6 +958,7 @@ data Machine = Machine
    , _mcWallIDs    :: IS.IntSet
    , _mcUpdate :: Machine -> World -> World
    , _mcDeath  :: Machine -> World -> World
+    , _mcApplyDamage    :: [Damage] -> Machine -> World -> World
    , _mcDraw   :: Machine -> SPic
    , _mcPos    :: Point2
    , _mcDir    :: Float