1

#include "stdafx.h"

     2

#include "ttd.h"

     3

#include "station.h"

     4

#include "gfx.h"

     5

#include "window.h"

     6

#include "viewport.h"

     7

#include "command.h"

     8

#include "town.h"

     9

#include "vehicle.h"

    10

#include "news.h"

    11

#include "saveload.h"

    12

#include "economy.h"

    13

#include "player.h"

    14

#include "airport.h"

    15

    16

// FIXME -- need to be embedded into Airport variable. Is dynamically

    17

// deducteable from graphics-tile array, so will not be needed

    18

const byte _airport_size_x[5] = {4, 6, 1, 6, 7 };

    19

const byte _airport_size_y[5] = {3, 6, 1, 6, 7 };

    20

    21

void ShowAircraftDepotWindow(uint tile);

    22

extern void UpdateAirplanesOnNewStation(Station *st);

    23

    24

static void MarkStationDirty(Station *st)

    25

{

    26

	if (st->sign.width_1 != 0) {

    27

		InvalidateWindowWidget(WC_STATION_VIEW, st->index, 1);

    28

    29

		MarkAllViewportsDirty(

    30

			st->sign.left - 6,

    31

			st->sign.top,

    32

			st->sign.left + (st->sign.width_1 << 2) + 12,

    33

			st->sign.top + 48);

    34

	}

    35

}

    36

    37

#define CHECK_STATIONS_ERR ((Station*)-1)

    38

    39

static Station *GetStationAround(uint tile, int w, int h, int closest_station)

    40

{

    41

	// check around to see if there's any stations there

    42

	BEGIN_TILE_LOOP(tile_cur, w + 2, h + 2, tile - TILE_XY(1,1))

    43

		if (IS_TILETYPE(tile_cur, MP_STATION)) {

    44

			int t;

    45

			t = _map2[tile_cur];

    46

			{

    47

				Station *st = DEREF_STATION(t);

    48

				// you cannot take control of an oilrig!!

    49

				if (st->airport_type == AT_OILRIG && st->facilities == (FACIL_AIRPORT|FACIL_DOCK))

    50

					continue;

    51

			}

    52

    53

			if (closest_station == -1) {

    54

				closest_station = t;

    55

			} else if (closest_station != t) {

    56

				_error_message = STR_3006_ADJOINS_MORE_THAN_ONE_EXISTING;

    57

				return CHECK_STATIONS_ERR;

    58

			}

    59

		}

    60

	END_TILE_LOOP(tile_cur, w + 2, h + 2, tile - TILE_XY(1,1))

    61

	return (closest_station == -1) ? NULL : DEREF_STATION(closest_station);

    62

}

    63

    64

    65

static bool CheckStationSpreadOut(Station *st, uint tile, int w, int h)

    66

{

    67

	byte station_index = st->index;

    68

	uint i;

    69

	uint x1 = GET_TILE_X(tile);

    70

	uint y1 = GET_TILE_Y(tile);

    71

	uint x2 = x1 + w - 1;

    72

	uint y2 = y1 + h - 1;

    73

	uint t;

    74

    75

	for(i=0; i!=TILES_X*TILES_Y; i++) {

    76

		if (IS_TILETYPE(i, MP_STATION) && _map2[i] == station_index) {

    77

			t = GET_TILE_X(i);

    78

			if (t < x1) x1 = t;

    79

			if (t > x2) x2 = t;

    80

    81

			t = GET_TILE_Y(i);

    82

			if (t < y1) y1 = t;

    83

			if (t > y2) y2 = t;

    84

		}

    85

	}

    86

    87

	if (y2-y1 >= _patches.station_spread || x2-x1 >= _patches.station_spread) {

    88

		_error_message = STR_306C_STATION_TOO_SPREAD_OUT;

    89

		return false;

    90

	}

    91

    92

	return true;

    93

}

    94

    95

static Station *AllocateStation()

    96

