Add explicit machine damage application

src/Dodge/Machine.hs

@@ -1,6 +1,7 @@
 module Dodge.Machine where
 import Dodge.Data
 import Dodge.Wall.Delete
+import Dodge.Machine.Damage
 import LensHelp
 import Sound.Data
 import Dodge.SoundLogic
@@ -9,6 +10,9 @@ import Dodge.Base
 
 import qualified Data.IntMap.Strict as IM
 
+basicMachineUpdate :: (Machine -> World -> World) -> Machine -> World -> World
+basicMachineUpdate f mc = basicMachineApplyDamage mc . f mc
+
 machineUpdateLiveDieEff 
     :: (Machine -> World -> World)  -- | effect when hp >= 1
     -> (Machine -> World -> World)  -- | effect (once) when hp < 1