Half add explicit death event for machines

2022-06-05 10:37:40 +01:00
parent 7398791194
commit fcc6d3952c
9 changed files with 26 additions and 10 deletions
@@ -957,6 +957,7 @@ data Machine = Machine
    { _mcID     :: Int
    , _mcWallIDs    :: IS.IntSet
    , _mcUpdate :: Machine -> World -> World
+    , _mcDeath  :: Machine -> World -> World
    , _mcDraw   :: Machine -> SPic
    , _mcPos    :: Point2
    , _mcDir    :: Float