Move towards external targeting items

src/Dodge/Item/Grammar.hs

@@ -40,7 +40,7 @@ basePartiallyComposedItem itm = case itm ^. itType . iyBase of
     AMMOMAG _ -> ammoComposedItem itm
     ATTACH TARGETATTACH{} -> (itm,WeaponTargetingSF, LinkTest (const Nothing) (const Nothing))
     ATTACH ZOOMSCOPE -> (itm,WeaponScopeSF, LinkTest (const Nothing) (const Nothing))
-    ATTACH ROCKETHOMER -> (itm,AmmoModifierSF ProjectileAmmo, LinkTest (const Nothing) (const Nothing))
+    ATTACH HOMINGMODULE -> (itm,AmmoTargetingSF ProjectileAmmo, LinkTest (const Nothing) (const Nothing))
     ATTACH REMOTESCREEN -> (itm,RemoteScreenSF, LinkTest (const Nothing) (const Nothing))
     _ -> (itm,UncomposableIsolateSF, LinkTest (const Nothing) (const Nothing))
 
@@ -51,6 +51,7 @@ ammoComposedItem itm = fromMaybe (error "in ammoComposedItem, wrong item") $ do
         , AmmoMagSF atype
         , useBreakListsLinkTest 
             [(AmmoModifierSF atype, AmmoModLink)
+            ,(AmmoTargetingSF atype, AmmoTargetingLink)
             ,(RemoteScreenSF, RemoteScreenLink)
             ] 
             []