TombEngine/TR5Main/Objects/TR4/Entity/tr4_setha.cpp

#include "framework.h"
#include "tr4_setha.h"
#include "items.h"
#include "effects/effects.h"
#include "setup.h"
#include "level.h"
#include "control/control.h"
#include "Specific/trmath.h"
#include "lara.h"
#include "people.h"
#include "itemdata/creature_info.h"
#include "animation.h"

BITE_INFO SethaBite1 = { 0,220,50,17 };
BITE_INFO SethaBite2 = { 0,220,50,13 };
BITE_INFO SethaAttack1 = { -16,200,32,13 };
BITE_INFO SethaAttack2 = { 16,200,32,17 };

void InitialiseSetha(short itemNumber)
{
	ITEM_INFO* item = &g_Level.Items[itemNumber];
	
	ClearItem(itemNumber);
	
	item->animNumber = Objects[item->objectNumber].animIndex + 4;
	item->frameNumber = g_Level.Anims[item->animNumber].frameBase;
	item->goalAnimState = 12;
	item->currentAnimState = 12;
}

void SethaControl(short itemNumber)
{
	if (!CreatureActive(itemNumber))
		return;

	ITEM_INFO* item = &g_Level.Items[itemNumber];
	CREATURE_INFO* creature = (CREATURE_INFO*)item->data;

	int x = item->pos.xPos;
	int y = item->pos.yPos;
	int z = item->pos.zPos;

	int dx = 870 * phd_sin(item->pos.yRot);
	int dz = 870 * phd_cos(item->pos.yRot);

	short roomNumber = item->roomNumber;
	FLOOR_INFO* floor = GetFloor(x, y, z, &roomNumber);
	int ceiling = GetCeiling(floor, x, y, z);

	x += dx;
	z += dz;
	roomNumber = item->roomNumber;
	floor = GetFloor(x, y, z, &roomNumber);
	int height1 = GetFloorHeight(floor, x, y, z);

	x += dx;
	z += dz;
	roomNumber = item->roomNumber;
	floor = GetFloor(x, y, z, &roomNumber);
	int height2 = GetFloorHeight(floor, x, y, z);

	x += dx;
	z += dz;
	roomNumber = item->roomNumber;
	floor = GetFloor(x, y, z, &roomNumber);
	int height3 = GetFloorHeight(floor, x, y, z);

	bool canJump = (y < height1 - 384 || y < height2 - 384)
		&& (y < height3 + 256 && y > height3 - 256 || height3 == NO_HEIGHT);

	x = item->pos.xPos - dx;
	z = item->pos.zPos - dz;
	roomNumber = item->roomNumber;
	floor = GetFloor(x, y, z, &roomNumber);
	int height4 = GetFloorHeight(floor, x, y, z);

	AI_INFO info;
	short angle = 0;

	if (item->hitPoints <= 0)
	{
		item->hitPoints = 0;
	}
	else
	{
		if (item->aiBits & AMBUSH)
			GetAITarget(creature);
		else
			creature->enemy = LaraItem;

		CreatureAIInfo(item, &info);

		GetCreatureMood(item, &info, VIOLENT);
		CreatureMood(item, &info, VIOLENT);

		angle = CreatureTurn(item, creature->maximumTurn);

		switch (item->currentAnimState)
		{
		case 1:
			creature->LOT.isJumping = false;
			creature->flags = 0;

			if (item->requiredAnimState)
			{
				item->goalAnimState = item->requiredAnimState;
				break;
			}
			else if (info.distance < SQUARE(1024) && info.bite)
			{
				item->goalAnimState = 8;
				break;
			}
			else if (LaraItem->pos.yPos >= item->pos.yPos - 1024)
			{
				if (info.distance < SQUARE(2560)
					&& info.ahead
					&& GetRandomControl() & 1
					&& Targetable(item, &info))
				{
					item->itemFlags[0] = 0;
					item->goalAnimState = 11;
					break;
				}
				else if (ceiling != NO_HEIGHT
					&& ceiling < item->pos.yPos - 1792
					&& height4 != NO_HEIGHT
					&& height4 > item->pos.yPos - 1024
					&& GetRandomControl() & 1)
				{
					item->pos.yPos -= 1536;
					if (Targetable(item, &info))
					{
						item->itemFlags[0] = 0;
						item->pos.yPos += 1536;
						item->goalAnimState = 12;
					}
					else
					{
						item->goalAnimState = 2;
						item->pos.yPos += 1536;
					}
					break;
				}
				else
				{
					if (info.distance < SQUARE(3072) && info.angle < 6144 && info.angle > -6144 && info.ahead)
					{
						if (Targetable(item, &info))
						{
							item->goalAnimState = 4;
							break;
						}
					}
					else if (info.distance < SQUARE(4096)
						&& info.angle < ANGLE(45)
						&& info.angle > -ANGLE(45)
						&& height4 != NO_HEIGHT
						&& height4 >= item->pos.yPos - 256
						&& Targetable(item, &info))
					{
						item->itemFlags[0] = 0;
						item->goalAnimState = 13;
						break;
					}
					else if (canJump)
					{
						item->goalAnimState = 5;
						break;
					}
				}
			}
			else
			{
				if (creature->reachedGoal)
				{
					item->goalAnimState = 14;
					break;
				}
				else
				{
					item->aiBits = AMBUSH;
					creature->hurtByLara = true;
				}
			}

			item->goalAnimState = 2;

			break;

		case 2u:
			creature->maximumTurn = ANGLE(7);
			if (info.bite 
				&& info.distance < SQUARE(4096) 
				|| canJump 
				|| creature->reachedGoal)
			{
				item->goalAnimState = 1;
			}
			else if (info.distance > SQUARE(3072))
			{
				item->goalAnimState = 3;
			}
			break;

		case 3:
			creature->maximumTurn = ANGLE(11);
			if (info.bite 
				&& info.distance < SQUARE(4096)
				|| canJump 
				|| creature->reachedGoal)
			{
				item->goalAnimState = 1;
			}
			else if (info.distance < SQUARE(3072))
			{
				item->goalAnimState = 2;
			}
			break;

		case 4:
			if (canJump)
			{
				if (item->animNumber == Objects[item->objectNumber].animIndex + 15
					&& item->frameNumber == g_Level.Anims[item->animNumber].frameBase)
				{
					creature->reachedGoal = true;
					creature->maximumTurn = 0;
				}
			}

			if (!creature->flags)
			{
				if (item->touchBits)
				{
					if (item->animNumber == Objects[item->objectNumber].animIndex + 16)
					{
						if (item->touchBits & 0xE000)
						{
							LaraItem->hitPoints -= 200;
							LaraItem->hitStatus = true;
							creature->flags = 1;
							CreatureEffect2(
								item,
								&SethaBite1,
								25,
								-1,
								DoBloodSplat);
						}

						if (item->touchBits & 0xE0000)
						{
							LaraItem->hitPoints -= 200;
							LaraItem->hitStatus = true;
							creature->flags = 1;
							CreatureEffect2(
								item,
								&SethaBite2,
								25,
								-1,
								DoBloodSplat);
						}
					}
				}
			}
			
			break;

		case 5:
			creature->reachedGoal = true;
			creature->maximumTurn = 0;
			break;

		case 7:
			if (item->animNumber == Objects[item->animNumber].animIndex + 17 
				&& item->frameNumber == g_Level.Anims[item->animNumber].frameEnd)
			{
				if (GetRandomControl() & 1)
				{
					item->requiredAnimState = 10;
				}
			}
		
			break;

		case 8:
			creature->maximumTurn = 0;
			
			if (abs(info.angle) >= ANGLE(3))
			{
				if (info.angle >= 0)
				{
					item->pos.yRot += ANGLE(3);
				}
				else
				{
					item->pos.yRot -= ANGLE(3);
				}
			}
			else
			{
				item->pos.yRot += info.angle;
			}

			if (!creature->flags)
			{
				if (item->touchBits)
				{
					if (item->frameNumber > g_Level.Anims[item->animNumber].frameBase + 15 
						&& item->frameNumber < g_Level.Anims[item->animNumber].frameBase + 26)
					{
						LaraItem->hitPoints -= 250;
						LaraItem->hitStatus = true;
						creature->flags = 1;
						CreatureEffect2(
							item,
							&SethaBite1,
							25,
							-1,
							DoBloodSplat);
					}
				}
			}

			if (LaraItem->hitPoints < 0)
			{
				CreatureKill(item, 14, 9, 443);
				creature->maximumTurn = 0;
				return;
			}

			break;
			
		case 11:
		case 12:
		case 13:
		case 15:
			if (item->currentAnimState==15)
				creature->target.y = LaraItem->pos.yPos;
		
			creature->maximumTurn = 0;

			if (abs(info.angle) >= ANGLE(3))
			{
				if (info.angle >= 0)
				{
					item->pos.yRot += ANGLE(3);
				}
				else
				{
					item->pos.yRot -= ANGLE(3);
				}
				SethaAttack(itemNumber);
			}
			else
			{
				item->pos.yRot += info.angle;
				SethaAttack(itemNumber);
			}

			break;

		case 14:
			if (item->animNumber != Objects[item->animNumber].animIndex + 26)
			{
				creature->LOT.fly = 16;
				item->gravityStatus = false;
				creature->maximumTurn = 0;
				creature->target.y = LaraItem->pos.yPos;

				if (abs(info.angle) >= ANGLE(3))
				{
					if (info.angle >= 0)
					{
						item->pos.yRot += ANGLE(3);
					}
					else
					{
						item->pos.yRot -= ANGLE(3);
					}
				}
				else
				{
					item->pos.yRot += info.angle;
				}
			}

			if (LaraItem->pos.yPos <= item->floor - 512)
			{
				if (Targetable(item, &info))
				{
					item->itemFlags[0] = 0;
					item->goalAnimState = 15;
				}
			}
			else
			{
				creature->LOT.fly = 0;
				item->gravityStatus = true;
				if (item->pos.yPos - item->floor > 0)
				{
					item->goalAnimState = 1;
				}
			}

			break;

		default:
			break;

		}
	}

	if (item->hitStatus)
	{
		if ((Lara.gunType == WEAPON_SHOTGUN || Lara.gunType == WEAPON_REVOLVER)
			&& info.distance < SQUARE(2048)
			&& !(creature->LOT.isJumping))
		{
			if (item->currentAnimState != 12)
			{
				if (item->currentAnimState <= 13)
				{
					if (abs(height4 - item->pos.yPos) >= 512)
					{
						item->animNumber = Objects[item->objectNumber].animIndex + 11;
						item->goalAnimState = 6;
						item->currentAnimState = 6;
					}
					else
					{
						item->animNumber = Objects[item->objectNumber].animIndex + 17;
						item->goalAnimState = 7;
						item->currentAnimState = 7;
					}
				}
				else
				{
					item->animNumber = Objects[item->objectNumber].animIndex + 25;
					item->goalAnimState = 16;
					item->currentAnimState = 16;
				}
				item->frameNumber = g_Level.Anims[item->animNumber].frameBase;
			}
		}
	}

	CreatureAnimation(itemNumber, angle, 0);
}

