Implement automatic reload

2021-03-20 14:08:59 +01:00
parent 0b1f7f50c3
commit 19fc1f2468
2 changed files with 8 additions and 18 deletions
@@ -207,7 +207,13 @@ reloadWeapon cid w =
                                            $ set ( itRef . wpReloadState) rT w
        _                          -> Nothing

-
+crAutoReload :: Creature -> Creature
+crAutoReload cr = case cr ^? crInv . ix (_crInvSel cr) . wpLoadedAmmo of
+        Just 0 -> cr & crInv . ix (_crInvSel cr) . wpReloadState %~ (`fromMaybe` reloadT)
+                     & crInv . ix (_crInvSel cr) . wpLoadedAmmo  %~ (`fromMaybe` maxA)
+        _      -> cr
+    where reloadT = cr ^? crInv . ix (_crInvSel cr) . wpReloadTime
+          maxA    = cr ^? crInv . ix (_crInvSel cr) . wpMaxAmmo

 createItemAt :: Point2 -> FloorItem -> World -> World
 createItemAt p it w = over floorItems (IM.insert i (set flItPos p