Move towards allowing equipable targeting items

src/Dodge/Data/Creature.hs

@@ -72,10 +72,18 @@ data Creature = Creature
     , _crName :: String
     , _crStatistics :: CreatureStatistics
     , _crCamouflage :: CamouflageStatus
+    , _crTargeting :: CreatureTargeting
     }
 
 --deriving (Eq, Show, Read) --Generic, Flat)
 
+data CreatureTargeting = CreatureTargeting
+    { _ctPos :: Maybe Point2
+    , _ctType :: Maybe TargetType
+    , _ctID :: Maybe Int
+    , _ctActive :: Bool
+    }
+
 data CreatureCorpse = MakeDefaultCorpse
 
 --deriving (Eq, Ord, Show, Read) --Generic, Flat)
@@ -92,6 +100,7 @@ crSel :: Creature -> Int
 crSel = _iselPos . _crInvSel
 
 makeLenses ''Creature
+makeLenses ''CreatureTargeting
 makeLenses ''Intention
 
 concat
@@ -100,4 +109,5 @@ concat
         [ ''CreatureCorpse
         , ''Creature
         , ''Intention
+        , ''CreatureTargeting
         ]