Remove creature move type record

src/Dodge/Default/Creature.hs

@@ -47,10 +47,10 @@ defaultCreature =
         , _crFaction = NoFaction
         , _crIntention = defaultIntention
         , _crGroup = LoneWolf
-        , _crMvType = defaultAimMvType
+--        , _crMvType = defaultAimMvType
 --        , _crHammerPosition = HammerUp
         , _crName = "DEFAULTCRNAME"
-        , _crStatistics = CreatureStatistics 50 50 50
+--        , _crStatistics = CreatureStatistics 50 50 50
         , _crDeathTimer = 0
         }
 
@@ -101,29 +101,9 @@ defaultIntention =
         , _viewPoint = Nothing
         }
 
-defaultChaseMvType :: CrMvType
-defaultChaseMvType =
-    CrMvType
-        { _mvSpeed = 2
-        , _mvTurnRad = FloatAbsCheckGreaterLess (pi / 4) 0.2 0.05
-        , _mvTurnJit = 0.2
-        , _mvAimSpeed = FloatAbsCheckGreaterLess (pi / 8) 0.2 0.01
-        }
-
-defaultAimMvType :: CrMvType
-defaultAimMvType =
-    CrMvType
-        { _mvSpeed = 3
-        , _mvTurnRad = FloatConst 0.2
-        , _mvTurnJit = 0.05
-        , _mvAimSpeed = FloatAbsCheckGreaterLess (pi / 8) 0.2 0.01
-        }
 
 defaultAimingCrit :: Creature
-defaultAimingCrit = defaultCreature{_crMvType = defaultAimMvType}
-
-yourDefaultSpeed :: Float
-yourDefaultSpeed = 3
+defaultAimingCrit = defaultCreature
 
 yourDefaultStrideLength :: Int
 yourDefaultStrideLength = 40