Refactor ai

src/Dodge/Creature/State/Data.hs

@@ -6,17 +6,16 @@ import Geometry
 import Dodge.Data.DamageType
 import Dodge.Creature.Impulse.Data
 import Dodge.Creature.Stance.Data
+import Picture.Data
 
 import Control.Lens
 
 data CreatureState = CrSt 
     { _goals    :: [[Impulse]]
-    , _faction :: Faction
     , _crDamage  :: [DamageType]
     , _crPastDamage :: [[DamageType]]
     , _crSpState :: CrSpState
     , _crDropsOnDeath :: CreatureDropType
-    , _crIsAnimate  :: Bool
     }
 
 data CreatureDropType
@@ -36,6 +35,8 @@ data Faction
     | ChaseCritters
     | SpawnedBy Int
     | NoFaction
+    | ColorFaction Color
+    | PlayerFaction
   deriving (Eq,Show)
 
 makeLenses ''CreatureState