STR_NEWS_FIRST_BUS_ARRIVAL                                      :{BIG_FONT}{BLACK}Citizens celebrate . . .{}First bus arrives at {STATION}!

STR_NEWS_FIRST_TRUCK_ARRIVAL                                    :{BIG_FONT}{BLACK}Citizens celebrate . . .{}First truck arrives at {STATION}!

STR_NEWS_FIRST_PASSENGER_TRAM_ARRIVAL                           :{BIG_FONT}{BLACK}Citizens celebrate . . .{}First passenger tram arrives at {STATION}!

STR_NEWS_FIRST_CARGO_TRAM_ARRIVAL                               :{BIG_FONT}{BLACK}Citizens celebrate . . .{}First freight tram arrives at {STATION}!

STR_NEWS_FIRST_SHIP_ARRIVAL                                     :{BIG_FONT}{BLACK}Citizens celebrate . . .{}First ship arrives at {STATION}!

STR_NEWS_FIRST_AIRCRAFT_ARRIVAL                                 :{BIG_FONT}{BLACK}Citizens celebrate . . .{}First aircraft arrives at {STATION}!

STR_NEWS_TRAIN_CRASH                                            :{BIG_FONT}{BLACK}Train Crash!{}{COMMA} die in fireball after collision

STR_NEWS_ROAD_VEHICLE_CRASH_DRIVER                              :{BIG_FONT}{BLACK}Road Vehicle Crash!{}Driver dies in fireball after collision with train

STR_NEWS_ROAD_VEHICLE_CRASH                                     :{BIG_FONT}{BLACK}Road Vehicle Crash!{}{COMMA} die in fireball after collision with train

STR_NEWS_AIRCRAFT_CRASH                                         :{BIG_FONT}{BLACK}Plane Crash!{}{COMMA} die in fireball at {STATION}

STR_NEWS_PLANE_CRASH_OUT_OF_FUEL                                :{BIG_FONT}{BLACK}Plane Crash!{}Aircraft ran out of fuel, {COMMA} die in fireball

STR_NEWS_DISASTER_ZEPPELIN                                      :{BIG_FONT}{BLACK}Zeppelin disaster at {STATION}!

STR_NEWS_DISASTER_SMALL_UFO                                     :{BIG_FONT}{BLACK}Road vehicle destroyed in 'UFO' collision!

STR_NEWS_DISASTER_AIRPLANE_OIL_REFINERY                         :{BIG_FONT}{BLACK}Oil refinery explosion near {TOWN}!

STR_NEWS_DISASTER_HELICOPTER_FACTORY                            :{BIG_FONT}{BLACK}Factory destroyed in suspicious circumstances near {TOWN}!

STR_NEWS_DISASTER_BIG_UFO                                       :{BIG_FONT}{BLACK}'UFO' lands near {TOWN}!

STR_NEWS_DISASTER_COAL_MINE_SUBSIDENCE                          :{BIG_FONT}{BLACK}Coal mine subsidence leaves trail of destruction near {TOWN}!

STR_NEWS_DISASTER_FLOOD_VEHICLE                                 :{BIG_FONT}{BLACK}Floods!{}At least {COMMA} missing, presumed dead after significant flooding!

STR_NEWS_COMPANY_IN_TROUBLE_TITLE                               :{BIG_FONT}{BLACK}Transport company in trouble!

STR_NEWS_COMPANY_IN_TROUBLE_DESCRIPTION                         :{BIG_FONT}{BLACK}{RAW_STRING} will be sold off or declared bankrupt unless performance increases soon!

STR_NEWS_COMPANY_MERGER_TITLE                                   :{BIG_FONT}{BLACK}Transport company merger!

STR_NEWS_COMPANY_MERGER_DESCRIPTION                             :{BIG_FONT}{BLACK}{RAW_STRING} has been sold to {RAW_STRING} for {CURRENCY_LONG}!

STR_NEWS_COMPANY_BANKRUPT_TITLE                                 :{BIG_FONT}{BLACK}Bankrupt!

STR_NEWS_COMPANY_BANKRUPT_DESCRIPTION                           :{BIG_FONT}{BLACK}{RAW_STRING} has been closed down by creditors and all assets sold off!

