Add remote detonator, stop remote screen attaching to nonlauncher ammo

src/Dodge/Item/Display.hs

@@ -71,6 +71,12 @@ showAttachItem t itm = case t of
                 mempty
                 show
                 (itm ^? itUse . uaParams . apLinkedProjectile . _Just)
+    REMOTEDETONATOR ->
+        "REM.DETONATOR"
+            ++ maybe
+                mempty
+                show
+                (itm ^? itUse . uaParams . apLinkedProjectile . _Just)
     HOMINGMODULE -> "HOMING MOD"
     AUGMENTEDHUD -> "AUGMENTED HUD"
     SHELLPAYLOAD x -> show x

src/Dodge/Item/Grammar.hs

@@ -64,14 +64,18 @@ itemToBreakLists itm itmf = case (itm ^. itType, itmf) of
         )
     (_, AmmoMagSF{}) -> fromMaybe ([], []) $ do
         atype <- itm ^? itConsumables . magType
+        let screenanddet = case atype of
+                LauncherAmmo -> [ (RemoteScreenSF, RemoteScreenLink) 
+                    , (RemoteDetonatorSF, RemoteDetonatorLink)
+                    ]
+                _ -> []
         return
             (
                 [ (AmmoModifierSF atype, AmmoModLink)
                 , (AmmoTargetingSF atype, AmmoTargetingLink)
                 , (AmmoPayloadSF atype, AmmoPayloadLink)
                 , (AmmoEffectSF atype, AmmoEffectLink)
-                , (RemoteScreenSF, RemoteScreenLink)
-                ]
+                ] <> screenanddet
             , []
             )
     (_, WeaponTargetingSF) -> (getAmmoLinks itm ++ [(AugmentedHUDSF, AugmentedHUDLink)], [])
@@ -102,6 +106,7 @@ itemToFunction itm = case itm ^. itType of
             AmmoMagSF amtype
     AMMOMAG{} -> maybe UncomposableIsolateSF AmmoMagSF $ itm ^? itConsumables . magType
     ATTACH REMOTESCREEN -> RemoteScreenSF
+    ATTACH REMOTEDETONATOR -> RemoteDetonatorSF
     ATTACH BULLETSYNTH -> AmmoModifierSF BulletAmmo
     ATTACH ZOOMSCOPE -> WeaponScopeSF
     ATTACH HOMINGMODULE -> AmmoTargetingSF LauncherAmmo

src/Dodge/Item/InventoryColor.hs

@@ -18,6 +18,7 @@ itemInvColor ci = case ci ^. _2 of
     AugmentedHUDSF -> rose
     AmmoMagSF{} -> red
     RemoteScreenSF -> azure
+    RemoteDetonatorSF -> azure
     UncomposableIsolateSF -> greyN 0.5
     AmmoModifierSF{} -> orange
     AmmoTargetingSF{} -> green

src/Dodge/Item/Scope.hs

@@ -3,6 +3,7 @@ module Dodge.Item.Scope (
     zoomScope,
     targetingScope,
     remoteScreen,
+    remoteDetonator,
     homingModule,
 --    bulletTargetingModule,
     augmentedHUD,
@@ -56,3 +57,7 @@ augmentedHUD = makeAttach AUGMENTEDHUD
 remoteScreen :: Item
 remoteScreen = makeAttach REMOTESCREEN
     & itUse . uaParams .~ APLinkProjectile Nothing 
+
+remoteDetonator :: Item
+remoteDetonator = makeAttach REMOTEDETONATOR
+    & itUse . uaParams .~ APLinkProjectile Nothing