Cleanup

2022-07-27 12:49:23 +01:00
parent 6554d219dc
commit 8d17ce66e9
106 changed files with 2911 additions and 2678 deletions
@@ -35,8 +35,8 @@ rewindEffect itm cr w
        & ptrWpCharge .~ 0
  where
    invid = _ipInvID $ _itPos itm
-    ptrWpCharge = cWorld . creatures . ix (_crID cr) . crInv . ix invid . itConsumption . wpCharge
-    maxcharge = _wpMaxCharge . _itConsumption $ itm
+    ptrWpCharge = cWorld . creatures . ix (_crID cr) . crInv . ix invid . itUse . leftConsumption . wpCharge
+    maxcharge = itm ^?! itUse . leftConsumption . wpMaxCharge
    cw = _cWorld w 
        & rewindWorlds .~ []