p->bankrupt_timeout = 0;

		DeleteWindowById(WC_BUY_COMPANY, _current_player);

		if (IsLocalPlayer()) {

			AskExitToGameMenu();

			return;

		}

	}

	if (p->bankrupt_asked == 255) return;

	{

		uint asked = p->bankrupt_asked;

		if (best_pl->index == _local_player) {

			p->bankrupt_timeout = 4440;

			ShowBuyCompanyDialog(_current_player);

			return;

		}

		// Too little money for computer to buy it?

		if (best_pl->player_money >> 1 >= p->bankrupt_value) {

			// Computer wants to buy it.

			old_p = _current_player;

			_current_player = p->index;

	// Ugly hack to make sure the service interval of the AI is good, not looking

	//  to the patch-setting

	// Also, it takes into account the setting if the service-interval is in days

	//  or in %

	_ai_service_interval = _patches.servint_ispercent?80:180;

	AiAdjustLoan(p);

	AiBuildCompanyHQ(p);

#if 0

	{

	} else {

		pass = callback;

	}

	_returned_refit_capacity = pass;

	cost = 0;

		cost = GetRefitCost(v->engine_type);

	}

	if (flags & DC_EXEC) {

		Vehicle *u;

		v->cargo_cap = pass;

static void DisasterClearSquare(TileIndex tile)

{

	if (!EnsureNoVehicle(tile)) return;

	switch (GetTileType(tile)) {

		case MP_RAILWAY:

				PlayerID p = _current_player;

				_current_player = OWNER_WATER;

				DoCommand(tile, 0, 0, DC_EXEC, CMD_LANDSCAPE_CLEAR);

				_current_player = p;

			}

			break;

		} else if (v->current_order.dest == 0) {

			tile = v->tile; /**/

			if (IsValidTile(tile) &&

					IsTileType(tile, MP_STATION) &&

					IsAirport(tile) &&

				v->current_order.dest = 1;

				v->age = 0;

				SetDParam(0, GetStationIndex(tile));

				AddNewsItem(STR_B000_ZEPPELIN_DISASTER_AT,

					NEWS_FLAGS(NM_THIN, NF_VIEWPORT|NF_VEHICLE, NT_ACCIDENT, 0),

		tile = v->tile; /**/

		if (IsValidTile(tile) &&

				IsTileType(tile, MP_STATION) &&

				IsAirport(tile) &&

			st = GetStationByTile(tile);

			CLRBITS(st->airport_flags, RUNWAY_IN_block);

		}

		SetDisasterVehiclePos(v, v->x_pos, v->y_pos, v->z_pos);

		DeleteDisasterVeh(v);

	}

	tile = v->tile;/**/

	if (IsValidTile(tile) &&

			IsTileType(tile, MP_STATION) &&

			IsAirport(tile) &&

		st = GetStationByTile(tile);

		SETBITS(st->airport_flags, RUNWAY_IN_block);

	}

}

// UFO starts in the middle, and flies around a bit until it locates

			v->dest_tile = RandomTile();

			return;

		}

		v->current_order.dest = 1;

		FOR_ALL_VEHICLES(u) {

				v->dest_tile = u->index;

				v->age = 0;

				return;

			}

		}

		v->current_order.dest = 1;

		tile_org = tile = RandomTile();

		do {

			if (IsTileType(tile, MP_RAILWAY) &&

					IsPlainRailTile(tile) &&

				break;

			}

			tile = TILE_MASK(tile+1);

		} while (tile != tile_org);

		v->dest_tile = tile;

		v->age = 0;

	/* Pick a random place, unless we find a small airport */

	x = TileX(Random()) * TILE_SIZE + TILE_SIZE / 2;

	FOR_ALL_STATIONS(st) {

		if (st->airport_tile != 0 &&

				st->airport_type <= 1 &&

			x = (TileX(st->xy) + 2) * TILE_SIZE;

			break;

		}

	}

	InitializeDisasterVehicle(v, x, 0, 135, DIR_SE, 0);

			AddNewsItem( (StringID)(owner + 16),

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

			break;

		case 3: {

			/* XXX - In multiplayer, should we ask other players if it wants to take

		          over when it is a human company? -- TrueLight */

				AddNewsItem( (StringID)(owner + 16),

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

				break;

			}

			// Check if the company has any value.. if not, declare it bankrupt

//		Show bankrupt news

			SetDParam(0, p->name_1);

			SetDParam(1, p->name_2);

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

			// If the player is human, and it is no network play, leave the player playing

				p->bankrupt_asked = 255;

				p->bankrupt_timeout = 0x456;

			} else {

#ifdef ENABLE_NETWORK

					// If we are the server, make sure it is clear that his player is no

					//  longer with us!

					NetworkClientInfo *ci;

					NetworkClientState *cs;

					/* Find all clients that were in control of this company */

					FOR_ALL_CLIENTS(cs) {

							// Send the new info to all the clients

							NetworkUpdateClientInfo(_network_own_client_index);

						}

					}

				}

				// Make sure the player no longer controls the company

					// Switch the player to spectator..

					_local_player = OWNER_SPECTATOR;

				}

