Tweak "magnets" that affect bullet movement

2024-12-24 10:48:28 +00:00
parent 02b2f9831f
commit fb1553bf3c
17 changed files with 226 additions and 257 deletions
@@ -27,7 +27,9 @@ import qualified Data.Map.Strict as M

 testStringInit :: Universe -> [String]
 testStringInit u = 
-    map show $ M.toList $ u ^. uvWorld . input . pressedKeys
+    (map show $ u ^.. uvWorld . cWorld . lWorld . oldMagnets)
+    <>
+    (map show $ u ^.. uvWorld . cWorld . lWorld . bullets)
 --  fromMaybe mempty $ do
 --        cr <- u ^? uvWorld . cWorld . lWorld . creatures . ix 0
 --        let itms = IM.elems $ cr ^. crInv