1

/* $Id$ */

     2

     3

/** @file */

     4

     5

#include "economy_new.h"

     6

#include "town.h"

     7

     8

/** The global economy */

     9

CEconomy *_eco;

    10

    11

/** Base prices used at game startup, reference year 1800 */

    12

static const int32 price_base[CEconomy::MAX_PRICE] = {

    13

	    100, ///< station_value

    14

	    100, ///< build_rail

    15

	     95, ///< build_road

    16

	     65, ///< build_signals

    17

	    275, ///< build_bridge

    18

	    600, ///< build_train_depot

    19

	    500, ///< build_road_depot

    20

	    700, ///< build_ship_depot

    21

	    450, ///< build_tunnel

    22

	    200, ///< train_station_track

    23

	    180, ///< train_station_length

    24

	    600, ///< build_airport

    25

	    200, ///< build_bus_station

    26

	    200, ///< build_truck_station

    27

	    350, ///< build_dock

    28

	 400000, ///< build_railvehicle

    29

	   2000, ///< build_railwagon

    30

	 700000, ///< aircraft_base

    31

	  14000, ///< roadveh_base

    32

	  65000, ///< ship_base

    33

	     20, ///< build_trees

    34

	    250, ///< terraform

    35

	     20, ///< clear_1

    36

	     40, ///< purchase_land

    37

	    200, ///< clear_2

    38

	    500, ///< clear_3

    39

	     20, ///< remove_trees

    40

	    -70, ///< remove_rail

    41

	     10, ///< remove_signals

    42

	     50, ///< clear_bridge

    43

	     80, ///< remove_train_depot

    44

	     80, ///< remove_road_depot

    45

	     90, ///< remove_ship_depot

    46

	     30, ///< clear_tunnel

    47

	  10000, ///< clear_water

    48

	     50, ///< remove_rail_station

    49

	     30, ///< remove_airport

    50

	     50, ///< remove_bus_station

    51

	     50, ///< remove_truck_station

    52

	     55, ///< remove_dock

    53

	   1600, ///< remove_house

    54

	     40, ///< remove_road

    55

	   5600, ///< running_rail[0] railroad

    56

	   5200, ///< running_rail[1] monorail

    57

	   4800, ///< running_rail[2] maglev

    58

	   9600, ///< aircraft_running

    59

	   1600, ///< roadveh_running

    60

	   5600, ///< ship_running

    61

	1000000, ///< build_industry

    62

};

    63

    64

/**

    65

 * Starts the economy. This sets the basic growth by the difficulty level and adjust the current

    66

 * EAL by the year of the game. We also set the economic cycles and initialize the prices here

    67

 * @warning This should be run once per game only

    68

 */

    69

CEconomy::CEconomy()

    70

{

    71

	/* Set basic growth */

    72

	FixedT<int32, 16> growth(_opt.diff.economic_growth, 2);

    73

	m_basic_growth = (growth + 1) / 100 + 1;

    74

	DEBUG(eco, 3, "Starting a new economy with a basic growth factor of %.3f in the year %d", (double)m_basic_growth, _cur_year);

    75

    76

	/* Set up the economic cycles */

    77

	m_long_term_cycle   = RandomRange(15) + 45;

    78

	m_short_term_cycle  = RandomRange( 4) +  6;

    79

	m_long_term_ampl    = RandomRange( 5) + 10;

    80

	m_short_term_ampl   = RandomRange(10) + 15;

    81

	m_long_term_ampl   /= 1000;

    82

	m_short_term_ampl  /= 1000;

    83

	DEBUG(eco, 4, "Adjusting economic cycles to %d and %d years", m_long_term_cycle, m_short_term_cycle);

    84

	DEBUG(eco, 4, "Adjusting economic cycles to %f and %f (amplitude)", (double)m_long_term_ampl, (double)m_short_term_ampl);

    85

    86

	m_activity_level = 1;

    87

	m_activity_level = pow(m_basic_growth, _cur_year - 1820);

    88

	DEBUG(eco, 4, "Adjusting basic EAL for current year (offset %d) to %.3f", _cur_year - 1820, (double)m_activity_level);

    89

    90

	/* Initalize prices */

    91

	for (int i = 0; i < MAX_PRICE; i++) m_prices[i] = price_base[i];

    92

}

    93

