Fix distributer not to take ammo from overfilled magazines

2025-12-24 21:01:49 +00:00
parent 225ee310ad
commit 8e484e37a9
2 changed files with 2 additions and 2 deletions
@@ -150,7 +150,7 @@ distributeAmmoToItem x itm = fromMaybe (x,0) $ do
    m <- magMax itm
    cur <- itm ^. itConsumables
    let d = m - cur
-        t = min x d
+        t = max 0 $ min x d
    return (x-t,t)

 resetTerminal :: TerminalStatus -> Terminal -> World -> World