1

#include "stdafx.h"

     2

#include "ttd.h"

     3

#include "debug.h"

     4

#include "table/strings.h"

     5

#include "map.h"

     6

#include "window.h"

     7

#include "gui.h"

     8

#include "gfx.h"

     9

#include "vehicle.h"

    10

#include "viewport.h"

    11

#include "station.h"

    12

#include "command.h"

    13

#include "player.h"

    14

#include "engine.h"

    16

    17

void Set_DPARAM_Road_Veh_Build_Window(uint16 engine_number)

    18

{

    19

	const RoadVehicleInfo *rvi = RoadVehInfo(engine_number);

    20

	Engine *e;

    21

	YearMonthDay ymd;

    22

    23

	SetDParam(0, rvi->base_cost * (_price.roadveh_base>>3)>>5);

    24

	SetDParam(1, rvi->max_speed * 10 >> 5);

    25

	SetDParam(2, rvi->running_cost * _price.roadveh_running >> 8);

    26

	SetDParam(4, rvi->capacity);

    27

	SetDParam(3, _cargoc.names_long_p[rvi->cargo_type]);

    28

    29

	e = &_engines[engine_number];

    30

	SetDParam(6, e->lifelength);

    31

	SetDParam(7, e->reliability * 100 >> 16);

    32

	ConvertDayToYMD(&ymd, e->intro_date);

    33

	SetDParam(5, ymd.year + 1920);

    34

}

    35

    36

static void DrawRoadVehImage(Vehicle *v, int x, int y, VehicleID selection)

    37

{

    38

	int image = GetRoadVehImage(v, 6);

    39

	uint32 ormod = SPRITE_PALETTE(PLAYER_SPRITE_COLOR(v->owner));

    40

	if (v->vehstatus & VS_CRASHED) ormod = 0x3248000;

    41

	DrawSprite(image | ormod, x+14, y+6);

    42

    43

	if (v->index == selection) {

    44

		DrawFrameRect(x-1, y-1, x+28, y+12, 15, 0x10);

    45

	}

    46

}

    47

    48

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

    49

