Draw cursor when targeting with HUD

2024-09-30 21:11:56 +01:00
parent d8d3a01f06
commit b7d949c035
11 changed files with 146 additions and 219 deletions
@@ -40,7 +40,7 @@ doWdWd we = case we of
        cr <- w ^? cWorld . lWorld . creatures . ix crid
        --it <- getItem itid w
        itRef <- cr ^? crManipulation . manObject . imSelectedItem
-        it <- invTrees (_crInv cr) ^? ix itRef
+        it <- invTrees (_crInv cr) ^? ix itRef  -- note this probably doesn't always work, invTrees probably only returns rooted trees
        return $ doItCrWdWd f it cr w
    WdWdFromItCrixWdWd it crid f -> \w -> fromMaybe w $ do
        cr <- w ^? cWorld . lWorld . creatures . ix crid