anchor.diff:  
   procedure TFormMain.Civilians1Click(Sender: TObject);
   begin
  -  if ConfirmExport then
  -    gRes.ExportUnitAnim(CITIZEN_MIN, CITIZEN_MAX);
  +  gRes.ExportUnitAnim(CITIZEN_MIN, CITIZEN_MAX);
   end;
   
   
  
positive.code: 
  procedure TFormMain.Export_TreeAnim1Click(Sender: TObject);
  begin
    if ConfirmExport then
      gRes.ExportTreeAnim;
  end;
  
  procedure TFormMain.Export_HouseAnim1Click(Sender: TObject);
  begin
    if ConfirmExport then
      gRes.ExportHouseAnim;
  end;
  
  
  
negative.code: 
  procedure TFormMain.SoldiersClick(Sender: TObject);
  begin
    gRes.ExportUnitAnim(WARRIOR_MIN, WARRIOR_MAX);
  end;
  
  
  