Mapper, ARHUD, radar sweeps update. Add dropper items

src/Dodge/Creature/Impulse/UseItem.hs

@@ -36,7 +36,7 @@ useItemLoc cr loc pt w
       , cr ^. crStance . posture == Aiming =
         return $ heldEffect pt (bimap _iatType (^. _1) ldt) cr w
     | GadgetPlatformSF <- sf =
-        return $ heldEffect pt (bimap _iatType (^. _1) ldt) cr w
+        return $ gadgetEffect pt loc cr w
     | UnderBarrelPlatformSF <- sf
       , fromMaybe False $ loc ^? locLDT . ldtValue . _1 . itLocation . ilIsAttached
       , cr ^. crStance . posture == Aiming =
@@ -79,6 +79,8 @@ structureUseAtLoc :: ItemStructuralFunction -> Bool
 structureUseAtLoc = \case
     HeldPlatformSF -> True
     UnderBarrelPlatformSF -> True
+    GadgetPlatformSF -> True
+    MapperSF -> True
     _ -> False
 
 activateDetonator ::