Add in "linear" lWorld to separate time reversable worlds

src/Dodge/Projectile/Create.hs

@@ -29,7 +29,7 @@ fireShell it cr =
 
 makeShell :: Item -> Creature -> [ProjectileUpdate] -> World -> World
 makeShell it cr theupdate w =
-    w & cWorld . projectiles . at i
+    w & cWorld . lWorld . projectiles . at i
         ?~ Shell
             { _prjPos = pos
             , _prjZ = 20
@@ -46,7 +46,7 @@ makeShell it cr theupdate w =
             , _prjMITID = Just $ _itID it
             }
   where
-    i = IM.newKey $ _props (_cWorld w)
+    i = IM.newKey $ w ^. cWorld . lWorld . props-- _props (_cWorld w)
     dir = _crDir cr
     pos = _crPos cr +.+ rotateV dir (V2 (_crRad cr + 1) 0)
     am = _heldConsumption $ _itUse it