Refactor, try to limit dependencies

2022-07-28 00:59:56 +01:00
parent 8aa5c17ab9
commit 160560af5f
418 changed files with 15104 additions and 13342 deletions
@@ -1,15 +1,15 @@
-{- | Deals with setting a target for creatures -}
+-- | Deals with setting a target for creatures
 module Dodge.Creature.SetTarget where
-import Dodge.Data

 import Control.Lens
+import Dodge.Data.World
 import qualified IntMapHelp as IM
-{- | Assumes that you are id 0: if creature is cognizant of you, sets you as target -}
-targetYouWhenCognizant
-    :: World
-    -> Creature
-    -> Creature
-targetYouWhenCognizant w cr = case cr ^? crPerception . cpAwareness . ix 0 of
-    Just (Cognizant _)  -> cr & crIntention . targetCr ?~ _creatures (_cWorld w) IM.! 0
-    _                   -> cr & crIntention . targetCr .~ Nothing

+-- | Assumes that you are id 0: if creature is cognizant of you, sets you as target
+targetYouWhenCognizant ::
+    World ->
+    Creature ->
+    Creature
+targetYouWhenCognizant w cr = case cr ^? crPerception . cpAwareness . ix 0 of
+    Just (Cognizant _) -> cr & crIntention . targetCr ?~ _creatures (_cWorld w) IM.! 0
+    _ -> cr & crIntention . targetCr .~ Nothing