STR_NEWS_COMPANY_LAUNCH_TITLE                                   :{BIG_FONT}{BLACK}New transport company launched!

STR_NEWS_COMPANY_LAUNCH_DESCRIPTION                             :{BIG_FONT}{BLACK}{RAW_STRING} starts construction near {TOWN}!

STR_NEWS_MERGER_TAKEOVER_TITLE                                  :{BIG_FONT}{BLACK}{RAW_STRING} has been taken over by {RAW_STRING}!

STR_PRESIDENT_NAME_MANAGER                                      :{BLACK}{PRESIDENT_NAME}{}(Manager)

STR_NEWS_NEW_TOWN                                               :{BLACK}{BIG_FONT}{RAW_STRING} sponsored construction of new town {TOWN}!

STR_NEWS_INDUSTRY_CONSTRUCTION                                  :{BIG_FONT}{BLACK}New {STRING} under construction near {TOWN}!

STR_NEWS_INDUSTRY_PLANTED                                       :{BIG_FONT}{BLACK}New {STRING} being planted near {TOWN}!

STR_NEWS_INDUSTRY_CLOSURE_GENERAL                               :{BIG_FONT}{BLACK}{STRING2} announces imminent closure!

STR_NEWS_INDUSTRY_CLOSURE_SUPPLY_PROBLEMS                       :{BIG_FONT}{BLACK}Supply problems cause {STRING2} to announce imminent closure!

STR_NEWS_INDUSTRY_CLOSURE_LACK_OF_TREES                         :{BIG_FONT}{BLACK}Lack of nearby trees causes {STRING2} to announce imminent closure!

STR_NEWS_EURO_INTRODUCTION                                      :{BIG_FONT}{BLACK}European Monetary Union!{}{}The Euro is introduced as the sole currency for everyday transactions in your country!

STR_NEWS_BEGIN_OF_RECESSION                                     :{BIG_FONT}{BLACK}World Recession!{}{}Financial experts fear worst as economy slumps!

STR_NEWS_END_OF_RECESSION                                       :{BIG_FONT}{BLACK}Recession Over!{}{}Upturn in trade gives confidence to industries as economy strengthens!

STR_NEWS_INDUSTRY_PRODUCTION_INCREASE_GENERAL                   :{BIG_FONT}{BLACK}{INDUSTRY} increases production!

STR_NEWS_INDUSTRY_PRODUCTION_INCREASE_COAL                      :{BIG_FONT}{BLACK}New coal seam found at {INDUSTRY}!{}Production is expected to double!

STR_NEWS_INDUSTRY_PRODUCTION_INCREASE_OIL                       :{BIG_FONT}{BLACK}New oil reserves found at {INDUSTRY}!{}Production is expected to double!

STR_NEWS_INDUSTRY_PRODUCTION_INCREASE_FARM                      :{BIG_FONT}{BLACK}Improved farming methods at {INDUSTRY} are expected to double production!

STR_NEWS_INDUSTRY_PRODUCTION_INCREASE_SMOOTH                    :{BIG_FONT}{BLACK}{STRING} production at {INDUSTRY} increases {COMMA}%!

STR_NEWS_INDUSTRY_PRODUCTION_DECREASE_GENERAL                   :{BIG_FONT}{BLACK}{INDUSTRY} production down by 50%

STR_NEWS_INDUSTRY_PRODUCTION_DECREASE_FARM                      :{BIG_FONT}{BLACK}Insect infestation causes havoc at {INDUSTRY}!{}Production down by 50%

STR_NEWS_INDUSTRY_PRODUCTION_DECREASE_SMOOTH                    :{BIG_FONT}{BLACK}{STRING} production at {INDUSTRY} decreases {COMMA}%!

STR_NEWS_TRAIN_IS_WAITING                                       :{WHITE}{VEHICLE} is waiting in depot

STR_NEWS_ROAD_VEHICLE_IS_WAITING                                :{WHITE}{VEHICLE} is waiting in depot

STR_NEWS_SHIP_IS_WAITING                                        :{WHITE}{VEHICLE} is waiting in depot

STR_NEWS_AIRCRAFT_IS_WAITING                                    :{WHITE}{VEHICLE} is waiting in the aircraft hangar

# Start of order review system

# DON'T ADD OR REMOVE LINES HERE

