From 512bc4c1ab449ad2117cc448abc1c0f40453a25c Mon Sep 17 00:00:00 2001
From: justin <justin.g.kruger@gmail.com>
Date: Sat, 4 Jun 2022 22:14:21 +0100
Subject: [PATCH] Fix remote rocket scope

---
 src/Dodge/Update/Camera.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/Dodge/Update/Camera.hs b/src/Dodge/Update/Camera.hs
index 052273908..da1e2c177 100644
--- a/src/Dodge/Update/Camera.hs
+++ b/src/Dodge/Update/Camera.hs
@@ -17,6 +17,7 @@ import Dodge.GameRoom
 import Control.Lens
 --import Control.Applicative
 import Data.Maybe
+import Control.Monad
 import qualified Data.Set as S
 import qualified Data.IntMap.Strict as IM
 import qualified SDL
@@ -39,7 +40,10 @@ moveZoomCamera cfig w = w
     & defaultZoom .~ newDefaultZoom
     & itemZoom .~ newItemZoom
   where
-    newvf = _crPos (you w) +.+ fromMaybe (V2 0 0) (yourItem w ^? _Just . itScope . scopePos)
+    newvf = _crPos (you w) +.+ fromMaybe (V2 0 0) mscopeoffset
+    mscopeoffset = do
+        guard (SDL.ButtonRight `S.member` _mouseButtons w)
+        yourItem w ^? _Just . itScope . scopePos
     newcen = newvf +.+ offset
     offset = rotateV (_cameraRot w) $ ((newzoom - newDefaultZoom)/(newDefaultZoom*newzoom)) *.* _mousePos w
     --newzoom = changeZoom (_cameraZoom w) idealZoom'