anchor.diff:    for I:=1 to 4 do LoadStream.Read(fResourceDeliveryCount[I]);
     for I:=1 to 4 do LoadStream.Read(fResourceOut[I]);
     for I:=1 to 4 do LoadStream.Read(fResourceOrder[I], SizeOf(fResourceOrder[I]));
  -  for I:=1 to 4 do LoadStream.Read(fResOrderDesired[I], SizeOf(fResOrderDesired[I]));
  +//  for I:=1 to 4 do LoadStream.Read(fResOrderDesired[I], SizeOf(fResOrderDesired[I]));
   
     if fType in HOUSE_WORKSHOP then
       LoadStream.Read(fResourceOutPool, 20);
  
positive.code:     fResourceOrder: array [1..4] of Word; //If HousePlaceOrders=true then here are production orders
      fResourceOutPool: array[0..19] of Byte;
      fLastOrderProduced: Byte;
      fResOrderDesired: array [1..4] of Single;
  
      fIsOnSnow: Boolean;
      fSnowStep: Single;
  
negative.code: var
    I, Res: Byte;
    Ware: TKMWareType;
  //  BestBid: Single;
  //  TotalLeft: Integer;
  //  LeftRatio: array [1..4] of Single;
  begin
    Result := 0;
  
  