First implementation of ammo distribution via machine

2025-12-09 23:35:02 +00:00
parent 851b26262a
commit f6e0514408
4 changed files with 117 additions and 84 deletions
@@ -2,6 +2,7 @@

 module Dodge.Item.MagAmmoType (
    magAmmoType,
+    magMax,
 ) where

 import Control.Lens
@@ -24,3 +25,6 @@ mAT = \case
    SHELLMAG -> LauncherAmmo
    BATTERY -> ElectricalAmmo
    CHEMFUELPOUCH -> GasAmmo
+
+magMax :: Item -> Maybe Int
+magMax _ = Just 100