{

    97

	Station *st, *a_free = NULL;

    98

	int count;

    99

	int num_free = 0;

   100

	int i;

   101

   102

	for(st = _stations, count = lengthof(_stations); count != 0; count--, st++) {

   103

		if (st->xy == 0) {

   104

			num_free++;

   105

			if (a_free==NULL)

   106

				a_free = st;

   107

		}

   108

	}

   109

   110

	if (a_free == NULL ||

   111

			(num_free < 30 && IS_HUMAN_PLAYER(_current_player))) {

   112

		_error_message = STR_3008_TOO_MANY_STATIONS_LOADING;

   113

		return NULL;

   114

	}

   115

   116

	i = a_free->index;	

   117

	memset(a_free, 0, sizeof(Station));

   118

	a_free->index = i;

   119

	return a_free;

   120

}

   121

   122

   123

static int CountMapSquareAround(uint tile, byte type, byte min, byte max) {

   124

	static const TileIndexDiff _count_square_table[7*7+1] = {

   125

		TILE_XY(-3,-3), 1, 1, 1, 1, 1, 1,

   126

		TILE_XY(-6,1),  1, 1, 1, 1, 1, 1,

   127

		TILE_XY(-6,1),  1, 1, 1, 1, 1, 1,

   128

		TILE_XY(-6,1),  1, 1, 1, 1, 1, 1,

   129

		TILE_XY(-6,1),  1, 1, 1, 1, 1, 1,

   130

		TILE_XY(-6,1),  1, 1, 1, 1, 1, 1,

   131

		TILE_XY(-6,1),  1, 1, 1, 1, 1, 1,

   132

		0,

   133

	};	

   134

	int j;

   135

	const TileIndexDiff *p = _count_square_table;

   136

	int num = 0;

   137

   138

	while ( (j=*p++) != 0 ) {

   139

		tile = TILE_MASK(tile + j);

   140

   141

		if (IS_TILETYPE(tile, type) && _map5[tile] >= min && _map5[tile] <= max)

   142

			num++;

   143

	}

   144

   145

	return num;

   146

}

   147

   148

#define M(x) ((x) - STR_SV_STNAME)

   149

   150

static bool GenerateStationName(Station *st, uint tile, int flag)

   151

