Add in "linear" lWorld to separate time reversable worlds

2022-10-28 12:24:51 +01:00
parent 5f6bd43599
commit 7e790b7153
130 changed files with 827 additions and 980 deletions
@@ -99,7 +99,7 @@ chaseCritAwarenessUpdate w cr = case _cpAttention $ _crPerception cr of
                                  replicate numjits [RandomImpulse thejitter]
                                    ++ [[ChangeStrategy $ CloseToMelee 0]]
                                )
-                            , AimAt 0 (_crPos $ _creatures (_cWorld w) IM.! 0)
+                            , AimAt 0 (w ^?! cWorld . lWorld . creatures . ix 0 . crPos) --_crPos $ _creatures (_cWorld w) IM.! 0)
                            ]
            | otherwise = id

@@ -152,7 +152,7 @@ newExtraAwareness cr w cid
    | otherwise = Just . Suspicious $ doFloatFloat (_viFOV vi) ang * doFloatFloat (_viDist vi) d * awakeLevelPerception cr
  where
    vi = _cpVision $ _crPerception cr
-    tpos = _crPos $ _creatures (_cWorld w) IM.! cid
+    tpos = w ^?! cWorld . lWorld . creatures . ix cid . crPos -- _crPos $ _creatures (_cWorld w) IM.! cid
    cpos = _crPos cr
    ang = angleVV (unitVectorAtAngle (_crDir cr)) (tpos - cpos)
    d = dist tpos cpos