void TriggerSethaSparks1(int x, int y, int z, short xv, short yv, short zv)
{
	int dx = LaraItem->pos.xPos - x;
	int dz = LaraItem->pos.zPos - z;
	
	if (dx >= -16384 && dx <= 16384 && dz >= -16384 && dz <= 16384)
	{
		SPARKS* spark = &Sparks[GetFreeSpark()];
		spark->on = 1;
		spark->sR = 0;
		spark->sG = 0;
		spark->sB = 0;
		spark->dR = 64;
		spark->dG = (GetRandomControl() & 0x7F) + 64;
		spark->dB = spark->dG + 32;
		spark->life = 16;
		spark->sLife = 16;
		spark->colFadeSpeed = 4;
		spark->transType = TransTypeEnum::COLADD;
		spark->fadeToBlack = 4;
		spark->x = x;
		spark->y = y;
		spark->z = z;
		spark->xVel = xv;
		spark->yVel = yv;
		spark->zVel = zv;
		spark->friction = 34;
		spark->scalar = 1;
		spark->sSize = spark->size = (GetRandomControl() & 3) + 4;
		spark->maxYvel = 0;
		spark->gravity = 0;
		spark->dSize = (GetRandomControl() & 1) + 1;
		spark->flags = 0;
	}
}

void TriggerSethaSparks2(short itemNumber, char node, int size)
{
	int dx = LaraItem->pos.xPos - g_Level.Items[itemNumber].pos.xPos;
	int dz = LaraItem->pos.zPos - g_Level.Items[itemNumber].pos.zPos;

	if (dx >= -16384 && dx <= 16384 && dz >= -16384 && dz <= 16384)
	{
		SPARKS* spark = &Sparks[GetFreeSpark()];

		spark->on = 1;
		spark->sR = 0;
		spark->sG = 0;
		spark->sB = 0;
		spark->dR = 0;
		spark->dG = (GetRandomControl() & 0x7F) + 32;
		spark->dB = spark->dG + 64;
		spark->fadeToBlack = 8;
		spark->colFadeSpeed = (GetRandomControl() & 3) + 4;
		spark->transType = TransTypeEnum::COLADD;
		spark->life = spark->sLife = (GetRandomControl() & 7) + 20;
		spark->x = (GetRandomControl() & 0xF) - 8;
		spark->y = 0;
		spark->z = (GetRandomControl() & 0xF) - 8;
		spark->xVel = GetRandomControl() - 128;
		spark->yVel = 0;
		spark->zVel = GetRandomControl() - 128;
		spark->friction = 5;
		spark->flags = SP_NODEATTACH | SP_EXPDEF | SP_ITEM | SP_ROTATE | SP_SCALE | SP_DEF; 
		spark->rotAng = GetRandomControl() & 0xFFF;
		if (GetRandomControl() & 1)
		{
			spark->rotAdd = -32 - (GetRandomControl() & 0x1F);
		}
		else
		{
			spark->rotAdd = (GetRandomControl() & 0x1F) + 32;
		}
		spark->maxYvel = 0;
		spark->gravity = (GetRandomControl() & 0x1F) + 16;
		spark->fxObj = itemNumber;
		spark->nodeNumber = node;
		spark->scalar = 2;
		spark->sSize = spark->size = GetRandomControl() & 0xF + size;
		spark->dSize = spark->size / 16;
	}
}

