anchor.diff:                  withMsg PoiseCharacters battle
               else just battle
   
  -        and updateCurrentCommand time currentCommand battle =
  +        and private updateCurrentCommand time currentCommand battle =
               let timeLocal = time - currentCommand.TimeStart
               match currentCommand.ActionCommand.Action with
               | Attack ->
  
positive.code:             | ReticlesCancel characterIndex ->
                  let battle =
                      Battle.tryUpdateCharacter (fun character ->
                          match Character.getActionTypeOpt character with
                          | Some actionType ->
                              let inputState =
                                  match actionType with
  
negative.code:                 let battle = Battle.updateCurrentCommandOpt (constant None) battle
                  just battle
  
          let private updateConsume consumable sourceIndex (targetIndexOpt : CharacterIndex option) time timeLocal battle =
              match Battle.tryGetCharacter sourceIndex battle with
              | Some source when source.IsHealthy ->
                  match targetIndexOpt with
  