Commit before simplifying actions

src/Dodge/Data/Creature/Misc.hs

@@ -36,6 +36,11 @@ data CrMvType
         , _mvTurnSpeed :: Float
         , _mvPulseTime :: Int
         }
+    | BeeMvType
+        { _mvSpeed :: Float
+        , _mvTurnSpeed :: Float
+        , _mvPulseTime :: Int
+        }
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data Pulse = PulseStatus
@@ -86,6 +91,7 @@ data CreatureType
         , _startStopMv :: Int
         , _beeAggro :: Int
         , _meleeCooldown :: Int
+        , _beeRandomMovement :: Bool
         }
     | HiveCrit
         { _hiveChildren :: IS.IntSet