From 8d4efb1f8e1f138fb88d6363f4907a9cc262d528 Mon Sep 17 00:00:00 2001
From: justin <justin.g.kruger@gmail.com>
Date: Mon, 16 Mar 2026 12:13:37 +0000
Subject: [PATCH] Add sweep to laser turret

---
 src/Dodge/Machine/Update.hs | 20 +++-----------------
 src/Dodge/Room/Tutorial.hs  |  2 +-
 2 files changed, 4 insertions(+), 18 deletions(-)

diff --git a/src/Dodge/Machine/Update.hs b/src/Dodge/Machine/Update.hs
index d77d8cc43..833fe23a1 100644
--- a/src/Dodge/Machine/Update.hs
+++ b/src/Dodge/Machine/Update.hs
@@ -67,24 +67,15 @@ updateTurret rotSpeed mc w =
             . ix mcid
             . mcType 
             . mctTurretStun %~ (max 0 . subtract 1)
---    dodamage =
---        cWorld
---            . lWorld
---            . machines
---            . ix mcid
---            %~ ( (mcDamage .~ [Electrical (min 2500 $ max 0 (elecDam - 10))])
---                    . (mcHP -~ dam)
---               )
     elecDamBranch
         | mc ^?! mcType . mctTurretStun  < 1 = updateFiringStatus . doTurn
         | otherwise = id
     mcid = _mcID mc
     ypos = you w ^. crPos . _xy
+    aimpos = ypos + offset * vNormal (normalize (ypos - mcpos))
+    offset = 10 * sin (fromIntegral (w ^. cWorld . cClock) / (pi * 10))
     mcpos = _mcPos mc
     seesYou = hasLOSIndirect mcpos ypos w
---    (elecDams, dams) = partition isElectrical $ _mcDamage mc
---    dam = sum $ map _dmAmount dams
---    elecDam = sum $ map _dmAmount elecDams
     mcdir = _mcDir mc
     doTurn
         | seesYou =
@@ -95,7 +86,7 @@ updateTurret rotSpeed mc w =
                 . mcType
                 . mctTurret
                 . tuDir
-                %~ ((subtract mcdir) . turnTo rotSpeed mcpos ypos . (+mcdir))
+                %~ ((subtract mcdir) . turnTo rotSpeed mcpos aimpos . (+mcdir))
         | otherwise = id
     closeFireAngle = seesYou -- && angleVV (ypos -.- mcpos) (unitVectorAtAngle mcdir) < 1
     updateFiringStatus
@@ -111,11 +102,6 @@ updateTurret rotSpeed mc w =
                 . tuFireTime
                 %~ (max 0 . subtract 1)
 
---isElectrical :: Damage -> Bool
---isElectrical dm = case dm of
---    Electrical{} -> True
---    _ -> False
-
 mcUseItem :: Machine -> World -> World
 mcUseItem mc w = fromMaybe w $ do
     tu <- mc ^? mcType . mctTurret
diff --git a/src/Dodge/Room/Tutorial.hs b/src/Dodge/Room/Tutorial.hs
index 03ca40f95..b2b228a26 100644
--- a/src/Dodge/Room/Tutorial.hs
+++ b/src/Dodge/Room/Tutorial.hs
@@ -55,7 +55,7 @@ tutAnoTree = do
 --        , return . tToBTree "door" $ treePost [corridor, cleatOnward door]
         , corDoor
 --        , tToBTree "cor" . return <$> shuffleLinks (cleatOnward corridor)
-        , lasCenRunClose
+        , lasCenRunClose'
 --        , passthroughLockKeyLists lockRoomKeyItems itemRooms
         , tToBTree "door" . return <$> return (cleatOnward door)
         , tToBTree "cor" . return <$> shuffleLinks (cleatOnward corridor)