Work on flying creature inertia

src/Dodge/Bullet.hs

@@ -172,7 +172,8 @@ hitEffFromBul w bu = case _buEffect bu of
 
 getBulHitDams :: Bullet -> Point2 -> [Damage]
 getBulHitDams bu p = case _buPayload bu of
-    BulPlain x -> [Piercing x p v]
+    BulPlain x -> [Piercing x p v
+        ,Inertial 0 p v]
     _ -> []
   where
     v = _buVel bu