anchor.diff:                  let (allySignals, model) =
                       List.fold (fun (commands, model) ally ->
                           if ally.ActionTime = Constants.Battle.ActionTime
  -                        then (Command (IndexedCommand (RegularMenuShow, ally.CharacterState.PartyIndex)) :: commands, model)
  +                        then (Command (IndexedCommandCmd (RegularMenuShow, ally.CharacterState.PartyIndex)) :: commands, model)
                           else (commands, model))
                           ([], model)
                           (getAllies model)
  
positive.code:         | ReticlesCancel
  
      and [<NoComparison>] BattleCommand =
          | InitializeBattle
          | FinalizeBattle
          | DestroyCharacter of CharacterIndex
          | ResetCharacter of CharacterIndex
          | IndexedCommand of IndexedCommand * int
          | FadeSong
  
      and Screen with
  
  
negative.code: 
          override this.Command (command, model, battle, world) =
              match command with
              | InitializeBattleCmd ->
                  let world = World.hintRenderPackageUse Assets.BattlePackage world
                  let world = World.hintAudioPackageUse Assets.BattlePackage world
                  let world = World.playSong 0 (1.0f * Constants.Audio.MasterSongVolume) Assets.BattleSong world
                  let world = battle.SetBattleModel { model with BattleState = BattleReady (World.getTickTime world) } world
                  just world
              | FinalizeBattleCmd ->
                  let world = World.hintRenderPackageDisuse Assets.BattlePackage world
                  just (World.hintAudioPackageDisuse Assets.BattlePackage world)
              | ResetCharacterCmd characterIndex ->
                  let character = getCharacter characterIndex model
                  let world =
                      if character.CharacterState.IsAlly then
  