CnC_Remastered_Collection/REDALERT/TARGET.CPP

941 lines
48 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/TARGET.CPP 1 3/03/97 10:25a 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 : TARGET.CPP *
* *
* Programmer : Joe L. Bostic *
* *
* Start Date : September 10, 1993 *
* *
* Last Update : July 16, 1996 [JLB] *
* *
*---------------------------------------------------------------------------------------------*
* Functions: *
* As_Aircraft -- Converts the target value into an aircraft pointer. *
* As_Animation -- Converts target value into animation pointer. *
* As_Building -- Converts a target value into a building object pointer. *
* As_Bullet -- Converts the target into a bullet pointer. *
* As_Cell -- Converts a target value into a cell number. *
* As_Coord -- Converts a target value into a coordinate value. *
* As_Infantry -- If the target is infantry, return a pointer to it. *
* As_Movement_Coord -- Fetches coordinate if trying to move to this target. *
* As_Object -- Converts a target value into an object pointer. *
* As_Target -- Converts a cell into a target value. *
* As_Target -- Converts a coordinate into a target value. *
* As_Team -- Converts a target number into a team pointer. *
* As_TeamType -- Converts a target into a team type pointer. *
* As_Techno -- Converts a target value into a TechnoClass pointer. *
* As_TechnoType -- Convert the target number into a techno type class pointer. *
* As_Trigger -- Converts specified target into a trigger pointer. *
* As_TriggerType -- Convert the specified target into a trigger type. *
* As_Unit -- Converts a target value into a unit pointer. *
* As_Vessel -- Converts a target number into a vessel pointer. *
* TClass::TClass -- Constructor for target from object pointer. *
* TargetClass::As_Object -- Converts a target into an object pointer. *
* TargetClass::As_Techno -- Converts a target into a techno object pointer. *
* Target_Legal -- Determines if the specified target is legal. *
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
#include "function.h"
#include "target.h"
TargetClass::TargetClass(TARGET target)
{
Target.Target = target;
}
TargetClass::TargetClass(AbstractClass const * ptr) {
if (ptr != NULL) {
Target.Sub.Exponent = ptr->RTTI;
Target.Sub.Mantissa = ptr->ID;
} else {
Target.Sub.Exponent = RTTI_NONE;
}
}
TargetClass::TargetClass(AbstractTypeClass const * ptr) {
if (ptr != NULL) {
Target.Sub.Exponent = ptr->RTTI;
Target.Sub.Mantissa = ptr->ID;
} else {
Target.Sub.Exponent = RTTI_NONE;
}
}
TargetClass::TargetClass(CellClass const * ptr) {
if (ptr != NULL) {
Target.Sub.Exponent = RTTI_CELL;
Target.Sub.Mantissa = ptr->ID;
} else {
Target.Sub.Exponent = RTTI_NONE;
}
}
CellClass * xTargetClass::As_Cell(void) const
{
if (Target.Sub.Exponent == RTTI_CELL) {
return(&Map[(CELL)Target.Sub.Mantissa]);
}
return(NULL);
}
/***********************************************************************************************
* As_Trigger -- Converts specified target into a trigger pointer. *
* *
* This routine will convert the specified target number into a trigger pointer. *
* *
* INPUT: target -- The target number to convert. *
* *
* OUTPUT: Returns with the trigger pointer that the specified target number represents. If *
* it doesn't represent a legal trigger object, then NULL is returned. *
* *
* WARNINGS: none *
* *
* HISTORY: *
* 07/08/1995 JLB : Created. *
*=============================================================================================*/
TriggerClass * As_Trigger(TARGET target, bool check_active)
{
TriggerClass* trigger = Is_Target_Trigger(target) ? Triggers.Raw_Ptr(Target_Value(target)) : NULL;
if (check_active && trigger != NULL && !trigger->IsActive) {
trigger = NULL;
}
return(trigger);
}
/***********************************************************************************************
* As_Team -- Converts a target number into a team pointer. *
* *
* This routine will convert the specified target number into a team pointer. *
* *
* INPUT: target -- The target number to convert. *
* *
* OUTPUT: Returns with the team object that the specified target number represents. If it *
* doesn't represent a legal team then NULL is returned. *
* *
* WARNINGS: none *
* *
* HISTORY: *
* 07/08/1995 JLB : Created. *
*=============================================================================================*/
TeamClass * As_Team(TARGET target, bool check_active)
{
TeamClass* team = Is_Target_Team(target) ? Teams.Raw_Ptr(Target_Value(target)) : NULL;
if (check_active && team != NULL && !team->IsActive) {
team = NULL;
}
return(team);
}
/***********************************************************************************************
* As_TeamType -- Converts a target into a team type pointer. *
* *
* This routine will convert the specified target number into a team type pointer. *
* *
* INPUT: target -- The target number to convert. *
* *
* OUTPUT: Returns with a pointer to the team type represented by the target number. If the *
* target number doesn't represent a legal team type, then NULL is returned. *
* *
* WARNINGS: none *
* *
* HISTORY: *
* 07/08/1995 JLB : Created. *
*=============================================================================================*/
TeamTypeClass * As_TeamType(TARGET target)
{
return(Is_Target_TeamType(target) ? TeamTypes.Raw_Ptr(Target_Value(target)) : NULL);
}
/***********************************************************************************************
* As_Animation -- Converts target value into animation pointer. *
* *
* This routine will convert the specified target number into an animation pointer. *
* *
* INPUT: target -- The target number to convert into an animation pointer. *
* *
* OUTPUT: Returns with a pointer to the legal animation that this target represents. If it *
* doesn't represent a legal animation, then NULL is returned. *
* *
* WARNINGS: none *
* *
* HISTORY: *
* 07/08/1995 JLB : Created. *
*=============================================================================================*/
AnimClass * As_Animation(TARGET target, bool check_active)
{
AnimClass* anim = Is_Target_Animation(target) ? Anims.Raw_Ptr(Target_Value(target)) : NULL;
if (check_active && anim != NULL && !anim->IsActive) {
anim = NULL;
}
return(anim);
}
/***********************************************************************************************
* As_Bullet -- Converts the target into a bullet pointer. *
* *
* This routine will convert the specified target number into a bullet pointer. *
* *
* INPUT: target -- The target number to convert. *
* *
* OUTPUT: Returns with a pointer to the bullet it specifies. If the target doesn't refer to *
* a legal bullet, then NULL is returned. *
* *
* WARNINGS: none *
* *
* HISTORY: *
* 07/08/1995 JLB : Created. *
*=============================================================================================*/
BulletClass * As_Bullet(TARGET target, bool check_active)
{
BulletClass* bullet = Is_Target_Bullet(target) ? Bullets.Raw_Ptr(Target_Value(target)) : NULL;
if (check_active && bullet != NULL && !bullet->IsActive) {
bullet = NULL;
}
return(bullet);
}
/***********************************************************************************************
* As_Aircraft -- Converts the target value into an aircraft pointer. *
* *
* This routine will convert the specified target value into an aircraft object pointer. *
* *
* INPUT: target -- The target value to convert. *
* *
* OUTPUT: Returns with a pointer to the aircraft that this target value represents. If the *
* specified target value doesn't represent an aircraft, then NULL is returned. *
* *
* WARNINGS: none *
* *
* HISTORY: *
* 08/27/1995 JLB : Created. *
*=============================================================================================*/
AircraftClass * As_Aircraft(TARGET target, bool check_active)
{
AircraftClass* aircraft = Is_Target_Aircraft(target) ? Aircraft.Raw_Ptr(Target_Value(target)) : NULL;
if (check_active && aircraft != NULL && !aircraft->IsActive) {
aircraft = NULL;
}
return(aircraft);
}
/***********************************************************************************************
* As_Techno -- Converts a target value into a TechnoClass pointer. *
* *
* This routine will take the target value specified and convert it into a TechnoClass *
* pointer if the target represents an object that has a TechnoClass. *
* *
* INPUT: target -- The target value to convert into a TechnoClass pointer. *
* *
* OUTPUT: Returns with a pointer to the associated object's TechnoClass. If the target *
* cannot be converted into a TechnoClass pointer, then NULL is returned. *
* *
* WARNINGS: none *
* *
* HISTORY: *
* 06/02/1994 JLB : Created. *
*=============================================================================================*/
TechnoClass * As_Techno(TARGET target, bool check_active)
{
ObjectClass * obj = As_Object(target, check_active);
if (obj && obj->Is_Techno()) {
return(TechnoClass *)obj;
}
return(NULL);
}
/***********************************************************************************************
* As_Object -- Converts a target value into an object pointer. *
* *
* This routine is used to convert the target value specified into an object pointer. If *
* the target doesn't represent an object or the target value is illegal, then NULL is *
* returned. *
* *
* INPUT: target -- The target value to convert from. *
* *
* OUTPUT: Returns with a pointer to the object it represent, or NULL if not an object. *
* *
* WARNINGS: none *
* *
* HISTORY: *
* 05/27/1994 JLB : Created. *
*=============================================================================================*/
ObjectClass * As_Object(TARGET target, bool check_active)
{
int val = Target_Value(target);
ObjectClass * object = NULL;
switch (Target_Kind(target)) {
case RTTI_INFANTRY:
object = Infantry.Raw_Ptr(val);
break;
case RTTI_UNIT:
object = Units.Raw_Ptr(val);
break;
case RTTI_VESSEL:
object = Vessels.Raw_Ptr(val);
break;
case RTTI_BUILDING:
object = Buildings.Raw_Ptr(val);
break;
case RTTI_AIRCRAFT:
object = Aircraft.Raw_Ptr(val);
break;
case RTTI_TERRAIN:
object = Terrains.Raw_Ptr(val);
break;
case RTTI_BULLET:
object = Bullets.Raw_Ptr(val);
break;
case RTTI_ANIM:
object = Anims.Raw_Ptr(val);
break;
default:
break;
}
/*
** Special check to ensure that a target value that references an
** invalid object will not be converted back into an object pointer.
** This condition is rare, but could occur in a network game if the
** object it refers to is destroyed between the time an event message
** is sent and when it is received.
*/
if (check_active && object != NULL && !object->IsActive) {
object = NULL;
}
return(object);
}
/***********************************************************************************************
* As_Unit -- Converts a target value into a unit pointer. *
* *
* This routine is used to convert the target value specified into a pointer to a unit *
* object. *
* *
* INPUT: target -- The target value to convert into a unit pointer. *
* *
* OUTPUT: Returns with a pointer to the unit the target value represents or NULL if not *
* a unit. *
* *
* WARNINGS: none *
* *
* HISTORY: *
* 05/27/1994 JLB : Created. *
*=============================================================================================*/
UnitClass * As_Unit(TARGET target, bool check_active)
{
UnitClass* unit = Is_Target_Unit(target) ? Units.Raw_Ptr(Target_Value(target)) : NULL;
if (check_active && unit != NULL && !unit->IsActive) {
unit = NULL;
}
return(unit);
}
/***********************************************************************************************
* As_Vessel -- Converts a target number into a vessel pointer. *
* *
* Use this routine to conver the specified target number into a pointer to a vessel object *
* that it represents. *
* *
* INPUT: target -- The target number to convert to a vessel pointer. *
* *
* OUTPUT: Returns with a pointer to the vessel object that this target value represents. If *
* the target number does not represent a vessel, then null is returned. *
* *
* WARNINGS: none *
* *
* HISTORY: *
* 07/16/1996 JLB : Created. *
*=============================================================================================*/
VesselClass * As_Vessel(TARGET target, bool check_active)
{
VesselClass* vessel = Is_Target_Vessel(target) ? Vessels.Raw_Ptr(Target_Value(target)) : NULL;
if (check_active && vessel != NULL && !vessel->IsActive) {
vessel = NULL;
}
return(vessel);
}
/***********************************************************************************************
* As_Infantry -- If the target is infantry, return a pointer to it. *
* *
* This routine will translate the specified target value into an infantry pointer if the *
* target actually represents an infantry object. *
* *
* INPUT: target -- The target to convert to a pointer. *
* *
* OUTPUT: Returns a pointer to the infantry object that this target value represents. If *
* the target doesn't represent an infantry object, then return NULL. *
* *
* WARNINGS: none *
* *
* HISTORY: *
* 10/17/1994 JLB : Created. *
*=============================================================================================*/
InfantryClass * As_Infantry(TARGET target, bool check_active)
{
InfantryClass* infantry = Is_Target_Infantry(target) ? Infantry.Raw_Ptr(Target_Value(target)) : NULL;
if (check_active && infantry != NULL && !infantry->IsActive) {
infantry = NULL;
}
return(infantry);
}
/***********************************************************************************************
* As_Building -- Converts a target value into a building object pointer. *
* *
* This routine is used to convert the target value specified into a building pointer. *
* *
* INPUT: target -- The target value to convert from. *
* *
* OUTPUT: Returns with a pointer to the building object that the target value represents. *
* If it doesn't represent a building, then return NULL. *
* *
* WARNINGS: none *
* *
* HISTORY: *
* 05/27/1994 JLB : Created. *
*=============================================================================================*/
BuildingClass * As_Building(TARGET target, bool check_active)
{
BuildingClass* building = Is_Target_Building(target) ? Buildings.Raw_Ptr(Target_Value(target)) : NULL;
if (check_active && building != NULL && !building->IsActive) {
building = NULL;
}
return(building);
}
/***********************************************************************************************
* Target_Legal -- Determines if the specified target is legal. *
* *
* This routine is used to check for the legality of the target value specified. It is *
* necessary to call this routine if there is doubt about the the legality of the target. *
* It is possible for the unit that a target value represents to be eliminated and thus *
* rendering the target value invalid. *
* *
* INPUT: target -- The target value to check. *
* *
* OUTPUT: bool; Is the target value legal? *
* *
* WARNINGS: none *
* *
* HISTORY: *
* 05/27/1994 JLB : Created. *
*=============================================================================================*/
bool Target_Legal(TARGET target)
{
if (target == TARGET_NONE) return(false);
ObjectClass * obj = As_Object(target, false);
if (obj) {
return(obj->IsActive);
}
return(true);
}
/***********************************************************************************************
* As_Cell -- Converts a target value into a cell number. *
* *
* This routine is used to convert the target value specified, into a cell value. This is *
* necessary for find path and other procedures that need a cell value. *
* *
* INPUT: target -- The target value to convert to a cell value. *
* *
* OUTPUT: Returns with the target value expressed as a cell location. *
* *
* WARNINGS: none *
* *
* HISTORY: *
* 05/27/1994 JLB : Created. *
*=============================================================================================*/
CELL As_Cell(TARGET target)
{
return(Coord_Cell(As_Coord(target)));
}
/***********************************************************************************************
* As_Coord -- Converts a target value into a coordinate value. *
* *
* This routine is used to convert the target value specified into a coordinate value. It *
* is necessary for those procedures that require a coordinate value. *
* *
* INPUT: target -- The target value to convert. *
* *
* OUTPUT: Returns with the target expressed as a COORDINATE value. *
* *
* WARNINGS: none *
* *
* HISTORY: *
* 05/27/1994 JLB : Created. *
* 11/16/1994 JLB : Simplified. *
*=============================================================================================*/
COORDINATE As_Coord(TARGET target)
{
if (Target_Legal(target)) {
/*
** Cell target values are handled as a special case. The value of the target number is
** actually the cell index number.
*/
if (Is_Target_Cell(target)) {
int v = Target_Value(target);
int x = ((v & 0x0FFF) << 4) + 0x0008;
int y = (((v>>12) & 0x0FFF) << 4) + 0x0008;
return(XY_Coord(x, y));
// return(Cell_Coord((CELL)Target_Value(target)));
}
/*
** Normal targets correspond to game objects. Fetch the object pointer and then ask it
** for the center coordinate. Return the center coordinate as the target's coordinate.
*/
ObjectClass * obj = As_Object(target);
if (obj != NULL) {
assert(obj->IsActive);
return(obj->Target_Coord());
}
}
/*
** An unrecognized target value results in a null coordinate value.
*/
return(0x00000000L);
}
/***********************************************************************************************
* As_Movement_Coord -- Fetches coordinate if trying to move to this target. *
* *
* This routine will convert the specified target into a coordinate location. This location *
* is used when moving to the target specified. For cells, this is the center of the cell. *
* For special buildings that allow docking, it is the center location of the docking *
* bay. *
* *
* INPUT: target -- The target to convert into a coordinate value. *
* *
* OUTPUT: Returns with the docking coordinate of the target value specified. *
* *
* WARNINGS: none *
* *
* HISTORY: *
* 08/27/1995 JLB : Created. *
*=============================================================================================*/
COORDINATE As_Movement_Coord(TARGET target)
{
if (Target_Legal(target)) {
/*
** Cell target values are handled as a special case. The value of the target number is
** actually the cell index number.
*/
if (Is_Target_Cell(target)) {
return(Cell_Coord((CELL)Target_Value(target)));
}
/*
** Normal targets correspond to game objects. Fetch the object pointer and then ask it
** for the center coordinate. Return the center coordinate as the target's coordinate.
*/
ObjectClass * obj = As_Object(target);
if (obj) {
return(obj->Docking_Coord());
}
}
/*
** An unrecognized target value results in a null coordinate value.
*/
return(0x00000000L);
}
/***********************************************************************************************
* TargetClass::As_Object -- Converts a target into an object pointer. *
* *
* If the target represents an object of some type, then this routine will return a *
* pointer to the object. Otherwise it will return NULL. *
* *
* INPUT: none *
* *
* OUTPUT: Returns with a pointer to the object that this target represents or NULL if it *
* doesn't represent a target. *
* *
* WARNINGS: none *
* *
* HISTORY: *
* 03/05/1996 JLB : Created. *
*=============================================================================================*/
AbstractClass * xTargetClass::As_Abstract(bool check_active) const
{
AbstractClass* abst = NULL;
switch ((RTTIType)*this) {
case RTTI_TEAM:
abst = Teams.Raw_Ptr(Value());
break;
case RTTI_BULLET:
abst = Bullets.Raw_Ptr(Value());
break;
case RTTI_OVERLAY:
abst = Overlays.Raw_Ptr(Value());
break;
case RTTI_SMUDGE:
abst = Smudges.Raw_Ptr(Value());
break;
case RTTI_UNIT:
abst = Units.Raw_Ptr(Value());
break;
case RTTI_VESSEL:
abst = Vessels.Raw_Ptr(Value());
break;
case RTTI_BUILDING:
abst = Buildings.Raw_Ptr(Value());
break;
case RTTI_INFANTRY:
abst = Infantry.Raw_Ptr(Value());
break;
case RTTI_AIRCRAFT:
abst = Aircraft.Raw_Ptr(Value());
break;
case RTTI_TERRAIN:
abst = Terrains.Raw_Ptr(Value());
break;
case RTTI_ANIM:
abst = Anims.Raw_Ptr(Value());
break;
default:
break;
}
if (check_active && abst != NULL && !abst->IsActive) {
abst = NULL;
}
return(abst);
}
AbstractTypeClass * xTargetClass::As_TypeClass(void) const
{
switch ((RTTIType)*this) {
case RTTI_TEAMTYPE:
return(TeamTypes.Raw_Ptr(Value()));
case RTTI_TRIGGERTYPE:
return(TriggerTypes.Raw_Ptr(Value()));
case RTTI_BULLETTYPE:
return((BulletTypeClass *)&BulletTypeClass::As_Reference(BulletType(Value())));
case RTTI_OVERLAY:
return((OverlayTypeClass *)&OverlayTypeClass::As_Reference(OverlayType(Value())));
case RTTI_SMUDGE:
return((SmudgeTypeClass *)&SmudgeTypeClass::As_Reference(SmudgeType(Value())));
case RTTI_UNIT:
return((UnitTypeClass *)&UnitTypeClass::As_Reference(UnitType(Value())));
case RTTI_VESSEL:
return((VesselTypeClass *)&VesselTypeClass::As_Reference(VesselType(Value())));
case RTTI_BUILDING:
return((BuildingTypeClass *)&BuildingTypeClass::As_Reference(StructType(Value())));
case RTTI_INFANTRY:
return((InfantryTypeClass *)&InfantryTypeClass::As_Reference(InfantryType(Value())));
case RTTI_AIRCRAFT:
return((AircraftTypeClass *)&AircraftTypeClass::As_Reference(AircraftType(Value())));
case RTTI_TERRAIN:
return((TerrainTypeClass *)&TerrainTypeClass::As_Reference(TerrainType(Value())));
case RTTI_ANIM:
return((AnimTypeClass *)&AnimTypeClass::As_Reference(AnimType(Value())));
default:
break;
}
return(0);
}
/***********************************************************************************************
* TargetClass::As_Techno -- Converts a target into a techno object pointer. *
* *
* This routine is used to convert the target object into a pointer to a techno class *
* object. If the target doesn't specify a techno class object, then NULL is returned. *
* *
* INPUT: none *
* *
* OUTPUT: Returns with a pointer to the techno class object that this target represents or *
* else it returns NULL. *
* *
* WARNINGS: none *
* *
* HISTORY: *
* 03/05/1996 JLB : Created. *
*=============================================================================================*/
TechnoClass * xTargetClass::As_Techno(bool check_active) const
{
TechnoClass* techno = NULL;
switch ((RTTIType)*this) {
case RTTI_UNIT:
techno = Units.Raw_Ptr(Value());
break;
case RTTI_VESSEL:
techno = Vessels.Raw_Ptr(Value());
break;
case RTTI_BUILDING:
techno = Buildings.Raw_Ptr(Value());
break;
case RTTI_INFANTRY:
techno = Infantry.Raw_Ptr(Value());
break;
case RTTI_AIRCRAFT:
techno = Aircraft.Raw_Ptr(Value());
break;
default:
break;
}
if (check_active && techno != NULL && !techno->IsActive) {
techno = NULL;
}
return(techno);
}
ObjectClass * xTargetClass::As_Object(bool check_active) const
{
ObjectClass* object = NULL;
switch ((RTTIType)*this) {
case RTTI_TERRAIN:
object = Terrains.Raw_Ptr(Value());
break;
case RTTI_SMUDGE:
object = Smudges.Raw_Ptr(Value());
break;
case RTTI_OVERLAY:
object = Overlays.Raw_Ptr(Value());
break;
case RTTI_BULLET:
object = Bullets.Raw_Ptr(Value());
break;
case RTTI_ANIM:
object = Anims.Raw_Ptr(Value());
break;
case RTTI_UNIT:
object = Units.Raw_Ptr(Value());
break;
case RTTI_VESSEL:
object = Vessels.Raw_Ptr(Value());
break;
case RTTI_BUILDING:
object = Buildings.Raw_Ptr(Value());
break;
case RTTI_INFANTRY:
object = Infantry.Raw_Ptr(Value());
break;
case RTTI_AIRCRAFT:
object = Aircraft.Raw_Ptr(Value());
break;
default:
break;
}
if (check_active && object != NULL && !object->IsActive) {
object = NULL;
}
return(object);
}
/***********************************************************************************************
* As_Target -- Converts a cell into a target value. *
* *
* This routine will convert a cell into a target value. *
* *
* INPUT: cell -- The cell number that will be coerced into a target value. *
* *
* OUTPUT: Returns with the target value that this cell represents. *
* *
* WARNINGS: none *
* *
* HISTORY: *
* 03/05/1996 JLB : Created. *
*=============================================================================================*/
TARGET As_Target(CELL cell)
{
int x = Cell_X(cell);
int y = Cell_Y(cell);
x <<= 4;
y <<= 4;
x += 0x0008;
y += 0x0008;
return(Build_Target(RTTI_CELL, ((y << 12) | x) ));
}
/***********************************************************************************************
* As_Target -- Converts a coordinate into a target value. *
* *
* This routine is used to convert the specified coordinate into a target value. *
* *
* INPUT: coord -- The coordinate that is to be converted into a target value. *
* *
* OUTPUT: Returns with the target value that represents the coordinate. *
* *
* WARNINGS: none *
* *
* HISTORY: *
* 03/05/1996 JLB : Created. *
*=============================================================================================*/
TARGET As_Target(COORDINATE coord)
{
int x = Coord_X(coord);
int y = Coord_Y(coord);
x >>= 4;
y >>= 4;
return(Build_Target(RTTI_CELL, ((y << 12) | x) ));
}
/***********************************************************************************************
* As_TechnoType -- Convert the target number into a techno type class pointer. *
* *
* This routine will conver the specified target number into a pointer to the techno *
* type class that it represents. *
* *
* INPUT: target -- The target number to convert. *
* *
* OUTPUT: Returns with a pointer to the TechnoTypeClass object that the target number *
* represents. If it doesn't represent that kind of object, then NULL is returned. *
* *
* WARNINGS: none *
* *
* HISTORY: *
* 07/16/1996 JLB : Created. *
*=============================================================================================*/
TechnoTypeClass const * As_TechnoType(TARGET target)
{
int val = Target_Value(target);
switch (Target_Kind(target)) {
case RTTI_INFANTRYTYPE:
return(&InfantryTypeClass::As_Reference(InfantryType(val)));
case RTTI_UNITTYPE:
return(&UnitTypeClass::As_Reference(UnitType(val)));
case RTTI_VESSELTYPE:
return(&VesselTypeClass::As_Reference(VesselType(val)));
case RTTI_AIRCRAFTTYPE:
return(&AircraftTypeClass::As_Reference(AircraftType(val)));
case RTTI_BUILDINGTYPE:
return(&BuildingTypeClass::As_Reference(StructType(val)));
}
return(NULL);
}
/***********************************************************************************************
* As_TriggerType -- Convert the specified target into a trigger type. *
* *
* This routine will conver the target number into a pointer to the trigger type it *
* represents. *
* *
* INPUT: target -- The target value to convert into a trigger type pointer. *
* *
* OUTPUT: Returns with a pointer to the trigger type object that the specified target value *
* represents. If it doesn't represent a trigger type, then NULL is returned. *
* *
* WARNINGS: none *
* *
* HISTORY: *
* 07/16/1996 JLB : Created. *
*=============================================================================================*/
TriggerTypeClass * As_TriggerType(TARGET target)
{
if (Target_Kind(target) == RTTI_TRIGGERTYPE) {
return(TriggerTypes.Raw_Ptr(Target_Value(target)));
}
return(NULL);
}