Remove duplicated selection/manipulation positions
Needs more testing to make sure it all works properly
This commit is contained in:
@@ -86,7 +86,7 @@ crAwayFromPost cr = case _apGoal $ _crActionPlan cr of
|
||||
|
||||
crInAimStance :: AimStance -> World -> Creature -> Bool
|
||||
crInAimStance as w cr = cr ^? crStance . posture == Just Aiming
|
||||
&& w ^? hud . manObject . imAimStance == Just as
|
||||
&& w ^? hud . manObject . hiAimStance == Just as
|
||||
--revise1 && cr ^? crManipulation . manObject . imAimStance == Just as
|
||||
|
||||
oneH :: World -> Creature -> Bool
|
||||
|
||||
Reference in New Issue
Block a user