Allow for bullet drag

2021-12-02 18:29:46 +00:00
parent 85ededc158
commit 8b8d75b016
35 changed files with 362 additions and 228 deletions
@@ -23,6 +23,7 @@ basicWeaponDisplay it = [midPadL 10 ' ' thename (' ' : thenumber) ++ theparam]
            Just' x  -> show x ++ "R" ++ show (_ammoLoaded am)
        Just am@ChargeableAmmo{} -> show $ _wpCharge am
        Just x@ItemItselfConsumable{} -> show $ _itMaxStack' x
+        Just NoConsumption -> "NOCONSUMPTION"
        Nothing -> ""
    theparam = fromMaybe []
        . listToMaybe