{

    50

	Vehicle *v = GetVehicle(w->window_number);

    51

	StringID str;

    52

	int mod;

    53

    54

	switch(e->event) {

    55

	case WE_PAINT:

    56

		w->disabled_state = v->owner == _local_player ? 0 : (1 << 2);

    57

		if (!_patches.servint_roadveh) // disable service-scroller when interval is set to disabled

    58

			w->disabled_state |= (1 << 5) | (1 << 6);

    59

    60

		SetDParam(0, v->string_id);

    61

		SetDParam(1, v->unitnumber);

    62

		DrawWindowWidgets(w);

    63

    64

		/* Draw running cost */

    65

		{

    66

			int year = v->age / 366;

    67

			StringID str;

    68

    69

			SetDParam(1, year);

    70

    71

			str = STR_0199_YEAR;

    72

			if (year != 1) {

    73

				str++;

    74

				if (v->max_age - 366 < v->age)

    75

					str++;

    76

			}

    77

			SetDParam(0, str);

    78

			SetDParam(2, v->max_age / 366);

    79

			SetDParam(3, RoadVehInfo(v->engine_type)->running_cost * _price.roadveh_running >> 8);

    80

			DrawString(2, 15, STR_900D_AGE_RUNNING_COST_YR, 0);

    81

		}

    82

    83

		/* Draw max speed */

    84

		{

    85

			SetDParam(0, v->max_speed * 10 >> 5);

    86

			DrawString(2, 25, STR_900E_MAX_SPEED, 0);

    87

		}

    88

    89

		/* Draw profit */

    90

		{

    91

			SetDParam(0, v->profit_this_year);

    92

			SetDParam(1, v->profit_last_year);

    93

			DrawString(2, 35, STR_900F_PROFIT_THIS_YEAR_LAST_YEAR, 0);

    94

		}

    95

    96

		/* Draw breakdown & reliability */

    97

		{

    98

			SetDParam(0, v->reliability * 100 >> 16);

    99

			SetDParam(1, v->breakdowns_since_last_service);

   100

			DrawString(2, 45, STR_9010_RELIABILITY_BREAKDOWNS, 0);

   101

		}

   102

   103

		/* Draw service interval text */

   104

		{

   105

			SetDParam(0, v->service_interval);

   106

			SetDParam(1, v->date_of_last_service);

   107

			DrawString(13, 90, _patches.servint_ispercent?STR_SERVICING_INTERVAL_PERCENT:STR_883C_SERVICING_INTERVAL_DAYS, 0);

   108

		}

   109

   110

		DrawRoadVehImage(v, 3, 57, INVALID_VEHICLE);

   111

   112

		SetDParam(0, GetCustomEngineName(v->engine_type));

   113

		SetDParam(1, 1920 + v->build_year);

   114

		SetDParam(2, v->value);

   115

		DrawString(34, 57, STR_9011_BUILT_VALUE, 0);

   116

   117

		SetDParam(0, _cargoc.names_long_p[v->cargo_type]);

   118

		SetDParam(1, v->cargo_cap);

   119

		DrawString(34, 67, STR_9012_CAPACITY, 0);

   120

   121

		str = STR_8812_EMPTY;

   122

		if (v->cargo_count != 0) {

   123

			SetDParam(0, v->cargo_type);

   124

			SetDParam(1, v->cargo_count);

   125

			SetDParam(2, v->cargo_source);

   126

			str = STR_8813_FROM;

   127

		}

   128

		DrawString(34, 78, str, 0);

   129

		break;

   130

   131

	case WE_CLICK:

   132

		switch(e->click.widget) {

   133

		case 2: /* rename */

   134

			SetDParam(0, v->unitnumber);

   135

			ShowQueryString(v->string_id, STR_902C_NAME_ROAD_VEHICLE, 31, 150, w->window_class, w->window_number);

   136

			break;

   137

   138

		case 5: /* increase int */

   139

			mod = _ctrl_pressed? 5 : 10;

   140

			goto change_int;

   141

		case 6: /* decrease int */

   142

			mod = _ctrl_pressed? -5 : -10;

   143

change_int:

   144

			mod += v->service_interval;

   145

   146

			/*	%-based service interval max 5%-90%

   147

					day-based service interval max 30-800 days */

   148

			mod = _patches.servint_ispercent ? clamp(mod, MIN_SERVINT_PERCENT, MAX_SERVINT_PERCENT) : clamp(mod, MIN_SERVINT_DAYS, MAX_SERVINT_DAYS+1);

   149

			if (mod == v->service_interval)

   150

				return;

   151

   152

			DoCommandP(v->tile, v->index, mod, NULL, CMD_CHANGE_ROADVEH_SERVICE_INT | CMD_MSG(STR_018A_CAN_T_CHANGE_SERVICING));

   153

			break;

   154

		}

   155

		break;

   156

   157

	case WE_4:

   158

		if (FindWindowById(WC_VEHICLE_VIEW, w->window_number) == NULL)

   159

			DeleteWindow(w);

   160

		break;

   161

   162

	case WE_ON_EDIT_TEXT: {

   163

		byte *b = e->edittext.str;

   164

		if (*b == 0)

   165

			return;

   166

		memcpy(_decode_parameters, b, 32);

   167

		DoCommandP(0, w->window_number, 0, NULL, CMD_NAME_VEHICLE | CMD_MSG(STR_902D_CAN_T_NAME_ROAD_VEHICLE));

   168

	} break;

   169

   170

	}

   171

}

   172

   173

static const Widget _roadveh_details_widgets[] = {

   174

{    WWT_TEXTBTN,   RESIZE_NONE,    14,     0,    10,     0,    13, STR_00C5,				STR_018B_CLOSE_WINDOW},

   175

{    WWT_CAPTION,   RESIZE_NONE,    14,    11,   339,     0,    13, STR_900C_DETAILS,STR_018C_WINDOW_TITLE_DRAG_THIS},

   176

{ WWT_PUSHTXTBTN,   RESIZE_NONE,    14,   340,   379,     0,    13, STR_01AA_NAME,		STR_902E_NAME_ROAD_VEHICLE},

   177

{     WWT_IMGBTN,   RESIZE_NONE,    14,     0,   379,    14,    55, 0x0,							STR_NULL},

   178

{     WWT_IMGBTN,   RESIZE_NONE,    14,     0,   379,    56,    88, 0x0,							STR_NULL},

   179

{ WWT_PUSHTXTBTN,   RESIZE_NONE,    14,     0,    10,    89,    94, STR_0188,				STR_884D_INCREASE_SERVICING_INTERVAL},

   180

{ WWT_PUSHTXTBTN,   RESIZE_NONE,    14,     0,    10,    95,   100, STR_0189,				STR_884E_DECREASE_SERVICING_INTERVAL},

   181

{     WWT_IMGBTN,   RESIZE_NONE,    14,    11,   379,    89,   100, 0x0,							STR_NULL},

   182

{   WIDGETS_END},

   183

};

   184

   185

