Improve falling, hover corpse

2026-04-05 09:31:25 +01:00
parent 3952b2b1b7
commit 73dfd1f319
4 changed files with 16 additions and 13 deletions
@@ -39,6 +39,7 @@ tocrs = uvWorld . cWorld . lWorld . creatures

 testStringInit :: Universe -> [String]
 testStringInit u = u ^.. tocrs . each . crStance . carriage . to show
+    <> u ^.. tocrs . each . crPos . _z . to show

 --  where
 --    tocr = uvWorld . cWorld . lWorld . creatures . ix 0