#endif /* ENABLE_NETWORK */

				/* Remove the player */

				ChangeOwnershipOfPlayerItems(owner, OWNER_SPECTATOR);

				// Register the player as not-active

				p->is_active = false;

					AI_PlayerDied(owner);

					AI_PlayerDied(owner);

			}

		}

	}

}

				if (best_player == OWNER_SPECTATOR) {

					e->preview_player = 0xFF;

					continue;

				}

					/* XXX - TTDBUG: TTD has a bug here ???? */

					AcceptEnginePreview(e, best_player);

				} else {

					e->flags |= ENGINE_PREVIEWING;

					e->preview_wait = 20;

				}

			}

		}

	}

}

		SetDParam(0, _economy.max_loan);

		return_cmd_error(STR_702B_MAXIMUM_PERMITTED_LOAN);

	}

	if (flags & DC_EXEC) {

		/* Loan the maximum amount or not? */

		p->money64 += loan;

		p->current_loan += loan;

		UpdatePlayerMoney32(p);

		InvalidatePlayerWindows(p);

	}

	 * Repay any loan in chunks of 10.000 pounds */

	if (p2) {

		loan = min(loan, p->player_money);

		loan = max(loan, 10000);

		loan -= loan % 10000;

	} else {

	}

	if (p->player_money < loan) {

		SetDParam(0, loan);

		return_cmd_error(STR_702E_REQUIRED);

	}

		p->location_of_house = 0;

	/* State 20 for AI players is sell vehicle. Since the AI struct is not

	 * really figured out as of now, p->ai.cur_veh; needed for 'sell vehicle'

	 * is NULL and the function will crash. To fix this, just change the state

	 * to some harmless state, like 'loop vehicle'; 1 */

	if (p->is_ai && (!_networking || _network_server) && _ai.enabled)

		AI_StartNewAI(p->index);

	return true;

}

	/* XXX - This limit is only here because the backuppedorders can't

	 * handle any more then this.. */

	if (v->num_orders >= MAX_BACKUP_ORDER_COUNT) return_cmd_error(STR_8832_TOO_MANY_ORDERS);

	/* For ships, make sure that the station is not too far away from the

	 * previous destination, for human players with new pathfinding disabled */

		sel_ord != 0 && GetVehicleOrder(v, sel_ord - 1)->type == OT_GOTO_STATION

		&& !_patches.new_pathfinding_all) {

		int dist = DistanceManhattan(

			GetStation(GetVehicleOrder(v, sel_ord - 1)->dest)->xy,

			GetStation(new_order.dest)->xy // XXX type != OT_GOTO_STATION?

/** Finds out if a Player has a certain railtype available */

static inline bool HasRailtypeAvail(const Player *p, RailType Railtype)

{

	return HASBIT(p->avail_railtypes, Railtype);

}

/* Validate functions for rail building */

static inline bool ValParamRailtype(uint32 rail) { return HASBIT(GetPlayer(_current_player)->avail_railtypes, rail);}

/** Returns the "best" railtype a player can build.

 * As the AI doesn't know what the BEST one is, we have our own priority list

 * here. When adding new railtypes, modify this function

	if (HasRailtypeAvail(p, RAILTYPE_MAGLEV)) return RAILTYPE_MAGLEV;

	if (HasRailtypeAvail(p, RAILTYPE_MONO)) return RAILTYPE_MONO;

	if (HasRailtypeAvail(p, RAILTYPE_ELECTRIC)) return RAILTYPE_ELECTRIC;

	return RAILTYPE_RAIL;

}

typedef struct HighScore {

	char company[100];

	StringID title; // NO_SAVE, has troubles with changing string-numbers.

	uint16 score;   // do NOT change type, will break hs.dat

} HighScore;

set_name:;

		p->name_1 = str;

		p->name_2 = strp;

		MarkWholeScreenDirty();

			SetDParam(0, t->index);

			AddNewsItem(p->index + (4 << 4), NEWS_FLAGS(NM_CALLBACK, NF_TILE, NT_COMPANY_INFO, DNC_BANKRUPCY), p->last_build_coordinate, 0);

		}

		return;

	}

bad_town_name:;

		MaybeStartNewPlayer();

}

// index is the next parameter in _decode_parameters to set up

StringID GetPlayerNameString(PlayerID player, uint index)

{

		SetDParam(index, player+1);

		return STR_7002_PLAYER;

	}

	return STR_EMPTY;

}

		if (!(flags & DC_EXEC)) return 0;

		p = GetPlayer(p2);

		/* Only allow removal of HUMAN companies */

			/* Delete any open window of the company */

			DeletePlayerWindows(p->index);

			/* Show the bankrupt news */

			SetDParam(0, p->name_1);

			SetDParam(1, p->name_2);

{

	int i;

	SlObject(p, _player_desc);

	// Write AI?

		SlObject(&p->ai, _player_ai_desc);

		for (i = 0; i != p->ai.num_build_rec; i++) {

			SlObject(&p->ai.src + i, _player_ai_build_rec_desc);

		}

	}

			default:       capacity /= 4; break;

		}

	}

	_returned_refit_capacity = capacity;

	cost = 0;

		cost = GetRefitCost(v->engine_type);

	}

	if (flags & DC_EXEC) {

		v->cargo_cap = capacity;

		v->cargo_count = (v->cargo_type == new_cid) ? min(capacity, v->cargo_count) : 0;

	if (capacity == CALLBACK_FAILED) {

		capacity = ShipVehInfo(v->engine_type)->capacity;

	}

	_returned_refit_capacity = capacity;

	cost = 0;

		cost = GetRefitCost(v->engine_type);

	}

	if (flags & DC_EXEC) {

		v->cargo_cap = capacity;

		v->cargo_count = (v->cargo_type == new_cid) ? min(v->cargo_cap, v->cargo_count) : 0;