static const WindowDesc _roadveh_details_desc = {

   186

	-1,-1, 380, 101,

   187

	WC_VEHICLE_DETAILS,WC_VEHICLE_VIEW,

   188

	WDF_STD_TOOLTIPS | WDF_STD_BTN | WDF_DEF_WIDGET | WDF_UNCLICK_BUTTONS,

   189

	_roadveh_details_widgets,

   190

	RoadVehDetailsWndProc

   191

};

   192

   193

static void ShowRoadVehDetailsWindow(Vehicle *v)

   194

{

   195

	Window *w;

   196

	VehicleID veh = v->index;

   197

	DeleteWindowById(WC_VEHICLE_ORDERS, veh);

   198

	DeleteWindowById(WC_VEHICLE_DETAILS, veh);

   199

	_alloc_wnd_parent_num = veh;

   200

	w = AllocateWindowDesc(&_roadveh_details_desc);

   201

	w->window_number = veh;

   202

	w->caption_color = v->owner;

   203

}

   204

   205

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

   206

{

   207

	switch(e->event) {

   208

	case WE_PAINT: {

   209

		Vehicle *v = GetVehicle(w->window_number);

   210

		StringID str;

   211

   212

		w->disabled_state = (v->owner != _local_player) ? (1<<8 | 1<<7) : 0;

   213

   214

		/* draw widgets & caption */

   215

		SetDParam(0, v->string_id);

   216

		SetDParam(1, v->unitnumber);

   217

		DrawWindowWidgets(w);

   218

   219

		/* draw the flag */

   220

		DrawSprite((v->vehstatus & VS_STOPPED) ? 0xC12  : 0xC13, 2, 105);

   221

   222

		if (v->u.road.crashed_ctr != 0) {

   223

			str = STR_8863_CRASHED;

   224

		} else if (v->breakdown_ctr == 1) {

   225

			str = STR_885C_BROKEN_DOWN;

   226

		} else if (v->vehstatus & VS_STOPPED) {

   227

			str = STR_8861_STOPPED;

   228

		} else {

   229

			switch (v->current_order.type) {

   230

			case OT_GOTO_STATION: {

   231

				SetDParam(0, v->current_order.station);

   232

				SetDParam(1, v->cur_speed * 10 >> 5);

   233

				str = STR_HEADING_FOR_STATION + _patches.vehicle_speed;

   234

			} break;

   235

   236

			case OT_GOTO_DEPOT: {

   239

				SetDParam(1, v->cur_speed * 10 >> 5);

   240

				str = STR_HEADING_FOR_ROAD_DEPOT + _patches.vehicle_speed;

   241

			} break;

   242

   243

			case OT_LOADING:

   244

			case OT_LEAVESTATION:

   245

				str = STR_882F_LOADING_UNLOADING;

   246

				break;

   247

   248

			default:

   249

				if (v->num_orders == 0) {

   250

					str = STR_NO_ORDERS + _patches.vehicle_speed;

   251

					SetDParam(0, v->cur_speed * 10 >> 5);

   252

				} else

   253

					str = STR_EMPTY;

   254

				break;

   255

			}

   256

		}

   257

   258

		DrawStringCentered(125, 105, str, 0);

   259

		DrawWindowViewport(w);

   260

	} break;

   261

   262

	case WE_CLICK: {

   263

		Vehicle *v = GetVehicle(w->window_number);

   264

   265

		switch(e->click.widget) {

   266

		case 5: /* start stop */

   267

			DoCommandP(v->tile, v->index, 0, NULL, CMD_START_STOP_ROADVEH | CMD_MSG(STR_9015_CAN_T_STOP_START_ROAD_VEHICLE));

   268

			break;

   269

		case 6: /* center main view */

   270

			ScrollMainWindowTo(v->x_pos, v->y_pos);

   271

			break;

   272

		case 7: /* goto hangar */

   273

			DoCommandP(v->tile, v->index, 0, NULL, CMD_SEND_ROADVEH_TO_DEPOT | CMD_MSG(STR_9018_CAN_T_SEND_VEHICLE_TO_DEPOT));

   274

			break;

   275

		case 8: /* turn around */

   276

			DoCommandP(v->tile, v->index, 0, NULL, CMD_TURN_ROADVEH | CMD_MSG(STR_9033_CAN_T_MAKE_VEHICLE_TURN));

   277

			break;

   278

		case 9: /* show orders */

   279

			ShowOrdersWindow(v);

   280

			break;

   281

		case 10: /* show details */

   282

			ShowRoadVehDetailsWindow(v);

   283

			break;

   284

		}

   285

	} break;

   286

   287

	case WE_DESTROY:

   288

		DeleteWindowById(WC_VEHICLE_ORDERS, w->window_number);

   289

		DeleteWindowById(WC_VEHICLE_DETAILS, w->window_number);

   290

		break;

   291

	}

   292

}

   293

   294

