--- a/vehicle.c Mon Oct 24 05:51:23 2005 +0000
+++ b/vehicle.c Mon Oct 24 19:40:48 2005 +0000
@@ -27,6 +27,44 @@
#define INVALID_COORD (-0x8000)
#define GEN_HASH(x,y) (((x & 0x1F80)>>7) + ((y & 0xFC0)))
+/*
+ * These command macros are used to call vehicle type specific commands with non type specific commands
+ * it should be used like: DoCommandP(x, y, p1, p2, flags, CMD_STARTSTOP_VEH(v->type))
+ * that line will start/stop a vehicle nomatter what type it is
+ * VEH_Train is used as an offset because the vehicle type values doesn't start with 0
+ */
+
+#define CMD_BUILD_VEH(x) _veh_build_proc_table[ x - VEH_Train]
+#define CMD_SELL_VEH(x) _veh_sell_proc_table[ x - VEH_Train]
+#define CMD_STARTSTOP_VEH(x) _veh_start_stop_proc_table[ x - VEH_Train]
+#define CMD_REFIT_VEH(x) _veh_refit_proc_table[ x - VEH_Train]
+
+static uint32 const _veh_build_proc_table[] = {
+ CMD_BUILD_RAIL_VEHICLE,
+ CMD_BUILD_ROAD_VEH,
+ CMD_BUILD_SHIP,
+ CMD_BUILD_AIRCRAFT,
+};
+static uint32 const _veh_sell_proc_table[] = {
+ CMD_SELL_RAIL_WAGON,
+ CMD_SELL_ROAD_VEH,
+ CMD_SELL_SHIP,
+ CMD_SELL_AIRCRAFT,
+};
+static uint32 const _veh_start_stop_proc_table[] = {
+ CMD_START_STOP_TRAIN,
+ CMD_START_STOP_ROADVEH,
+ CMD_START_STOP_SHIP,
+ CMD_START_STOP_AIRCRAFT,
+};
+static uint32 const _veh_refit_proc_table[] = {
+ CMD_REFIT_RAIL_VEHICLE,
+ 0, // road vehicles can't be refitted
+ CMD_REFIT_SHIP,
+ CMD_REFIT_AIRCRAFT,
+};
+
+
enum {
/* Max vehicles: 64000 (512 * 125) */
VEHICLES_POOL_BLOCK_SIZE_BITS = 9, /* In bits, so (1 << 9) == 512 */
@@ -1373,297 +1411,6 @@
extern int32 CmdRefitShip(int x, int y, uint32 flags, uint32 p1, uint32 p2);
extern int32 CmdRefitAircraft(int x, int y, uint32 flags, uint32 p1, uint32 p2);
-
-
-/** Replaces a vehicle (used to be called autorenew).
- * Must be called with _current_player set to the owner of the vehicle
- * @param v Vehicle to replace
- */
-int32 ReplaceVehicle(Vehicle *v)
-{
- Player *p = GetPlayer(v->owner);
- EngineID old_engine_type = v->engine_type;
- EngineID new_engine_type = p->engine_replacement[old_engine_type];
- Vehicle *u, *first;
- Engine *e;
- int cost, build_cost, rear_engine_cost = 0;
-
- // If replacing due to age only, use the same type :-)
- if (new_engine_type == INVALID_ENGINE)
- new_engine_type = old_engine_type;
-
- u = v;
-
- /* First we make sure that it's a valid type the user requested
- * check that it's an engine that is in the engine array */
- if (!IsEngineIndex(new_engine_type)) return CMD_ERROR;
-
- // check that the new vehicle type is the same as the original one
- if (v->type != GetEngine(new_engine_type)->type) return CMD_ERROR;
-
- // check that it's the vehicle's owner that requested the replace
- if (!CheckOwnership(v->owner)) return CMD_ERROR;
-
- // makes sure that we do not replace a plane with a helicopter or vise versa
- if (v->type == VEH_Aircraft) {
- if (HASBIT(AircraftVehInfo(old_engine_type)->subtype, 0) != HASBIT(AircraftVehInfo(new_engine_type)->subtype, 0)) return CMD_ERROR;
- }
-
- // makes sure that the player can actually buy the new engine. Renewing is still allowed to outdated engines
- if (!HASBIT(GetEngine(new_engine_type)->player_avail, v->owner) && old_engine_type != new_engine_type) return CMD_ERROR;
-
- switch (v->type) {
- case VEH_Train: build_cost = EstimateTrainCost(RailVehInfo(new_engine_type)); break;
- case VEH_Road: build_cost = EstimateRoadVehCost(new_engine_type); break;
- case VEH_Ship: build_cost = EstimateShipCost(new_engine_type); break;
- case VEH_Aircraft: build_cost = EstimateAircraftCost(new_engine_type); break;
- default: return CMD_ERROR;
- }
-
- /* In a rare situation, when 2 clients are connected to 1 company and have the same
- settings, a vehicle can be replaced twice.. check if this is the situation here */
- if (old_engine_type == new_engine_type && v->age == 0) return CMD_ERROR;
-
- if ( v->type == VEH_Train ) {
- first = GetFirstVehicleInChain(v);
- u = GetLastVehicleInChain(v);
- if ( RailVehInfo(new_engine_type)->flags & RVI_MULTIHEAD )
- build_cost = build_cost >> 1; //multiheaded engines have EstimateTrainCost() for both engines
-
- if ( old_engine_type != new_engine_type ) {
-
- // prevent that the rear engine can get replaced to something else than the front engine
- if ( v->u.rail.first_engine != INVALID_VEHICLE && RailVehInfo(old_engine_type)->flags & RVI_MULTIHEAD && RailVehInfo(old_engine_type)->flags ) {
- if ( first->engine_type != new_engine_type ) return CMD_ERROR;
- }
-
- // checks if the engine is the first one
- if ( v->u.rail.first_engine == INVALID_VEHICLE ) {
- if ( RailVehInfo(new_engine_type)->flags & RVI_MULTIHEAD ) {
- if ( u->engine_type == old_engine_type && v->next != NULL) {
- rear_engine_cost = build_cost - u->value;
- } else {
- rear_engine_cost = build_cost;
- }
- } else {
- if ( u->engine_type == old_engine_type && RailVehInfo(old_engine_type)->flags & RVI_MULTIHEAD) {
- if (v->next != NULL) rear_engine_cost = -(int32)u->value;
- }
- }
- }
- }
- }
-
- /* Check if there is money for the upgrade.. if not, give a nice news-item
- (that is needed, because this CMD is called automaticly) */
- if ( p->money64 < (int32)(p->engine_renew_money + build_cost + rear_engine_cost - v->value)) {
- if (( _local_player == v->owner ) && ( v->unitnumber != 0 )) { //v->unitnumber = 0 for train cars
- StringID message;
- SetDParam(0, v->unitnumber);
- switch (v->type) {
- case VEH_Train: message = STR_TRAIN_AUTORENEW_FAILED; break;
- case VEH_Road: message = STR_ROADVEHICLE_AUTORENEW_FAILED; break;
- case VEH_Ship: message = STR_SHIP_AUTORENEW_FAILED; break;
- case VEH_Aircraft: message = STR_AIRCRAFT_AUTORENEW_FAILED; break;
- // This should never happen
- default: message = 0; break;
- }
-
- AddNewsItem(message, NEWS_FLAGS(NM_SMALL, NF_VIEWPORT|NF_VEHICLE, NT_ADVICE, 0), v->index, 0);
- }
-
- return CMD_ERROR;
- }
- cost = build_cost - v->value + rear_engine_cost;
-
- /* We do not really buy a new vehicle, we upgrade the old one */
- e = GetEngine(new_engine_type);
-
- v->reliability = e->reliability;
- v->reliability_spd_dec = e->reliability_spd_dec;
- v->age = 0;
-
- v->date_of_last_service = _date;
- v->build_year = _cur_year;
-
- v->value = build_cost;
-
- if (v->engine_type != new_engine_type) {
- byte sprite = v->spritenum;
- byte cargo_type = v->cargo_type;
- v->engine_type = new_engine_type;
- v->max_age = e->lifelength * 366;
-
- /* Update limits of the vehicle (for when upgraded) */
- switch (v->type) {
- case VEH_Train: {
- const RailVehicleInfo *rvi = RailVehInfo(new_engine_type);
- const RailVehicleInfo *rvi2 = RailVehInfo(old_engine_type);
- byte capacity = rvi2->capacity;
- Vehicle *first = GetFirstVehicleInChain(v);
-
- //if (v->owner == _local_player) InvalidateWindowClasses(WC_TRAINS_LIST);
- /* rvi->image_index is the new sprite for the engine. Adding +1 makes the engine head the other way
- if it is a multiheaded engine (rear engine)
- (rvi->flags & RVI_MULTIHEAD && sprite - rvi2->image_index) is true if the engine is heading the other way, otherwise 0*/
- v->spritenum = rvi->image_index + ((rvi->flags & RVI_MULTIHEAD && sprite - rvi2->image_index) ? 1 : 0);
-
- // turn the last engine in a multiheaded train if needed
- if (v->next == NULL && v->u.rail.first_engine != INVALID_VEHICLE && rvi->flags & RVI_MULTIHEAD && v->spritenum == rvi->image_index)
- v->spritenum++;
-
- v->cargo_type = rvi->cargo_type;
- v->cargo_cap = rvi->capacity;
- v->max_speed = rvi->max_speed;
-
- v->u.rail.railtype = e->railtype;
-
- // 0x0100 means that we skip the check for being stopped inside the depot
- // since we do not stop it for autorefitting
- if (v->cargo_type != cargo_type && capacity) {
- // BUG: somehow v->index is not transfered properly
- //CmdRefitRailVehicle(v->x_pos, v->y_pos, DC_EXEC, v->index , cargo_type + 0x0100 );
- v->cargo_type = cargo_type; // workaround, but it do not check the refit table
- } else {
- v->cargo_type = rvi->cargo_type;
- }
-#if 0
-// we disable this because they can crash the game. They will be fixed at a later date
- if ( rvi2->flags & RVI_MULTIHEAD && !(rvi->flags & RVI_MULTIHEAD) && v->index == first->index) {
- if (old_engine_type == u->engine_type ) {
- Vehicle *w;
-
- u = GetLastVehicleInChain(v);
- w = GetPrevVehicleInChain(u);
- w->next = NULL;
- DeleteVehicle(u);
- }
- }
-
- if ( rvi->flags & RVI_MULTIHEAD && rvi2->flags & RVI_MULTIHEAD && v->index == first->index ) {
- CmdReplaceVehicle(x, y, flags, u->index, p2);
- }
-
- if ( rvi->flags & RVI_MULTIHEAD && !(rvi2->flags & RVI_MULTIHEAD) && v->index == first->index ) {
- if ( old_engine_type != u->engine_type ) {
- Vehicle *w;
- if ( (w=AllocateVehicle()) != NULL ) {
- AddRearEngineToMultiheadedTrain(v,w, false);
- u->next = w;
- }
- }
- }
-#endif
-
- // recalculate changed train values
- TrainConsistChanged(first);
- InvalidateWindowClasses(WC_TRAINS_LIST);
- UpdateTrainAcceleration(first);
- break;
- }
-
- case VEH_Road: {
- const RoadVehicleInfo *rvi = RoadVehInfo(new_engine_type);
-
- v->spritenum = rvi->image_index;
- v->cargo_type = rvi->cargo_type;
- v->cargo_cap = rvi->capacity;
- v->max_speed = rvi->max_speed;
- InvalidateWindowClasses(WC_ROADVEH_LIST);
- break;
- }
-
- case VEH_Ship: {
- const ShipVehicleInfo *svi = ShipVehInfo(new_engine_type);
-
- v->spritenum = svi->image_index;
- v->cargo_type = svi->cargo_type;
- v->cargo_cap = svi->capacity;
- v->max_speed = svi->max_speed;
-
- // 0x0100 means that we skip the check for being stopped inside the depot
- // since we do not stop it for autorefitting
- if (v->cargo_type != cargo_type)
- CmdRefitShip(v->x_pos, v->y_pos, DC_EXEC, v->index , cargo_type + 0x0100 );
- InvalidateWindowClasses(WC_SHIPS_LIST);
- break;
- }
-
- case VEH_Aircraft: {
- const AircraftVehicleInfo *avi = AircraftVehInfo(new_engine_type);
- Vehicle *u;
-
- v->max_speed = avi->max_speed;
- v->acceleration = avi->acceleration;
- v->spritenum = avi->image_index;
-
- if ( cargo_type == CT_PASSENGERS ) {
- v->cargo_cap = avi->passenger_capacity;
- u = v->next;
- u->cargo_cap = avi->mail_capacity;
- } else {
- // 0x0100 means that we skip the check for being stopped inside the hangar
- // since we do not stop it for autorefitting
- CmdRefitAircraft(v->x_pos, v->y_pos, DC_EXEC, v->index , cargo_type + 0x0100 );
- }
- InvalidateWindowClasses(WC_AIRCRAFT_LIST);
- break;
- }
-
- default: return CMD_ERROR;
- }
- // makes sure that the cargo is still valid compared to new capacity
- if (v->cargo_count != 0) {
- if ( v->cargo_type != cargo_type )
- v->cargo_count = 0;
- else if ( v->cargo_count > v->cargo_cap )
- v->cargo_count = v->cargo_cap;
- }
- }
-
- InvalidateWindow(WC_REPLACE_VEHICLE, v->type);
- ResortVehicleLists();
- InvalidateWindow(WC_VEHICLE_DETAILS, v->index);
-
- //needs to be down here because refitting will change SET_EXPENSES_TYPE if called
- SET_EXPENSES_TYPE(EXPENSES_NEW_VEHICLES);
- SubtractMoneyFromPlayer(cost);
- if (IsLocalPlayer()) ShowCostOrIncomeAnimation(v->x_pos, v->y_pos, v->z_pos, cost);
-
- return cost;
-}
-
-void MaybeReplaceVehicle(Vehicle *v)
-{
- Player *p = GetPlayer(v->owner);
- // uncomment next line if you want to see what engine type just entered a depot
- //printf("engine type: %d\n", v->engine_type);
-
- // A vehicle is autorenewed when it it gets the amount of months
- // give by _patches.autorenew_months away for his max age.
- // Standard is -6, meaning 6 months before his max age
- // It can be any value between -12 and 12.
- // Here it also checks if the vehicles is listed for replacement
- if (!p->engine_renew || v->age - v->max_age < (p->engine_renew_months * 30)) { //replace if engine is too old
- if (p->engine_replacement[v->engine_type] == INVALID_ENGINE && v->type != VEH_Train) // updates to a new model
- return;
- }
- /* Now replace the vehicle */
- _current_player = v->owner;
-
- if ( v->type != VEH_Train ) {
- ReplaceVehicle(v);
- } else {
- // checks if any of the engines in the train are either old or listed for replacement
- do {
- if (p->engine_replacement[v->engine_type] != INVALID_ENGINE || (p->engine_renew && (v->age - v->max_age) > (p->engine_renew_months * 30))) {
- ReplaceVehicle(v);
- }
- } while ((v=v->next) != NULL);
- }
- _current_player = OWNER_NONE;
-}
-
int32 CmdCloneOrder(int x, int y, uint32 flags, uint32 veh1_veh2, uint32 mode);
int32 CmdMoveRailVehicle(int x, int y, uint32 flags, uint32 p1, uint32 p2);
int32 CmdBuildRailVehicle(int x, int y, uint32 flags, uint32 p1, uint32 p2);
@@ -1671,10 +1418,9 @@
int32 CmdBuildShip(int x, int y, uint32 flags, uint32 p1, uint32 p2);
int32 CmdBuildAircraft(int x, int y, uint32 flags, uint32 p1, uint32 p2);
-
typedef int32 VehBuildProc(int x, int y, uint32 flags, uint32 p1, uint32 p2);
-static VehBuildProc * const _veh_build_proc_table[] = {
+static VehBuildProc * const _veh_build_cmd_table[] = {
CmdBuildRailVehicle,
CmdBuildRoadVeh,
CmdBuildShip,
@@ -1724,9 +1470,9 @@
default: return CMD_ERROR;
}
- proc = _veh_build_proc_table[v->type - VEH_Train];
+ proc = _veh_build_cmd_table[v->type - VEH_Train];
new_id = _new_vehicle_id_proc_table[v->type - VEH_Train];
- total_cost = proc(x, y, flags, v->engine_type, 1);
+ total_cost = proc(x, y, flags, v->engine_type, 3);
if (total_cost == CMD_ERROR)
return CMD_ERROR;
@@ -1744,7 +1490,7 @@
// now we handle the cars
v = v->next;
while (v != NULL) {
- cost = proc(x, y, flags, v->engine_type, 1);
+ cost = proc(x, y, flags, v->engine_type, 3);
if (cost == CMD_ERROR)
return CMD_ERROR;
total_cost += cost;
@@ -1779,6 +1525,170 @@
return total_cost;
}
+/* Replaces a vehicle (used to be called autorenew)
+ * This function is only called from MaybeReplaceVehicle(), which is the next one
+ * Must be called with _current_player set to the owner of the vehicle
+ * @param w Vehicle to replace
+ * @param flags is the flags to use when calling DoCommand(). Mainly DC_EXEC counts
+ * return value is cost of the replacement or CMD_ERROR
+ */
+static int32 ReplaceVehicle(Vehicle **w, byte flags)
+{
+ int32 cost;
+ const Vehicle *old_v = *w;
+ const Player *p = GetPlayer(old_v->owner);
+ EngineID new_engine_type;
+ const UnitID cached_unitnumber = old_v->unitnumber;
+ bool new_front = false;
+ Vehicle *new_v = NULL;
+
+ new_engine_type = p->engine_replacement[old_v->engine_type] == INVALID_ENGINE ? old_v->engine_type: p->engine_replacement[old_v->engine_type];
+
+ cost = DoCommand(old_v->x_pos, old_v->y_pos, new_engine_type, 2, flags, CMD_BUILD_VEH(old_v->type));
+
+ //check if the new engine is buildable
+ if (CmdFailed(cost)) return cost;
+
+ if (flags & DC_EXEC) {
+ new_v = GetVehicle(*_new_vehicle_id_proc_table[old_v->type - VEH_Train]);
+ *w = new_v;
+
+ /* refit if needed */
+ if (new_v->type != VEH_Road) { // road vehicles can't be refitted
+ if (old_v->cargo_type != new_v->cargo_type && old_v->cargo_cap != 0 && new_v->cargo_cap != 0) {// some train engines do not have cargo capacity
+ DoCommand(0, 0, new_v->index, old_v->cargo_type, DC_EXEC, CMD_REFIT_VEH(new_v->type));
+ }
+ }
+
+ /* move the cargo to the new vehicle */
+ if (old_v->cargo_type == new_v->cargo_type && old_v->cargo_count != 0) {
+ // move the cargo to the new vehicle
+ new_v->cargo_count = min(old_v->cargo_count, new_v->cargo_cap);
+ new_v->cargo_source = old_v->cargo_source;
+
+ // copy the age of the cargo
+ new_v->cargo_days = old_v->cargo_days;
+ new_v->day_counter = old_v->day_counter;
+ new_v->tick_counter = old_v->tick_counter;
+ }
+
+ if (old_v->type == VEH_Train && old_v->u.rail.first_engine != INVALID_VEHICLE) {
+ /* this is a railcar. We need to move the car into the train
+ * We add the new engine after the old one instead of replacing it. It will give the same result anyway when we
+ * sell the old engine in a moment
+ */
+ DoCommand(0, 0, (old_v->index << 16) | new_v->index, 1, DC_EXEC, CMD_MOVE_RAIL_VEHICLE);
+ } else {
+ // copy/clone the orders
+ DoCommand(0, 0, (old_v->index << 16) | new_v->index, IsOrderListShared(old_v) ? CO_SHARE : CO_COPY, DC_EXEC, CMD_CLONE_ORDER);
+ new_v->cur_order_index = old_v->cur_order_index;
+ ChangeVehicleViewWindow(old_v, new_v);
+ new_front = true;
+
+ new_v->current_order = old_v->current_order;
+ if (old_v->type == VEH_Train){
+ // move the entire train to the new engine, including the old engine. It will be sold in a moment anyway
+ DoCommand(0, 0, (new_v->index << 16) | old_v->index, 1, DC_EXEC, CMD_MOVE_RAIL_VEHICLE);
+ }
+ }
+ }
+
+ // sell the engine/ find out how much you get for the old engine
+ cost += DoCommand(0, 0, old_v->index, 0, flags, CMD_SELL_VEH(old_v->type));
+
+ if (new_front) {
+ // now we assign the old unitnumber to the new vehicle
+ new_v->unitnumber = cached_unitnumber;
+ }
+
+ return cost;
+}
+
+/** replaces a vehicle if it's set for autoreplace or is too old(used to be called autorenew)
+* @param v The vehicle to replace
+* if the vehicle is a train, v needs to be the front engine
+* return value is a pointer to the new vehicle, which is the same as the argument if nothing happened
+*/
+Vehicle * MaybeReplaceVehicle(Vehicle *v)
+{
+ Vehicle *w;
+ const Player *p = GetPlayer(v->owner);
+ byte flags = 0;
+ int32 cost = 0, temp_cost = 0;
+
+ _current_player = v->owner;
+
+ assert(v->type == VEH_Train || v->type == VEH_Road || v->type == VEH_Ship || v->type == VEH_Aircraft);
+
+ DoCommand(0, 0, v->index, 0, DC_EXEC, CMD_STARTSTOP_VEH(v->type));
+
+ while (true) {
+ w = v;
+ do {
+ // check if the vehicle should be replaced
+ if (!p->engine_renew || w->age - w->max_age < (p->engine_renew_months * 30) //replace if engine is too old
+ || (w->max_age == 0)) { // rail cars got a max age of 0
+ if (p->engine_replacement[w->engine_type] == INVALID_ENGINE) // updates to a new model
+ continue;
+ }
+
+ /* if we are looking at the rear end of a multiheaded locomotive, skip it */
+ if (w->type == VEH_Train) {
+ const RailVehicleInfo *rvi = RailVehInfo(w->engine_type);
+ if (rvi->flags & RVI_MULTIHEAD && rvi->image_index == w->spritenum - 1)
+ continue;
+ }
+
+ /* Now replace the vehicle */
+ temp_cost = ReplaceVehicle(&w, flags);
+
+ if (flags & DC_EXEC && !(w->type == VEH_Train && w->u.rail.first_engine != INVALID_VEHICLE)){
+ // now we bought a new engine and sold the old one. We need to fix the pointers in order to avoid pointing to the old one
+ // for trains: these pointers should point to the front engine and not the cars
+ v = w;
+ }
+
+ if (CmdFailed(temp_cost))
+ break;
+
+ cost += temp_cost;
+ } while (w->type == VEH_Train && (w=w->next) != NULL);
+
+ if (!(flags & DC_EXEC) && (CmdFailed(temp_cost) || p->money64 < (int32)(cost + p->engine_renew_money) || cost == 0)) {
+ if (p->money64 < (int32)(cost + p->engine_renew_money) && ( _local_player == v->owner )) {
+ StringID message;
+ SetDParam(0, v->unitnumber);
+ switch (v->type) {
+ case VEH_Train: message = STR_TRAIN_AUTORENEW_FAILED; break;
+ case VEH_Road: message = STR_ROADVEHICLE_AUTORENEW_FAILED; break;
+ case VEH_Ship: message = STR_SHIP_AUTORENEW_FAILED; break;
+ case VEH_Aircraft: message = STR_AIRCRAFT_AUTORENEW_FAILED; break;
+ // This should never happen
+ default: NOT_REACHED(); message = 0; break;
+ }
+
+ AddNewsItem(message, NEWS_FLAGS(NM_SMALL, NF_VIEWPORT|NF_VEHICLE, NT_ADVICE, 0), v->index, 0);
+ }
+ DoCommand(0, 0, v->index, 0, DC_EXEC, CMD_STARTSTOP_VEH(v->type)); //we start the vehicle again
+ return v;
+ }
+
+ if (flags & DC_EXEC) {
+ break; // we are done replacing since the loop ran once with DC_EXEC
+ }
+ // now we redo the loop, but this time we actually do stuff since we know that we can do it
+ flags |= DC_EXEC;
+ }
+
+ SET_EXPENSES_TYPE(EXPENSES_NEW_VEHICLES);
+ SubtractMoneyFromPlayer(cost);
+ if (IsLocalPlayer()) ShowCostOrIncomeAnimation(v->x_pos, v->y_pos, v->z_pos, cost);
+
+ DoCommand(0, 0, v->index, 0, DC_EXEC, CMD_STARTSTOP_VEH(v->type)); //we start the vehicle again
+ _current_player = OWNER_NONE;
+ return v;
+}
+
/** Give a custom name to your vehicle
* @param x,y unused