Add machine direction to turret direction

2026-03-12 17:58:54 +00:00
parent 24af6a731b
commit be72daf6d5
6 changed files with 35 additions and 18 deletions
@@ -85,6 +85,7 @@ updateTurret rotSpeed mc w =
 --    (elecDams, dams) = partition isElectrical $ _mcDamage mc
 --    dam = sum $ map _dmAmount dams
 --    elecDam = sum $ map _dmAmount elecDams
+    mcdir = _mcDir mc
    doTurn
        | seesYou =
            cWorld
@@ -94,7 +95,7 @@ updateTurret rotSpeed mc w =
                . mcType
                . mctTurret
                . tuDir
-                %~ turnTo rotSpeed mcpos ypos
+                %~ ((subtract mcdir) . turnTo rotSpeed mcpos ypos . (+mcdir))
        | otherwise = id
    closeFireAngle = seesYou -- && angleVV (ypos -.- mcpos) (unitVectorAtAngle mcdir) < 1
    updateFiringStatus