Add alteRifle

src/Dodge/Item/Display.hs

@@ -15,7 +15,12 @@ import ShortShow
 
 itemDisplay :: Creature -> ComposedItem -> [String]
 itemDisplay cr ci =
-    zipWithDefaults id (leftPad 15 ' ') itemDisplayPad (basicItemDisplay itm) (itemNumberDisplay cr ci)
+    zipWithDefaults
+        id
+        (leftPad 15 ' ')
+        itemDisplayPad
+        (basicItemDisplay itm)
+        (itemNumberDisplay cr ci)
   where
     itm = ci ^. _1
 
@@ -78,6 +83,10 @@ itemNumberDisplay :: Creature -> ComposedItem -> [String]
 itemNumberDisplay cr ci
     | EQUIP WRIST_ECG <- ci ^. _1 . itType =
         [displayPulse $ cr ^?! crType . avatarPulse . pulseProgress]
+    | HELD ALTERIFLE <- ci ^. _1 . itType = 
+        case ci ^? _1 . itUse . heldAim . aimMuzzles . ix 0 . mzAmmoSlot of
+            Just 0 -> ["/"]
+            _ -> ["\\"]
     | isJust $ ci ^? _1 . itTargeting . itTgPos . _Just =
         ["!TARG!"]
     | Just x <- ci ^? _1 . itConsumables . magLoadStatus . iaLoaded = [shortShow x]