anchor.diff:  
                       match event.Event with
                       | ActionEvent.MapChange mapChange ->
  -                        viewOnlyTileMap <- createTileMapFromData mapChange.TileMapData
  -                        viewOnlyTimeTable <- TimeTable()
  -                        viewCharacterTable <- CharacterTable(viewOnlyTimeTable)
  +                        let timeTable = TimeTable()
  +
  +                        loopContext <-
  +                            { loopContext with
  +                                  TileMap = createTileMapFromData mapChange.TileMapData
  +                                  Characters = CharacterTable(timeTable)
  +                                  TimeTable = timeTable }
   
                           mapChange.Characters
  -                        |> Array.iter (Table.AddRow viewCharacterTable)
  +                        |> Array.iter (Table.AddRow loopContext.Characters)
                       | _ ->
                           event.Updates
                           |> List.iter
  
positive.code:                 |> Option.defaultValue SadRogue.Primitives.Color.TransparentBlack
  
              base.Print(position.X, position.Y, representation.AnsiCharacter.ToString(), foregroundColor)
  
  
  
  let StartMainStateMachine () =
      let mainGameState =
  
negative.code:                 )
                  |> ignore
  
          for (position, character) in loopContext.Characters.ByPositions do
              let color1 = Color.Black
  
              let representation =
  