Mapper, ARHUD, radar sweeps update. Add dropper items

src/Dodge/Item/Info.hs

@@ -28,8 +28,26 @@ itmBaseInfo itm = case itm ^. itType of
     CRAFT fit -> craftInfo fit
     DETECTOR d -> "A device that detects " ++ detectorInfo d ++ " in an expanding radius."
     ATTACH t -> attachInfo t
+    AMMOMAG t -> ammoMagInfo t
+--    TARGETING {_ibtTargeting :: TargetingType}
+--    BULLETMOD {_ibtBulletMod :: BulletMod}
+--    STICKYMOD
+--    ITEMSCAN
+--    MAPPER
+--    INTROSCAN {_ibtIntroScanType :: IntroScanType}
+--    DETECTOR {_ibtDetector :: Detector}
+--    ARHUD
     _ -> "THIS SHOULD NOT BE DISPLAYED"
 
+ammoMagInfo :: AmmoMagType -> String
+ammoMagInfo = \case
+    TINMAG -> "A small tin magazine for containing bullets. "
+    DRUMMAG -> "A mid-sized magazine for containing bullets. "
+    BELTMAG -> "A belt with attachable bullets. "
+    SHELLMAG -> "A container for a projectile. "
+    BATTERY -> "A store of electrical potential energy. "
+    CHEMFUELPOUCH -> "A small tank for containing flammable liquids. "
+
 attachInfo :: AttachType -> String
 attachInfo = \case
     ZOOMSCOPE -> "An optical zoom. "