Add bee crits

src/Dodge/Data/ActionPlan.hs

@@ -150,6 +150,7 @@ data Strategy
     | Flee
 --    | MeleeStrike
     | Search
+    | HarvestFrom {_harvestTarget :: Int}
     deriving (Eq, Ord, Show) --Generic, Flat)
     --deriving (Eq, Ord, Show, Read) --Generic, Flat)
 

src/Dodge/Data/Creature/Misc.hs

@@ -79,6 +79,14 @@ data CreatureType
         , _slimeIsCompressing :: Bool
         , _slimeFeedProgress :: Float
         } 
+    | BeeCrit
+        { _beeSlime :: Float
+        , _beeHive :: Maybe Int
+        }
+    | HiveCrit
+        { _hiveChildren :: [Int]
+        , _hiveGestation :: Int
+        }
     | SwarmCrit
     | AutoCrit
     | BarrelCrit {_barrelType :: BarrelType}
@@ -93,7 +101,7 @@ data CreatureShape
         , _skinLower :: Color
         }
     | Barreloid
-    | NonDrawnCreature
+    | NoCreatureShape
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data BarrelType

src/Dodge/Data/Creature/Stance.hs

@@ -24,10 +24,12 @@ data Carriage
     = Walking 
     | Crawling
     | Floating
-    | Flying {_zSpeed :: Float, _flyInertia :: Float}
+    | Flying {_zSpeed :: Float}--, _flyInertia :: Float}
     | Boosting Point2
     | Falling {_fallRot :: Quaternion Float, _carDir :: Quaternion Float}
     | OnGround {_carDir :: Quaternion Float}
+    | Rooted
+    | Mounted {_mountID :: Int, _mountPos :: Point3}
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data FootForward = LeftForward | RightForward