Refactor ai

2021-05-12 14:24:31 +02:00
parent 86faf9fd01
commit ead87af3c1
25 changed files with 718 additions and 453 deletions
@@ -0,0 +1,16 @@
+{- |
+Deals with setting a target for creatures
+-}
+module Dodge.Creature.SetTarget
+    where
+import Dodge.Data
+import Dodge.Creature.AlertLevel.Data
+
+import Control.Lens
+targetYouWhenCognizant
+    :: World
+    -> Creature
+    -> Creature
+targetYouWhenCognizant w cr = case cr ^? crAwarenessLevel . ix 0 of
+    Just (Cognizant _)  -> cr & crTarget .~ Just 0
+    _                   -> cr & crTarget .~ Nothing