Work on flying creature inertia

src/Dodge/Data/Creature/Misc.hs

@@ -29,6 +29,10 @@ data CrMvType
         , _mvTurnJit :: Float
         , _mvAimSpeed :: FloatFloat
         }
+--    | CrAccMv
+--        { _mvAcc :: Float
+--        , _mvTopSpeed :: Float
+--        }
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data Pulse = PulseStatus

src/Dodge/Data/Creature/Stance.hs

@@ -21,7 +21,7 @@ data Stance = Stance
 data Carriage
     = Walking {_strideAmount :: Float, _footForward :: FootForward}
     | Floating
-    | Flying {_flyHeight :: Float}
+    | Flying {_flyHeight :: Float, _flyInertia :: Float, _oldOldPos :: Point2}
     | Boosting Point2
     | Falling {_fallFlail :: Float, _fallFoot :: FootForward}
     deriving (Eq, Ord, Show, Read) --Generic, Flat)

src/Dodge/Data/CreatureEffect.hs

@@ -26,7 +26,7 @@ data CrAc = CrTurnAround
 
 data CrWdAc
     = CrWdBFSThenReturn Int
-    | ChooseMovementSpreadGun
+--    | ChooseMovementSpreadGun
     | ChooseMovementLtAuto
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 

src/Dodge/Data/Damage.hs

@@ -25,6 +25,7 @@ data Damage
     | Explosive {_dmAmount :: Int, _dmCenter :: Point2}
     | Poison {_dmAmount :: Int}
     | Enterrement {_dmAmount :: Int}
+    | Inertial {_dmAmount :: Int, _dmPos :: Point2, _dmVector :: Point2}
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 makeLenses ''Damage

src/Dodge/Data/Machine.hs

@@ -12,7 +12,6 @@ module Dodge.Data.Machine (
     module Dodge.Data.GenParams,
 ) where
 
-import Color.Data
 import ShortShow
 import Dodge.Data.AmmoType
 import Control.Lens