anchor.diff:  procedure TKMHandStats.UnitCreated(aType: TKMUnitType; aWasTrained: Boolean{; aFromTownHall: Boolean = False});
   begin
     if aWasTrained then
  -//  begin
  -    Inc(Units[aType].Trained)//;
  -//    if aFromTownHall and (aType = utMilitia) then
  -//      Inc(MilitiaTrainedInTownHall);
  -//  end else
  +    Inc(Units[aType].Trained)
     else
       Inc(Units[aType].Initial);
   end;
  
positive.code:   LoadStream.Read(Houses, SizeOf(Houses));
    LoadStream.Read(Units, SizeOf(Units));
    LoadStream.Read(Wares, SizeOf(Wares));
  //  LoadStream.Read(MilitiaTrainedInTownHall);
    fWareDistribution.Load(LoadStream);
  
    LoadStream.Read(fChartCount);
  
negative.code:   SaveStream.Write(Houses, SizeOf(Houses));
    SaveStream.Write(Units, SizeOf(Units));
    SaveStream.Write(Wares, SizeOf(Wares));
    fWareDistribution.Save(SaveStream);
  
    SaveStream.Write(fChartCount);
  