static const Widget _roadveh_view_widgets[] = {

   295

{    WWT_TEXTBTN,   RESIZE_NONE,    14,     0,    10,     0,    13, STR_00C5,	STR_018B_CLOSE_WINDOW},

   296

{    WWT_CAPTION,   RESIZE_NONE,    14,    11,   237,     0,    13, STR_9002,	STR_018C_WINDOW_TITLE_DRAG_THIS},

   297

{  WWT_STICKYBOX,   RESIZE_NONE,    14,   238,   249,     0,    13, 0x0,       STR_STICKY_BUTTON},

   298

{     WWT_IMGBTN,   RESIZE_NONE,    14,     0,   231,    14,   103, 0x0,				STR_NULL},

   299

{          WWT_6,   RESIZE_NONE,    14,     2,   229,    16,   101, 0x0,				STR_NULL},

   300

{ WWT_PUSHIMGBTN,   RESIZE_NONE,    14,     0,   249,   104,   115, 0x0,				STR_901C_CURRENT_VEHICLE_ACTION},

   301

{ WWT_PUSHIMGBTN,   RESIZE_NONE,    14,   232,   249,    14,    31, 0x2AB,			STR_901E_CENTER_MAIN_VIEW_ON_VEHICLE},

   302

{ WWT_PUSHIMGBTN,   RESIZE_NONE,    14,   232,   249,    32,    49, 0x2AE,			STR_901F_SEND_VEHICLE_TO_DEPOT},

   303

{ WWT_PUSHIMGBTN,   RESIZE_NONE,    14,   232,   249,    50,    67, 0x2CB,			STR_9020_FORCE_VEHICLE_TO_TURN_AROUND},

   304

{ WWT_PUSHIMGBTN,   RESIZE_NONE,    14,   232,   249,    68,    85, 0x2B2,			STR_901D_SHOW_VEHICLE_S_ORDERS},

   305

{ WWT_PUSHIMGBTN,   RESIZE_NONE,    14,   232,   249,    86,   103, 0x2B3,			STR_9021_SHOW_ROAD_VEHICLE_DETAILS},

   306

{   WIDGETS_END},

   307

};

   308

   309

static const WindowDesc _roadveh_view_desc = {

   310

	-1,-1, 250, 116,

   311

	WC_VEHICLE_VIEW,0,

   312

	WDF_STD_TOOLTIPS | WDF_STD_BTN | WDF_DEF_WIDGET | WDF_UNCLICK_BUTTONS | WDF_STICKY_BUTTON,

   313

	_roadveh_view_widgets,

   314

	RoadVehViewWndProc,

   315

};

   316

   317

void ShowRoadVehViewWindow(Vehicle *v)

   318

{

   319

	Window *w;

   320

   321

	w = AllocateWindowDescFront(&_roadveh_view_desc, v->index);

   322

	if (w) {

   323

		w->caption_color = v->owner;

   324

		AssignWindowViewport(w, 3, 17, 0xE2, 0x54, w->window_number | (1 << 31), 0);

   325

	}

   326

}

   327

   328

   329

static void DrawNewRoadVehWindow(Window *w)

   330

