1

#include "stdafx.h"

     2

#include "ttd.h"

     3

#include "news.h"

     4

#include "player.h"

     5

#include "station.h"

     6

#include "vehicle.h"

     7

#include "window.h"

     8

#include "gfx.h"

     9

#include "command.h"

    10

#include "saveload.h"

    11

#include "economy.h"

    12

#include "industry.h"

    13

#include "town.h"

    14

    15

static void UpdatePlayerHouse(Player *p, uint score)

    16

{

    17

	byte val;

    18

	uint tile = p->location_of_house;

    19

    20

	if (tile == 0)

    21

		return;

    22

    23

	(val = 128, score < 170) ||

    24

	(val+= 4, score < 350) ||

    25

	(val+= 4, score < 520) ||

    26

	(val+= 4, score < 720) ||

    27

	(val+= 4, true);

    28

    29

/* house is already big enough */

    30

	if (val <= _map5[tile])

    31

		return;

    32

    33

	_map5[tile + TILE_XY(0,0)] = val;

    34

	_map5[tile + TILE_XY(0,1)] = ++val;

    35

	_map5[tile + TILE_XY(1,0)] = ++val;

    36

	_map5[tile + TILE_XY(1,1)] = ++val;

    37

    38

	MarkTileDirtyByTile(tile + TILE_XY(0,0));

    39

	MarkTileDirtyByTile(tile + TILE_XY(0,1));

    40

	MarkTileDirtyByTile(tile + TILE_XY(1,0));

    41

	MarkTileDirtyByTile(tile + TILE_XY(1,1));

    42

}

    43

    44

uint32 CalculateCompanyValue(Player *p) {

    45

	byte owner = p->index;

    46

	uint32 value;

    47

    48

	{

    49

		Station *st;

    50

		uint num = 0;

    51

    52

		FOR_ALL_STATIONS(st) {

    53

			if (st->xy != 0 && st->owner == owner) {

    54

				uint facil = st->facilities;

    55

				do num += (facil&1); while (facil >>= 1);

    56

			}

    57

		}

    58

    59

		value = num * _price.station_value * 25;

    60

	}

    61

    62

	{

    63

		Vehicle *v;

    64

    65

		FOR_ALL_VEHICLES(v) {

    66

			if (v->owner != owner)

    67

				continue;

    68

			if (v->type == VEH_Train ||

    69

					v->type == VEH_Road ||

    70

					(v->type == VEH_Aircraft && v->subtype<=2) ||

    71

					v->type == VEH_Ship) {

    72

				value += v->value * 3 >> 1;

    73

			}

    74

		}

    75

	}

    76

    77

	if (p->player_money > 0)

    78

		value += p->player_money;

    79

    80

	return value;

    81

}

    82

    86

{

    87

	byte owner = p->index;

    91

    92

/* Count vehicles */

    93

	{

    94

		Vehicle *v;

    95

		int32 min_profit = MAX_INT;

    96

		uint num = 0;

    97

    98

		FOR_ALL_VEHICLES(v) {

    99

			if (v->owner != owner)

   100

				continue;

   101

			if ((v->type == VEH_Train && v->subtype == 0) ||

   102

					v->type == VEH_Road ||

   103

					(v->type == VEH_Aircraft && v->subtype<=2) ||

   104

					v->type == VEH_Ship) {

   105

				num++;

   106

				if (v->age > 730) {

   108

						min_profit = v->profit_last_year;

   109

				}

   110

			}

   111

		}

   112

   114

   115

		if (min_profit != MAX_INT && min_profit > 0)

   117

	}

   118

   119

/* Count stations */

   120

	{

   121

		uint num = 0;

   122

		Station *st;

   123

   124

		FOR_ALL_STATIONS(st) {

   125

			if (st->xy != 0 && st->owner == owner) {

   126

				int facil = st->facilities;

   127

				do num += facil&1; while (facil>>=1);

   128

			}

   129

		}

   131

	}

   132

   133

/* Generate statistics depending on recent income statistics */

   134

	{

   135

		PlayerEconomyEntry *pee;

   136

		int numec;

   137

		int32 min_income;

   138

		uint32 max_income;

   139

   140

		numec = min(p->num_valid_stat_ent, 12);

   141

		if (numec != 0) {

   142

			min_income = 0x7FFFFFFF;

   143

			max_income = 0;

   144

			pee = p->old_economy;

   145

			do {

   146

				min_income = min(min_income, pee->income + pee->expenses);

   147

				max_income = max(max_income, pee->income + pee->expenses);

   148

			} while (++pee,--numec);

   149

   150

			if (min_income > 0)

   152

   154

		}

   155

	}

   156

   157

/* Generate score depending on amount of transported cargo */

   158

	{

   159

		PlayerEconomyEntry *pee;

   160

		int numec;

   161

		uint32 total_delivered;

   162

   163

		numec = min(p->num_valid_stat_ent, 4);

   164

		if (numec != 0) {

   165

			pee = p->old_economy;

   166

			total_delivered = 0;

   167

			do {

   168

				total_delivered += pee->delivered_cargo;

   169

			} while (++pee,--numec);

   170

   172

		}

   173

	}

   175

/* Generate score for variety of cargo */

   176

	{

   177

		uint cargo = p->cargo_types;

   178

		uint num = 0;

   179

		do num += cargo&1; while (cargo>>=1);

   183

	}

   184

   185

/* Generate score for player money */

   186

	{

   187

		int32 money = p->player_money;

   188

		if (money > 0) {

   190

		}

   191

	}

   192

   193

/* Generate score for loan */

   194

	{

   219

	}

   220

   228

}

   229

   230

