814 	Vehicle *v;

   814 	Vehicle *v;

   815 	uint unit_num;

   815 	uint unit_num;

   816 	uint tile = TILE_FROM_XY(x,y);

   816 	uint tile = TILE_FROM_XY(x,y);

   817 	Engine *e;

   817 	Engine *e;

   818 

   818 

   819 	SET_EXPENSES_TYPE(EXPENSES_NEW_VEHICLES);

   821 	SET_EXPENSES_TYPE(EXPENSES_NEW_VEHICLES);

   820 

   822 

   821 	value = EstimateShipCost(p1);

   823 	value = EstimateShipCost(p1);

   822 	if (flags & DC_QUERY_COST)

   824 	if (flags & DC_QUERY_COST)

   823 		return value;

   825 		return value;