openttd-ottdgrfs: comparison economy.c

equal deleted inserted replaced

-:614bba52258d
+:0a7025304867
 }
 uint32 CalculateCompanyValue(Player *p) {
 	byte owner = p->index;
 	uint32 value;
 	{
 		Station *st;
 		uint num = 0;
 		FOR_ALL_STATIONS(st) {
 			if (st->xy != 0 && st->owner == owner) {
 				uint facil = st->facilities;
 				do num += (facil&1); while (facil >>= 1);
 			}
 /* Generate score for loan */
 	{
 		_score_part[owner][SCORE_LOAN] = score_info[SCORE_LOAN].needed - p->current_loan;
 	}
 	// Now we calculate the score for each item..
 	{
 		int i;
 		int total_score = 0;
 		int s;
 			s = (_score_part[owner][i] >= score_info[i].needed) ? score_info[i].score : ((_score_part[owner][i] * score_info[i].score) / score_info[i].needed);
 			if (s < 0) s = 0;
 			score += s;
 			total_score += score_info[i].score;
 		}
 		_score_part[owner][SCORE_TOTAL] = score;
 		// We always want the score scaled to SCORE_MAX (1000)
 		if (total_score != SCORE_MAX)
 			score = score * SCORE_MAX / total_score;
 	}
 	if (update) {
 	p->old_economy[0].performance_history = score;
 	UpdatePlayerHouse(p, score);
 	p->old_economy[0].company_value = CalculateCompanyValue(p);
 }
 	InvalidateWindow(WC_PERFORMANCE_DETAIL, 0);
 	return score;
 }
 // use 255 as new_player to delete the player.
 	byte old = _current_player;
 	_current_player = old_player;
 	if (new_player == 255) {
 		Subsidy *s;
 		for(s=_subsidies; s != endof(_subsidies); s++) {
 			if (s->cargo_type != 0xff && s->age >= 12) {
 				Station *st = DEREF_STATION(s->to);
 				if (st->owner == old_player)
 					s->cargo_type = 0xff;
 	}
 	// take care of rating in towns
 	{
 		Town *t;
 		// if a player takes over, give the ratings to that player.
 		if (new_player != 255) {
 			FOR_ALL_TOWNS(t) if (t->xy && HASBIT(t->have_ratings, old_player)) {
 				if (HASBIT(t->have_ratings, new_player)) {
 					// use max of the two ratings.
 		FOR_ALL_TOWNS(t) if (t->xy) {
 			t->ratings[old_player] = 500;
 			CLRBIT(t->have_ratings, old_player);
 		}
 	}
 	{
 		int num_train = 0;
 		int num_road = 0;
 		int num_ship = 0;
 		int num_aircraft = 0;
 	owner = p->index;
 	if (p->quarters_of_bankrupcy == 2) {
 year_2:
 		AddNewsItem( (StringID)(owner + 16),
 			NEWS_FLAGS(NM_CALLBACK, 0, NT_COMPANY_INFO, DNC_BANKRUPCY),0,0);
 	} else if (p->quarters_of_bankrupcy == 3) {
 		if (IS_HUMAN_PLAYER(owner))
 			goto year_2;
 void DrawNewsBankrupcy(Window *w)
 {
 	Player *p;
 	DrawNewsBorder(w);
 	p = DEREF_PLAYER(WP(w,news_d).ni->string_id & 15);
 	DrawPlayerFace(p->face, p->player_color, 2, 23);
 	GfxFillRect(3, 23, 3+91, 23+118, 0x4323);
 		DrawStringMultiCenter(
 			((w->width - 101) >> 1) + 98,
 			90,
 			STR_705D_HAS_BEEN_CLOSED_DOWN_BY,
 			w->width - 101);
 		break;
 	case 4:
 		DrawStringCentered(w->width>>1, 1, STR_705E_NEW_TRANSPORT_COMPANY_LAUNCHED, 0);
 		SET_DPARAM16(0, p->name_1);
 		SET_DPARAM32(1, p->name_2);
 		COPY_IN_DPARAM(4,ni->params, 2);
 		return STR_02B6;
 	default:
 		NOT_REACHED();
 	}
 	/* useless, but avoids compiler warning this way */
 	return 0;
 }
 static void PlayersGenStatistics()
 	for(i=0; i!=NUM_PRICES; i++) {
 		AddSingleInflation( (int32*)&_price + i, _price_frac + i, inf );
 	}
 	_economy.max_loan_unround += BIGMULUS(_economy.max_loan_unround, inf, 16);
 	if (_economy.max_loan + 50000 <= _economy.max_loan_unround)
 		_economy.max_loan += 50000;
 	inf = _economy.infl_amount_pr * 54;
 	for(i=0; i!=NUM_CARGO; i++) {
 		AddSingleInflation(
 			_cargo_payment_rates + i,
 			_cargo_payment_rates_frac + i,
 			inf
 		);
 	}
 		if (!p->is_active)
 			continue;
 		_current_player = p->index;
 		SET_EXPENSES_TYPE(EXPENSES_LOAN_INT);
 		SubtractMoneyFromPlayer(BIGMULUS(p->current_loan, interest, 16));
 		SET_EXPENSES_TYPE(EXPENSES_OTHER);
 		SubtractMoneyFromPlayer(_price.station_value >> 2);
 	}
 }
 void DeleteSubsidyWithIndustry(byte index)
 {
 	Subsidy *s;
 	for(s=_subsidies; s != endof(_subsidies); s++) {
 		if (s->cargo_type != 0xFF && s->age < 12 &&
 				s->cargo_type != CT_PASSENGERS && s->cargo_type != CT_MAIL &&
 				(index == s->from || (s->cargo_type!=CT_GOODS && s->cargo_type!=CT_FOOD && index==s->to))) {
 			s->cargo_type = 0xFF;
 		}
 	}
 }
 void DeleteSubsidyWithStation(byte index)
 {
 	Subsidy *s;
 	bool dirty = false;
 	for(s=_subsidies; s != endof(_subsidies); s++) {
 		if (s->cargo_type != 0xFF && s->age >= 12 &&
 				(s->from == index || s->to == index)) {
 			s->cargo_type = 0xFF;
 			dirty = true;
 		}
 	}
 	if (dirty)
 		InvalidateWindow(WC_SUBSIDIES_LIST, 0);
 }
 	fr->cargo = cargo;
 	if (cargo == CT_GOODS || cargo == CT_FOOD) {
 		// The destination is a town
 		Town *t = DEREF_TOWN(RandomRange(_total_towns));
 		// Only want big towns
 		if (t->xy == 0 || t->population < 900)
 			return;
 		fr->distance = GetTileDist(i->xy, t->xy);
 		fr->to = t;
 	} else {
 		// The destination is an industry
 		Industry *i2 = DEREF_INDUSTRY(RandomRange(_total_industries));
 		// The industry must accept the cargo
 		if (i == i2 || i2->xy == 0 ||
 				(cargo != i2->accepts_cargo[0] &&
 				cargo != i2->accepts_cargo[1] &&
 				cargo != i2->accepts_cargo[2]))
 			return;
 		fr->distance = GetTileDist(i->xy, i2->xy);
 		fr->to = i2;
 	}
 }
 static bool CheckSubsidyDuplicate(Subsidy *s)
 {
 	Subsidy *ss;
 	for(ss=_subsidies; ss != endof(_subsidies); ss++) {
 		if (s != ss &&
 //				ss->age < 12 &&
 				ss->from == s->from &&
 				ss->to == s->to &&
 				ss->cargo_type == s->cargo_type) {
 			s->cargo_type = 0xFF;
 			return true;
 		}
 	}
 		s = _subsidies;
 		while (s->cargo_type != 0xFF) {
 			if (++s == endof(_subsidies))
 				goto no_add;
 		}
 		n = 1000;
 		do {
 			FindSubsidyPassengerRoute(&fr);
 			if (fr.distance <= 70) {
 				s->cargo_type = CT_PASSENGERS;
 	f = 255;
 	if (transit_days > _cargoc.transit_days_1[cargo]) {
 		transit_days -= _cargoc.transit_days_1[cargo];
 		f -= transit_days;
 		if (transit_days > _cargoc.transit_days_2[cargo]) {
 			transit_days -= _cargoc.transit_days_2[cargo];
 			if (f < transit_days)
 				f = 0;
 	return BIGMULSS(dist * f * num_pieces, _cargo_payment_rates[cargo], 21);
 }
 static void DeliverGoodsToIndustry(TileIndex xy, byte cargo_type, int num_pieces)
 {
 	Industry *ind, *best;
 	int t, u;
 	/* Check if there's an industry close to the station that accepts
 	 * the cargo */
 	best = NULL;
 	for(ind = _industries; ind != endof(_industries); ind++) {
 		if (ind->xy != 0 && (cargo_type == ind->accepts_cargo[0] || cargo_type
 				 == ind->accepts_cargo[1] || cargo_type == ind->accepts_cargo[2]) &&
 				 ind->produced_cargo[0] != 0xFF &&
 				 ind->produced_cargo[0] != cargo_type &&
 				 (t=GetTileDist(ind->xy, xy)) < u) {
 			u = t;
 			best = ind;
 		}
 	}
 	}
 	/* check if there's a new subsidy that applies.. */
 	for(s=_subsidies; s != endof(_subsidies); s++) {
 		if (s->cargo_type == cargo_type && s->age < 12) {
 			/* Check distance from source */
 			if (cargo_type == CT_PASSENGERS || cargo_type == CT_MAIL) {
 				xy = DEREF_TOWN(s->from)->xy;
 			} else {
 				xy = (DEREF_INDUSTRY(s->from))->xy;
 			}
 			if (GetTileDist1D(xy, from->xy) > 9)
 				continue;
 			/* Check distance from dest */
 			if (cargo_type == CT_PASSENGERS || cargo_type == CT_MAIL || cargo_type == CT_GOODS || cargo_type == CT_FOOD) {
 				xy = DEREF_TOWN(s->to)->xy;
 			} else {
 				xy = (DEREF_INDUSTRY(s->to))->xy;
 			p = DEREF_PLAYER(_current_player);
 			SET_DPARAM16(0, p->name_1);
 			SET_DPARAM32(1, p->name_2);
 			AddNewsItem(
 				STR_2031_SERVICE_SUBSIDY_AWARDED + _opt.diff.subsidy_multiplier,
 				NEWS_FLAGS(NM_NORMAL, NF_TILE, NT_SUBSIDIES, 0),
 				pair.a, pair.b);
 			InvalidateWindow(WC_SUBSIDIES_LIST, 0);
 			return true;
 		if (cargo_type == CT_STEEL)  t->new_act_water += num_pieces;
 	}
 	// Give the goods to the industry.
 	DeliverGoodsToIndustry(s_to->xy, cargo_type, num_pieces);
 	// Determine profit
 	{
 		int t = GetTileDist(s_from->xy, s_to->xy);
 		int r = num_pieces;
 		profit = 0;
 	st = DEREF_STATION(last_visited = v->last_station_visited);
 	for(;;) {
 		if (v->cargo_cap == 0)
 			goto next_vehicle;
 		ge = &st->goods[v->cargo_type];
 		/* unload? */
 		if (v->cargo_count != 0) {
 			if (v->cargo_source != (byte)last_visited && ge->waiting_acceptance & 0x8000) {
 				result |= 1;
 				v->cargo_count = 0;
 			} else if (u->next_order & OF_UNLOAD) {
 				/* unload goods and let it wait at the station */
 				st->time_since_unload = 0;
 				if ((t=ge->waiting_acceptance & 0xFFF) == 0) {
 					// No goods waiting at station
 					ge->enroute_time = v->cargo_days;
 					ge->enroute_from = v->cargo_source;
 				} else {
 				ge->waiting_acceptance = (ge->waiting_acceptance &~0xFFF) | min(v->cargo_count + t, 0xFFF);
 				result |= 2;
 				v->cargo_count = 0;
 			}
 		}
 		/* don't pick up goods that we unloaded */
 		if (u->next_order & OF_UNLOAD)
 			goto next_vehicle;
 		/* update stats */
 		ge->days_since_pickup = 0;
 		t = u->max_speed;
 		if (u->type == VEH_Road) t >>=1;
 		// if last speed is 0, we treat that as if no vehicle has ever visited the station.
 		ge->last_speed = t < 255 ? t : 255;
 		ge->last_age = _cur_year - v->build_year;
 		// If there's goods waiting at the station, and the vehicle
 			if (cap > count) cap = count;
 			v->cargo_count += cap;
 			ge->waiting_acceptance -= cap;
 			unloading_time += cap;
 			st->time_since_load = 0;
 			// And record the source of the cargo, and the days in travel.
 			v->cargo_source = ge->enroute_from;
 			v->cargo_days = ge->enroute_time;
 			result |= 2;
 			st->last_vehicle = v->index;

changeset 193	0a7025304867
parent 147	d0c8100d18cf
child 200	03b8104d1479