anchor.diff:          | SpecialMenuSelect of string
           | ItemMenuSelect of string
           | ReticlesCancel
  -        | PlayerInputHide
  +        | AllyInputHide
   
       and [<NoComparison>] BattleCommand =
           | FadeSong
  
positive.code:                 let world = reticles.SetVisible false world
                  let world = previousMenu.SetVisible true world
                  just (previousMenu.SetCenter (ally.GetCenter world) world)
              | PlayerInputHide ->
                  let world =
                      let entities = Simulants.AllInputEntities index
                      List.fold (fun world (entity : Entity) -> entity.SetVisible false world) world entities
  
negative.code:                 let model = updateCharacter (fun character -> { character with ActionTime = 0 }) characterIndex model
                  let character = getCharacter characterIndex model
                  if character.CharacterState.IsAlly
                  then withCmd model (IndexedCommand (AllyInputHide, character.CharacterState.PartyIndex))
                  else just model
              | ReticlesSelect (targetEntity, allyIndex) ->
                  match model.BattleState with
  