anchor.diff:                      match field.BattleOpt with
                       | Some battle ->
                           match battle.BattleState with
  -                        | BattleCease (_, time) when time >= 120L -> withCmd model (Show Simulants.Field)
  +                        | BattleCease (_, time) ->
  +                            if World.getTickTime world - time >= 120L
  +                            then withCmd model (Show Simulants.Field)
  +                            else withCmd model (Show Simulants.Battle)
                           | _ -> withCmd model (Show Simulants.Battle)
                       | None -> withCmd model (Show Simulants.Field)
               | UpdateFieldModel field ->
                   match model with
                   | Splashing | Title | Credits -> just model
                   | Gameplay _ -> just (Gameplay field)
  +            | UpdateBattleModel battle ->
  +                match model with
  +                | Splashing | Title | Credits -> just model
  +                | Gameplay field -> just (Gameplay (FieldModel.updateBattleOpt (constant (Some battle)) field))
               | SetModel model -> just model
   
           override this.Command (_, command, _, world) =
  
positive.code:     type [<NoComparison>] OmniMessage =
          | Update
          | UpdateFieldModel of FieldModel
          | SetModel of OmniModel
  
      type [<NoComparison>] OmniCommand =
  
negative.code:              Simulants.CreditsBack.ClickEvent => [msg (SetModel Title)]
               Simulants.FieldBack.ClickEvent => [msg (SetModel Title)]
               Simulants.TitleExit.ClickEvent => [cmd Exit]
               Simulants.Field.FieldModel.ChangeEvent =|> fun evt -> [msg (UpdateFieldModel (evt.Data.Value :?> FieldModel))]
               Simulants.Battle.BattleModel.ChangeEvent =|> fun evt -> [msg (UpdateBattleModel (evt.Data.Value :?> BattleModel))]]
  
          override this.Message (model, message, _, world) =
              match message with
              | Update ->
                  match model with
  