{

   152

	static const uint32 _gen_station_name_bits[] = {

   153

		0,																/* 0 */

   154

		1 << M(STR_SV_STNAME_AIRPORT),		/* 1 */

   155

		1 << M(STR_SV_STNAME_OILFIELD),		/* 2 */

   156

		1 << M(STR_SV_STNAME_DOCKS),			/* 3 */

   157

		0x1FF << M(STR_SV_STNAME_BUOY_1),	/* 4 */

   158

		1 << M(STR_SV_STNAME_HELIPORT),		/* 5 */

   159

	};

   160

   161

	Town *t = st->town;

   162

	uint32 free_names = (uint32)-1;

   163

	int found;

   164

	uint z,z2;

   165

	unsigned long tmp;

   166

   167

	{

   168

		Station *s;

   169

   170

		FOR_ALL_STATIONS(s) {

   171

			if (s != st && s->xy != 0 && s->town==t) {

   172

				uint str = M(s->string_id);

   173

				if (str <= 0x20) {

   174

					if (str == M(STR_SV_STNAME_FOREST))

   175

						str = M(STR_SV_STNAME_WOODS);

   176

					CLRBIT(free_names, str);

   177

				}

   178

			}

   179

		}	

   180

	}

   181

   182

	/* check default names */

   183

	tmp = free_names & _gen_station_name_bits[flag];

   184

	if (tmp != 0) {

   185

		found = FindFirstBit(tmp);

   186

		goto done;

   187

	}

   188

   189

	/* check mine? */

   190

	if (HASBIT(free_names, M(STR_SV_STNAME_MINES))) {

   191

		if (CountMapSquareAround(tile, MP_INDUSTRY, 0, 6) >= 2 ||

   192

		    CountMapSquareAround(tile, MP_INDUSTRY, 0x64, 0x73) >= 2 ||

   193

				CountMapSquareAround(tile, MP_INDUSTRY, 0x2F, 0x33) >= 2 ||

   194

				CountMapSquareAround(tile, MP_INDUSTRY, 0x48, 0x58) >= 2 ||

   195

				CountMapSquareAround(tile, MP_INDUSTRY, 0x5B, 0x63) >= 2) {

   196

					found = M(STR_SV_STNAME_MINES);

   197

					goto done;

   198

				}

   199

	}

   200

   201

	/* check close enough to town to get central as name? */

   202

	if (GetTileDist1D(tile,t->xy) < 8) {

   203

		found = M(STR_SV_STNAME);

   204

		if (HASBIT(free_names, M(STR_SV_STNAME))) goto done;

   205

   206

		found = M(STR_SV_STNAME_CENTRAL);

   207

		if (HASBIT(free_names, M(STR_SV_STNAME_CENTRAL))) goto done;

   208

	}

   209

   210

	/* Check lakeside */

   211

	if (HASBIT(free_names, M(STR_SV_STNAME_LAKESIDE)) &&

   212

			!CheckDistanceFromEdge(tile, 20) &&

   213

			CountMapSquareAround(tile, MP_WATER, 0, 0) >= 5) {

   214

				found = M(STR_SV_STNAME_LAKESIDE);

   215

				goto done;

   216

			}

   217

   218

	/* Check woods */

   219

	if (HASBIT(free_names, M(STR_SV_STNAME_WOODS)) && (

   220

			CountMapSquareAround(tile, MP_TREES, 0, 255) >= 8 ||

   221

			CountMapSquareAround(tile, MP_INDUSTRY, 0x10, 0x11) >= 2 )) {

   222

				found = (_opt.landscape==LT_DESERT) ? M(STR_SV_STNAME_FOREST) : M(STR_SV_STNAME_WOODS);

   223

				goto done;

   224

	}

   225

   226

	/* check elevation compared to town */

   227

	z = GetTileZ(tile);

   228

	z2 = GetTileZ(t->xy);

   229

	if (z < z2) {

   230

		found = M(STR_SV_STNAME_VALLEY);

   231

		if (HASBIT(free_names, M(STR_SV_STNAME_VALLEY))) goto done;

   232

	} else if (z > z2) {

   233

		found = M(STR_SV_STNAME_HEIGHTS);

   234

		if (HASBIT(free_names, M(STR_SV_STNAME_HEIGHTS))) goto done;

   235

	}

   236

   237

	/* check direction compared to town */

   238

	{

   239

		static const int8 _direction_and_table[] = {

   240

			~( (1<<M(STR_SV_STNAME_WEST)) | (1<<M(STR_SV_STNAME_EAST)) | (1<<M(STR_SV_STNAME_NORTH)) ),

   241

			~( (1<<M(STR_SV_STNAME_SOUTH)) | (1<<M(STR_SV_STNAME_WEST)) | (1<<M(STR_SV_STNAME_NORTH)) ),

   242

			~( (1<<M(STR_SV_STNAME_SOUTH)) | (1<<M(STR_SV_STNAME_EAST)) | (1<<M(STR_SV_STNAME_NORTH)) ),

   243

			~( (1<<M(STR_SV_STNAME_SOUTH)) | (1<<M(STR_SV_STNAME_WEST)) | (1<<M(STR_SV_STNAME_EAST)) ),

   244

		};

   245

   246

		free_names &= _direction_and_table[ 

   247

			(GET_TILE_X(tile) < GET_TILE_X(t->xy)) + 

   248

			(GET_TILE_Y(tile) < GET_TILE_Y(t->xy))*2];

   249

	}

   250

   251

	tmp = free_names & ((1<<1)|(1<<2)|(1<<3)|(1<<4)|(1<<6)|(1<<7)|(1<<12)|(1<<26)|(1<<27)|(1<<28)|(1<<29)|(1<<30));

   252

	if (tmp == 0) {

   253

		_error_message = STR_3007_TOO_MANY_STATIONS_LOADING;

   254

		return false;

   255

	}

   256

	found = FindFirstBit(tmp);

   257

   258

done:

   259

	st->string_id = found + STR_SV_STNAME;

   260

	return true;

   261

}

   262

