Add HoverCrit

src/Dodge/Creature/MoveType.hs

@@ -7,6 +7,7 @@ crMvType :: Creature -> CrMvType
 crMvType cr = case _crType cr of
     Avatar {_avMoveSpeed = s} -> MvWalking s
     ChaseCrit {} -> defaultChaseMvType
+    HoverCrit {} -> defaultChaseMvType
     SwarmCrit -> defaultChaseMvType
     AutoCrit -> defaultAimMvType
     BarrelCrit {} -> defaultAimMvType

src/Dodge/Creature/Shape.hs

@@ -9,6 +9,7 @@ crShape :: CreatureType -> CreatureShape
 crShape = \case
     Avatar{} -> Humanoid (greyN 0.9) (lightx4 black) (greyN 0.3)
     ChaseCrit {} -> Humanoid (greyN 0.9) (lightx4 green) (greyN 0.3)
+    HoverCrit {} -> Humanoid (greyN 0.9) (lightx4 blue) (greyN 0.3)
     SwarmCrit -> Humanoid (greyN 0.9) (lightx4 yellow) (greyN 0.3)
     AutoCrit -> Humanoid (greyN 0.9) (lightx4 red) (greyN 0.3)
     BarrelCrit {} -> Barreloid

src/Dodge/Creature/Statistics.hs

@@ -20,6 +20,7 @@ crDexterity :: Creature -> Int
 crDexterity cr = case cr ^. crType of
     Avatar { _avDexterity = x } -> x
     ChaseCrit {} -> 46
+    HoverCrit {} -> 46
     SwarmCrit -> 46
     AutoCrit -> 46
     BarrelCrit {} -> 0
@@ -29,6 +30,7 @@ crStrength :: Creature -> Int
 crStrength cr = case cr ^. crType of
     Avatar { _avStrength = x } -> x
     ChaseCrit {} -> 46
+    HoverCrit {} -> 46
     SwarmCrit -> 40
     AutoCrit -> 46
     BarrelCrit {} -> 0
@@ -38,6 +40,7 @@ crIntelligence :: Creature -> Int
 crIntelligence  cr = case cr ^. crType of
     Avatar { _avIntelligence = x } -> x
     ChaseCrit {} -> 20
+    HoverCrit {} -> 20
     SwarmCrit -> 20
     AutoCrit -> 20
     BarrelCrit {} -> 0

src/Dodge/Creature/Vocalization.hs

@@ -17,6 +17,7 @@ crVocalizationSound :: Creature -> Maybe SoundID
 crVocalizationSound cr = case cr ^. crType of
     Avatar{} -> Nothing
     ChaseCrit{} -> Just seagullChatterS
+    HoverCrit{} -> Nothing
     SwarmCrit -> Nothing
     AutoCrit -> Nothing
     BarrelCrit{} -> Nothing
@@ -35,6 +36,7 @@ crWarningSounds cr = case cr ^. crType of
         , seagullCry1S
         , seagullCry2S
         ]
+    HoverCrit {} -> mempty
     SwarmCrit -> mempty
     AutoCrit -> mempty
     BarrelCrit{} -> mempty
@@ -44,6 +46,7 @@ crDeathSounds :: Creature -> DeathType -> [SoundID]
 crDeathSounds cr dt = case cr ^. crType of
     Avatar{} -> mempty
     ChaseCrit{} -> defaultDeathSounds dt
+    HoverCrit{} -> defaultDeathSounds dt
     SwarmCrit -> mempty
     AutoCrit -> mempty
     BarrelCrit{} -> mempty

src/Dodge/Data/Creature/Misc.hs

@@ -77,8 +77,6 @@ data BarrelType
 
 makeLenses ''Pulse
 makeLenses ''BarrelType
-
---makeLenses ''CreatureStatistics
 makeLenses ''Vocalization
 makeLenses ''CrMvType
 makeLenses ''CreatureType