Implement bullet trajectories using attachable items

src/Dodge/Creature/Impulse/UseItem.hs

@@ -34,8 +34,7 @@ useRootItem crid w = fromMaybe w $ do
 
 itemUseEffect :: Creature -> LabelDoubleTree ComposeLinkType Item -> World -> World
 itemUseEffect cr it w = case it ^. ldtValue . itUse of
-    HeldUse{ _heldMods = usemods} -> 
-        heldEffect usemods it cr w
+    HeldUse{ } -> heldEffect it cr w
             & pointerToItem itm . itUse . heldHammer .~ HammerDown
     LeftUse{} -> doequipmentchange
     EquipUse{} -> doequipmentchange
@@ -45,6 +44,7 @@ itemUseEffect cr it w = case it ^. ldtValue . itUse of
     TargetingUse {} -> w
     AmmoMagUse{} -> w
     ScopeUse{} -> w
+    BulletTrajectoryUse{} -> w
   where
     itm = it ^. ldtValue
     doequipmentchange = fromMaybe w $ do