Improve pulse laser/ball hit detection

2026-03-26 15:07:33 +00:00
parent 40f5d22d88
commit c53e60b956
13 changed files with 193 additions and 185 deletions
@@ -33,9 +33,8 @@ import Data.Monoid
 import RandomHelp

 testStringInit :: Universe -> [String]
-testStringInit _ = mempty
--testStringInit u = [show $ u ^? uvWorld . input . mouseContext . mcoRotateDist]
--    (fmap show $ u ^.. uvWorld . cWorld . lWorld . machines . each . mcType . _McDamSensor . sensAmount)
+testStringInit u = 
+    (fmap show $ u ^.. uvWorld . cWorld . lWorld . creatures . each . crHP . _HP)
 --    <> (fmap show $ u ^.. uvWorld . cWorld . lWorld . machines . each . mcMaterial)
 --testStringInit u = map show (u ^.. uvWorld . cWorld . lWorld . machines . traverse . mcDir)
 --testStringInit u =  map show