{

   331

	if (w->window_number == 0)

   332

		w->disabled_state = 1 << 5;

   333

   334

	// setup scroller

   335

	{

   336

		int count = 0;

   337

		int num = NUM_ROAD_ENGINES;

   338

		Engine *e = &_engines[ROAD_ENGINES_INDEX];

   339

		do {

   340

			if (HASBIT(e->player_avail, _local_player))

   341

				count++;

   342

		} while (++e,--num);

   343

		SetVScrollCount(w, count);

   344

	}

   345

   346

	DrawWindowWidgets(w);

   347

   348

	{

   349

		int num = NUM_ROAD_ENGINES;

   350

		Engine *e = &_engines[ROAD_ENGINES_INDEX];

   351

		int x = 1;

   352

		int y = 15;

   353

		int sel = WP(w,buildtrain_d).sel_index;

   354

		int pos = w->vscroll.pos;

   355

		int engine_id = ROAD_ENGINES_INDEX;

   356

		int selected_id = -1;

   357

   358

		do {

   359

			if (HASBIT(e->player_avail, _local_player)) {

   360

				if (sel==0) selected_id = engine_id;

   361

				if (IS_INT_INSIDE(--pos, -w->vscroll.cap, 0)) {

   362

					DrawString(x+59, y+2, GetCustomEngineName(engine_id), sel==0 ? 0xC : 0x10);

   363

					DrawRoadVehEngine(x+29, y+6, engine_id, SPRITE_PALETTE(PLAYER_SPRITE_COLOR(_local_player)));

   364

					y += 14;

   365

				}

   366

				sel--;

   367

			}

   368

		} while (++engine_id, ++e,--num);

   369

   370

		WP(w,buildtrain_d).sel_engine = selected_id;

   371

		if (selected_id != -1) {

   372

			Set_DPARAM_Road_Veh_Build_Window(selected_id);

   373

   374

			DrawString(2, w->widget[4].top + 1, STR_9008_COST_SPEED_RUNNING_COST, 0);

   375

		}

   376

	}

   377

}

   378

   379

void CcBuildRoadVeh(bool success, uint tile, uint32 p1, uint32 p2)

   380

{

   381

	Vehicle *v;

   382

   383

	if (!success) return;

   384

   385

	v = GetVehicle(_new_roadveh_id);

   386

	if (v->tile == _backup_orders_tile) {

   387

		_backup_orders_tile = 0;

   388

		RestoreVehicleOrders(v, _backup_orders_data);

   389

	}

   390

	ShowRoadVehViewWindow(v);

   391

}

   392

   393

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

   394

{

   395

	switch(e->event) {

   396

	case WE_PAINT:

   397

		DrawNewRoadVehWindow(w);

   398

		break;

   399

   400

	case WE_CLICK:

   401

		switch(e->click.widget) {

   402

		case 2: { /* listbox */

   403

			uint i = (e->click.pt.y - 14) / 14;

   404

			if (i < w->vscroll.cap) {

   405

				WP(w,buildtrain_d).sel_index = i + w->vscroll.pos;

   406

				SetWindowDirty(w);

   407

			}

   408

		} break;

   409

   410

		case 5: { /* build */

   411

			int sel_eng = WP(w,buildtrain_d).sel_engine;

   412

			if (sel_eng != -1)

   413

				DoCommandP(w->window_number, sel_eng, 0, CcBuildRoadVeh, CMD_BUILD_ROAD_VEH | CMD_MSG(STR_9009_CAN_T_BUILD_ROAD_VEHICLE));

   414

		} break;

   415

   416

		case 6: { /* rename */

   417

			int sel_eng = WP(w,buildtrain_d).sel_engine;

   418

			if (sel_eng != -1) {

   419

				WP(w,buildtrain_d).rename_engine = sel_eng;

   420

				ShowQueryString(GetCustomEngineName(sel_eng),

   421

					STR_9036_RENAME_ROAD_VEHICLE_TYPE, 31, 160, w->window_class, w->window_number);

   422

			}

   423

		}	break;

   424

		}

   425

		break;

   426

   427

	case WE_4:

   428

		if (w->window_number != 0 && !FindWindowById(WC_VEHICLE_DEPOT, w->window_number)) {

   429

			DeleteWindow(w);

   430

		}

   431

		break;

   432

   433

	case WE_ON_EDIT_TEXT: {

   434

		byte *b = e->edittext.str;

   435

		if (*b == 0)

   436

			return;

   437

		memcpy(_decode_parameters, b, 32);

   438

		DoCommandP(0, WP(w,buildtrain_d).rename_engine, 0, NULL, CMD_RENAME_ENGINE | CMD_MSG(STR_9037_CAN_T_RENAME_ROAD_VEHICLE));

   439

	} break;

   440

   441

	case WE_RESIZE: {

   442

		if (e->sizing.diff.y == 0)

   443

			break;

   444

   445

		w->vscroll.cap += e->sizing.diff.y / 14;

   446

		w->widget[2].unkA = (w->vscroll.cap << 8) + 1;

   447

	} break;

   448

   449

	}

   450

}

   451

   452

