1

/* $Id$ */

     2

     3

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

     4

     5

#include "ai_company.hpp"

     6

#include "../../command.h"

     7

#include "../../player.h"

     8

#include "../../economy.h"

     9

#include "../../strings.h"

    10

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

    11

#include "table/strings.h"

    12

    13

AICompany::CompanyIndex AICompany::ResolveCompanyIndex(AICompany::CompanyIndex company)

    14

{

    15

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

    16

    17

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

    18

}

    19

    20

bool AICompany::SetCompanyName(const char *name)

    21

{

    22

	if (name == NULL) return false;

    23

    24

	_cmd_text = name;

    25

	return this->DoCommand(0, 0, 0, CMD_CHANGE_COMPANY_NAME);

    26

}

    27

    28

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

    29

{

    30

	company = this->ResolveCompanyIndex(company);

    32

    33

	static const int len = 64;

    34

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

    35

    38

	return company_name;

    39

}

    40

    41

bool AICompany::SetPresidentName(const char *name)

    42

{

    43

	if (name == NULL) return false;

    44

    45

	_cmd_text = name;

    46

	return this->DoCommand(0, 0, 0, CMD_CHANGE_PRESIDENT_NAME);

    47

}

    48

    49

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

    50

{

    51

	company = this->ResolveCompanyIndex(company);

    52

    53

	static const int len = 64;

    54

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

    55

	if (company != INVALID_COMPANY) {

    56

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

    57

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

    58

	} else {

    59

		*president_name = '\0';

    60

	}

    61

    62

	return president_name;

    63

}

    64

    65

int32 AICompany::GetCompanyValue(AICompany::CompanyIndex company)

    66

{

    67

	company = this->ResolveCompanyIndex(company);

    68

	if (company == INVALID_COMPANY) return 0;

    69

    70

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

    71

}

    72

    73

int32 AICompany::GetBankBalance(AICompany::CompanyIndex company)

    74

{

    75

	company = this->ResolveCompanyIndex(company);

    76

	if (company == INVALID_COMPANY) return 0;

    77

    78

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

    79

}

    80

    81

int32 AICompany::GetLoanAmount()

    82

{

    83

	return GetPlayer(_current_player)->current_loan;

    84

}

    85

    86

int32 AICompany::GetMaxLoanAmount()

    87

{

    88

	return _economy.max_loan;

    89

}

    90

    91

int32 AICompany::GetLoanInterval()

    92

{

    93

	return LOAN_INTERVAL;

    94

}

    95

    96

bool AICompany::SetLoanAmount(int32 loan)

    97

{

    98

	if (loan < 0 ||

    99

			(loan % this->GetLoanInterval()) != 0 ||

   100

			loan > this->GetMaxLoanAmount() ||

   101

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

   102

		return false;

   103

	}

   104

   105

	if (loan == this->GetLoanAmount()) return true;

   106

   107

	return this->DoCommand(0,

   108

			abs(loan - this->GetLoanAmount()), 2,

   109

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

   110

}

   111

   112

bool AICompany::SetMinimumLoanAmount(int32 loan)

   113

{

   114

	if (loan < 0) return false;

   115

   116

	int32 over_interval = loan % this->GetLoanInterval();

   117

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

   118

   119

	if (loan > this->GetMaxLoanAmount()) return false;

   120

   121

	this->SetLoanAmount(loan);

   122

   123

	return this->GetLoanAmount() == loan;

   124

}