Fix aiming with scope

src/Dodge/Base/You.hs

@@ -1,5 +1,6 @@
 module Dodge.Base.You where
 
+import TreeHelp
 import Dodge.Data.World
 import Dodge.HeldScroll
 import qualified IntMapHelp as IM
@@ -25,8 +26,17 @@ yourScrollAttachment w = do
     guard (canHeldScrollAttach itm atparams)
     return (i - 1, atparams)
 
+yourScopeInvID :: World -> Maybe Int
+yourScopeInvID w = do
+    (i, params) <- yourScrollAttachment w
+    _ <- params ^? opticPos
+    return i
+
 yourInv :: World -> IM.IntMap Item
 yourInv = _crInv . you
 
+attachmentTree :: Creature -> [Tree Int]
+attachmentTree cr = []
+
 --yourInvSel :: World -> Int
 --yourInvSel = crSel . you