Remove unused datatype

src/Dodge/Creature/Mass.hs

@@ -6,6 +6,7 @@ crMass :: CreatureType -> Float
 crMass = \case
     Avatar {} -> 10
     ChaseCrit {} -> 10
+    HoverCrit {} -> 5
     SwarmCrit -> 2
     AutoCrit -> 10
     BarrelCrit{} -> 10

src/Dodge/Creature/Material.hs

@@ -9,6 +9,7 @@ crMaterial :: CreatureType -> Material
 crMaterial = \case
     Avatar{_avatarMaterial = mt} -> mt
     ChaseCrit {} -> Flesh
+    HoverCrit {} -> Metal
     SwarmCrit -> Flesh
     AutoCrit -> Flesh
     BarrelCrit{} -> Metal

src/Dodge/Creature/MaxHP.hs

@@ -7,6 +7,7 @@ crMaxHP :: CreatureType -> Int
 crMaxHP = \case
     Avatar {} -> 15000
     ChaseCrit {} -> 150
+    HoverCrit {} -> 100
     SwarmCrit -> 50
     AutoCrit -> 100
     BarrelCrit{} -> 100

src/Dodge/Creature/Radius.hs

@@ -9,6 +9,7 @@ crRad :: CreatureType -> Float
 crRad = \case
     Avatar {} -> 10
     ChaseCrit {} -> 10
+    HoverCrit {} -> 8
     SwarmCrit -> 2
     AutoCrit -> 10
     BarrelCrit{} -> 10

src/Dodge/Creature/Shape.hs

@@ -7,9 +7,9 @@ import Dodge.Data.Creature.Misc
 
 crShape :: CreatureType -> CreatureShape
 crShape = \case
-    Avatar{} -> Humanoid (greyN 0.9) (lightx4 black) (greyN 0.3) InanimateAI
-    ChaseCrit {} -> Humanoid (greyN 0.9) (lightx4 green) (greyN 0.3) ChaseAI
-    SwarmCrit -> Humanoid (greyN 0.9) (lightx4 yellow) (greyN 0.3) SwarmAI
-    AutoCrit -> Humanoid (greyN 0.9) (lightx4 red) (greyN 0.3) AutoAI
+    Avatar{} -> Humanoid (greyN 0.9) (lightx4 black) (greyN 0.3)
+    ChaseCrit {} -> Humanoid (greyN 0.9) (lightx4 green) (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
     LampCrit {} -> NonDrawnCreature

src/Dodge/Data/Creature/Misc.hs

@@ -35,21 +35,6 @@ data CrMvType
         }
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
-data HumanoidAI
-    = ChaseAI
-    | InanimateAI
-    | SpreadGunAI
-    | PistolAI
-    | LtAutoAI
-    | LauncherAI
-    | SwarmAI
-    | AutoAI
-    | FlockArmourChaseAI
-    | MiniGunAI
-    | LongAI
-    | MultGunAI
-    deriving (Eq, Ord, Show, Read) --Generic, Flat)
-
 data Pulse = PulseStatus
     { _pulseRate :: Int
     , _pulseProgress :: Int
@@ -67,6 +52,7 @@ data CreatureType
         , _avPosture :: AvatarPosture
         }
     | ChaseCrit {_meleeCooldown :: Int}
+    | HoverCrit
     | SwarmCrit
     | AutoCrit
     | BarrelCrit {_barrelType :: BarrelType}
@@ -79,7 +65,6 @@ data CreatureShape
         { _skinHead :: Color
         , _skinUpper :: Color
         , _skinLower :: Color
-        , _humanoidAI :: HumanoidAI
         }
     | Barreloid
     | NonDrawnCreature
@@ -99,12 +84,7 @@ makeLenses ''CrMvType
 makeLenses ''CreatureType
 makeLenses ''CreatureShape
 deriveJSON defaultOptions ''Pulse
-
---deriveJSON defaultOptions ''CreatureStatistics
 deriveJSON defaultOptions ''Vocalization
-
---deriveJSON defaultOptions ''CrMvType
-deriveJSON defaultOptions ''HumanoidAI
 deriveJSON defaultOptions ''BarrelType
 deriveJSON defaultOptions ''AvatarPosture
 deriveJSON defaultOptions ''CreatureType