summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/command.cpp2
-rw-r--r--src/command_type.h1
-rw-r--r--src/town_cmd.cpp65
-rw-r--r--src/town_gui.cpp58
4 files changed, 69 insertions, 57 deletions
diff --git a/src/command.cpp b/src/command.cpp
index b24745bd4..068f8bf44 100644
--- a/src/command.cpp
+++ b/src/command.cpp
@@ -137,6 +137,7 @@ CommandProc CmdFoundTown;
CommandProc CmdRenameTown;
CommandProc CmdDoTownAction;
CommandProc CmdExpandTown;
+CommandProc CmdDeleteTown;
CommandProc CmdChangeSetting;
CommandProc CmdChangeCompanySetting;
@@ -289,6 +290,7 @@ static const Command _command_proc_table[] = {
DEF_CMD(CmdRenameTown, CMD_SERVER), // CMD_RENAME_TOWN
DEF_CMD(CmdDoTownAction, 0), // CMD_DO_TOWN_ACTION
DEF_CMD(CmdExpandTown, CMD_OFFLINE), // CMD_EXPAND_TOWN
+ DEF_CMD(CmdDeleteTown, CMD_OFFLINE), // CMD_DELETE_TOWN
DEF_CMD(CmdSellShip, 0), // CMD_SELL_SHIP
DEF_CMD(CmdBuildShip, 0), // CMD_BUILD_SHIP
diff --git a/src/command_type.h b/src/command_type.h
index 8f74d6e61..82f5ada91 100644
--- a/src/command_type.h
+++ b/src/command_type.h
@@ -236,6 +236,7 @@ enum Commands {
CMD_RENAME_TOWN, ///< rename a town
CMD_DO_TOWN_ACTION, ///< do a action from the town detail window (like advertises or bribe)
CMD_EXPAND_TOWN, ///< expand a town
+ CMD_DELETE_TOWN, ///< delete a town
CMD_SELL_SHIP, ///< sell a ship
CMD_BUILD_SHIP, ///< build a new ship
diff --git a/src/town_cmd.cpp b/src/town_cmd.cpp
index 702de3fc6..db93a7a00 100644
--- a/src/town_cmd.cpp
+++ b/src/town_cmd.cpp
@@ -45,6 +45,7 @@
#include "townname_type.h"
#include "core/random_func.hpp"
#include "core/backup_type.hpp"
+#include "depot_base.h"
#include "table/strings.h"
#include "table/town_land.h"
@@ -2349,6 +2350,70 @@ CommandCost CmdExpandTown(TileIndex tile, DoCommandFlag flags, uint32 p1, uint32
}
/**
+ * Delete a town (scenario editor only).
+ * @param tile Unused.
+ * @param flags Type of operation.
+ * @param p1 Town ID to delete.
+ * @param p2 Unused.
+ * @param text Unused.
+ * @return Empty cost or an error.
+ */
+CommandCost CmdDeleteTown(TileIndex tile, DoCommandFlag flags, uint32 p1, uint32 p2, const char *text)
+{
+ if (_game_mode != GM_EDITOR) return CMD_ERROR;
+ Town *t = Town::GetIfValid(p1);
+ if (t == NULL) return CMD_ERROR;
+
+ /* Stations refer to towns. */
+ const Station *st;
+ FOR_ALL_STATIONS(st) {
+ if (st->town == t) {
+ /* Non-oil rig stations are always a problem. */
+ if (!(st->facilities & FACIL_AIRPORT) || st->airport.type != AT_OILRIG) return CMD_ERROR;
+ /* We can only automatically delete oil rigs *if* there's no vehicle on them. */
+ CommandCost ret = DoCommand(st->airport.tile, 0, 0, DC_NONE, CMD_LANDSCAPE_CLEAR);
+ if (ret.Failed()) return ret;
+ }
+ }
+
+ /* Depots refer to towns. */
+ const Depot *d;
+ FOR_ALL_DEPOTS(d) {
+ if (d->town == t) return CMD_ERROR;
+ }
+
+ /* Check all tiles for town ownership. */
+ for (TileIndex tile = 0; tile < MapSize(); ++tile) {
+ switch (GetTileType(tile)) {
+ case MP_ROAD:
+ if (HasTownOwnedRoad(tile) && GetTownIndex(tile) == t->index) {
+ /* Can we clear this tile? */
+ CommandCost ret = DoCommand(tile, 0, 0, DC_NONE, CMD_LANDSCAPE_CLEAR);
+ if (ret.Failed()) return ret;
+ }
+ break;
+
+ case MP_TUNNELBRIDGE:
+ if (IsTileOwner(tile, OWNER_TOWN) &&
+ ClosestTownFromTile(tile, UINT_MAX) == t) {
+ /* Can we clear this bridge? */
+ CommandCost ret = DoCommand(tile, 0, 0, DC_NONE, CMD_LANDSCAPE_CLEAR);
+ if (ret.Failed()) return ret;
+ }
+ break;
+
+ default:
+ break;
+ }
+ }
+
+ /* The town destructor will delete everything related to the town. */
+ if (flags & DC_EXEC) delete t;
+
+ return CommandCost();
+}
+
+/**
* Factor in the cost of each town action.
* @see TownActions
*/
diff --git a/src/town_gui.cpp b/src/town_gui.cpp
index 4a50b1211..e1581cb70 100644
--- a/src/town_gui.cpp
+++ b/src/town_gui.cpp
@@ -33,8 +33,6 @@
#include "townname_func.h"
#include "townname_type.h"
#include "core/geometry_func.hpp"
-#include "station_base.h"
-#include "depot_base.h"
#include "genworld.h"
#include "table/sprites.h"
@@ -466,65 +464,11 @@ public:
break;
case TVW_DELETE: // delete town - only available on Scenario editor
- if (this->CanDeleteTown()) {
- delete this->town;
- } else {
- ShowErrorMessage(STR_ERROR_TOWN_CAN_T_DELETE, INVALID_STRING_ID, WL_INFO);
- }
+ DoCommandP(0, this->window_number, 0, CMD_DELETE_TOWN | CMD_MSG(STR_ERROR_TOWN_CAN_T_DELETE));
break;
}
}
- /**
- * Can we delete the town?
- * Or in other words, does anything refer to this town?
- * @return true if it's possible
- */
- bool CanDeleteTown() const
- {
- /* Stations refer to towns. */
- const Station *st;
- FOR_ALL_STATIONS(st) {
- if (st->town == this->town) {
- /* Non-oil rig stations are always a problem. */
- if (!(st->facilities & FACIL_AIRPORT) || st->airport.type != AT_OILRIG) return false;
- /* We can only automatically delete oil rigs *if* there's no vehicle on them. */
- if (DoCommand(st->airport.tile, 0, 0, DC_NONE, CMD_LANDSCAPE_CLEAR).Failed()) return false;
- }
- }
-
- /* Depots refer to towns. */
- const Depot *d;
- FOR_ALL_DEPOTS(d) {
- if (d->town == this->town) return false;
- }
-
- /* Check all tiles for town ownership. */
- for (TileIndex tile = 0; tile < MapSize(); ++tile) {
- switch (GetTileType(tile)) {
- case MP_ROAD:
- if (HasTownOwnedRoad(tile) && GetTownIndex(tile) == this->town->index) {
- /* Can we clear this tile? */
- if (DoCommand(tile, 0, 0, DC_NONE, CMD_LANDSCAPE_CLEAR).Failed()) return false;
- }
- break;
-
- case MP_TUNNELBRIDGE:
- if (IsTileOwner(tile, OWNER_TOWN) &&
- ClosestTownFromTile(tile, UINT_MAX) == this->town) {
- /* Can we clear this bridge? */
- if (DoCommand(tile, 0, 0, DC_NONE, CMD_LANDSCAPE_CLEAR).Failed()) return false;
- }
- break;
-
- default:
- break;
- }
- }
-
- return true;
- }
-
virtual void UpdateWidgetSize(int widget, Dimension *size, const Dimension &padding, Dimension *fill, Dimension *resize)
{
switch (widget) {