Start implementing attachable scroll items

2023-11-08 18:39:38 +00:00
parent 8f0dd8cd1b
commit f26d380c1b
20 changed files with 119 additions and 116 deletions
@@ -155,7 +155,7 @@ showReloadProgress cr itm = case ic ^? laSource of
    Just (InternalSource ia) -> case ia ^? iaProgress . _Just . ix 0 of
        Nothing -> maybe "" show $ ic ^? laSource . _InternalSource . iaLoaded
        Just la -> showLoadActionType la (_laSource ic)
-    Just AboveSource -> fromMaybe "||||" $ do
+    Just AboveSource -> fromMaybe "^^^^" $ do
        i <- fmap (subtract 1) $ itm ^? itLocation . ipInvID
        _ <- cr ^? crInv . ix i . itUse . equipEffect . eeUse . euseAmmoAmount
        return ""