AI refactor

src/Dodge/Creature/State/Data.hs

@@ -9,6 +9,7 @@ import Dodge.Creature.Stance.Data
 import Picture.Data
 
 import Control.Lens
+import qualified Data.Set as S
 
 data CreatureState = CrSt 
     { _goals    :: [[Impulse]]
@@ -39,6 +40,10 @@ data Faction
     | PlayerFaction
   deriving (Eq,Show)
 
+data CrGroup
+    = LoneWolf
+    | Swarm { _swarm :: S.Set Int }
+
 makeLenses ''CreatureState
 makeLenses ''CrSpState
 makeLenses ''Impulse