STR_NEWS_VEHICLE_HAS_TOO_FEW_ORDERS                             :{WHITE}{VEHICLE} has too few orders in the schedule

STR_NEWS_VEHICLE_HAS_VOID_ORDER                                 :{WHITE}{VEHICLE} has a void order

STR_NEWS_VEHICLE_HAS_DUPLICATE_ENTRY                            :{WHITE}{VEHICLE} has duplicate orders

STR_NEWS_VEHICLE_HAS_INVALID_ENTRY                              :{WHITE}{VEHICLE} has an invalid station in its orders

# end of order system

STR_NEWS_VEHICLE_IS_GETTING_OLD                                 :{WHITE}{VEHICLE} is getting old

STR_NEWS_VEHICLE_IS_GETTING_VERY_OLD                            :{WHITE}{VEHICLE} is getting very old

STR_NEWS_VEHICLE_IS_GETTING_VERY_OLD_AND                        :{WHITE}{VEHICLE} is getting very old and urgently needs replacing

STR_NEWS_TRAIN_IS_STUCK                                         :{WHITE}{VEHICLE} can't find a path to continue

STR_NEWS_VEHICLE_IS_LOST                                        :{WHITE}{VEHICLE} is lost

STR_NEWS_VEHICLE_IS_UNPROFITABLE                                :{WHITE}{VEHICLE}'s profit last year was {CURRENCY_LONG}

STR_NEWS_AIRCRAFT_DEST_TOO_FAR                                  :{WHITE}{VEHICLE} can't get to the next destination because it is out of range

STR_NEWS_ORDER_REFIT_FAILED                                     :{WHITE}{VEHICLE} stopped because an ordered refit failed

STR_NEWS_VEHICLE_AUTORENEW_FAILED                               :{WHITE}Autorenew failed on {VEHICLE}{}{STRING}

STR_NEWS_NEW_VEHICLE_NOW_AVAILABLE                              :{BIG_FONT}{BLACK}New {STRING} now available!

STR_NEWS_NEW_VEHICLE_TYPE                                       :{BIG_FONT}{BLACK}{ENGINE}

STR_NEWS_NEW_VEHICLE_NOW_AVAILABLE_WITH_TYPE                    :{BLACK}New {STRING} now available!  -  {ENGINE}

STR_NEWS_STATION_NO_LONGER_ACCEPTS_CARGO                        :{WHITE}{STATION} no longer accepts {STRING}

STR_NEWS_STATION_NO_LONGER_ACCEPTS_CARGO_OR_CARGO               :{WHITE}{STATION} no longer accepts {STRING} or {STRING}

STR_NEWS_STATION_NOW_ACCEPTS_CARGO                              :{WHITE}{STATION} now accepts {STRING}

STR_NEWS_STATION_NOW_ACCEPTS_CARGO_AND_CARGO                    :{WHITE}{STATION} now accepts {STRING} and {STRING}

STR_NEWS_OFFER_OF_SUBSIDY_EXPIRED                               :{BIG_FONT}{BLACK}Offer of subsidy expired:{}{}{STRING} from {STRING2} to {STRING2} will now not attract a subsidy

STR_NEWS_SUBSIDY_WITHDRAWN_SERVICE                              :{BIG_FONT}{BLACK}Subsidy withdrawn:{}{}{STRING} service from {STRING2} to {STRING2} is no longer subsidised

STR_NEWS_SERVICE_SUBSIDY_OFFERED                                :{BIG_FONT}{BLACK}Service subsidy offered:{}{}First {STRING} service from {STRING2} to {STRING2} will attract a year's subsidy from the local authority!

STR_NEWS_SERVICE_SUBSIDY_AWARDED_HALF                           :{BIG_FONT}{BLACK}Service subsidy awarded to {RAW_STRING}!{}{}{STRING} service from {STRING2} to {STRING2} will pay 50% extra for the next year!

STR_NEWS_SERVICE_SUBSIDY_AWARDED_DOUBLE                         :{BIG_FONT}{BLACK}Service subsidy awarded to {RAW_STRING}!{}{}{STRING} service from {STRING2} to {STRING2} will pay double rates for the next year!

