Money Train::GetRunningCost() const

    Money cost = 0;

    const Train *v = this;

    const Train *v2 = v;

    bool unc_len = false;

    uint cal_cost = 0;

    uint unc_cost = 0;

 

    do {

        const Engine *e = v->GetEngine();

        if (e->u.rail.running_cost_class == INVALID_PRICE) {

            unc_len = true;

            continue;

        }

 

        uint cost_factor = GetVehicleProperty(v, PROP_TRAIN_RUNNING_COST_FACTOR, e->u.rail.running_cost);

        if (cost_factor == 0) continue;

 

        /* Halve running cost for multiheaded parts */

        if (v->IsMultiheaded()) cost_factor /= 2;

 

        cal_cost += GetPrice(e->u.rail.running_cost_class, cost_factor, e->GetGRF());

    } while ((v = v->GetNextVehicle()) != NULL);

 

    if (unc_len) {

        do {

            if (cal_cost == 0) continue;

 

            const Engine *e = v2->GetEngine();

            if (e->u.rail.running_cost_class != INVALID_PRICE) continue;

 

            const Train *a = v2;

            uint ind_len = 0;

            do {

                ind_len += a->gcache.cached_veh_length;

                a = a->HasArticulatedPart() ? a->GetNextArticulatedPart() : NULL;

            } while (a != NULL);

            if (ind_len == 0) continue;

 

            uint ind_cost = cal_cost * ind_len / (VEHICLE_LENGTH * 2 * _settings_game.vehicle.max_train_length);

            uint cost_factor = GetEngineProperty(e->index, PROP_TRAIN_RUNNING_COST_FACTOR, ind_cost);

 

            /* Halve running cost for multiheaded parts */

            if (v2->IsMultiheaded()) cost_factor /= 2;

 

            unc_cost += GetPrice(PR_RUNNING_TRAIN_STEAM, cost_factor, e->GetGRF()) / _price[PR_RUNNING_TRAIN_STEAM];

        } while ((v2 = v2->GetNextVehicle()) != NULL);

    }

 

    cost = unc_cost + cal_cost;

    return cost;