anchor.diff:    KM_Game, KM_CommonUtils, KM_Resource, KM_HouseTownhall, KM_HouseBarracks, KM_HouseMarket;
   
   const
  -  CHECKPOINTS_MAX_CNT = 300;
  +  CHECKPOINTS_MAX_CNT = 500;
   
   
   { TKMCheckpoint }
  
positive.code: begin
    inherited;
  
    fCheckpoints := TList<TKMCheckpoint>.Create;
  end;
  
  
  
negative.code:     fCounter: Cardinal;
  
      fCheckpointPos: Integer;
      fCheckpoints: TObjectList<TKMCheckpoint>;
  
      fOnUndoRedo: TEvent;
      fOnAddCheckpoint: TEvent;
  