STR_NEWS_SERVICE_SUBSIDY_AWARDED_TRIPLE                         :{BIG_FONT}{BLACK}Service subsidy awarded to {RAW_STRING}!{}{}{STRING} service from {STRING2} to {STRING2} will pay triple rates for the next year!

STR_NEWS_SERVICE_SUBSIDY_AWARDED_QUADRUPLE                      :{BIG_FONT}{BLACK}Service subsidy awarded to {RAW_STRING}!{}{}{STRING} service from {STRING2} to {STRING2} will pay quadruple rates for the next year!

STR_NEWS_ROAD_REBUILDING                                        :{BIG_FONT}{BLACK}Traffic chaos in {TOWN}!{}{}Road rebuilding programme funded by {RAW_STRING} brings 6 months of misery to motorists!

# Extra view window

STR_EXTRA_VIEW_PORT_TITLE                                       :{WHITE}Viewport {COMMA}

STR_EXTRA_VIEW_MOVE_VIEW_TO_MAIN                                :{BLACK}Copy to viewport

STR_EXTRA_VIEW_MOVE_VIEW_TO_MAIN_TT                             :{BLACK}Copy the location of the main view to this viewport

STR_EXTRA_VIEW_MOVE_MAIN_TO_VIEW                                :{BLACK}Paste from viewport

STR_EXTRA_VIEW_MOVE_MAIN_TO_VIEW_TT                             :{BLACK}Paste the location of this viewport to the main view

# Game options window

STR_GAME_OPTIONS_CAPTION                                        :{WHITE}Game Options

STR_GAME_OPTIONS_CURRENCY_UNITS_FRAME                           :{BLACK}Currency units

STR_GAME_OPTIONS_CURRENCY_UNITS_DROPDOWN_TOOLTIP                :{BLACK}Currency units selection

############ start of currency region

STR_GAME_OPTIONS_CURRENCY_GBP                                   :British Pound (GBP)

STR_GAME_OPTIONS_CURRENCY_USD                                   :American Dollar (USD)

STR_GAME_OPTIONS_CURRENCY_EUR                                   :Euro (EUR)

STR_GAME_OPTIONS_CURRENCY_JPY                                   :Japanese Yen (JPY)

STR_GAME_OPTIONS_CURRENCY_ATS                                   :Austrian Shilling (ATS)

STR_GAME_OPTIONS_CURRENCY_BEF                                   :Belgian Franc (BEF)

STR_GAME_OPTIONS_CURRENCY_CHF                                   :Swiss Franc (CHF)

STR_GAME_OPTIONS_CURRENCY_CZK                                   :Czech Koruna (CZK)

STR_GAME_OPTIONS_CURRENCY_DEM                                   :Deutschmark (DEM)

STR_GAME_OPTIONS_CURRENCY_DKK                                   :Danish Krone (DKK)

STR_GAME_OPTIONS_CURRENCY_ESP                                   :Spanish Peseta (ESP)

STR_GAME_OPTIONS_CURRENCY_FIM                                   :Finnish Markka (FIM)

STR_GAME_OPTIONS_CURRENCY_FRF                                   :French Franc (FRF)

STR_GAME_OPTIONS_CURRENCY_GRD                                   :Greek Drachma (GRD)

STR_GAME_OPTIONS_CURRENCY_HUF                                   :Hungarian Forint (HUF)

STR_GAME_OPTIONS_CURRENCY_ISK                                   :Icelandic Krona (ISK)

STR_GAME_OPTIONS_CURRENCY_ITL                                   :Italian Lira (ITL)

STR_GAME_OPTIONS_CURRENCY_NLG                                   :Dutch Guilder (NLG)

STR_GAME_OPTIONS_CURRENCY_NOK                                   :Norwegian Krone (NOK)

STR_GAME_OPTIONS_CURRENCY_PLN                                   :Polish Złoty (PLN)

STR_GAME_OPTIONS_CURRENCY_RON                                   :Romanian Leu (RON)

STR_GAME_OPTIONS_CURRENCY_RUR                                   :Russian Rubles (RUR)

STR_GAME_OPTIONS_CURRENCY_SIT                                   :Slovenian Tolar (SIT)

STR_GAME_OPTIONS_CURRENCY_SEK                                   :Swedish Krona (SEK)

STR_GAME_OPTIONS_CURRENCY_TRY                                   :Turkish Lira (TRY)