// use 255 as new_player to delete the player.

   231

void ChangeOwnershipOfPlayerItems(byte old_player, byte new_player)

   232

{

   233

	byte old = _current_player;

   234

	_current_player = old_player;

   235

   236

	if (new_player == 255) {

   237

		Subsidy *s;

   238

   239

		for(s=_subsidies; s != endof(_subsidies); s++) {

   240

			if (s->cargo_type != 0xff && s->age >= 12) {

   241

				Station *st = DEREF_STATION(s->to);

   242

				if (st->owner == old_player)

   243

					s->cargo_type = 0xff;

   244

			}

   245

		}

   246

	}

   247

   248

	// take care of rating in towns

   249

	{

   250

		Town *t;

   251

   252

		// if a player takes over, give the ratings to that player.

   253

		if (new_player != 255) {

   254

			FOR_ALL_TOWNS(t) if (t->xy && HASBIT(t->have_ratings, old_player)) {

   255

				if (HASBIT(t->have_ratings, new_player)) {

   256

					// use max of the two ratings.

   257

					t->ratings[new_player] = max(t->ratings[new_player], t->ratings[old_player]);

   258

				} else {

   259

					SETBIT(t->have_ratings, new_player);

   260

					t->ratings[new_player] = t->ratings[old_player];

   261

				}

   262

			}

   263

		}

   264

   265

		// reset rating for the towns.

   266

		FOR_ALL_TOWNS(t) if (t->xy) {

   267

			t->ratings[old_player] = 500;

   268

			CLRBIT(t->have_ratings, old_player);

   269

		}

   270

	}

   271

   272

	{

   273

		int num_train = 0;

   274

		int num_road = 0;

   275

		int num_ship = 0;

   276

		int num_aircraft = 0;

   277

		Vehicle *v;

   278

   279

		// Determine Ids for the new vehicles

   280

		FOR_ALL_VEHICLES(v) {

   281

			if (v->owner == new_player) {

   282

				if (v->type == VEH_Train && v->subtype == 0)

   283

					num_train++;

   284

				else if (v->type == VEH_Road)

   285

					num_road++;

   286

				else if (v->type == VEH_Ship)

   287

					num_ship++;

   288

				else if (v->type == VEH_Aircraft && v->subtype <= 2)

   289

					num_aircraft++;

   290

			}

   291

		}

   292

   293

		FOR_ALL_VEHICLES(v) {

   294

			if (v->owner == old_player && IS_BYTE_INSIDE(v->type, VEH_Train, VEH_Aircraft+1) ) {

   295

				if (new_player == 255) {

   296

					DeleteWindowById(WC_VEHICLE_VIEW, v->index);

   297

					DeleteWindowById(WC_VEHICLE_DETAILS, v->index);

   298

					DeleteWindowById(WC_VEHICLE_ORDERS, v->index);

   299

					DeleteVehicle(v);

   300

				} else {

   301

					v->owner = new_player;

   302

					if (v->type == VEH_Train && v->subtype == 0)

   303

						v->unitnumber = ++num_train;

   304

					else if (v->type == VEH_Road)

   305

						v->unitnumber = ++num_road;

   306

					else if (v->type == VEH_Ship)

   307

						v->unitnumber = ++num_ship;

   308

					else if (v->type == VEH_Aircraft && v->subtype <= 2)

   309

						v->unitnumber = ++num_aircraft;

   310

				}

   311

			}

   312

		}

   313

	}

   314

   315

	// Change ownership of tiles

   316

	{

   317

		uint tile = 0;

   318

		do {

   319

			ChangeTileOwner(tile, old_player, new_player);

   320

		} while (++tile != TILES_X * TILES_Y);

   321

	}

   322

   323

	// Change color of existing windows

   324

	if (new_player != 255) {

   325

		Window *w;

   326

		for(w=_windows; w != _last_window; w++) {

   327

			if (w->caption_color == old_player)

   328

				w->caption_color = new_player;

   329

		}

   330

	}

   331

   332

	_current_player = old;

   333

   334

	MarkWholeScreenDirty();

   335

}

   336

   337