#undef M

   263

   264

static Station *GetClosestStationFromTile(uint tile, uint threshold, byte owner)

   265

{

   266

	Station *st, *best_station = NULL;

   267

	uint cur_dist;

   268

   269

	FOR_ALL_STATIONS(st) {

   270

		cur_dist = GetTileDist(tile, st->xy);

   271

		if (cur_dist < threshold && (owner == 0xFF || st->owner == owner)) {

   272

			threshold = cur_dist;

   273

			best_station = st;

   274

		}

   275

	}

   276

   277

	return best_station;

   278

}

   279

   280

static void StationInitialize(Station *st, TileIndex tile)

   281

{

   282

	int i;

   283

	GoodsEntry *ge;

   284

   285

	st->xy = tile;

   286

	st->bus_tile = st->lorry_tile = st->airport_tile = st->dock_tile = st->train_tile = 0;

   287

	st->had_vehicle_of_type = 0;

   288

	st->time_since_load = 255;

   289

	st->time_since_unload = 255;

   290

	st->delete_ctr = 0;

   291

	st->facilities = 0;

   292

   293

	st->blocked_months = 0;

   294

	st->last_vehicle = INVALID_VEHICLE;

   295

   296

	for(i=0,ge=st->goods; i!=NUM_CARGO; i++, ge++) {

   297

		ge->waiting_acceptance = 0;

   298

		ge->days_since_pickup = 0;

   299

		ge->enroute_from = 0xFF;

   300

		ge->rating = 175;

   301

		ge->last_speed = 0;

   302

		ge->last_age = 0xFF;

   303

	}

   304

	_station_sort_dirty = true;

   305

}

   306

   307

// Update the virtual coords needed to draw the station sign.

   308

// st = Station to update for.

   309

static void UpdateStationVirtCoord(Station *st)

   310

{

   311

	Point pt = RemapCoords2(GET_TILE_X(st->xy) * 16, GET_TILE_Y(st->xy) * 16);

   312

	pt.y -= 32;

   313

	if (st->facilities&FACIL_AIRPORT && st->airport_type==AT_OILRIG) pt.y -= 16;

   314

   315

	SET_DPARAM16(0, st->index);

   316

	SET_DPARAM8(1, st->facilities);

   317

	UpdateViewportSignPos(&st->sign, pt.x, pt.y, STR_305C_0);

   318

}

   319

   320

// Update the virtual coords needed to draw the station sign for all stations.

   321

void UpdateAllStationVirtCoord()

   322

{

   323

	Station *st;

   324

	FOR_ALL_STATIONS(st) {

   325

		if (st->xy != 0)

   326

			UpdateStationVirtCoord(st);			

   327

	}

   328

}

   329

   330

// Update the station virt coords while making the modified parts dirty.

   331

static void UpdateStationVirtCoordDirty(Station *st)

   332

{

   333

	MarkStationDirty(st);

   334

	UpdateStationVirtCoord(st);

   335

	MarkStationDirty(st);

   336

}

   337

   338

// Get a mask of the cargo types that the station accepts.

   339

static uint GetAcceptanceMask(Station *st)

   340

{

   341

	uint mask = 0;

   342

	uint cur_mask = 1;

   343

	int i;

   344

	for(i=0; i!=NUM_CARGO; i++,cur_mask*=2) {

   345

		if (st->goods[i].waiting_acceptance & 0x8000)

   346

			mask |= cur_mask;

   347

	}

   348

	return mask;

   349

}

   350

   351