STR_GAME_OPTIONS_CURRENCY_SKK                                   :Slovak Koruna (SKK)

STR_GAME_OPTIONS_CURRENCY_BRL                                   :Brazilian Real (BRL)

STR_GAME_OPTIONS_CURRENCY_EEK                                   :Estonian Krooni (EEK)

STR_GAME_OPTIONS_CURRENCY_LTL                                   :Lithuanian Litas (LTL)

STR_GAME_OPTIONS_CURRENCY_KRW                                   :South Korean Won (KRW)

STR_GAME_OPTIONS_CURRENCY_ZAR                                   :South African Rand (ZAR)

STR_GAME_OPTIONS_CURRENCY_CUSTOM                                :Custom...

############ end of currency region

STR_GAME_OPTIONS_MEASURING_UNITS_FRAME                          :{BLACK}Measuring units

STR_GAME_OPTIONS_MEASURING_UNITS_DROPDOWN_TOOLTIP               :{BLACK}Measuring units selection

############ start of measuring units region

STR_GAME_OPTIONS_MEASURING_UNITS_IMPERIAL                       :Imperial

STR_GAME_OPTIONS_MEASURING_UNITS_METRIC                         :Metric

STR_GAME_OPTIONS_MEASURING_UNITS_SI                             :SI

############ end of measuring units region

STR_GAME_OPTIONS_ROAD_VEHICLES_FRAME                            :{BLACK}Road vehicles

STR_GAME_OPTIONS_ROAD_VEHICLES_DROPDOWN_TOOLTIP                 :{BLACK}Select side of road for vehicles to drive on

STR_GAME_OPTIONS_ROAD_VEHICLES_DROPDOWN_LEFT                    :Drive on left

STR_GAME_OPTIONS_ROAD_VEHICLES_DROPDOWN_RIGHT                   :Drive on right

STR_GAME_OPTIONS_TOWN_NAMES_FRAME                               :{BLACK}Town names

STR_GAME_OPTIONS_TOWN_NAMES_DROPDOWN_TOOLTIP                    :{BLACK}Select style of town names

############ start of townname region

STR_GAME_OPTIONS_TOWN_NAME_ORIGINAL_ENGLISH                     :English (Original)

STR_GAME_OPTIONS_TOWN_NAME_FRENCH                               :French

STR_GAME_OPTIONS_TOWN_NAME_GERMAN                               :German

STR_GAME_OPTIONS_TOWN_NAME_ADDITIONAL_ENGLISH                   :English (Additional)

STR_GAME_OPTIONS_TOWN_NAME_LATIN_AMERICAN                       :Latin-American

STR_GAME_OPTIONS_TOWN_NAME_SILLY                                :Silly

STR_GAME_OPTIONS_TOWN_NAME_SWEDISH                              :Swedish

STR_GAME_OPTIONS_TOWN_NAME_DUTCH                                :Dutch

STR_GAME_OPTIONS_TOWN_NAME_FINNISH                              :Finnish

STR_GAME_OPTIONS_TOWN_NAME_POLISH                               :Polish

STR_GAME_OPTIONS_TOWN_NAME_SLOVAK                               :Slovak

STR_GAME_OPTIONS_TOWN_NAME_NORWEGIAN                            :Norwegian

STR_GAME_OPTIONS_TOWN_NAME_HUNGARIAN                            :Hungarian

STR_GAME_OPTIONS_TOWN_NAME_AUSTRIAN                             :Austrian

STR_GAME_OPTIONS_TOWN_NAME_ROMANIAN                             :Romanian

STR_GAME_OPTIONS_TOWN_NAME_CZECH                                :Czech

STR_GAME_OPTIONS_TOWN_NAME_SWISS                                :Swiss

STR_GAME_OPTIONS_TOWN_NAME_DANISH                               :Danish

STR_GAME_OPTIONS_TOWN_NAME_TURKISH                              :Turkish

STR_GAME_OPTIONS_TOWN_NAME_ITALIAN                              :Italian

STR_GAME_OPTIONS_TOWN_NAME_CATALAN                              :Catalan

############ end of townname region

STR_GAME_OPTIONS_AUTOSAVE_FRAME                                 :{BLACK}Autosave

