1

/* $Id$ */

     2

     3

/** @file ai_company.cpp Implementation of AICompany. */

     4

     5

#include "ai_company.hpp"

     7

#include "../../command_func.h"

     8

#include "../../player_func.h"

     9

#include "../../player_base.h"

    10

#include "../../economy_func.h"

    11

#include "../../strings_func.h"

    12

#include "../../tile_map.h"

    13

#include "../../variables.h"

    14

#include "../../core/alloc_func.hpp"

    16

#include "table/strings.h"

    17

    18

/* static */ AICompany::CompanyIndex AICompany::ResolveCompanyIndex(AICompany::CompanyIndex company)

    19

{

    20

	if (company == MY_COMPANY) return (CompanyIndex)((byte)_current_player);

    21

    22

	return (::IsValidPlayer((PlayerID)company) && ::GetPlayer((PlayerID)company)->is_active) ? company : INVALID_COMPANY;

    23

}

    24

    25

/* static */ bool AICompany::SetCompanyName(const char *name)

    26

{

    31

    32

	_cmd_text = name;

    33

	return AIObject::DoCommand(0, 0, 0, CMD_CHANGE_COMPANY_NAME);

    34

}

    35

    36

/* static */ char *AICompany::GetCompanyName(AICompany::CompanyIndex company)

    37

{

    38

	company = ResolveCompanyIndex(company);

    39

	if (company == INVALID_COMPANY) return NULL;

    40

    41

	static const int len = 64;

    42

	char *company_name = MallocT<char>(len);

    43

    44

	::SetDParam(0, GetPlayer((PlayerID)company)->index);

    45

	::GetString(company_name, STR_COMPANY_NAME, &company_name[len - 1]);

    46

	return company_name;

    47

}

    48

    49

/* static */ bool AICompany::SetPresidentName(const char *name)

    50

{

    55

    56

	_cmd_text = name;

    57

	return AIObject::DoCommand(0, 0, 0, CMD_CHANGE_PRESIDENT_NAME);

    58

}

    59

    60

/* static */ char *AICompany::GetPresidentName(AICompany::CompanyIndex company)

    61

{

    62

	company = ResolveCompanyIndex(company);

    63

    64

	static const int len = 64;

    65

	char *president_name = MallocT<char>(len);

    66

	if (company != INVALID_COMPANY) {

    67

		::SetDParam(0, GetPlayer((PlayerID)company)->index);

    68

		::GetString(president_name, STR_PLAYER_NAME, &president_name[len - 1]);

    69

	} else {

    70

		*president_name = '\0';

    71

	}

    72

    73

	return president_name;

    74

}

    75

    76

/* static */ int32 AICompany::GetCompanyValue(AICompany::CompanyIndex company)

    77

{

    78

	company = ResolveCompanyIndex(company);

    79

	if (company == INVALID_COMPANY) return 0;

    80

    81

	return ::GetPlayer((PlayerID)company)->cur_economy.company_value;

    82

}

    83

    84

/* static */ int32 AICompany::GetBankBalance(AICompany::CompanyIndex company)

    85

{

    86

	company = ResolveCompanyIndex(company);

    87

	if (company == INVALID_COMPANY) return 0;

    88

    89

	return ::ClampToI32(GetPlayer((PlayerID)company)->player_money);

    90

}

    91

    92

/* static */ int32 AICompany::GetLoanAmount()

    93

{

    94

	return ::GetPlayer(_current_player)->current_loan;

    95

}

    96

    97

/* static */ int32 AICompany::GetMaxLoanAmount()

    98

{

    99

	return _economy.max_loan;

   100

}

   101

   102

/* static */ int32 AICompany::GetLoanInterval()

   103

{

   104

	return LOAN_INTERVAL;

   105

}

   106

   107

/* static */ bool AICompany::SetLoanAmount(int32 loan)

   108

{

   109

	if (loan < 0 ||

   110

			(loan % GetLoanInterval()) != 0 ||

   111

			loan > GetMaxLoanAmount() ||

   112

			(loan - GetLoanAmount() + GetBankBalance(MY_COMPANY)) < 0) {

   114

		return false;

   115

	}

   116

   117

	if (loan == GetLoanAmount()) return true;

   118

   119

	return AIObject::DoCommand(0,

   120

			abs(loan - GetLoanAmount()), 2,

   121

			(loan > GetLoanAmount()) ? CMD_INCREASE_LOAN : CMD_DECREASE_LOAN);

   122

}

   123

   124

/* static */ bool AICompany::SetMinimumLoanAmount(int32 loan)

   125

{

   130

   131

	int32 over_interval = loan % GetLoanInterval();

   132

	if (over_interval != 0) loan += GetLoanInterval() - over_interval;

   133

   138

   139

	SetLoanAmount(loan);

   140

   141

	return GetLoanAmount() == loan;

   142

}

   143

   144

/* static */ bool AICompany::BuildCompanyHQ(TileIndex tile)

   145

{

   150

   151

	return AIObject::DoCommand(tile, 0, 0, CMD_BUILD_COMPANY_HQ);

   152

}

   153

   154

/* static */ TileIndex AICompany::GetCompanyHQ(CompanyIndex company)

   155

{

   156

	company = ResolveCompanyIndex(company);

   157

	if (company == INVALID_COMPANY) return INVALID_TILE;

   158

   159

	TileIndex loc = ::GetPlayer((PlayerID)company)->location_of_house;

   160

	return (loc == 0) ? INVALID_TILE : loc;

   161

}