Add test tileset textures

2021-06-11 13:51:06 +02:00
parent 02511afa80
commit a9aa2ca2cb
18 changed files with 75 additions and 38 deletions
@@ -114,7 +114,7 @@ wheelEvent y w = case (_carteDisplay w, _inventoryMode w) of
 moveYourAmmoSel :: Int -> World -> World
 moveYourAmmoSel i w = case yourItem w ^? wpAmmo . amPjParams of
    Just l -> w & creatures . ix (_yourID w) . crInv . ix (_crInvSel (you w))
-                    . wpAmmo . amParamSel %~ (`mod` (length l)) . (subtract i)
+                    . wpAmmo . amParamSel %~ (`mod` (length l)) . subtract i
    _ -> w
 moveYourAmmoParam :: Int -> World -> World
 moveYourAmmoParam i w = case yourItem w ^? wpAmmo . amPjParams . ix paramid . pjMaxParam of