Cleanup inventory management, tweak dragging start

2026-05-15 10:35:17 +01:00
parent 17f8707f62
commit e56a953c9b
23 changed files with 70 additions and 180 deletions
@@ -87,7 +87,6 @@ crAwayFromPost cr = case _apGoal $ _crActionPlan cr of
 crInAimStance :: AimStance -> World -> Creature -> Bool
 crInAimStance as w cr = cr ^? crStance . posture == Just Aiming
    && w ^? hud . manObject . hiAimStance == Just as
--revise1    && cr ^? crManipulation . manObject . imAimStance == Just as

 oneH :: World -> Creature -> Bool
 oneH = crInAimStance OneHand