1

/* $Id$ */

     2

     3

/** @file ai_company.cpp handles the functions of the AICompany class */

     4

     5

#include "ai_company.hpp"

     6

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

     7

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

     8

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

     9

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

    10

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

    11

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

    12

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

    13

#include "table/strings.h"

    14

    15

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

    16

{

    17

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

    18

    19

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

    20

}

    21

    22

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

    23

{

    24

	if (name == NULL) return false;

    25

    26

	_cmd_text = name;

    27

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

    28

}

    29

    30

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

    31

{

    32

	company = ResolveCompanyIndex(company);

    33

	if (company == INVALID_COMPANY) return NULL;

    34

    35

	static const int len = 64;

    36

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

    37

    38

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

    39

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

    40

	return company_name;

    41

}

    42

    43

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

    44

{

    45

	if (name == NULL) return false;

    46

    47

	_cmd_text = name;

    48

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

    49

}

    50

    51

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

    52

{

    53

	company = ResolveCompanyIndex(company);

    54

    55

	static const int len = 64;

    56

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

    57

	if (company != INVALID_COMPANY) {

    58

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

    59

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

    60

	} else {

    61

		*president_name = '\0';

    62

	}

    63

    64

	return president_name;

    65

}

    66

    67

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

    68

{

    69

	company = ResolveCompanyIndex(company);

    70

	if (company == INVALID_COMPANY) return 0;

    71

    72

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

    73

}

    74

    75

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

    76

{

    77

	company = ResolveCompanyIndex(company);

    78

	if (company == INVALID_COMPANY) return 0;

    79

    80

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

    81

}

    82

    83

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

    84

{

    85

	return ::GetPlayer(_current_player)->current_loan;

    86

}

    87

    88

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

    89

{

    90

	return _economy.max_loan;

    91

}

    92

    93

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

    94

{

    95

	return LOAN_INTERVAL;

    96

}

    97

    98

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

    99

{

   100

	if (loan < 0 ||

   101

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

   102

			loan > GetMaxLoanAmount() ||

   103

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

   104

		return false;

   105

	}

   106

   107

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

   108

   109

	return AIObject::DoCommand(0,

   110

			abs(loan - GetLoanAmount()), 2,

   111

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

   112

}

   113

   114

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

   115

{

   116

	if (loan < 0) return false;

   117

   118

	int32 over_interval = loan % GetLoanInterval();

   119

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

   120

   121

	if (loan > GetMaxLoanAmount()) return false;

   122

   123

	SetLoanAmount(loan);

   124

   125

	return GetLoanAmount() == loan;

   126

}