Make optical scope relative to camera rotation

2024-09-21 16:52:04 +01:00
parent 9dff2fcd7a
commit 27e07a10c4
11 changed files with 200 additions and 832 deletions
@@ -1,6 +1,6 @@
 module Dodge.Base.You 
    (you
-    , yourScopeInvID
+--    , yourScopeInvID
    , yourInv
    , yourScrollAttachment
    , yourItem
@@ -30,11 +30,11 @@ 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
+--yourScopeInvID :: World -> Maybe Int
+--yourScopeInvID w = do
+--    (i, params) <- yourScrollAttachment w
+--    _ <- params ^? opticPos
+--    return i

 yourInv :: World -> IM.IntMap Item
 yourInv = _crInv . you