1

#include "stdafx.h"

     2

#include "ttd.h"

     3

#include "table/strings.h"

     4

#include "town.h"

     5

#include "window.h"

     6

#include "gfx.h"

     7

#include "viewport.h"

     8

#include "gui.h"

     9

#include "command.h"

    10

#include "player.h"

    11

    12

static const Widget _town_authority_widgets[] = {

    20

{   WIDGETS_END},

    21

};

    22

    23

extern const byte _town_action_costs[8];

    24

extern void DrawPlayerIcon(int p, int x, int y);

    25

    26

static uint GetMaskOfTownActions(int *nump, Town *t)

    27

{

    28

	int32 avail, ref;

    29

	int i, num;

    30

	uint avail_buttons = 0x7F; // by default all buttons except bribe are enabled.

    31

	uint buttons;

    32

    33

	if (_local_player != OWNER_SPECTATOR) {

    34

		// bribe option enabled?

    35

		if (_patches.bribe) {

    36

			// if unwanted, disable everything.

    37

			if (t->unwanted[_local_player]) {

    38

				avail_buttons = 0;

    39

			} else if (t->ratings[_local_player] < 600)

    40

				avail_buttons |= (1 << 7); // only bribe if less than excellent

    41

		}

    42

    43

		// Things worth more than this are not shown

    44

		avail = DEREF_PLAYER(_local_player)->player_money + _price.station_value * 200;

    45

		ref = _price.build_industry >> 8;

    46

    47

		for(i=0,buttons=0,num=0; i != lengthof(_town_action_costs); i++,avail_buttons>>=1) {

    48

			if (avail_buttons&1 && avail >= _town_action_costs[i] * ref) {

    49

				SETBIT(buttons, i);

    50

				num++;

    51

			}

    52

		}

    53

    54

		// Disable build statue if already built

    55

		if(HASBIT(t->statues, _local_player))

    56

		{

    57

			CLRBIT(buttons, 4);

    58

			num--;

    59

		}

    60

    61

	} else {

    62

		// no actions available for spectator

    63

		buttons = 0;

    64

		num = 0;

    65

	}

    66

    67

	if (nump) *nump = num;

    68

	return buttons;

    69

}

    70

    71

static int GetNthSetBit(uint32 bits, int n)

    72

{

    73

	int i = 0;

    74

	if (n >= 0) {

    75

		do {

    76

			if (bits&1 && --n < 0) return i;

    77

			i++;

    78

		} while (bits>>=1);

    79

	}

    80

	return -1;

    81

}

    82

    83

static void TownAuthorityWndProc(Window *w, WindowEvent *e)

    84

