Move towards removing machine update field

2022-07-14 19:56:37 +01:00
parent f05d284312
commit ad33ddd569
3 changed files with 171 additions and 2 deletions
@@ -1024,7 +1024,6 @@ data Machine = Machine
    { _mcID     :: Int
    , _mcWallIDs    :: IS.IntSet
    , _mcUpdate :: Machine -> World -> World
-    , _mcApplyDamage    :: [Damage] -> Machine -> World -> World
    , _mcDraw   :: Machine -> SPic
    , _mcPos    :: Point2
    , _mcDir    :: Float
@@ -1036,6 +1035,7 @@ data Machine = Machine
    , _mcType   :: MachineType
    , _mcMounts :: M.Map Object Int
    , _mcName   :: String
+    , _mcCloseSound :: Maybe SoundID
 --    , _mcTermMID :: Maybe Int
    }
 data Sensor = NoSensor