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
@@ -42,7 +42,7 @@ putTerminal col f = ps0PushPSw PutNothing $ \_ _ -> Just $
    $ \pl -> Just $ pt0 (PutMachine col (reverse $ square 10) defaultMachine
    { _mcDraw = noPic . terminalShape col
    , _mcHP = 100
-    , _mcUpdate = machineAddSound fridgeHumS (\_ -> id)
+    , _mcUpdate = basicMachineUpdate $ machineAddSound fridgeHumS (\_ -> id)
    , _mcDeath = \mc -> (buttons . at (fromJust (_plMID pl)) .~ Nothing)
        . makeExplosionAt (_mcPos mc)
    })