682 lines
38 KiB
C++
682 lines
38 KiB
C++
//
|
|
// Copyright 2020 Electronic Arts Inc.
|
|
//
|
|
// TiberianDawn.DLL and RedAlert.dll and corresponding source code 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.
|
|
|
|
// TiberianDawn.DLL and RedAlert.dll and corresponding source code is distributed
|
|
// in the hope that it will be useful, but with permitted additional restrictions
|
|
// under Section 7 of the GPL. See the GNU General Public License in LICENSE.TXT
|
|
// distributed with this program. You should have received a copy of the
|
|
// GNU General Public License along with permitted additional restrictions
|
|
// with this program. If not, see https://github.com/electronicarts/CnC_Remastered_Collection
|
|
|
|
/* $Header: /CounterStrike/FACTORY.CPP 1 3/03/97 10:24a Joe_bostic $ */
|
|
/***********************************************************************************************
|
|
*** C O N F I D E N T I A L --- W E S T W O O D S T U D I O S ***
|
|
***********************************************************************************************
|
|
* *
|
|
* Project Name : Command & Conquer *
|
|
* *
|
|
* File Name : FACTORY.CPP *
|
|
* *
|
|
* Programmer : Joe L. Bostic *
|
|
* *
|
|
* Start Date : 12/26/94 *
|
|
* *
|
|
* Last Update : May 22, 1995 [JLB] *
|
|
* *
|
|
*---------------------------------------------------------------------------------------------*
|
|
* Functions: *
|
|
* FactoryClass::AI -- Process factory production logic. *
|
|
* FactoryClass::Abandon -- Abandons current construction with money refunded. *
|
|
* FactoryClass::Completed -- Clears factory object after a completed production process. *
|
|
* FactoryClass::Completion -- Fetches the completion step for this factory. *
|
|
* FactoryClass::Cost_Per_Tick -- Breaks entire production cost into manageable chunks. *
|
|
* FactoryClass::FactoryClass -- Default constructor for factory objects. *
|
|
* FactoryClass::Get_Object -- Fetches pointer to object being constructed. *
|
|
* FactoryClass::Get_Special_Item -- gets factory's spc prod item *
|
|
* FactoryClass::Has_Changed -- Checks to see if a production step has occurred? *
|
|
* FactoryClass::Has_Completed -- Checks to see if object has completed production. *
|
|
* FactoryClass::Set -- Assigns a factory to produce an object. *
|
|
* FactoryClass::Set -- Force factory to "produce" special object. *
|
|
* FactoryClass::Start -- Resumes production after suspension or creation. *
|
|
* FactoryClass::Suspend -- Temporarily stop production. *
|
|
* FactoryClass::operator delete -- Returns a factory to the free factory pool. *
|
|
* FactoryClass::operator new -- Allocates a factory object from the free factory pool. *
|
|
* FactoryClass::~FactoryClass -- Default destructor for factory objects. *
|
|
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
|
|
|
|
#include "function.h"
|
|
|
|
|
|
/***********************************************************************************************
|
|
* FactoryClass::FactoryClass -- Default constructor for factory objects. *
|
|
* *
|
|
* This brings the factory into a null state. It is called when a factory object is *
|
|
* created. *
|
|
* *
|
|
* INPUT: none *
|
|
* *
|
|
* OUTPUT: none *
|
|
* *
|
|
* WARNINGS: none *
|
|
* *
|
|
* HISTORY: *
|
|
* 12/26/1994 JLB : Created. *
|
|
*=============================================================================================*/
|
|
FactoryClass::FactoryClass(void) :
|
|
RTTI(RTTI_FACTORY),
|
|
ID(Factories.ID(this)),
|
|
IsSuspended(false),
|
|
IsDifferent(false),
|
|
IsBlocked(false),
|
|
Balance(0),
|
|
OriginalBalance(0),
|
|
Object(0),
|
|
SpecialItem(SPC_NONE),
|
|
House(0)
|
|
{
|
|
Set_Rate(0);
|
|
Set_Stage(0);
|
|
}
|
|
|
|
|
|
/***********************************************************************************************
|
|
* FactoryClass::~FactoryClass -- Default destructor for factory objects. *
|
|
* *
|
|
* This cleans up a factory object in preparation for deletion. If there is currently *
|
|
* an object in production, it is abandoned and money is refunded. *
|
|
* *
|
|
* INPUT: none *
|
|
* *
|
|
* OUTPUT: none *
|
|
* *
|
|
* WARNINGS: none *
|
|
* *
|
|
* HISTORY: *
|
|
* 12/26/1994 JLB : Created. *
|
|
*=============================================================================================*/
|
|
FactoryClass::~FactoryClass(void)
|
|
{
|
|
if (GameActive) {
|
|
Abandon();
|
|
}
|
|
}
|
|
|
|
|
|
/***********************************************************************************************
|
|
* FactoryClass::Init -- Clears all units for scenario preparation. *
|
|
* *
|
|
* This routine will zero out the factory list and objects. This routine is typically *
|
|
* used in preparation for a new scenario load. All factory are guaranteed to be eliminated *
|
|
* by this routine. *
|
|
* *
|
|
* INPUT: none *
|
|
* *
|
|
* OUTPUT: none *
|
|
* *
|
|
* WARNINGS: none *
|
|
* *
|
|
* HISTORY: *
|
|
* 08/15/1994 JLB : Created. *
|
|
*=============================================================================================*/
|
|
void FactoryClass::Init(void)
|
|
{
|
|
Factories.Free_All();
|
|
}
|
|
|
|
|
|
/***********************************************************************************************
|
|
* FactoryClass::operator new -- Allocates a factory object from the free factory pool. *
|
|
* *
|
|
* This routine allocates a factory from the free factory pool. If there is no more room *
|
|
* to allocate a factory, then NULL is returned. *
|
|
* *
|
|
* INPUT: none *
|
|
* *
|
|
* OUTPUT: Returns with pointer to the newly allocated factory object. *
|
|
* *
|
|
* WARNINGS: none *
|
|
* *
|
|
* HISTORY: *
|
|
* 12/26/1994 JLB : Created. *
|
|
*=============================================================================================*/
|
|
void * FactoryClass::operator new(size_t)
|
|
{
|
|
void * ptr = Factories.Allocate();
|
|
if (ptr) {
|
|
((FactoryClass *)ptr)->IsActive = true;
|
|
}
|
|
return(ptr);
|
|
}
|
|
|
|
|
|
/***********************************************************************************************
|
|
* FactoryClass::operator delete -- Returns a factory to the free factory pool. *
|
|
* *
|
|
* This returns the factory object back to the factory allocation pool. The factory is then *
|
|
* available to be allocated. *
|
|
* *
|
|
* INPUT: ptr -- Pointer to the factory object to delete. *
|
|
* *
|
|
* OUTPUT: none *
|
|
* *
|
|
* WARNINGS: none *
|
|
* *
|
|
* HISTORY: *
|
|
* 12/26/1994 JLB : Created. *
|
|
*=============================================================================================*/
|
|
void FactoryClass::operator delete(void * ptr)
|
|
{
|
|
if (ptr) {
|
|
((FactoryClass *)ptr)->IsActive = false;
|
|
}
|
|
Factories.Free((FactoryClass *)ptr);
|
|
}
|
|
|
|
|
|
/***********************************************************************************************
|
|
* FactoryClass::AI -- Process factory production logic. *
|
|
* *
|
|
* This routine should be called once per game tick. It handles the production process. *
|
|
* As production proceeds, money is deducted from the owner object's house. When production *
|
|
* completes, the factory stop processing. A call to Abandon, Delete, or Completed is *
|
|
* required after that point. *
|
|
* *
|
|
* INPUT: none *
|
|
* *
|
|
* OUTPUT: none *
|
|
* *
|
|
* WARNINGS: none *
|
|
* *
|
|
* HISTORY: *
|
|
* 12/26/1994 JLB : Created. *
|
|
* 01/04/1995 JLB : Uses exact installment payment method. *
|
|
*=============================================================================================*/
|
|
void FactoryClass::AI(void)
|
|
{
|
|
assert(Factories.ID(this) == ID);
|
|
|
|
if (!IsSuspended && (Object != NULL || SpecialItem)) {
|
|
for (int index = 0; index < 1; index++) {
|
|
if (!Has_Completed() && Graphic_Logic() ) {
|
|
IsDifferent = true;
|
|
|
|
int cost = Cost_Per_Tick();
|
|
|
|
cost = min(cost, Balance);
|
|
|
|
/*
|
|
** Enough time has expired so that another production step can occur.
|
|
** If there is insufficient funds, then go back one production step and
|
|
** continue the countdown. The idea being that by the time the next
|
|
** production step occurs, there may be sufficient funds available.
|
|
*/
|
|
if (cost > House->Available_Money()) {
|
|
Set_Stage(Fetch_Stage()-1);
|
|
} else {
|
|
House->Spend_Money(cost);
|
|
Balance -= cost;
|
|
}
|
|
|
|
/*
|
|
** If the production has completed, then suspend further production.
|
|
*/
|
|
if (Fetch_Stage() == STEP_COUNT) {
|
|
IsSuspended = true;
|
|
Set_Rate(0);
|
|
House->Spend_Money(Balance);
|
|
Balance = 0;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
|
|
/***********************************************************************************************
|
|
* FactoryClass::Force_Complete -- Force the factory to finish what it's building *
|
|
* *
|
|
* For debugging/testing support *
|
|
* *
|
|
* *
|
|
* INPUT: none *
|
|
* *
|
|
* OUTPUT: none *
|
|
* *
|
|
* WARNINGS: *
|
|
* *
|
|
* HISTORY: *
|
|
* 8/23/2019 3:54PM ST : Created. *
|
|
*=============================================================================================*/
|
|
void FactoryClass::Force_Complete(void)
|
|
{
|
|
assert(Factories.ID(this) == ID);
|
|
|
|
if (!IsSuspended && (Object != NULL || SpecialItem)) {
|
|
Set_Stage(STEP_COUNT);
|
|
IsSuspended = true;
|
|
Set_Rate(0);
|
|
Balance = 0;
|
|
IsDifferent = true;
|
|
}
|
|
}
|
|
|
|
|
|
/***********************************************************************************************
|
|
* FactoryClass::Has_Changed -- Checks to see if a production step has occurred? *
|
|
* *
|
|
* Use this routine to determine if production has advanced at least one step. By using *
|
|
* this function, intelligent rendering may be performed. *
|
|
* *
|
|
* INPUT: none *
|
|
* *
|
|
* OUTPUT: bool; Has the production process advanced one step since the last time this *
|
|
* function was called? *
|
|
* *
|
|
* WARNINGS: This function clears the changed status flag as a side effect. *
|
|
* *
|
|
* HISTORY: *
|
|
* 12/26/1994 JLB : Created. *
|
|
*=============================================================================================*/
|
|
bool FactoryClass::Has_Changed(void)
|
|
{
|
|
assert(Factories.ID(this) == ID);
|
|
|
|
bool changed = IsDifferent;
|
|
IsDifferent = false;
|
|
return(changed);
|
|
}
|
|
|
|
|
|
/***********************************************************************************************
|
|
* FactoryClass::Set -- Assigns a factory to produce an object. *
|
|
* *
|
|
* This routine initializes a factory to produce the object specified. The desired object *
|
|
* type is created and placed in suspended animation (limbo) until such time as production *
|
|
* completes. Production is not actually started by this routine. An explicit call to *
|
|
* Start() is required to begin production. *
|
|
* *
|
|
* INPUT: object -- Reference to the object type class that is to be produced. *
|
|
* *
|
|
* house -- Reference to the owner of the object to be produced. *
|
|
* *
|
|
* OUTPUT: bool; Was production successfully prepared for this factory object. Failure means *
|
|
* that the object could not be created. This is catastrophic and in such *
|
|
* cases, the factory object should be deleted. *
|
|
* *
|
|
* WARNINGS: Be sure to examine the return value from this function. Failure to initialize *
|
|
* the factory means that the factory is useless and should be deleted. *
|
|
* *
|
|
* HISTORY: *
|
|
* 12/26/1994 JLB : Created. *
|
|
*=============================================================================================*/
|
|
bool FactoryClass::Set(TechnoTypeClass const & object, HouseClass & house)
|
|
{
|
|
assert(Factories.ID(this) == ID);
|
|
|
|
/*
|
|
** If there is any production currently in progress, abandon it.
|
|
*/
|
|
Abandon();
|
|
|
|
/*
|
|
** Set up the factory for the new production process.
|
|
*/
|
|
IsDifferent = true;
|
|
IsSuspended = true;
|
|
Set_Rate(0);
|
|
Set_Stage(0);
|
|
|
|
/*
|
|
** Create an object of the type requested.
|
|
*/
|
|
Object = (TechnoClass *)object.Create_One_Of(&house);
|
|
|
|
/*
|
|
** Buildings that are constructed, will default to rebuilding on so that
|
|
** repair can commence and base rebuilding can occur.
|
|
*/
|
|
if (!house.IsHuman && Object != NULL && Object->What_Am_I() == RTTI_BUILDING) {
|
|
((BuildingClass *)Object)->IsToRebuild = true;
|
|
}
|
|
|
|
if (Object) {
|
|
House = Object->House;
|
|
Balance = object.Cost_Of() * house.CostBias;
|
|
Object->PurchasePrice = Balance;
|
|
}
|
|
|
|
/*
|
|
** If all was set up successfully, then return true.
|
|
*/
|
|
return(Object != NULL);
|
|
}
|
|
|
|
|
|
/***********************************************************************************************
|
|
* FactoryClass::Set -- Fills a factory with an already completed object. *
|
|
* *
|
|
* This routine is called when a produced object is in placement mode but then placement *
|
|
* is suspended. The object must then return to the factory as if it were newly completed *
|
|
* and awaiting removal. *
|
|
* *
|
|
* INPUT: object -- The object to return to the factory. *
|
|
* *
|
|
* OUTPUT: none *
|
|
* *
|
|
* WARNINGS: This will abandon any current object being produced at the factory in order *
|
|
* to set the new object into it. *
|
|
* *
|
|
* HISTORY: *
|
|
* 12/26/1994 JLB : Created. *
|
|
*=============================================================================================*/
|
|
void FactoryClass::Set(TechnoClass & object)
|
|
{
|
|
assert(Factories.ID(this) == ID);
|
|
|
|
Abandon();
|
|
Object = &object;
|
|
House = Object->House;
|
|
Balance = 0;
|
|
Set_Rate(0);
|
|
Set_Stage(STEP_COUNT);
|
|
IsDifferent = true;
|
|
IsSuspended = true;
|
|
}
|
|
|
|
|
|
/***********************************************************************************************
|
|
* FactoryClass::Suspend -- Temporarily stop production. *
|
|
* *
|
|
* This routine will suspend production until a subsequent call to Start() or Abandon(). *
|
|
* Typical use of this function is when the player puts production on hold or when there *
|
|
* is insufficient funds. *
|
|
* *
|
|
* INPUT: none *
|
|
* *
|
|
* OUTPUT: bool; Was production actually stopped? A false return value indicates that the *
|
|
* factory was empty or production was already stopped (or never started). *
|
|
* *
|
|
* WARNINGS: none *
|
|
* *
|
|
* HISTORY: *
|
|
* 12/26/1994 JLB : Created. *
|
|
*=============================================================================================*/
|
|
bool FactoryClass::Suspend(void)
|
|
{
|
|
assert(Factories.ID(this) == ID);
|
|
|
|
if (!IsSuspended) {
|
|
IsSuspended = true;
|
|
Set_Rate(0);
|
|
return(true);
|
|
}
|
|
return(false);
|
|
}
|
|
|
|
|
|
/***********************************************************************************************
|
|
* FactoryClass::Start -- Resumes production after suspension or creation. *
|
|
* *
|
|
* This function will start the production process. It works for newly created factory *
|
|
* objects, as well as if production had been suspended previously. *
|
|
* *
|
|
* INPUT: none *
|
|
* *
|
|
* OUTPUT: bool; Was production started? A false return value means that the factory is *
|
|
* empty or there is insufficient credits to begin production. *
|
|
* *
|
|
* WARNINGS: none *
|
|
* *
|
|
* HISTORY: *
|
|
* 12/26/1994 JLB : Created. *
|
|
*=============================================================================================*/
|
|
bool FactoryClass::Start(void)
|
|
{
|
|
assert(Factories.ID(this) == ID);
|
|
|
|
if ((Object || SpecialItem) && IsSuspended && !Has_Completed()) {
|
|
if (House->IsHuman || House->Available_Money() >= Cost_Per_Tick()) {
|
|
int time;
|
|
|
|
if (Object) {
|
|
time = Object->Class_Of().Time_To_Build(House->Class->House);
|
|
}
|
|
|
|
time /= STEP_COUNT;
|
|
time = Bound(time, 1, 255);
|
|
|
|
Set_Rate(time);
|
|
IsSuspended = false;
|
|
return(true);
|
|
}
|
|
}
|
|
return(false);
|
|
}
|
|
|
|
|
|
/***********************************************************************************************
|
|
* FactoryClass::Abandon -- Abandons current construction with money refunded. *
|
|
* *
|
|
* This routine is used when construction is to be abandoned and current money spend is *
|
|
* to be refunded. This function effectively clears out this factory of all record of the *
|
|
* producing object so that it may either be deleted or started anew with the Set() *
|
|
* function. *
|
|
* *
|
|
* INPUT: none *
|
|
* *
|
|
* OUTPUT: bool; Was an object actually abandoned? A false return value indicates that the *
|
|
* factory was not producing any object. *
|
|
* *
|
|
* WARNINGS: none *
|
|
* *
|
|
* HISTORY: *
|
|
* 12/26/1994 JLB : Created. *
|
|
*=============================================================================================*/
|
|
bool FactoryClass::Abandon(void)
|
|
{
|
|
assert(Factories.ID(this) == ID);
|
|
|
|
if (Object) {
|
|
|
|
if (Object) {
|
|
/*
|
|
** Refund all money expended so far, back to the owner of the object under construction.
|
|
*/
|
|
int money = Object->Class_Of().Cost_Of() * Object->House->CostBias;
|
|
House->Refund_Money(money - Balance);
|
|
Balance = 0;
|
|
|
|
/*
|
|
** Delete the object under construction.
|
|
*/
|
|
ScenarioInit++;
|
|
delete Object;
|
|
Object = NULL;
|
|
ScenarioInit--;
|
|
}
|
|
if (SpecialItem) {
|
|
SpecialItem = SPC_NONE;
|
|
}
|
|
|
|
/*
|
|
** Set the factory back to the idle and empty state.
|
|
*/
|
|
Set_Rate(0);
|
|
Set_Stage(0);
|
|
IsSuspended = true;
|
|
IsDifferent = true;
|
|
|
|
return(true);
|
|
}
|
|
return(false);
|
|
}
|
|
|
|
|
|
/***********************************************************************************************
|
|
* FactoryClass::Completion -- Fetches the completion step for this factory. *
|
|
* *
|
|
* Use this routine to determine what animation (or completion step) the factory is *
|
|
* currently on. *
|
|
* *
|
|
* INPUT: none *
|
|
* *
|
|
* OUTPUT: Returns a completion step number between 0 (uncompleted), to STEP_COUNT (completed)*
|
|
* *
|
|
* WARNINGS: none *
|
|
* *
|
|
* HISTORY: *
|
|
* 12/26/1994 JLB : Created. *
|
|
*=============================================================================================*/
|
|
int FactoryClass::Completion(void)
|
|
{
|
|
assert(Factories.ID(this) == ID);
|
|
|
|
return(Fetch_Stage());
|
|
}
|
|
|
|
|
|
/***********************************************************************************************
|
|
* FactoryClass::Has_Completed -- Checks to see if object has completed production. *
|
|
* *
|
|
* Use this routine to examine the factory object in order to determine if the associated *
|
|
* object has completed production and is awaiting placement. *
|
|
* *
|
|
* INPUT: none *
|
|
* *
|
|
* OUTPUT: bool; Is the associated object to the factory completed and ready for placement? *
|
|
* *
|
|
* WARNINGS: none *
|
|
* *
|
|
* HISTORY: *
|
|
* 12/26/1994 JLB : Created. *
|
|
*=============================================================================================*/
|
|
bool FactoryClass::Has_Completed(void)
|
|
{
|
|
assert(Factories.ID(this) == ID);
|
|
|
|
if (Object && Fetch_Stage() == STEP_COUNT) {
|
|
return(true);
|
|
}
|
|
if (SpecialItem && Fetch_Stage() == STEP_COUNT) {
|
|
return(true);
|
|
}
|
|
return(false);
|
|
}
|
|
|
|
|
|
/***********************************************************************************************
|
|
* FactoryClass::Get_Object -- Fetches pointer to object being constructed. *
|
|
* *
|
|
* This routine gets the pointer to the currently constructing object. *
|
|
* *
|
|
* INPUT: none *
|
|
* *
|
|
* OUTPUT: Returns with a pointer to the object undergoing construction. *
|
|
* *
|
|
* WARNINGS: none *
|
|
* *
|
|
* HISTORY: *
|
|
* 12/26/1994 JLB : Created. *
|
|
*=============================================================================================*/
|
|
TechnoClass * FactoryClass::Get_Object(void) const
|
|
{
|
|
assert(Factories.ID(this) == ID);
|
|
|
|
return(Object);
|
|
}
|
|
|
|
|
|
/***************************************************************************
|
|
* FactoryClass::Get_Special_Item -- gets factory spc prod item *
|
|
* *
|
|
* INPUT: none *
|
|
* *
|
|
* OUTPUT: int the item the factory is currently working on *
|
|
* *
|
|
* HISTORY: *
|
|
* 05/05/1995 PWG : Created. *
|
|
*=========================================================================*/
|
|
int FactoryClass::Get_Special_Item(void) const
|
|
{
|
|
assert(Factories.ID(this) == ID);
|
|
|
|
return(SpecialItem);
|
|
}
|
|
|
|
|
|
/***********************************************************************************************
|
|
* FactoryClass::Cost_Per_Tick -- Breaks entire production cost into manageable chunks. *
|
|
* *
|
|
* Use this routine to determine the cost per game "tick" to produce the object. *
|
|
* *
|
|
* INPUT: none *
|
|
* *
|
|
* OUTPUT: Returns the number of credits necessary to advance production one game tick. *
|
|
* *
|
|
* WARNINGS: none *
|
|
* *
|
|
* HISTORY: *
|
|
* 12/26/1994 JLB : Created. *
|
|
*=============================================================================================*/
|
|
int FactoryClass::Cost_Per_Tick(void)
|
|
{
|
|
assert(Factories.ID(this) == ID);
|
|
|
|
if (Object) {
|
|
int steps = STEP_COUNT - Fetch_Stage();
|
|
if (steps) {
|
|
return(Balance / steps);
|
|
}
|
|
return(Balance);
|
|
}
|
|
return(0);
|
|
}
|
|
|
|
|
|
/***********************************************************************************************
|
|
* FactoryClass::Completed -- Clears factory object after a completed production process. *
|
|
* *
|
|
* This routine is called after production completes, and the object produced has been *
|
|
* placed into the game. It resets the factory for deletion or starting of new production. *
|
|
* *
|
|
* INPUT: none *
|
|
* *
|
|
* OUTPUT: bool; Did any resetting occur? Failure is the result of the factory not having *
|
|
* any completed object. An immediate second call to this routine will also *
|
|
* yield false. *
|
|
* *
|
|
* WARNINGS: none *
|
|
* *
|
|
* HISTORY: *
|
|
* 12/26/1994 JLB : Created. *
|
|
*=============================================================================================*/
|
|
bool FactoryClass::Completed(void)
|
|
{
|
|
assert(Factories.ID(this) == ID);
|
|
|
|
if (Object && Fetch_Stage() == STEP_COUNT) {
|
|
Object = NULL;
|
|
IsSuspended = true;
|
|
IsDifferent = true;
|
|
Set_Stage(0);
|
|
Set_Rate(0);
|
|
return(true);
|
|
}
|
|
|
|
if (SpecialItem && Fetch_Stage() == STEP_COUNT) {
|
|
SpecialItem = SPC_NONE;
|
|
IsSuspended = true;
|
|
IsDifferent = true;
|
|
Set_Stage(0);
|
|
Set_Rate(0);
|
|
return(true);
|
|
}
|
|
return(false);
|
|
}
|