Allow more general detection of item use focus

src/Dodge/Data/Item.hs

@@ -41,7 +41,7 @@ data Consumables
 data Item = Item
     { _itUse :: ItemUse
     , _itUseCondition :: UseCondition
-    , _itUseFocus :: UseFocus
+--    , _itUseFocus :: UseFocus
     , _itConsumables :: Consumables
     , _itType :: ItemType
     , _itID :: NewInt ItmInt

src/Dodge/Data/Projectile.hs

@@ -25,7 +25,6 @@ data Projectile
         , _prjTimer :: Int
         , _prjZ :: Float
         , _prjUpdates :: [ProjectileUpdate]
---        , _prjMITID :: Maybe Int
         }
     deriving (Eq, Ord, Show, Read) --Generic, Flat)