Make machines have footprint like doors

src/Dodge/Wall/Damage.hs

@@ -25,7 +25,7 @@ import Dodge.Zoning.Pathing
 import Geometry.Data
 import LensHelp
 import Linear
-import qualified Data.IntSet as IS
+--import qualified Data.IntSet as IS
 import Dodge.Machine.Destroy
 
 damageWall :: Int -> Damage -> World -> (S.Set Int2, World)
@@ -112,7 +112,7 @@ sensorTypeDamages = \case
 destroyMachine' :: Machine -> World -> (S.Set Int2, World)
 destroyMachine' mc w = (js, destroyMachine mc w)
   where
-    wlids = IS.toList $ mc ^. mcWallIDs
+    wlids = IM.keys $ mc ^. mcFootPrint
     f wlid = w ^?! cWorld . lWorld . walls . ix wlid . wlLine
     js = foldMap (S.fromList . uncurry (zoneOfSeg peZoneSize) . f) wlids