Add check to cylinder segment collision, break rocket projectiles

2025-10-12 00:26:48 +01:00
parent 8245115763
commit 33de1f79b6
9 changed files with 147 additions and 91 deletions
@@ -61,10 +61,9 @@ locOrient loc cr =

 handHandleOrient :: LocationDT CItem -> Creature -> Point3Q
 handHandleOrient loc cr =
-    handOrient cr (itemAimStance (loc' ^. locDT))
-        `Q.comp` handleOrient loc'
+    handOrient cr (itemAimStance (l ^. locDT)) `Q.comp` handleOrient l
  where
-    loc' = locToTop loc
+    l = locToTop loc

 shoulderHeight :: Float
 shoulderHeight = 18