Remove all AI code from AI file

2021-05-15 14:59:35 +02:00
parent e658fdcd0b
commit 0798cc0b0e
13 changed files with 121 additions and 122 deletions
@@ -7,10 +7,11 @@ import Dodge.Data
 import Dodge.Creature.AlertLevel.Data

 import Control.Lens
+import qualified Data.IntMap.Strict as IM
 targetYouWhenCognizant
    :: World
    -> Creature
    -> Creature
 targetYouWhenCognizant w cr = case cr ^? crAwarenessLevel . ix 0 of
-    Just (Cognizant _)  -> cr & crTarget .~ Just 0
+    Just (Cognizant _)  -> cr & crTarget .~ Just (_creatures w IM.! 0)
    _                   -> cr & crTarget .~ Nothing