i->width = i->height = 0;

	i->type = type;

	IncIndustryTypeCount(type);

	i->produced_cargo[0] = indspec->produced_cargo[0];

	i->produced_cargo[1] = indspec->produced_cargo[1];

	i->accepts_cargo[0] = indspec->accepts_cargo[0];

	i->accepts_cargo[1] = indspec->accepts_cargo[1];

	i->accepts_cargo[2] = indspec->accepts_cargo[2];

	i->production_rate[0] = indspec->production_rate[0];

	i->production_rate[1] = indspec->production_rate[1];

		i->production_rate[0] = min((RandomRange(256) + 128) * i->production_rate[0] >> 8 , 255);

		i->production_rate[1] = min((RandomRange(256) + 128) * i->production_rate[1] >> 8 , 255);

	}

	i->town = t;

	i->owner = owner;

	r = Random();

	i->random_color = GB(r, 0, 4);

	i->counter = GB(r, 4, 12);

	i->random = GB(r, 16, 16);

	i->produced_cargo_waiting[0] = 0;

/** Change industry production or do closure

 * @param i Industry for which changes are performed

 * @param monthly true if it's the monthly call, false if it's the random call

 */

static void ChangeIndustryProduction(Industry *i, bool monthly)

{

	extern StringID MapGRFStringID(uint32 grfid, StringID str);

	StringID str = STR_NULL;

	bool closeit = false;

	const IndustrySpec *indspec = GetIndustrySpec(i->type);

	bool standard = true;

	bool suppress_message = false;

	byte div = 0;

	byte mul = 0;

	if (HasBit(indspec->callback_flags, monthly ? CBM_IND_MONTHLYPROD_CHANGE : CBM_IND_PRODUCTION_CHANGE)) {

		uint16 res = GetIndustryCallback(monthly ? CBID_INDUSTRY_MONTHLYPROD_CHANGE : CBID_INDUSTRY_PRODUCTION_CHANGE, 0, Random(), i, i->type, i->xy);

		if (res != CALLBACK_FAILED) {

			suppress_message = HasBit(res, 7);

			/* Get the custom message if any */

			if (HasBit(res, 8)) str = MapGRFStringID(indspec->grf_prop.grffile->grfid, GB(GetRegister(0x100), 0, 16));

			res = GB(res, 0, 4);

			switch(res) {

				default: NOT_REACHED();

				case 0x0: break;                  // Do nothing, but show the custom message if any

				case 0x1: div = 1; break;         // Halve industry production. If production reaches the quarter of the default, the industry is closed instead.

				case 0x2: mul = 1; break;         // Double industry production if it hasn't reached eight times of the original yet.

				case 0x3: closeit = true; break;  // The industry announces imminent closure, and is physically removed from the map next month.

				case 0x4: standard = true; break; // Do the standard random production change as if this industry was a primary one.

				case 0x5: case 0x6: case 0x7:     // Divide production by 4, 8, 16