Add alteRifle

2024-12-23 10:53:35 +00:00
parent 34c7186aa1
commit a4e1fcf384
11 changed files with 271 additions and 240 deletions
@@ -231,7 +231,7 @@ scrollTimeBack w = case w ^? pastWorlds . _head of
        --i <- w ^? timeFlow . scrollItemID . unNInt
        _ <- w ^? timeFlow . scrollItemID . unNInt
 --        let pointituse = pointerToItemLocation (w ^?! cWorld . lWorld . itemLocations . ix i) . itUse
-        return $ id
+        return id
 --            (pointituse . leftConsumption . wpCharge .~ (x -1))
 --                . (pointituse . leftHammer .~ HammerDown)

@@ -249,7 +249,7 @@ scrollTimeForward w = case w ^? timeFlow . futureWorlds . _head of
    mupdateitem = fromMaybe id $ do
        --i <- w ^? timeFlow . scrollItemID . unNInt
        _ <- w ^? timeFlow . scrollItemID . unNInt
-        return $ id -- pointerToItemLocation (w ^?! cWorld . lWorld . itemLocations . ix i) . itUse . leftConsumption . wpCharge .~ ramount
+        return id -- pointerToItemLocation (w ^?! cWorld . lWorld . itemLocations . ix i) . itUse . leftConsumption . wpCharge .~ ramount

 -- | The update step.
 functionalUpdate :: Universe -> Universe