Start implementing attachable scroll items

2023-11-08 18:39:38 +00:00
parent 8f0dd8cd1b
commit f26d380c1b
20 changed files with 119 additions and 116 deletions
@@ -137,7 +137,8 @@ wasdWithAiming w speed cr
        (argV (_mousePos (_input w)) + (w ^. wCam . camRot))
        $ do
            itRef <- cr ^? crManipulation . manObject . inInventory . ispItem
-            _ <- cr ^? crInv . ix itRef . itScope . scopePos
+--            _ <- cr ^? crInv . ix itRef . itScope . scopePos
+            _ <- cr ^? crInv . ix itRef . itScope . remotePos
            return . argV $ mouseWorldPos (w ^. input) (w ^. wCam) -.- _crPos cr

 aimTurn :: Float -> Creature -> Creature