STR_GAME_OPTIONS_AUTOSAVE_DROPDOWN_TOOLTIP                      :{BLACK}Select interval between automatic game saves

STR_GAME_OPTIONS_AUTOSAVE_DROPDOWN_OFF                          :Off

STR_GAME_OPTIONS_AUTOSAVE_DROPDOWN_EVERY_1_MONTH                :Every month

STR_GAME_OPTIONS_AUTOSAVE_DROPDOWN_EVERY_3_MONTHS               :Every 3 months

STR_GAME_OPTIONS_AUTOSAVE_DROPDOWN_EVERY_6_MONTHS               :Every 6 months

 * @param tile Tile on which to perform the search.

 * @param user_data Reference to the statue search data.

 * @return Result of the test.

 */

static bool SearchTileForStatue(TileIndex tile, void *user_data)

{

	static const int STATUE_NUMBER_INNER_TILES = 25; // Number of tiles int the center of the city, where we try to protect houses.

	StatueBuildSearchData *statue_data = (StatueBuildSearchData *)user_data;

	statue_data->tile_count++;

	/* Statues can be build on slopes, just like houses. Only the steep slopes is a no go. */

	if (IsSteepSlope(GetTileSlope(tile))) return false;

	/* Don't build statues under bridges. */

	if (MayHaveBridgeAbove(tile) && IsBridgeAbove(tile)) return false;

	/* A clear-able open space is always preferred. */

	if ((IsTileType(tile, MP_CLEAR) || IsTileType(tile, MP_TREES)) && TryClearTile(tile)) {

		statue_data->best_position = tile;

		return true;

	}

	bool house = IsTileType(tile, MP_HOUSE);

	/* Searching inside the inner circle. */

	if (statue_data->tile_count <= STATUE_NUMBER_INNER_TILES) {

		/* Save first house in inner circle. */

		if (house && statue_data->best_position == INVALID_TILE && TryClearTile(tile)) {

			statue_data->best_position = tile;

		}

		/* If we have reached the end of the inner circle, and have a saved house, terminate the search. */

		return statue_data->tile_count == STATUE_NUMBER_INNER_TILES && statue_data->best_position != INVALID_TILE;

	}

	/* Searching outside the circle, just pick the first possible spot. */

	statue_data->best_position = tile; // Is optimistic, the condition below must also hold.

	return house && TryClearTile(tile);

}

/**

 * Perform a 9x9 tiles circular search from the center of the town

 * in order to find a free tile to place a statue

 * @param t town to search in

 * @param flags Used to check if the statue must be built or not.

 * @return Empty cost or an error.

 */

static CommandCost TownActionBuildStatue(Town *t, DoCommandFlag flags)

{

	if (!Object::CanAllocateItem()) return_cmd_error(STR_ERROR_TOO_MANY_OBJECTS);

	TileIndex tile = t->xy;

	StatueBuildSearchData statue_data(INVALID_TILE, 0);

	if (!CircularTileSearch(&tile, 9, SearchTileForStatue, &statue_data)) return_cmd_error(STR_ERROR_STATUE_NO_SUITABLE_PLACE);

	if (flags & DC_EXEC) {

		Backup<CompanyByte> cur_company(_current_company, OWNER_NONE, FILE_LINE);

		DoCommand(statue_data.best_position, 0, 0, DC_EXEC, CMD_LANDSCAPE_CLEAR);

		cur_company.Restore();

		BuildObject(OBJECT_STATUE, statue_data.best_position, _current_company, t);

		SetBit(t->statues, _current_company); // Once found and built, "inform" the Town.

		MarkTileDirtyByTile(statue_data.best_position);

	}

	return CommandCost();

}

static CommandCost TownActionFundBuildings(Town *t, DoCommandFlag flags)

{

	/* Check if it's allowed to buy the rights */

	if (!_settings_game.economy.fund_buildings) return CMD_ERROR;

	if (flags & DC_EXEC) {

		/* Build next tick */

		t->grow_counter = 1;

		/* If we were not already growing */

		SetBit(t->flags, TOWN_IS_FUNDED);

		/* And grow for 3 months */

		t->fund_buildings_months = 3;

		SetWindowDirty(WC_TOWN_VIEW, t->index);

	}

	return CommandCost();

}

