anchor.diff:  
   procedure TKMHouseSchool.SyncLoad;
   begin
  -  UnitWIP := fPlayers.GetUnitByID(cardinal(UnitWIP));
  +  UnitWIP := fPlayers.GetUnitByID(Cardinal(UnitWIP));
   end;
   
   
  
positive.code: end;
  
  
  procedure TKMHouseStore.ResAddToIn(aResource:TResourceType; const aCount:word=1; aFromScript:boolean=false);
  var R: TResourceType;
  begin
    case aResource of
  
negative.code: end;
  
  
  constructor TKMHouseSchool.Load(LoadStream: TKMemoryStream);
  begin
    inherited;
    LoadStream.Read(UnitWIP, 4);
  