Add in "linear" lWorld to separate time reversable worlds

src/Dodge/Humanoid.hs

@@ -6,7 +6,6 @@ import Dodge.Creature
 import Dodge.Data.CreatureEffect
 import Dodge.Data.World
 import Geometry
-import qualified IntMapHelp as IM
 import LensHelp
 import RandomHelp
 
@@ -221,7 +220,7 @@ chooseMovementPistol' cr w =
   where
     g = _randGen w
     cpos = _crPos cr
-    ycr = _creatures (_cWorld w) IM.! 0
+    ycr = w ^?! cWorld . lWorld . creatures . ix 0
     ypos = _crPos ycr
     chargeProb
         | dist cpos ypos > 300 = 5