Work on flying creature inertia

src/Dodge/Material/Damage.hs

@@ -56,6 +56,7 @@ damageStone dm ecw w = case dm of
         Poison{} -> f 0  id
         Enterrement{} -> f 0  id
         Flashing{} -> f 0  id
+        Inertial{} -> f 0 id
   where
     f x g = (x, g w)
     dmam = dm ^. dmAmount
@@ -105,7 +106,8 @@ damagePhotovoltaic dm ecw w = case dm of
         Electrical{} -> f 0  id
         Poison{} -> f 0  id
         Enterrement{} -> f 0  id
-        Flashing{} -> f 0  id
+        Flashing{} -> f (10*dmam)  id
+        Inertial{} -> f 0 id
   where
     f x g = (x, g w)
     dmam = dm ^. dmAmount
@@ -138,6 +140,7 @@ damageMetal dm ecw w = case dm of
         Poison{} -> f 0  id
         Enterrement{} -> f 0  id
         Flashing{} -> f 0  id
+        Inertial{} -> f 0 id
   where
     f x g = (x, g w)
     dmam = dm ^. dmAmount
@@ -178,6 +181,7 @@ damageFlesh dm _ w = (dm ^. dmAmount,) $ w & case dm of
     Poison{} -> id
     Enterrement{} -> id
     Flashing{} -> id
+    Inertial{} -> id
   where
     randsound p xs =
         let (x, g) = runState (takeOne xs) $ _randGen w
@@ -204,6 +208,7 @@ damageDirt dm _ w =
         Poison{} -> id
         Enterrement{} -> id
         Flashing{} -> id
+        Inertial{} -> id
   where
     randsound p xs =
         let (x, g) = runState (takeOne xs) $ _randGen w
@@ -231,6 +236,7 @@ damageGlass dm ecw w = case dm of
         Poison{} -> f 0  id
         Enterrement{} -> f 0  id
         Flashing{} -> f 0  id
+        Inertial{} -> f 0  id
   where
     f x g = (x, g w)
     dmam = dm ^. dmAmount
@@ -295,6 +301,7 @@ damageCrystal dm ecw w = case dm of
         Poison{} -> f   id
         Enterrement{} -> f   id
         Flashing{} -> f   id
+        Inertial{} -> f id
   where
     f g = (0, g w)
     rdir p t = argV $ reflectIn v t