static const Widget _new_road_veh_widgets[] = {

   453

{    WWT_TEXTBTN,   RESIZE_NONE,    14,     0,    10,     0,    13, STR_00C5,							STR_018B_CLOSE_WINDOW},

   454

{    WWT_CAPTION,   RESIZE_NONE,    14,    11,   247,     0,    13, STR_9006_NEW_ROAD_VEHICLES, STR_018C_WINDOW_TITLE_DRAG_THIS},

   455

{     WWT_MATRIX, RESIZE_BOTTOM,    14,     0,   235,    14,   125, 0x801,									STR_9026_ROAD_VEHICLE_SELECTION},

   456

{  WWT_SCROLLBAR, RESIZE_BOTTOM,    14,   236,   247,    14,   125, 0x0,										STR_0190_SCROLL_BAR_SCROLLS_LIST},

   457

{     WWT_IMGBTN,     RESIZE_TB,    14,     0,   247,   126,   177, 0x0,										STR_NULL},

   458

{ WWT_PUSHTXTBTN,     RESIZE_TB,    14,     0,   117,   178,   189, STR_9007_BUILD_VEHICLE,STR_9027_BUILD_THE_HIGHLIGHTED_ROAD},

   459

{ WWT_PUSHTXTBTN,     RESIZE_TB,    14,   118,   235,   178,   189, STR_9034_RENAME,				STR_9035_RENAME_ROAD_VEHICLE_TYPE},

   460

{  WWT_RESIZEBOX,     RESIZE_TB,    14,   236,   247,   178,   189, 0x0,										STR_RESIZE_BUTTON},

   461

{   WIDGETS_END},

   462

};

   463

   464

static const WindowDesc _new_road_veh_desc = {

   465

	-1, -1, 248, 190,

   466

	WC_BUILD_VEHICLE,0,

   467

	WDF_STD_TOOLTIPS | WDF_STD_BTN | WDF_DEF_WIDGET | WDF_UNCLICK_BUTTONS | WDF_RESIZABLE,

   468

	_new_road_veh_widgets,

   469

	NewRoadVehWndProc

   470

};

   471

   472

static void ShowBuildRoadVehWindow(TileIndex tile)

   473

{

   474

	Window *w;

   475

   476

	DeleteWindowById(WC_BUILD_VEHICLE, tile);

   477

   478

	w = AllocateWindowDesc(&_new_road_veh_desc);

   479

	w->window_number = tile;

   480

	w->vscroll.cap = 8;

   481

	w->widget[2].unkA = (w->vscroll.cap << 8) + 1;

   482

   483

	w->resize.step_height = 14;

   484

	w->resize.height = w->height - 14 * 4; /* Minimum of 4 vehicles in the display */

   485

   486

	if (tile != 0) {

   487

		w->caption_color = _map_owner[tile];

   488

	} else {

   489

		w->caption_color = _local_player;

   490

	}

   491

}

   492

   493

static void DrawRoadDepotWindow(Window *w)

   494

{

   495

	uint tile;

   496

	Vehicle *v;

   497

	int num,x,y;

   499

   500

	tile = w->window_number;

   501

   502

	/* setup disabled buttons */

   503

	w->disabled_state = (_map_owner[tile]==_local_player) ? 0 : ((1<<4)|(1<<7));

   504

   505

	/* determine amount of items for scroller */

   506

	num = 0;

   507

	FOR_ALL_VEHICLES(v) {

   508

		if (v->type == VEH_Road && v->u.road.state == 254 &&

   509

				v->tile == (TileIndex)tile)

   510

					num++;

   511

	}