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 [] []