2014-05-05 22:16:34 +02:00
|
|
|
/*****************************************************************************
|
|
|
|
* Copyright (c) 2014 Matthias Lanzinger
|
|
|
|
* OpenRCT2, an open source clone of Roller Coaster Tycoon 2.
|
|
|
|
*
|
|
|
|
* This file is part of OpenRCT2.
|
|
|
|
*
|
|
|
|
* OpenRCT2 is free software: you can redistribute it and/or modify
|
|
|
|
* it under the terms of the GNU General Public License as published by
|
|
|
|
* the Free Software Foundation, either version 3 of the License, or
|
|
|
|
* (at your option) any later version.
|
|
|
|
|
|
|
|
* This program is distributed in the hope that it will be useful,
|
|
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
* GNU General Public License for more details.
|
|
|
|
|
|
|
|
* You should have received a copy of the GNU General Public License
|
|
|
|
* along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
*****************************************************************************/
|
|
|
|
|
|
|
|
#include "addresses.h"
|
|
|
|
#include "finance.h"
|
|
|
|
#include "sprite.h"
|
|
|
|
#include "park.h"
|
|
|
|
#include "peep.h"
|
2014-05-11 23:17:20 +02:00
|
|
|
#include "ride.h"
|
2014-05-05 22:16:34 +02:00
|
|
|
#include "window.h"
|
|
|
|
|
2014-05-07 16:28:42 +02:00
|
|
|
// monthly cost
|
2014-05-05 22:16:34 +02:00
|
|
|
const int wage_table[4] = { 500, 800, 600, 550 };
|
2014-05-07 16:28:42 +02:00
|
|
|
const int research_cost_table[4] = { 0, 1000, 2000, 4000 };
|
2014-05-05 22:16:34 +02:00
|
|
|
|
|
|
|
/**
|
|
|
|
*
|
|
|
|
* rct2: 0x069C674
|
|
|
|
* @param amount (eax)
|
|
|
|
* @param type passed via global var 0x0141F56C, our type is that var/4.
|
|
|
|
**/
|
|
|
|
void finance_payment(int amount, rct_expenditure_type type)
|
|
|
|
{
|
|
|
|
int test = RCT2_GLOBAL(0x13CA740, uint32);
|
|
|
|
sint32 cur_money = DECRYPT_MONEY(RCT2_GLOBAL(RCT2_ADDRESS_CURRENT_MONEY_ENCRYPTED, sint32));
|
|
|
|
sint32 new_money = cur_money - amount;
|
|
|
|
|
|
|
|
//overflow check
|
|
|
|
RCT2_GLOBAL(RCT2_ADDRESS_CURRENT_MONEY_ENCRYPTED, sint32) = ENCRYPT_MONEY(new_money);
|
|
|
|
RCT2_ADDRESS(RCT2_ADDRESS_EXPENDITURE_TABLE, sint32)[type] -= amount;
|
|
|
|
if (RCT2_ADDRESS(0x00988E60, uint32)[type] & 1)
|
|
|
|
RCT2_GLOBAL(0x0135832C, sint32) -= amount;
|
|
|
|
|
|
|
|
|
|
|
|
RCT2_GLOBAL(0x009A9804, uint32) |= 1; // money diry flag
|
|
|
|
window_invalidate_by_id(WC_FINANCES, 0);
|
|
|
|
}
|
|
|
|
|
|
|
|
/**
|
|
|
|
* Pays the wages of all active staff members in the park.
|
|
|
|
* rct2: 0x006C18A9
|
|
|
|
**/
|
|
|
|
void finance_pay_wages()
|
|
|
|
{
|
|
|
|
rct_peep* peep;
|
|
|
|
uint16 sprite_idx;
|
|
|
|
|
|
|
|
if (RCT2_GLOBAL(RCT2_ADDRESS_PARK_FLAGS, uint32) & 0x800)
|
|
|
|
return;
|
|
|
|
|
|
|
|
for (sprite_idx = RCT2_GLOBAL(RCT2_ADDRESS_SPRITES_START_PEEP, uint16); sprite_idx != SPRITE_INDEX_NULL; sprite_idx = peep->next) {
|
|
|
|
peep = &(RCT2_ADDRESS(RCT2_ADDRESS_SPRITE_LIST, rct_sprite)[sprite_idx].peep);
|
|
|
|
if (peep->type == PEEP_TYPE_STAFF)
|
2014-05-07 16:28:42 +02:00
|
|
|
finance_payment(wage_table[peep->staff_type] / 4, RCT_EXPENDITURE_TYPE_WAGES);
|
2014-05-05 22:16:34 +02:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
/**
|
|
|
|
* Pays the current research level's cost.
|
|
|
|
* rct2: 0x00684DA5
|
|
|
|
**/
|
|
|
|
void finance_pay_research()
|
|
|
|
{
|
|
|
|
uint8 level;
|
|
|
|
|
|
|
|
if (RCT2_GLOBAL(RCT2_ADDRESS_PARK_FLAGS, uint32) & 0x800)
|
|
|
|
return;
|
|
|
|
|
|
|
|
level = RCT2_GLOBAL(RCT2_ADDRESS_CURRENT_RESEARCH_LEVEL, uint8);
|
|
|
|
finance_payment(research_cost_table[level] / 4, RCT_EXPENDITURE_TYPE_RESEARCH);
|
|
|
|
}
|
|
|
|
|
|
|
|
/**
|
|
|
|
* Pay interest on current loans.
|
|
|
|
* rct2: 0x0069E092
|
|
|
|
**/
|
|
|
|
void finance_pay_interest()
|
|
|
|
{
|
|
|
|
sint32 current_loan = RCT2_GLOBAL(RCT2_ADDRESS_CURRENT_LOAN, sint32);
|
|
|
|
sint16 current_interest = RCT2_GLOBAL(RCT2_ADDRESS_CURRENT_INTEREST_RATE, sint16);
|
|
|
|
sint64 tempcost = (current_loan * 5 * current_interest) >> 14; // (5*interest)/2^14 is pretty close to
|
|
|
|
|
|
|
|
if (RCT2_GLOBAL(RCT2_ADDRESS_PARK_FLAGS, uint32) & 0x800)
|
|
|
|
return;
|
|
|
|
|
|
|
|
finance_payment((sint32)tempcost, RCT_EXPENDITURE_TYPE_INTEREST);
|
|
|
|
}
|
2014-05-06 23:04:09 +02:00
|
|
|
|
2014-05-11 23:17:20 +02:00
|
|
|
/**
|
|
|
|
*
|
|
|
|
* rct2: 0x006AC885
|
|
|
|
*/
|
|
|
|
void finance_pay_ride_upkeep()
|
|
|
|
{
|
|
|
|
rct_ride* ride;
|
2014-05-11 23:21:26 +02:00
|
|
|
for (int i = 0; i < MAX_RIDES; i++) {
|
2014-05-11 23:17:20 +02:00
|
|
|
ride = &(RCT2_ADDRESS(RCT2_ADDRESS_RIDE_LIST, rct_ride)[i]);
|
|
|
|
if (ride->type == RIDE_TYPE_NULL)
|
|
|
|
continue;
|
|
|
|
|
|
|
|
if (!(ride->var_1D0 & 0x1000)) {
|
|
|
|
ride->build_date = RCT2_GLOBAL(RCT2_ADDRESS_CURRENT_MONTH_YEAR, uint16);
|
|
|
|
ride->var_196 = 25855; // durability?
|
|
|
|
|
|
|
|
}
|
|
|
|
if (ride->status != RIDE_STATUS_CLOSED && !(RCT2_GLOBAL(RCT2_ADDRESS_PARK_FLAGS, uint32) & 0x800)) {
|
|
|
|
sint16 upkeep = ride->upkeep_cost;
|
|
|
|
if (upkeep != -1) {
|
|
|
|
ride->var_158 -= upkeep;
|
|
|
|
ride->var_14D |= 2;
|
|
|
|
finance_payment(upkeep, RCT2_EXPENDITURE_TYPE_RIDE_UPKEEP);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
|
2014-05-06 23:04:09 +02:00
|
|
|
/**
|
|
|
|
*
|
|
|
|
* rct2: 0x0069DEFB
|
|
|
|
*/
|
|
|
|
void finance_init() {
|
|
|
|
|
|
|
|
for (short i = 0; i < 56; i++) {
|
2014-05-07 22:16:57 +02:00
|
|
|
RCT2_ADDRESS(RCT2_ADDRESS_EXPENDITURE_TABLE, uint32)[i] = 0;
|
2014-05-06 23:04:09 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
RCT2_GLOBAL(0x0135832C, uint32) = 0;
|
|
|
|
|
|
|
|
RCT2_GLOBAL(RCT2_ADDRESS_CURRENT_PROFIT, uint32) = 0;
|
|
|
|
|
|
|
|
RCT2_GLOBAL(0x01358334, uint32) = 0;
|
|
|
|
RCT2_GLOBAL(0x01358338, uint16) = 0;
|
|
|
|
|
2014-05-17 17:04:19 +02:00
|
|
|
RCT2_GLOBAL(0x013573DC, sint32) = 100000; // Cheat detection
|
2014-05-06 23:04:09 +02:00
|
|
|
|
|
|
|
RCT2_GLOBAL(RCT2_ADDRESS_CURRENT_MONEY_ENCRYPTED, sint32) = ENCRYPT_MONEY(100000);
|
|
|
|
RCT2_GLOBAL(RCT2_ADDRESS_CURRENT_LOAN, sint32) = 100000;
|
2014-05-17 17:04:19 +02:00
|
|
|
RCT2_GLOBAL(RCT2_ADDRESS_MAXIMUM_LOAN, sint32) = 200000;
|
2014-05-06 23:04:09 +02:00
|
|
|
|
|
|
|
RCT2_GLOBAL(0x013587D0, uint32) = 0;
|
|
|
|
|
|
|
|
RCT2_GLOBAL(RCT2_ADDRESS_CURRENT_INTEREST_RATE, uint8) = 10;
|
|
|
|
RCT2_GLOBAL(RCT2_ADDRESS_CURRENT_PARK_VALUE, sint32) = 0;
|
|
|
|
RCT2_GLOBAL(RCT2_ADDRESS_CURRENT_COMPANY_VALUE, sint32) = 0;
|
|
|
|
RCT2_GLOBAL(RCT2_ADDRESS_COMPLETED_COMPANY_VALUE, sint32) = 0x80000000;
|
|
|
|
RCT2_GLOBAL(RCT2_ADDRESS_TOTAL_ADMISSIONS, uint32) = 0;
|
|
|
|
RCT2_GLOBAL(RCT2_ADDRESS_INCOME_FROM_ADMISSIONS, uint32) = 0;
|
|
|
|
|
|
|
|
RCT2_GLOBAL(0x013587D8, uint16) = 0x3F;
|
|
|
|
|
2014-05-17 17:04:19 +02:00
|
|
|
sub_69E869();
|
2014-05-07 23:40:23 +02:00
|
|
|
}
|
2014-05-17 17:04:19 +02:00
|
|
|
|
|
|
|
void sub_69E869() {
|
|
|
|
// This subroutine is loan related and is used for cheat detection
|
|
|
|
sint32 value = 0x70093A;
|
|
|
|
value -= RCT2_GLOBAL(0x013573DC, sint32); // Cheat detection
|
|
|
|
value = ror32(value, 5);
|
|
|
|
value -= RCT2_GLOBAL(RCT2_ADDRESS_CURRENT_LOAN, sint32);
|
|
|
|
value = ror32(value, 7);
|
|
|
|
value += RCT2_GLOBAL(RCT2_ADDRESS_MAXIMUM_LOAN, sint32);
|
|
|
|
value = ror32(value, 3);
|
|
|
|
RCT2_GLOBAL(0x013587C4, sint32) = value;
|
|
|
|
}
|