// Items contains the two cargo names that are to be accepted or rejected.

   352

// msg is the string id of the message to display.

   353

static void ShowRejectOrAcceptNews(Station *st, uint32 items, StringID msg)

   354

{

   355

	if (items) {

   356

		SET_DPARAM32(2, items >> 16);

   357

		SET_DPARAM32(1, items & 0xFFFF);

   358

		SET_DPARAM16(0, st->index);

   359

		AddNewsItem(msg + ((items >> 16)?1:0), NEWS_FLAGS(NM_SMALL, NF_VIEWPORT|NF_TILE, NT_ACCEPTANCE, 0), st->xy, 0);

   360

	}

   361

}

   362

   363

// Get a list of the cargo types being produced around the tile.

   364

void GetProductionAroundTiles(uint *produced, uint tile, int w, int h)

   365

{

   366

	int x,y;

   367

	int x1,y1,x2,y2;

   368

	int xc,yc;

   369

	byte cargos[2];

   370

   371

	memset(produced, 0, NUM_CARGO * sizeof(uint));

   372

   373

	x = GET_TILE_X(tile);

   374

	y = GET_TILE_Y(tile);

   375

   376

	// expand the region by 4 tiles on each side

   377

	// while making sure that we remain inside the board.

   378

	x2 = min(x + w+4, TILE_X_MAX+1);

   379

	x1 = max(x-4, 0);

   380

   381

	y2 = min(y + h+4, TILE_Y_MAX+1);

   382

	y1 = max(y-4, 0);

   383

   384

	assert(x1 < x2);

   385

	assert(y1 < y2);

   386

	assert(w > 0);

   387

	assert(h > 0);

   388

   389

	yc = y1;

   390

	do {

   391

		xc = x1;

   392

		do {

   393

			if (!(IS_INSIDE_1D(xc, x, w) && IS_INSIDE_1D(yc, y, h))) {

   394

				GetProducedCargoProc *gpc;

   395

				uint tile = TILE_XY(xc, yc);

   396

				gpc = _tile_type_procs[GET_TILETYPE(tile)]->get_produced_cargo_proc;

   397

				if (gpc != NULL) {

   398

					cargos[0] = cargos[1] = 0xFF;

   399

					gpc(tile, cargos);

   400

					if (cargos[0] != 0xFF) {

   401

						produced[cargos[0]]++;

   402

						if (cargos[1] != 0xFF) {

   403

							produced[cargos[1]]++;

   404

						}

   405

					}

   406

				}

   407

			}

   408

		} while (++xc != x2);

   409

	} while (++yc != y2);

   410

}

   411

   412

// Get a list of the cargo types that are accepted around the tile.

   413

void GetAcceptanceAroundTiles(uint *accepts, uint tile, int w, int h)

   414

{

   415

	int x,y;

   416

	int x1,y1,x2,y2;

   417

	int xc,yc;

   418

	AcceptedCargo ac;

   419

   420

	memset(accepts, 0, NUM_CARGO * sizeof(uint));

   421

   422

	x = GET_TILE_X(tile);

   423

	y = GET_TILE_Y(tile);

   424

   425

	// expand the region by 4 tiles on each side

   426

	// while making sure that we remain inside the board.

   427

	x2 = min(x + w + 4, TILE_X_MAX+1);

   428

	y2 = min(y + h + 4, TILE_Y_MAX+1);

   429

	x1 = max(x-4, 0);

   430

	y1 = max(y-4, 0);

   431

   432

	assert(x1 < x2);

   433

	assert(y1 < y2);

   434

	assert(w > 0);

   435

	assert(h > 0);

   436

   437

	yc = y1;

   438

	do {

   439

		xc = x1;

   440

		do {

   441

			uint tile = TILE_XY(xc, yc);

   442

			if (!IS_TILETYPE(tile, MP_STATION)) {

   443

				GetAcceptedCargo(tile, &ac);

   444

				accepts[ac.type_1] += ac.amount_1;

   445

				accepts[ac.type_2] += ac.amount_2;

   446

				accepts[ac.type_3] += ac.amount_3;

   447

			}

   448

		} while (++xc != x2);

   449

	} while (++yc != y2);

   450

}

   451

   452

