Delete cruft, add Reader monad to some internal ai

src/Dodge/Creature/SetTarget.hs

@@ -8,10 +8,11 @@ import Dodge.Creature.AlertLevel.Data
 
 import Control.Lens
 import qualified Data.IntMap.Strict 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 ^? crAwarenessLevel . ix 0 of
-    Just (Cognizant _)  -> cr & crTarget .~ Just (_creatures w IM.! 0)
+    Just (Cognizant _)  -> cr & crTarget ?~ _creatures w IM.! 0
     _                   -> cr & crTarget .~ Nothing