{

    85

	uint buttons;

    86

	int numact;

    87

	Town *t = DEREF_TOWN(w->window_number);

    88

    89

	switch(e->event) {

    90

	case WE_PAINT:

    91

		buttons = GetMaskOfTownActions(&numact, t);

    92

		SetVScrollCount(w, numact + 1);

    93

    94

		if (WP(w,def_d).data_1 != -1 && !HASBIT(buttons, WP(w,def_d).data_1))

    95

			WP(w,def_d).data_1 = -1;

    96

    97

		w->disabled_state = (WP(w,def_d).data_1 == -1) ? (1 << 6) : 0;

    98

    99

		{

   100

			int y;

   101

			Player *p;

   102

			int r;

   103

			StringID str;

   104

   105

			SetDParam(0, w->window_number);

   106

			DrawWindowWidgets(w);

   107

   108

			DrawString(2, 15, STR_2023_TRANSPORT_COMPANY_RATINGS, 0);

   109

   110

			// Draw list of players

   111

			y = 25;

   112

			FOR_ALL_PLAYERS(p) {

   113

				if (p->is_active && (HASBIT(t->have_ratings, p->index) || t->exclusivity==p->index)) {

   114

					DrawPlayerIcon(p->index, 2, y);

   115

   116

					SetDParam(0, p->name_1);

   117

					SetDParam(1, p->name_2);

   118

					SetDParam(2, GetPlayerNameString(p->index, 3));

   119

   120

					r = t->ratings[p->index];

   121

					(str = STR_3035_APPALLING, r <= -400) ||	// Apalling

   122

					(str++, r <= -200) ||											// Very Poor

   123

					(str++, r <= 0) ||												// Poor

   124

					(str++, r <= 200) ||											// Mediocore

   125

					(str++, r <= 400) ||											// Good

   126

					(str++, r <= 600) ||											// Very Good

   127

					(str++, r <= 800) ||											// Excellent

   128

					(str++, true);														// Outstanding

   129

   130

					/*	WARNING ugly hack!

   131

							GetPlayerNameString sets up (Player #) if the player is human in an extra DPARAM16

   132

							It seems that if player is non-human, nothing is set up, so param is 0. GetString doesn't like

   133

							that because there is another param after it.

   134

							So we'll just shift the rating one back if player is AI and all is fine

   135

						*/

   136

					SetDParam((IS_HUMAN_PLAYER(p->index) ? 4 : 3), str);

   137

					if (t->exclusivity == p->index) // red icon for player with exclusive rights

   138

						DrawSprite((SPR_BLOT) | 0x30b8000, 18, y);

   139

   140

					DrawString(28, y, STR_2024, 0);

   141

					y+=10;

   142

				}

   143

			}

   144

		}

   145

   146

		// Draw actions list

   147

		{

   148

			int y = 107, i;

   149

			int pos = w->vscroll.pos;

   150

   151

			if (--pos < 0) {

   152

				DrawString(2, y, STR_2045_ACTIONS_AVAILABLE, 0);

   153

				y+=10;

   154

			}

   155

			for(i=0; buttons; i++,buttons>>=1) {

   156

				if (pos <= -5)

   157

					break;

   158

   159

				if (buttons&1 && --pos < 0) {

   160

					DrawString(3, y, STR_2046_SMALL_ADVERTISING_CAMPAIGN + i, 6);

   161

					y += 10;

   162

				}

   163

			}

   164

		}

   165

   166

		{

   167

			int i;

   168

			if ((i=WP(w,def_d).data_1) != -1) {

   169

				SetDParam(1, (_price.build_industry >> 8) * _town_action_costs[i]);

   170

				SetDParam(0, STR_2046_SMALL_ADVERTISING_CAMPAIGN + i);

   171

				DrawStringMultiLine(2, 159, STR_204D_INITIATE_A_SMALL_LOCAL + i, 313);

   172

			}

   173

		}

   174

   175

		break;

   176

   177

	case WE_CLICK:

   178

		switch(e->click.widget) {

   179

		case 3: { /* listbox */

   180

			int y = (e->click.pt.y - 0x6B) / 10;

   181

			if (!IS_INT_INSIDE(y, 0, 5))

   182

				return;

   183

   184

			y = GetNthSetBit(GetMaskOfTownActions(NULL, t), y + w->vscroll.pos - 1);

   185

			if (y >= 0) {

   186

				WP(w,def_d).data_1 = y;

   187

				SetWindowDirty(w);

   188

			}

   189

			break;

   190

		}

   191

   192

		case 6: { /* carry out the action */

   193

			DoCommandP(t->xy, w->window_number, WP(w,def_d).data_1, NULL, CMD_DO_TOWN_ACTION | CMD_MSG(STR_2054_CAN_T_DO_THIS));

   194

			break;

   195

		}

   196

		}

   197

		break;

   198

   199

	case WE_4:

   200

		SetWindowDirty(w);

   201

		break;

   202

	}

   203

}

   204

   205

static const WindowDesc _town_authority_desc = {

   206

	-1, -1, 317, 222,

   207

	WC_TOWN_AUTHORITY,0,

   208

	WDF_STD_TOOLTIPS | WDF_STD_BTN | WDF_DEF_WIDGET | WDF_UNCLICK_BUTTONS,

   209

	_town_authority_widgets,

   210

	TownAuthorityWndProc

   211

};

   212

   213

static void ShowTownAuthorityWindow(uint town)

   214

{

   215

	Window *w;

   216

   217

	w = AllocateWindowDescFront(&_town_authority_desc, town);

   218

	if (w) {

   219

		w->vscroll.cap = 5;

   220

		WP(w,def_d).data_1 = -1;

   221

	}

   222

}

   223

   224

static void TownViewWndProc(Window *w, WindowEvent *e)

   225