void SethaThrowAttack(PHD_3DPOS* pos, short roomNumber, short mesh)
{
	short fxNumber = CreateNewEffect(roomNumber);
	if (fxNumber != -1)
	{
		FX_INFO* fx = &EffectList[fxNumber];

		fx->pos.xPos = pos->xPos;
		fx->pos.yPos = pos->yPos - (GetRandomControl() & 0x3F) - 32;
		fx->pos.zPos = pos->zPos;
		fx->pos.xRot = pos->xRot;
		fx->pos.yRot = pos->yRot;
		fx->pos.zRot = 0;
		fx->roomNumber = roomNumber;
		fx->counter = 2 * GetRandomControl() + -ANGLE(180);
		fx->flag1 = mesh;
		fx->objectNumber = ID_BODY_PART;
		fx->speed = (GetRandomControl() & 0x1F) - (mesh != 1 ? 0 : 64) + 96;
		fx->frameNumber = Objects[ID_BODY_PART].meshIndex + mesh;
	}
}

void SethaAttack(int itemNumber)
{
	ITEM_INFO* item = &g_Level.Items[itemNumber];

	item->itemFlags[0]++;

	PHD_VECTOR pos1;
	pos1.x = SethaAttack1.x;
	pos1.y = SethaAttack1.y;
	pos1.z = SethaAttack1.z;
	GetJointAbsPosition(item, &pos1, SethaAttack1.meshNum);

	PHD_VECTOR pos2;
	pos2.x = SethaAttack2.x;
	pos2.y = SethaAttack2.y;
	pos2.z = SethaAttack2.z;
	GetJointAbsPosition(item, &pos2, SethaAttack2.meshNum);

	int i, size;
	PHD_VECTOR pos;
	short angles[2];
	PHD_3DPOS attackPos;

	switch (item->currentAnimState)
	{
	case 11:
	case 15:
		if (item->itemFlags[0] < 78 && (GetRandomControl() & 0x1F) < item->itemFlags[0])
		{
			for (i = 0; i < 2; i++)
			{
				pos.x = (GetRandomControl() & 0x7FF) + pos1.x - 1024;
				pos.y = (GetRandomControl() & 0x7FF) + pos1.y - 1024;
				pos.z = (GetRandomControl() & 0x7FF) + pos1.z - 1024;

				TriggerSethaSparks1(
					pos.x,
					pos.y,
					pos.z,
					8 * (pos1.x - pos.x),
					8 * (pos1.y - pos.y),
					8 * (1024 - (GetRandomControl() & 0x7FF)));

				pos.x = (GetRandomControl() & 0x7FF) + pos2.x - 1024;
				pos.y = (GetRandomControl() & 0x7FF) + pos2.y - 1024;
				pos.z = (GetRandomControl() & 0x7FF) + pos2.z - 1024;

				TriggerSethaSparks1(
					pos.x,
					pos.y,
					pos.z,
					8 * (pos2.x - pos.x),
					8 * (pos2.y - pos.y),
					8 * (1024 - (GetRandomControl() & 0x7FF)));
			}
		}
		
		size = 2 * item->itemFlags[0];
		if (size > 128)
			size = 128;

		if ((Wibble & 0xF) == 8)
		{
			if (item->itemFlags[0] < 127)
			{
				TriggerSethaSparks2(itemNumber, 2, size);
			}
		}
		else if (!(Wibble & 0xF) 
			&& item->itemFlags[0] < 103)
		{
			TriggerSethaSparks2(itemNumber, 3, size);
		}

		if (item->itemFlags[0] >= 96 && item->itemFlags[0] <= 99)
		{
			pos.x = SethaAttack1.x;
			pos.y = 2 * SethaAttack1.y;
			pos.z = SethaAttack1.z;
			GetJointAbsPosition(item, &pos, SethaAttack1.meshNum);

			phd_GetVectorAngles(pos.x - pos1.x, pos.y - pos1.y, pos.z - pos1.z, angles);

			attackPos.xPos = pos1.x;
			attackPos.yPos = pos1.y;
			attackPos.zPos = pos1.z;
			attackPos.xRot = angles[1];
			attackPos.yRot = angles[0];

			SethaThrowAttack(&attackPos, item->roomNumber, 0);
		}
		else if (item->itemFlags[0] >= 122 && item->itemFlags[0] <= 125)
		{
			pos.x = SethaAttack2.x;
			pos.y = 2 * SethaAttack2.y;
			pos.z = SethaAttack2.z;
			GetJointAbsPosition(item, &pos, SethaAttack2.meshNum);

			phd_GetVectorAngles(pos.x - pos2.x, pos.y - pos2.y, pos.z - pos2.z, angles);

			attackPos.xPos = pos2.x;
			attackPos.yPos = pos2.y;
			attackPos.zPos = pos2.z;
			attackPos.xRot = angles[1];
			attackPos.yRot = angles[0];

			SethaThrowAttack(&attackPos, item->roomNumber, 0);
		}
		
		break;

	case 12:
		size = 4 * item->itemFlags[0];
		if (size > 160)
			size = 160;

		if ((Wibble & 0xF) == 8)
		{
			if (item->itemFlags[0] < 132)
			{
				TriggerSethaSparks2(itemNumber, 2, size);
			}
		}
		else if (!(Wibble & 0xF) && item->itemFlags[0] < 132)
		{
			TriggerSethaSparks2(itemNumber, 3, size);
		}
		
		if (item->itemFlags[0] >= 60 && item->itemFlags[0] <= 74
			|| item->itemFlags[0] >= 112 && item->itemFlags[0] <= 124)
		{
			if (Wibble & 4)
			{
				pos.x = SethaAttack1.x;
				pos.y = 2 * SethaAttack1.y;
				pos.z = SethaAttack1.z;
				GetJointAbsPosition(item, &pos, SethaAttack1.meshNum);

				phd_GetVectorAngles(pos.x - pos1.x, pos.y - pos1.y, pos.z - pos1.z, angles);

				attackPos.xPos = pos1.x;
				attackPos.yPos = pos1.y;
				attackPos.zPos = pos1.z;
				attackPos.xRot = angles[1];
				attackPos.yRot = angles[0];

				SethaThrowAttack(&attackPos, item->roomNumber, 0);

				pos.x = SethaAttack2.x;
				pos.y = 2 * SethaAttack2.y;
				pos.z = SethaAttack2.z;
				GetJointAbsPosition(item, &pos, SethaAttack2.meshNum);

				phd_GetVectorAngles(pos.x - pos2.x, pos.y - pos2.y, pos.z - pos2.z, angles);

				attackPos.xPos = pos2.x;
				attackPos.yPos = pos2.y;
				attackPos.zPos = pos2.z;
				attackPos.xRot = angles[1];
				attackPos.yRot = angles[0];

				SethaThrowAttack(&attackPos, item->roomNumber, 0);
			}
		}

		break;

	case 13:
		if (item->itemFlags[0] > 40
			&& item->itemFlags[0] < 100
			&& (GetRandomControl() & 7) < item->itemFlags[0] - 40)
		{
			for (i = 0; i < 2; i++)
			{
				pos.x = (GetRandomControl() & 0x7FF) + pos1.x - 1024;
				pos.y = (GetRandomControl() & 0x7FF) + pos1.y - 1024;
				pos.z = (GetRandomControl() & 0x7FF) + pos1.z - 1024;

				TriggerSethaSparks1(
					pos.x,
					pos.y,
					pos.z,
					8 * (pos1.x - pos.x),
					8 * (pos1.y - pos.y),
					8 * (1024 - (GetRandomControl() & 0x7FF)));

				pos.x = (GetRandomControl() & 0x7FF) + pos2.x - 1024;
				pos.y = (GetRandomControl() & 0x7FF) + pos2.y - 1024;
				pos.z = (GetRandomControl() & 0x7FF) + pos2.z - 1024;

				TriggerSethaSparks1(
					pos.x,
					pos.y,
					pos.z,
					8 * (pos2.x - pos.x),
					8 * (pos2.y - pos.y),
					8 * (1024 - (GetRandomControl() & 0x7FF)));
			}
		}
		
		size = 2 * item->itemFlags[0];
		if (size> 128)
			size = 128;

		if ((Wibble & 0xF) == 8)
		{
			if (item->itemFlags[0] < 103)
			{
				TriggerSethaSparks2(itemNumber, 2, size);
			}
		}
		else if (!(Wibble & 0xF) && item->itemFlags[0] < 103)
		{
			TriggerSethaSparks2(itemNumber, 3, size);
		}
		if (item->itemFlags[0] == 102)
		{
			pos.x = SethaAttack1.x;
			pos.y = 2 * SethaAttack1.y;
			pos.z = SethaAttack1.z;
			GetJointAbsPosition(item, &pos, SethaAttack1.meshNum);

			phd_GetVectorAngles(pos.x - pos1.x, pos.y - pos1.y, pos.z - pos1.z, angles);

			attackPos.xPos = pos1.x;
			attackPos.yPos = pos1.y;
			attackPos.zPos = pos1.z;
			attackPos.xRot = angles[1];
			attackPos.yRot = angles[0];

			SethaThrowAttack(&attackPos, item->roomNumber, 0);
		}

		break;

	default:
		break;

	}
}