Implement bullet synth

src/Dodge/Item/Display.hs

@@ -61,7 +61,7 @@ itemBaseName itm = case _itType itm of
 showAttachItem :: AttachType -> Item -> String
 showAttachItem t itm = case t of
     ZOOMSCOPE -> "ZOOMSCOPE"
-    BULLETSYNTHESIZER -> "BSYNTH"
+    BULLETSYNTH -> "BSYNTH"
     REMOTESCREEN -> "REMOTE SCREEN " ++ show (itm ^? itUse . uaParams . apLinkedProjectile . _Just)
     HOMINGMODULE -> "HOMING MOD"
     AUGMENTEDHUD -> "AUGMENTED HUD"
@@ -93,20 +93,21 @@ showAutoRechargeProgress lc = case lc of
 --    ic = (itm ^?! itUse . heldConsumption . laSource)
 
 itemNumberDisplay :: Creature -> ComposedItem -> [String]
-itemNumberDisplay cr ci = case (ci ^. cItemFunction,iu) of
-    (WeaponTargetingSF,_) -> [maybe "" (const "!TARG!") (itm ^? itTargeting . itTgPos . _Just)]
+itemNumberDisplay cr ci = case (ci ^. cItemFunction, itm ^?! itUse) of
+    (WeaponTargetingSF,_) 
+        -> [maybe "" (const "!TARG!") (itm ^? itTargeting . itTgPos . _Just)]
     (_,UseHeld{}) -> []
-    (_,UseHotkey{}) -> [showAutoRechargeProgress (_leftConsumption iu)]
+    (_,UseHotkey{_leftConsumption=lc}) -> [showAutoRechargeProgress lc]
     (_,UseEquip{}) -> showEquipmentNumber cr itm
     (_,UseCraft) -> []
     (_,UseConsume {}) -> []
+    (_,UseAttach (APInt i)) -> [show i]
     (_,UseAttach {}) -> []
     (_,UseAmmoMag {}) -> [maybe "" shortShow $ itm ^? itUse . amagLoadStatus . iaLoaded]
     (_,UseScope OpticScope {_opticZoom = x}) -> [shortShow x]
     (_,UseBulletMod {}) -> mempty
   where
     itm = ci ^. cItem
-    iu = itm ^?! itUse
 
 showEquipmentNumber :: Creature -> Item -> [String]
 showEquipmentNumber _ itm = case _eeUse ee of