extern void DeletePlayerWindows(int pi);

   338

   339

static void PlayersCheckBankrupt(Player *p)

   340

{

   341

	int owner;

   342

	uint32 val;

   343

   344

	if (p->player_money >= 0) {

   345

		p->quarters_of_bankrupcy = 0;

   346

		return;

   347

	}

   348

   349

	p->quarters_of_bankrupcy++;

   350

   351

	owner = p->index;

   352

   353

	if (p->quarters_of_bankrupcy == 2) {

   354

year_2:

   355

		AddNewsItem( (StringID)(owner + 16), 

   356

			NEWS_FLAGS(NM_CALLBACK, 0, NT_COMPANY_INFO, DNC_BANKRUPCY),0,0);

   357

   358

	} else if (p->quarters_of_bankrupcy == 3) {

   359

		if (IS_HUMAN_PLAYER(owner))

   360

			goto year_2;

   361

   362

		val = CalculateCompanyValue(p);

   363

		if (val == 0) goto year_4;

   364

   365

		p->bankrupt_value = val;

   366

		p->bankrupt_asked = 1 << owner;

   367

		p->bankrupt_timeout = 0;

   368

	} else if (p->quarters_of_bankrupcy == 4) {

   369

year_4:

   370

		DeletePlayerWindows(owner);

   371

   372

		if (IS_HUMAN_PLAYER(owner)) {

   373

// what does this code do??

   374

			InitNewsItemStructs();

   375

			DeleteWindowById(WC_NEWS_WINDOW, 0);

   376

		}

   377

   378

// Show bankrupt news

   379

		SET_DPARAM16(0, p->name_1);

   380

		SET_DPARAM32(1, p->name_2);

   381

		AddNewsItem( (StringID)(owner + 16*3), NEWS_FLAGS(NM_CALLBACK, 0, NT_COMPANY_INFO, DNC_BANKRUPCY),0,0);

   382

   383

		if (IS_HUMAN_PLAYER(owner)) {

   384

			p->bankrupt_asked = 255;

   385

			p->bankrupt_timeout = 0x456;

   386

		} else {

   387

			p->money64 = p->player_money = 100000000;

   388

			ChangeOwnershipOfPlayerItems(owner, 0xFF);

   389

			p->is_active = false;

   390

		}

   391

	}

   392

}

   393

   394

void DrawNewsBankrupcy(Window *w)

   395

