Simplify item placement during generation

src/Dodge/Creature/State/Data.hs

@@ -3,10 +3,22 @@
 module Dodge.Creature.State.Data
   where
 import Geometry
+import Dodge.Data.DamageType
 
 import Control.Lens
 
-data ItemDropType
+data CreatureState = CrSt 
+    { _goals    :: [[Goal]]
+    , _stance  :: Stance
+    , _faction :: Faction
+    , _crDamage  :: [DamageType]
+    , _crPastDamage :: Int
+    , _crSpState :: CrSpState
+    , _crDropsOnDeath :: CreatureDropType
+    , _crIsAnimate  :: Bool
+    }
+
+data CreatureDropType
     = DropAll
     | DropAmount Int
     | DropSpecific [Int]
@@ -89,6 +101,7 @@ data Faction
     | NoFaction
   deriving (Eq,Show)
 
+makeLenses ''CreatureState
 makeLenses ''CrSpState
 makeLenses ''Goal
 makeLenses ''Carriage