static CommandCost TownActionBuyRights(Town *t, DoCommandFlag flags)

{

	/* Check if it's allowed to buy the rights */

	if (!_settings_game.economy.exclusive_rights) return CMD_ERROR;

	if (flags & DC_EXEC) {

		t->exclusive_counter = 12;

		t->exclusivity = _current_company;

		ModifyStationRatingAround(t->xy, _current_company, 130, 17);

		SetWindowClassesDirty(WC_STATION_VIEW);

	}

	return CommandCost();

}

static CommandCost TownActionBribe(Town *t, DoCommandFlag flags)

{

	if (flags & DC_EXEC) {

		if (Chance16(1, 14)) {

			/* set as unwanted for 6 months */

			t->unwanted[_current_company] = 6;

			/* set all close by station ratings to 0 */

			Station *st;

			FOR_ALL_STATIONS(st) {

				if (st->town == t && st->owner == _current_company) {

					for (CargoID i = 0; i < NUM_CARGO; i++) st->goods[i].rating = 0;

				}

			}

			/* only show errormessage to the executing player. All errors are handled command.c

			 * but this is special, because it can only 'fail' on a DC_EXEC */

			if (IsLocalCompany()) ShowErrorMessage(STR_ERROR_BRIBE_FAILED, INVALID_STRING_ID, WL_INFO);

			/* decrease by a lot!

			 * ChangeTownRating is only for stuff in demolishing. Bribe failure should

			 * be independent of any cheat settings

			 */

			if (t->ratings[_current_company] > RATING_BRIBE_DOWN_TO) {

				t->ratings[_current_company] = RATING_BRIBE_DOWN_TO;

				SetWindowDirty(WC_TOWN_AUTHORITY, t->index);

			}

		} else {

			ChangeTownRating(t, RATING_BRIBE_UP_STEP, RATING_BRIBE_MAXIMUM, DC_EXEC);

		}

	}

	return CommandCost();

}

typedef CommandCost TownActionProc(Town *t, DoCommandFlag flags);

static TownActionProc * const _town_action_proc[] = {

	TownActionAdvertiseSmall,

	TownActionAdvertiseMedium,

	TownActionAdvertiseLarge,

	TownActionRoadRebuild,

	TownActionBuildStatue,

	TownActionFundBuildings,

	TownActionBuyRights,

	TownActionBribe

};

/**

 * Get a list of available actions to do at a town.

 * @param nump if not NULL add put the number of available actions in it

 * @param cid the company that is querying the town

 * @param t the town that is queried

 * @return bitmasked value of enabled actions

 */

uint GetMaskOfTownActions(int *nump, CompanyID cid, const Town *t)

{

	int num = 0;

	TownActions buttons = TACT_NONE;

	/* Spectators and unwanted have no options */

	if (cid != COMPANY_SPECTATOR && !(_settings_game.economy.bribe && t->unwanted[cid])) {

		/* Things worth more than this are not shown */

		Money avail = Company::Get(cid)->money + _price[PR_STATION_VALUE] * 200;

		/* Check the action bits for validity and

		 * if they are valid add them */

		for (uint i = 0; i != lengthof(_town_action_costs); i++) {

			const TownActions cur = (TownActions)(1 << i);

			/* Is the company not able to bribe ? */

			if (cur == TACT_BRIBE && (!_settings_game.economy.bribe || t->ratings[cid] >= RATING_BRIBE_MAXIMUM)) continue;

			/* Is the company not able to buy exclusive rights ? */

			if (cur == TACT_BUY_RIGHTS && !_settings_game.economy.exclusive_rights) continue;

			/* Is the company not able to fund buildings ? */

			if (cur == TACT_FUND_BUILDINGS && !_settings_game.economy.fund_buildings) continue;

			/* Is the company not able to fund local road reconstruction? */

			if (cur == TACT_ROAD_REBUILD && !_settings_game.economy.fund_roads) continue;

			/* Is the company not able to build a statue ? */

			if (cur == TACT_BUILD_STATUE && HasBit(t->statues, cid)) continue;

			if (avail >= _town_action_costs[i] * _price[PR_TOWN_ACTION] >> 8) {

				buttons |= cur;

				num++;

			}

		}

	}

	if (nump != NULL) *nump = num;