Allow for partial reloading

2021-12-01 17:40:09 +00:00
parent d75ea2b252
commit 016a1faf80
21 changed files with 181 additions and 143 deletions
@@ -16,11 +16,11 @@ import Control.Lens
 defaultAmmo :: ItemConsumption
 defaultAmmo = LoadableAmmo 
    { _aoType = GenericAmmo
-    , _wpMaxAmmo = 15
-    , _wpLoadedAmmo = 15
-    , _wpReloadTime = 40
-    , _wpReloadState = 0
-    , _wpReloadType = ActiveReload
+    , _ammoMax = 15
+    , _ammoLoaded = 15
+    , _reloadTime = 40
+    , _reloadState = Nothing'
+    , _reloadType = ActiveReload
    }

 ruseRate :: Int