Refactor crPos to be a V3

src/Dodge/Inventory.hs

@@ -16,6 +16,7 @@ module Dodge.Inventory (
     destroyAllInvItems,
 ) where
 
+import Linear
 import Data.Function
 import Data.Maybe
 import Dodge.Base
@@ -128,7 +129,7 @@ updateCloseObjects w =
             return (x /= TerminalDeactivated)
         _ -> True
     isclose x = dist y x < 40 && hasButtonLOS y x w
-    y = _crPos $ you w
+    y = you w ^. crPos . _xy
 
 changeSwapSel :: Int -> World -> World
 changeSwapSel yi w