{

   226

	Town *t = DEREF_TOWN(w->window_number);

   227

   228

	switch(e->event) {

   229

	case WE_PAINT:

   230

		SetDParam(0, t->index);

   231

		DrawWindowWidgets(w);

   232

   233

		SetDParam(0, t->population);

   234

		SetDParam(1, t->num_houses);

   235

		DrawString(2,107,STR_2006_POPULATION,0);

   236

   237

		SetDParam(0, t->act_pass);

   238

		SetDParam(1, t->max_pass);

   239

		DrawString(2,117,STR_200D_PASSENGERS_LAST_MONTH_MAX,0);

   240

   241

		SetDParam(0, t->act_mail);

   242

		SetDParam(1, t->max_mail);

   243

		DrawString(2,127,STR_200E_MAIL_LAST_MONTH_MAX,0);

   244

   245

		DrawWindowViewport(w);

   246

		break;

   247

   248

	case WE_CLICK:

   249

		switch(e->click.widget) {

   250

		case 6: /* scroll to location */

   251

			ScrollMainWindowToTile(t->xy);

   252

			break;

   253

		case 7: /* town authority */

   254

			ShowTownAuthorityWindow(w->window_number);

   255

			break;

   256

		case 8: /* rename */

   257

			SetDParam(0, t->townnameparts);

   258

			ShowQueryString(t->townnametype, STR_2007_RENAME_TOWN, 31, 130, w->window_class, w->window_number);

   259

			break;

   260

		case 9: /* expand town */

   261

			ExpandTown(t);

   262

			break;

   263

		case 10: /* delete town */

   264

			DeleteTown(t);

   265

			break;

   266

		}

   267

		break;

   268

   269

	case WE_ON_EDIT_TEXT: {

   270

		byte *b = e->edittext.str;

   271

		if (*b == 0)

   272

			return;

   273

		memcpy(_decode_parameters, b, 32);

   274

		DoCommandP(0, w->window_number, 0, NULL, CMD_RENAME_TOWN | CMD_MSG(STR_2008_CAN_T_RENAME_TOWN));

   275

	} break;

   276

	}

   277

}

   278

   279

   280

static const Widget _town_view_widgets[] = {

   290

{   WIDGETS_END},

   291

};

   292

   293

static const WindowDesc _town_view_desc = {

   294

	-1, -1, 260, 150,

   295

	WC_TOWN_VIEW,0,

   296

	WDF_STD_TOOLTIPS | WDF_STD_BTN | WDF_DEF_WIDGET | WDF_UNCLICK_BUTTONS | WDF_STICKY_BUTTON,

   297

	_town_view_widgets,

   298

	TownViewWndProc

   299

};

   300

   301

static const Widget _town_view_scen_widgets[] = {

   313

{   WIDGETS_END},

   314

};

   315

   316

static const WindowDesc _town_view_scen_desc = {

   317

	-1, -1, 260, 150,

   318

	WC_TOWN_VIEW,0,

   319

	WDF_STD_TOOLTIPS | WDF_STD_BTN | WDF_DEF_WIDGET | WDF_UNCLICK_BUTTONS | WDF_STICKY_BUTTON,

   320

	_town_view_scen_widgets,

   321

	TownViewWndProc

   322

};

   323

   324

void ShowTownViewWindow(uint town)

   325

{

   326

	Window *w;

   327

	Town *t;

   328

   329

	if (_game_mode != GM_EDITOR) {

   330

		w = AllocateWindowDescFront(&_town_view_desc, town);

   331

	} else {

   332

		w = AllocateWindowDescFront(&_town_view_scen_desc, town);

   333

	}

   334

   335

	if (w) {

   336

		w->flags4 |= WF_DISABLE_VP_SCROLL;

   337

		t = DEREF_TOWN(w->window_number);

   338

		AssignWindowViewport(w, 3, 17, 0xFE, 0x56, t->xy, 1);

   339

	}

   340

}

   341

   342

static const Widget _town_directory_widgets[] = {

   351

{   WIDGETS_END},

   352

};

   353

   354

   355

// used to get a sorted list of the towns

   356

static uint16 _town_sort[lengthof(_towns)];

   357

static uint _num_town_sort;

   358

   359

static char _bufcache[64];

   360

static uint16 _last_town_idx;

   361

   362

static int CDECL TownNameSorter(const void *a, const void *b)

   363

{

   364

	char buf1[64];

   365

	const Town *t;

   366

	byte val;

   367

	int r;

   368

   369

	t = DEREF_TOWN(*(const uint16*)a);

   370

	SetDParam(0, t->townnameparts);

   371

	GetString(buf1, t->townnametype);

   372

   373

	if ( (val=*(const uint16*)b) != _last_town_idx) {

   374

		_last_town_idx = val;

   375

		t = DEREF_TOWN(val);

   376

		SetDParam(0, t->townnameparts);

   377

		GetString(_bufcache, t->townnametype);

   378

	}

   379

   380

	r = strcmp(buf1, _bufcache);

   381

	if (_town_sort_order & 1) r = -r;

   382

	return r;

   383

}

   384

   385