/**

    94

 * Adjust the global activity level by the cumulative activity level of all towns.

    95

 * This is to iron out the difference between the sum of all economic activites of

    96

 * all towns and the the product of the economic activity per capita times the

    97

 * population of the map.

    98

 */

    99

void CEconomy::AdjustActivityByTowns()

   100

{

   101

	Town *t;

   102

	FixedT<int64, 16> total_activity = 0;

   103

	FixedT<int64, 16> old_activity = m_activity_level;

   104

   105

	FOR_ALL_TOWNS(t) {

   106

		total_activity += (t->GetActivity() * t->population * m_activity_level);

   107

		DEBUG(eco, 6, "Obtained EAL of %f", (double)t->GetActivity());

   108

	}

   109

   110

	DEBUG(eco, 5, "Global EAL is             %f", (double)m_activity_level * GetWorldPopulation());

   111

	DEBUG(eco, 5, "Total EAL of all towns is %f", (double)total_activity);

   112

   113

	m_activity_level = total_activity / GetWorldPopulation();

   114

	DEBUG(eco, 4, "Adjusting global EAL to %f (ratio %f)", (double)m_activity_level, (double)(m_activity_level/old_activity));

   115

   116

	FOR_ALL_TOWNS(t) t->SetActivity(t->GetActivity() * old_activity / m_activity_level);

   117

}

   118

   119

/**

   120

 * Obtains the costs that a certain user operation at a tile would generate.

   121

 * This function takes into account that cost that arise from obtaining ownership

   124

 * @warning         This function needs to be called BEFORE the tile actions

   125

 *                  are performed. Otherwise you'll get an assertion on the command

   126

 *                  because the computed prices for the test and the exec run are

   127

 *                  different

   128

 * @todo            Implement inflation

   129

 * @todo            Make this work with "overbuilding" owned land

   130

 * @todo            Implement multipliers (for newgrf)

   131

 * @param operation The operation that is to be performed on the tile

   132

 * @param tile      The tile on which we want to operate, if omitted

   133

 *                  no change of ownership is assumed.

   134

 * @param release   Set to true when the owner releases ownership of tile

   135

 * @return          The cost (positive) or income (negative) for the operation

   136

 */

   137

int32 CEconomy::GetPrice(Price operation, TileIndex tile, bool release) const

   138

{

   139

	int32 cost = m_prices[operation];

   140

   142

	if (release) cost -= Town::GetTilePrice(tile);

   143

	else if (_current_player < MAX_PLAYERS && _current_player != GetTileOwner(tile)) cost += Town::GetTilePrice(tile);

   144

   145

	return cost;

   146

}

   147

   148

/**

   149

 * Descriptor for the new economy within the savegame

   150

 */

   151

/* static */

   152

const SaveLoad CEconomy::eco_desc[] = {

   153

	SLE_VAR(CEconomy, m_activity_level,   SLE_INT64),

   154

	SLE_VAR(CEconomy, m_basic_growth,     SLE_INT32),

   155

	SLE_VAR(CEconomy, m_long_term_cycle,  SLE_INT8),

   156

	SLE_VAR(CEconomy, m_short_term_cycle, SLE_INT8),

   157

	SLE_VAR(CEconomy, m_long_term_ampl,   SLE_INT32),

   158

	SLE_VAR(CEconomy, m_short_term_ampl,  SLE_INT32),

   159

	SLE_ARR(CEconomy, m_prices,           SLE_INT32, MAX_PRICE),

   160

	SLE_END()

   161

};

   162

   163

/**

   164

 * Starts a new economy. As there can always be only one economy in place,

   165

 * deletes the one that is currently active

   166

 */

   167

void InitializeEconomy()

   168

{

   169

	delete _eco;

   170

	_eco = new CEconomy;

   171

	assert(_eco != NULL);

   172

}

   173