Fix distributer not to take ammo from overfilled magazines

src/Dodge/Room/Tutorial.hs

@@ -51,7 +51,7 @@ tutAnoTree = do
         , corDoor
         , return $ tToBTree "cor" $ return $ cleatOnward corridor
         , tToBTree "sdr" . return . cleatOnward <$> 
-                (shuffleLinks =<< distributerRoom BulletAmmo 10000000)
+                (shuffleLinks =<< distributerRoom BulletAmmo 100)
         , return $ tToBTree "cor" $ return $ cleatOnward corridor
         --, tToBTree "sdr" . return . cleatOnward <$> slowDoorRoom
 --        , tToBTree "sr" . return . cleatOnward <$> tanksRoom [] []

src/Dodge/WorldEffect.hs

@@ -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