anchor.diff:    LoadStream.Read(Houses, SizeOf(Houses));
     LoadStream.Read(Units, SizeOf(Units));
     LoadStream.Read(Wares, SizeOf(Wares));
  -//  LoadStream.Read(MilitiaTrainedInTownHall);
     fWareDistribution.Load(LoadStream);
   
     LoadStream.Read(fChartCount);
  
positive.code:   SaveStream.Write(Houses, SizeOf(Houses));
    SaveStream.Write(Units, SizeOf(Units));
    SaveStream.Write(Wares, SizeOf(Wares));
  //  SaveStream.Write(MilitiaTrainedInTownHall);
    fWareDistribution.Save(SaveStream);
  
    SaveStream.Write(fChartCount);
  
negative.code:                   Result := Units[aType].Initial + Units[aType].Trained - Units[aType].Lost;
                    if aType = utRecruit then
                      for UT := WARRIOR_EQUIPABLE_BARRACKS_MIN to WARRIOR_EQUIPABLE_BARRACKS_MAX do
                        Dec(Result, Units[UT].Trained); //Trained soldiers use a recruit
                  end;
    end;
  