Mapper, ARHUD, radar sweeps update. Add dropper items

src/Dodge/Item/Display.hs

@@ -70,6 +70,14 @@ itemBaseName = \case
     INTROSCAN t -> show t
     MAPPER -> "MAPPER"
     DETECTOR t -> show t
+    ARHUD -> "AR-HUD"
+    DROPPER x -> "DROPPER-" ++ showInventoryPathing x
+
+showInventoryPathing :: InventoryPathing -> String
+showInventoryPathing = \case
+    ABSOLUTE -> "ABS"
+    RELCURS -> "CURS"
+    RELITEM -> "HERE"
 
 showAttachItem :: AttachType -> String
 showAttachItem t = case t of
@@ -81,7 +89,6 @@ showAttachItem t = case t of
     REMOTEDETONATOR -> "REM.DETONATR"
     SMOKEREDUCER -> "SMOKE.REDUCR"
     HOMINGMODULE -> "HOMING MOD"
-    AUGMENTEDHUD -> "AUGMENTED HUD"
     SHELLPAYLOAD x -> show x
     GIMBAL -> "GIMBAL"
     GYROSCOPE -> "GYROSCOPE"
@@ -96,6 +103,7 @@ showEquipItem eit = case eit of
 -- that is to say, it should not change based on functional positioning
 itemNumberDisplay :: World -> Creature -> ComposedItem -> [String]
 itemNumberDisplay w cr ci
+    | Just x <- ci ^? _1 . itUse . uInt = [show x]
     | Just x <- ci ^? _1 . itUse . useToggle = [show x]
     | ITEMSCAN <- ci ^. _1 . itType
     , Just ExamineInventory <- w ^? hud . hudElement . subInventory