Tweak walk cycle parameters

2021-06-09 00:01:56 +02:00
parent fb7a90df71
commit 3371e2ae79
16 changed files with 112 additions and 81 deletions
@@ -13,8 +13,8 @@ useTargetPos f cr w = case cr ^? crInv . ix (_crInvSel cr) . itTargeting . _Just
    Nothing -> w
    Just (g,_) -> f (g w) cr w

-removeItTarget :: Int -> Int -> World -> World
-removeItTarget i _ w = w & creatures . ix i . crInv . ix itRef . itTargeting .~ Nothing
+removeItTarget :: Int -> Float -> Creature -> World -> World
+removeItTarget i _ _ w = w & creatures . ix i . crInv . ix itRef . itTargeting .~ Nothing
  where 
    cr = _creatures w IM.! i
    itRef = _crInvSel cr