{

   396

	Player *p;

   397

   398

	DrawNewsBorder(w);		

   399

   400

	p = DEREF_PLAYER(WP(w,news_d).ni->string_id & 15);

   401

	DrawPlayerFace(p->face, p->player_color, 2, 23);

   402

	GfxFillRect(3, 23, 3+91, 23+118, 0x4323);

   403

   404

	SET_DPARAM16(0, p->president_name_1);

   405

	SET_DPARAM32(1, p->president_name_2);

   406

   407

	DrawStringMultiCenter(49, 148, STR_7058_PRESIDENT, 94);

   408

   409

	switch(WP(w,news_d).ni->string_id >> 4) {

   410

	case 1:

   411

		DrawStringCentered(w->width>>1, 1, STR_7056_TRANSPORT_COMPANY_IN_TROUBLE, 0);

   412

   413

		SET_DPARAM16(0, p->name_1);

   414

		SET_DPARAM32(1, p->name_2);

   415

   416

		DrawStringMultiCenter(

   417

			((w->width - 101) >> 1) + 98,

   418

			90,

   419

			STR_7057_WILL_BE_SOLD_OFF_OR_DECLARED,

   420

			w->width - 101);

   421

		break;

   422

   423

	case 2: {

   424

		int32 price;

   425

   426

		DrawStringCentered(w->width>>1, 1, STR_7059_TRANSPORT_COMPANY_MERGER, 0);

   427

		COPY_IN_DPARAM(0,WP(w,news_d).ni->params, 2);

   428

		SET_DPARAM16(2, p->name_1);

   429

		SET_DPARAM32(3, p->name_2);

   430

		price = WP(w,news_d).ni->params[2];

   431

		SET_DPARAM32(4, price);

   432

		DrawStringMultiCenter(

   433

			((w->width - 101) >> 1) + 98,

   434

			90,

   435

			price==0 ? STR_707F_HAS_BEEN_TAKEN_OVER_BY : STR_705A_HAS_BEEN_SOLD_TO_FOR,

   436

			w->width - 101);

   437

		break;

   438

	}

   439

   440

	case 3:

   441

		DrawStringCentered(w->width>>1, 1, STR_705C_BANKRUPT, 0);

   442

		COPY_IN_DPARAM(0,WP(w,news_d).ni->params, 2);

   443

		DrawStringMultiCenter(

   444

			((w->width - 101) >> 1) + 98,

   445

			90,

   446

			STR_705D_HAS_BEEN_CLOSED_DOWN_BY,

   447

			w->width - 101);

   448

		break;		

   449

   450

	case 4:

   451

		DrawStringCentered(w->width>>1, 1, STR_705E_NEW_TRANSPORT_COMPANY_LAUNCHED, 0);

   452

		SET_DPARAM16(0, p->name_1);

   453

		SET_DPARAM32(1, p->name_2);

   454

		COPY_IN_DPARAM(2,WP(w,news_d).ni->params, 2);

   455

		DrawStringMultiCenter(

   456

			((w->width - 101) >> 1) + 98,

   457

			90,

   458

			STR_705F_STARTS_CONSTRUCTION_NEAR,

   459

			w->width - 101);

   460

		break;

   461

   462

	default:

   463

		NOT_REACHED();

   464

	}

   465

}

   466

   467

StringID GetNewsStringBankrupcy(NewsItem *ni)

   468

{

   469

	Player *p = DEREF_PLAYER(ni->string_id & 0xF);

   470

   471

	switch(ni->string_id >> 4) {

   472

	case 1:

   473

		SET_DPARAM16(0, STR_7056_TRANSPORT_COMPANY_IN_TROUBLE);

   474

		SET_DPARAM16(1, STR_7057_WILL_BE_SOLD_OFF_OR_DECLARED);

   475

		SET_DPARAM16(2, p->name_1);

   476

		SET_DPARAM32(3, p->name_2);

   477

		return STR_02B6;

   478

	case 2:

   479

		SET_DPARAM16(0, STR_7059_TRANSPORT_COMPANY_MERGER);

   480

		SET_DPARAM16(1, STR_705A_HAS_BEEN_SOLD_TO_FOR);

   481

		COPY_IN_DPARAM(2,ni->params, 2);

   482

		SET_DPARAM16(4, p->name_1);

   483

		SET_DPARAM32(5, p->name_2);

   484

		COPY_IN_DPARAM(6,ni->params + 2, 1);

   485

		return STR_02B6;

   486

	case 3:

   487

		SET_DPARAM16(0, STR_705C_BANKRUPT);

   488

		SET_DPARAM16(1, STR_705D_HAS_BEEN_CLOSED_DOWN_BY);

   489

		COPY_IN_DPARAM(2,ni->params, 2);

   490

		return STR_02B6;

   491

	case 4:

   492

		SET_DPARAM16(0, STR_705E_NEW_TRANSPORT_COMPANY_LAUNCHED);

   493

		SET_DPARAM16(1, STR_705F_STARTS_CONSTRUCTION_NEAR);

   494

		SET_DPARAM16(2, p->name_1);

   495

		SET_DPARAM32(3, p->name_2);

   496

		COPY_IN_DPARAM(4,ni->params, 2);

   497

		return STR_02B6;

   498

	default:

   499

		NOT_REACHED();

   500

	}

   501

   502

	/* useless, but avoids compiler warning this way */

   503

	return 0;

   504

}

   505

   506

static void PlayersGenStatistics()

   507

{

   508

	Station *st;

   509

	Player *p;

   510

   511

	FOR_ALL_STATIONS(st) {

   512

		if (st->xy != 0) {

   513

			_current_player = st->owner;

   514

			SET_EXPENSES_TYPE(EXPENSES_PROPERTY);

   515

			SubtractMoneyFromPlayer(_price.station_value >> 1);

   516

		}

   517

	}

   518

   519

	if (!HASBIT(1<<0|1<<3|1<<6|1<<9, _cur_month))

   520

		return;

   521

   522

	FOR_ALL_PLAYERS(p) {

   523

		if (p->is_active) {

   524

			memmove(&p->old_economy, &p->cur_economy, sizeof(p->old_economy));