static int CDECL TownPopSorter(const void *a, const void *b)

   386

{

   387

	const Town *ta = DEREF_TOWN(*(const uint16*)a);

   388

	const Town *tb = DEREF_TOWN(*(const uint16*)b);

   389

	int r = ta->population - tb->population;

   390

	if (_town_sort_order & 1) r = -r;

   391

	return r;

   392

}

   393

   394

static void MakeSortedTownList()

   395

{

   396

	Town *t;

   397

	int n = 0;

   398

	FOR_ALL_TOWNS(t)

   399

		if(t->xy)

   400

			_town_sort[n++] = t->index;

   401

   402

	_num_town_sort = n;

   403

   404

	_last_town_idx = 0; // used for "cache"

   405

	qsort(_town_sort, n, sizeof(_town_sort[0]), _town_sort_order & 2 ? TownPopSorter : TownNameSorter);

   406

   407

	DEBUG(misc, 1) ("Resorting Towns list...");

   408

}

   409

   410

   411

static void TownDirectoryWndProc(Window *w, WindowEvent *e)

   412

{

   413

	switch(e->event) {

   414

	case WE_PAINT: {

   415

   416

		if (_town_sort_dirty) {

   417

			_town_sort_dirty = false;

   418

			MakeSortedTownList();

   419

		}

   420

   421

		SetVScrollCount(w, _num_town_sort);

   422

   423

		DrawWindowWidgets(w);

   424

		DoDrawString(_town_sort_order & 1 ? "\xAA" : "\xA0", (_town_sort_order <= 1) ? 88 : 187, 15, 0x10);

   425

   426

		{

   427

			Town *t;

   428

			int n = 0;

   429

			uint16 i = w->vscroll.pos;

   430

			int y = 28;

   431

   432

			while (i < _num_town_sort) {

   433

				t = DEREF_TOWN(_town_sort[i]);

   434

   435

				assert(t->xy);

   436

   437

				SetDParam(0, t->index);

   438

				SetDParam(1, t->population);

   439

				DrawString(2, y, STR_2057, 0);

   440

   441

				y += 10;

   442

				i++;

   443

				if (++n == w->vscroll.cap) { break;} // max number of towns in 1 window

   444

			}

   445

		}

   446

	} break;

   447

   448

	case WE_CLICK:

   449

		switch(e->click.widget) {

   450

		case 3: { /* Sort by Name ascending/descending */

   451

			_town_sort_order = (_town_sort_order == 0) ? 1 : 0;

   452

			_town_sort_dirty = true;

   453

			SetWindowDirty(w);

   454

		} break;

   455

   456

		case 4: { /* Sort by Population ascending/descending */

   457

			_town_sort_order = (_town_sort_order == 2) ? 3 : 2;

   458

			_town_sort_dirty = true;

   459

			SetWindowDirty(w);

   460

		} break;

   461

   462

		case 5: { /* Click on Town Matrix */

   463

			uint16 id_v = (e->click.pt.y - 28) / 10;

   464

   465

			if (id_v >= w->vscroll.cap) { return;} // click out of bounds

   466

   467

			id_v += w->vscroll.pos;

   468

   469

			if (id_v >= _num_town_sort) { return;} // click out of town bounds

   470

   471

			{

   472

				Town *t = DEREF_TOWN(_town_sort[id_v]);

   473

				assert(t->xy);

   474

   475

				ScrollMainWindowToTile(t->xy);

   476

			}

   477

		}	break;

   478

		}

   479

		break;

   480

   481

	case WE_4:

   482

		SetWindowDirty(w);

   483

		break;

   488

	}

   489

}

   490

   491

static const WindowDesc _town_directory_desc = {

   492

	-1, -1, 208, 190,

   493

	WC_TOWN_DIRECTORY,0,

   495

	_town_directory_widgets,

   496

	TownDirectoryWndProc

   497

};

   498

   499

   500

void ShowTownDirectory()

   501

{

   502

	Window *w;

   503

   504

	w = AllocateWindowDescFront(&_town_directory_desc, 0);

   505

	if (w) {

   506

		w->vscroll.cap = 16;

   509

	}

   510

}

   511