Fix reset of reloading from 0 scrolling

2023-01-08 00:17:16 +00:00
parent f8d9b54586
commit 44bb6e7e02
4 changed files with 9 additions and 16 deletions
@@ -16,7 +16,6 @@ crCancelReloading cr =

 stepReloading :: Creature -> Creature
 stepReloading cr = case cr ^?! crInvSel . iselAction of
--    ReloadAction _ _ (HasHammer HammerUp) -> cr & crInvSel . iselAction .~ NoInvSelAction
    ReloadAction x la
        | x > 0 ->
            cr & crInvSel . iselAction . actionProgress -~ 1