Tweak pause camera movement

2023-04-25 10:23:43 +01:00
parent a2ad7c23ff
commit 734d74af52
31 changed files with 97 additions and 114 deletions
@@ -45,6 +45,11 @@ crWeaponReady cr = fromMaybe False $ do
 crCanSeeCr :: Creature -> (World, Creature) -> Bool
 crCanSeeCr tcr (w, cr) = hasLOS (_crPos cr) (_crPos tcr) w

+--crCanSeeCrid :: Int -> (World, Creature) -> Bool
+--crCanSeeCrid tcid (w, cr) = fromMaybe False $ do
+--    tcr <- w ^? cWorld . lWorld . creatures . ix tcid
+--    return $ hasLOS (_crPos cr) (_crPos tcr) w
+
 crIsAiming :: Creature -> Bool
 crIsAiming cr = _posture (_crStance cr) == Aiming