anchor.diff:                  let character = updater character
                   { model with BattleCharacters = Map.add characterIndex character model.BattleCharacters }
               | None -> model
  -        do ignore tryUpdateCharacter
   
           static let updateCharacter updater characterIndex model =
  +            do ignore tryUpdateCharacter // temporarily quiet error about tryUpdateCharacter being unused
               let character = getCharacter characterIndex model
               let character = updater character
               { model with BattleCharacters = Map.add characterIndex character model.BattleCharacters }
  
positive.code:                    CharacterAnimationSheet = asset "Battle" "Jinn"
                     CharacterAnimationState = { TimeStart = 0L; CharacterAnimationCycle = ReadyCycle; Direction = Rightward; Stutter = 10 }
                     CharacterState = { CharacterType = Ally Jinn; PartyIndex = 0; ExpPoints = 0; HitPoints = 20; SpecialPoints = 1; PowerBuff = 1.0f; ShieldBuff = 1.0f; MagicBuff = 1.0f; CounterBuff = 1.0f; Statuses = Set.empty; WeaponOpt = Some "Wooden Sword"; ArmorOpt = None; Relics = [] }
                     ActionTime = 0 }] |>
                  List.mapi (fun i ally -> (AllyIndex i, ally))
               let enemies =
                  [{ CharacterPosition = v2 0.0f 64.0f
                     CharacterSize = v2 160.0f 160.0f
  
negative.code:                    CharacterAnimationSheet = asset "Battle" "Goblin"
                     CharacterAnimationState = { TimeStart = 0L; CharacterAnimationCycle = ReadyCycle; Direction = Leftward; Stutter = 10 }
                     CharacterState = { CharacterType = Enemy Goblin; PartyIndex = 1; ExpPoints = 0; HitPoints = 5; SpecialPoints = 1; PowerBuff = 1.0f; ShieldBuff = 1.0f; MagicBuff = 1.0f; CounterBuff = 1.0f; Statuses = Set.empty; WeaponOpt = Some "Melee"; ArmorOpt = None; Relics = [] }
                     ActionTime = 0 }]
               let characters =
                  Map.ofList
                      (List.mapi (fun i ally -> (AllyIndex i, ally)) allies @
                       List.mapi (fun i enemy -> (EnemyIndex i, enemy)) enemies)
               { BattleState = BattleReady 0L
                 BattleCharacters = characters
                 CurrentCommandOpt = None
                 ActionQueue = Queue.empty })
  
          static let getAllies model =
              model.BattleCharacters |> Map.toSeq |> Seq.filter (function (AllyIndex _, _) -> true | _ -> false) |> Seq.map snd |> Seq.toList
  