1

/* $Id$ */

     2

     3

#include "stdafx.h"

     4

#include "openttd.h"

     5

#include "currency.h"

     6

#include "news.h"

     7

#include "variables.h"

     8

#include "table/strings.h"

     9

#include "date.h"

    10

    11

// exchange rate    prefix

    12

// |  separator        |     postfix

    13

// |   |    Euro year  |       |

    14

// |   |    |          |       |

    15

CurrencySpec _currency_specs[] = {

    16

	{    1, ',', CF_NOEURO, "\xA3", ""     }, // british pounds

    17

	{    2, ',', CF_NOEURO, "$",    ""     }, // us dollars

    18

	{    2, ',', CF_ISEURO, "¤",    ""     }, // Euro

    19

	{  200, ',', CF_NOEURO, "\xA5", ""     }, // yen

    20

	{   19, ',', 2002,      "",     " S."  }, // austrian schilling

    21

	{   57, ',', 2002,      "BEF ", ""     }, // belgian franc

    22

	{    2, ',', CF_NOEURO, "CHF ", ""     }, // swiss franc

    23

	{   50, ',', CF_NOEURO, "",     " Kc"  }, // czech koruna // TODO: Should use the "c" with an upside down "^"

    24

	{    4, '.', 2002,      "DM ",  ""     }, // deutsche mark

    25

	{   10, '.', CF_NOEURO, "",     " kr"  }, // danish krone

    26

	{  200, '.', 2002,      "Pts ", ""     }, // spanish pesetas

    27

	{    8, ',', 2002,      "",     " mk"  }, // finnish markka

    28

	{   10, '.', 2002,      "FF ",  ""     }, // french francs

    29

	{  480, ',', 2002,      "",     "Dr."  }, // greek drachma

    30

	{  376, ',', 2002,      "",     " Ft"  }, // hungarian forint

    31

	{  130, '.', CF_NOEURO, "",     " Kr"  }, // icelandic krona

    32

	{ 2730, ',', 2002,      "",     " L."  }, // italian lira

    33

	{    3, ',', 2002,      "NLG ", ""     }, // dutch gulden

    34

	{   11, '.', CF_NOEURO, "",     " Kr"  }, // norwegian krone

    35

	{    6, ' ', CF_NOEURO, "",     " zl"  }, // polish zloty

    36

	{    6, '.', CF_NOEURO, "",     " Lei" }, // romanian Lei

    37

	{    5, ' ', CF_NOEURO, "",     " p"   }, // russian rouble

    38

	{  350, '.', CF_NOEURO, "",     " SIT" }, // slovenian tolar

    39

	{   13, '.', CF_NOEURO, "",     " Kr"  }, // swedish krona

    40

	{    1, ' ', CF_NOEURO, "",     ""     }, // custom currency

    41

};

    42

    43

const StringID _currency_string_list[] = {

    44

	STR_CURR_GBP,

    45

	STR_CURR_USD,

    46

	STR_CURR_EUR,

    47

	STR_CURR_YEN,

    48

	STR_CURR_ATS,

    49

	STR_CURR_BEF,

    50

	STR_CURR_CHF,

    51

	STR_CURR_CZK,

    52

	STR_CURR_DEM,

    53

	STR_CURR_DKK,

    54

	STR_CURR_ESP,

    55

	STR_CURR_FIM,

    56

	STR_CURR_FRF,

    57

	STR_CURR_GRD,

    58

	STR_CURR_HUF,

    59

	STR_CURR_ISK,

    60

	STR_CURR_ITL,

    61

	STR_CURR_NLG,

    62

	STR_CURR_NOK,

    63

	STR_CURR_PLN,

    64

	STR_CURR_ROL,

    65

	STR_CURR_RUR,

    66

	STR_CURR_SIT,

    67

	STR_CURR_SEK,

    68

	STR_CURR_CUSTOM,

    69

	INVALID_STRING_ID

    70

};

    71

    72

// NOTE: Make sure both lists are in the same order

    73

// + 1 string list terminator

    74

assert_compile(lengthof(_currency_specs) + 1 == lengthof(_currency_string_list));

    75

    76

    77

// get a mask of the allowed currencies depending on the year

    78

uint GetMaskOfAllowedCurrencies(void)

    79

{

    80

	uint mask = 0;

    81

	uint i;

    82

    83

	for (i = 0; i != lengthof(_currency_specs); i++) {

    84

		Year to_euro = _currency_specs[i].to_euro;

    85

    86

		if (to_euro != CF_NOEURO && to_euro != CF_ISEURO && _cur_year >= to_euro) continue;

    87

		if (to_euro == CF_ISEURO && _cur_year < 2000) continue;

    88

		mask |= (1 << i);

    89

	}

    90

	mask |= (1 << CUSTOM_CURRENCY_ID); // always allow custom currency

    91

	return mask;

    92

}

    93

    94

    95

void CheckSwitchToEuro(void)

    96

{

    97

	if (_currency_specs[_opt.currency].to_euro != CF_NOEURO &&

    98

			_currency_specs[_opt.currency].to_euro != CF_ISEURO &&

    99

			_cur_year >= _currency_specs[_opt.currency].to_euro) {

   100

		_opt.currency = 2; // this is the index of euro above.

   101

		AddNewsItem(STR_EURO_INTRODUCE, NEWS_FLAGS(NM_NORMAL, 0, NT_ECONOMY, 0), 0, 0);

   102

	}

   103

}

   104