// Update the acceptance for a station.

   453

// show_msg controls whether to display a message that acceptance was changed.

   454

static void UpdateStationAcceptance(Station *st, bool show_msg)

   455

{

   456

	uint old_acc, new_acc;

   457

	TileIndex span[1+1+2+2+1];

   458

	int i;

   459

	int min_x, min_y, max_x, max_y;

   460

	uint accepts[NUM_CARGO];

   461

   462

	// Don't update acceptance for a buoy

   463

	if (st->had_vehicle_of_type & HVOT_BUOY)

   464

		return;

   465

   466

	/* old accepted goods types */

   467

	old_acc = GetAcceptanceMask(st);

   468

   469

	// Put all the tiles that span an area in the table.

   470

	span[3] = span[5] = 0;

   471

	span[0] = st->bus_tile;

   472

	span[1] = st->lorry_tile;

   473

	span[2] = st->train_tile;

   474

	if (st->train_tile != 0) {

   475

		span[3] = st->train_tile + TILE_XY(st->trainst_w-1, st->trainst_h-1);

   476

	}

   477

	span[4] = st->airport_tile;

   478

	if (st->airport_tile != 0) {

   479

		span[5] = st->airport_tile + TILE_XY(_airport_size_x[st->airport_type]-1, _airport_size_y[st->airport_type]-1); 

   480

	}

   481

	span[6] = st->dock_tile;

   482

   483

	// Construct a rectangle from those points

   484

	min_x = min_y = 0x7FFFFFFF;

   485

	max_x = max_y = 0;

   486

   487

	for(i=0; i!=7; i++) {

   488

		uint tile = span[i];

   489

		if (tile) {

   490

			min_x = min(min_x,GET_TILE_X(tile));

   491

			max_x = max(max_x,GET_TILE_X(tile));

   492

			min_y = min(min_y,GET_TILE_Y(tile));

   493

			max_y = max(max_y,GET_TILE_Y(tile));

   494

		}

   495

	}

   496

   497

	// And retrieve the acceptance.

   498

	if (max_x != 0) {

   499

		GetAcceptanceAroundTiles(accepts, TILE_XY(min_x, min_y), max_x - min_x + 1, max_y-min_y+1);

   500

	} else {

   501

		memset(accepts, 0, sizeof(accepts));

   502

	}

   503

   504

	// Adjust in case our station only accepts fewer kinds of goods

   505

	for(i=0; i!=NUM_CARGO; i++) {

   506

		uint amt = min(accepts[i], 15);

   507

   508

		// Make sure the station can accept the goods type.

   509

		if ((i != CT_PASSENGERS && !(st->facilities & (byte)~FACIL_BUS_STOP)) ||

   510

				(i == CT_PASSENGERS && !(st->facilities & (byte)~FACIL_TRUCK_STOP)))

   511

			amt = 0;

   512

   513

		st->goods[i].waiting_acceptance = (st->goods[i].waiting_acceptance & ~0xF000) + (amt << 12);

   514

	}

   515

   516

	// Only show a message in case the acceptance was actually changed.

   517

	new_acc = GetAcceptanceMask(st);

   518

	if (old_acc == new_acc)

   519

		return;

   520

   521

	// show a message to report that the acceptance was changed?

   522

	if (show_msg && st->owner == _local_player && st->facilities) {

   523

		uint32 accept=0, reject=0; /* these contain two string ids each */

   524

		const StringID *str = _cargoc.names_s;

   525

   526

		do {

   527

			if (new_acc & 1) {

   528

				if (!(old_acc & 1)) accept = (accept << 16) | *str; 

   529

			} else {