#include "framework.h"
#include "effect.h"
#include "effect2.h"
#include "Lara.h"
#include "lot.h"
#include "tomb4fx.h"
#include "hair.h"
#include "draw.h"
#include "sphere.h"
#include "footprint.h"
#include "level.h"
#include "debris.h"
#include "setup.h"
#include "camera.h"
#include "savegame.h"
#include "sound.h"
#include "tr5_rats_emitter.h"
#include "tr5_bats_emitter.h"
#include "tr5_spider_emitter.h"
#include "pickup.h"
using std::function;
constexpr auto ITEM_RADIUS_YMAX = SECTOR(3);
int wf = 256;
using namespace T5M::Effects::Footprints;

short FXType;
FX_INFO* EffectList;

function<EffectFunction> effect_routines[59] =
{
	turn180_effect,
	floor_shake_effect,
	PoseidonSFX,
	LaraBubbles,
	finish_level_effect,
	ActivateCamera,
	ActivateKey,
	RubbleFX,
	SwapCrowbar,
	pickup,
	SoundFlipEffect,
	ExplosionFX,
	lara_hands_free,
	puzzle,
	void_effect,
	void_effect,
	shoot_right_gun,
	shoot_left_gun,
	void_effect,
	void_effect,
	void_effect,
	invisibility_on,
	invisibility_off,
	void_effect,
	void_effect,
	void_effect,
	reset_hair,
	void_effect,
	SetFog,
	void_effect,
	LaraLocation,
	ClearSpidersPatch,
	AddFootprint,
	void_effect, // resettest
	void_effect,
	void_effect,
	void_effect,
	void_effect,
	void_effect,
	void_effect,
	void_effect,
	void_effect,
	void_effect,
	void_effect,
	void_effect,
	LaraLocationPad,
	KillActiveBaddies,
	TL_1,
	TL_2,
	TL_3,
	TL_4,
	TL_5,
	TL_6,
	TL_7,
	TL_8,
	TL_9,
	TL_10,
	TL_11,
	TL_12,
};

void TL_1(ITEM_INFO* item)
{
	if (!Savegame.TLCount)
	{
		IsAtmospherePlaying = 0;
		S_CDPlay(9, 0);
		Savegame.TLCount = 1;
	}
}

void pickup(ITEM_INFO* item)
{
	do_pickup();
}

void puzzle(ITEM_INFO* item)
{
	do_puzzle();
}

// TODO: here are sound for lara footstep too !
void AddFootprint(ITEM_INFO* item)
{
	if (item != LaraItem)
		return;

	FOOTPRINT_STRUCT footprint;
	PHD_3DPOS footprintPosition;

	if (CheckFootOnFloor(*item, LM_LFOOT, footprintPosition))
	{
		if (footprints.size() >= MAX_FOOTPRINTS)
			footprints.pop_back();
		
		memset(&footprint, 0, sizeof(FOOTPRINT_STRUCT));
		footprint.pos = footprintPosition;
		footprint.lifeStartFading = 30 * 10;
		footprint.startOpacity = 64;
		footprint.life = 30 * 20;
		footprint.active = true;
		footprints.push_front(footprint);
	}

	if (CheckFootOnFloor(*item, LM_RFOOT, footprintPosition))
	{
		if (footprints.size() >= MAX_FOOTPRINTS)
			footprints.pop_back();

		memset(&footprint, 0, sizeof(FOOTPRINT_STRUCT));
		footprint.pos = footprintPosition;
		footprint.lifeStartFading = 30*10;
		footprint.startOpacity = 64;
		footprint.life = 30 * 20;
		footprint.active = true;
		footprints.push_front(footprint);
	}
}

void TL_2(ITEM_INFO* item)
{
	if (Savegame.TLCount <= 1u)
	{
		IsAtmospherePlaying = 0;
		S_CDPlay(7, 0);
		Savegame.TLCount = 2;
	}
}

void TL_3(ITEM_INFO* item)
{
	if (Savegame.TLCount <= 2u)
	{
		IsAtmospherePlaying = 0;
		S_CDPlay(23, 0);
		Savegame.TLCount = 3;
	}
}

void TL_4(ITEM_INFO* item)
{
	if (Savegame.TLCount <= 3u)
	{
		IsAtmospherePlaying = 0;
		S_CDPlay(39, 0);
		Savegame.TLCount = 4;
	}
}

void TL_5(ITEM_INFO* item)
{
	if (Savegame.TLCount <= 4u)
	{
		IsAtmospherePlaying = 0;
		S_CDPlay(2, 0);
		Savegame.TLCount = 5;
	}
}

void TL_6(ITEM_INFO* item)
{
	if (Savegame.TLCount <= 5u)
	{
		IsAtmospherePlaying = 0;
		S_CDPlay(22, 0);
		Savegame.TLCount = 6;
	}
}

void TL_7(ITEM_INFO* item)
{
	if (Savegame.TLCount <= 6u)
	{
		IsAtmospherePlaying = 0;
		S_CDPlay(51, 0);
		Savegame.TLCount = 7;
	}
}

void TL_8(ITEM_INFO* item)
{
	if (Savegame.TLCount <= 7u)
	{
		IsAtmospherePlaying = 0;
		S_CDPlay(3, 0);
		Savegame.TLCount = 8;
	}
}

void TL_9(ITEM_INFO* item)
{
	if (Savegame.TLCount <= 8u)
	{
		IsAtmospherePlaying = 0;
		S_CDPlay(4, 0);
		Savegame.TLCount = 9;
	}
}

void TL_10(ITEM_INFO* item)
{
	if (Savegame.TLCount == 9)
	{
		IsAtmospherePlaying = 0;
		S_CDPlay(13, 0);
		Savegame.TLCount = 10;
	}
}

void TL_11(ITEM_INFO* item)
{
	if (Savegame.TLCount == 10)
	{
		IsAtmospherePlaying = 0;
		S_CDPlay(0, 0);
		Savegame.TLCount = 11;
	}
}

void TL_12(ITEM_INFO* item)
{
	if (Savegame.TLCount == 11)
	{
		IsAtmospherePlaying = 0;
		S_CDPlay(35, 0);
		Savegame.TLCount = 12;
	}
}

void reset_hair(ITEM_INFO* item)
{
	InitialiseHair();
}

void invisibility_off(ITEM_INFO* item)
{
	item->status = ITEM_ACTIVE;
}

void invisibility_on(ITEM_INFO* item)
{
	item->status = ITEM_INVISIBLE;
}

/*void SetFog()
{
	FlipEffect = -1;

	
	unsigned __int16 v0; // si
	int v1; // eax
	int v2; // eax
	char v3; // bl
	char v4; // ST14_1
	char v5; // ST18_1

	dword_51CE04 = 0;
	v0 = TriggerTimer;
	v1 = CheckVolumetric();
	if (!v1)
		goto LABEL_5;
	if (v0 == 100)
	{
		dword_51CE04 = 1;
	LABEL_5:
		FlipEffect = -1;
		return v1;
	}
	v2 = FogTable[v0];
	v3 = FogTable[v0] >> 16;
	v4 = BYTE1(v2);
	v5 = FogTable[v0];
	SomeDxFunctionToRemove1(BYTE2(v2), BYTE1(v2), v2);
	LOBYTE(v1) = v4;
	byte_51CE32 = v3;
	byte_51CE31 = v4;
	byte_51CE30 = v5;
	FlipEffect = -1;
	return v1;
}*/

void SetFog(ITEM_INFO* item)//39A44(<), 39F44(<) (F)
{
	FlipEffect = -1;
}

void shoot_left_gun(ITEM_INFO* item)//39A34(<), 39F34(<) (F)
{
	Lara.leftArm.flash_gun = 3;
}

void shoot_right_gun(ITEM_INFO* item)//39A24(<), 39F24(<) (F)
{
	Lara.rightArm.flash_gun = 3;
}

void lara_hands_free(ITEM_INFO* item)//39A18(<), 39F18(<) (F)
{
	Lara.gunStatus = LG_NO_ARMS;
}

void KillActiveBaddies(ITEM_INFO* item)//39938(<), 39E38(<) (F)
{
	if (NextItemActive != NO_ITEM)
	{
		short itemNum = NextItemActive;
		ITEM_INFO* targetItem;

		do
		{
			targetItem = &g_Level.Items[itemNum];

			if (Objects[targetItem->objectNumber].intelligent)
			{
				targetItem->status = ITEM_INVISIBLE;

				if (*(int*)&item != 0xABCDEF)
				{
					RemoveActiveItem(itemNum);
					DisableBaddieAI(itemNum);
					targetItem->flags |= IFLAG_INVISIBLE;
				}
			}

			itemNum = targetItem->nextActive;
		} while (itemNum != NO_ITEM);
	}

	FlipEffect = -1;
}

void LaraLocationPad(ITEM_INFO* item)//39710(<), 39C10(<) (F)
{
	FlipEffect = -1;

	Lara.location = TriggerTimer;
	Lara.locationPad = TriggerTimer;
}

void LaraLocation(ITEM_INFO* item)//396D0(<), 39BD0(<) (F)
{
	FlipEffect = -1;

	Lara.location = TriggerTimer;
	if (Lara.highestLocation < TriggerTimer)
		Lara.highestLocation = TriggerTimer;
}

void ExplosionFX(ITEM_INFO* item)//39694(<), 39B94(<) (F)
{
	SoundEffect(SFX_EXPLOSION1, NULL, 0);
	Camera.bounce = -75;
	FlipEffect = -1;
}

void SwapCrowbar(ITEM_INFO* item)//39638(<), 39B38(<) (F)
{
	if (Lara.meshPtrs[LM_RHAND] == Objects[ID_LARA].meshIndex + LM_RHAND)
		Lara.meshPtrs[LM_RHAND] = Objects[ID_LARA_CROWBAR_ANIM].meshIndex + LM_RHAND;
	else 
		Lara.meshPtrs[LM_RHAND] = Objects[ID_LARA].meshIndex + LM_RHAND;
}

void ActivateKey(ITEM_INFO* item)//39624(<), 39B24(<) (F)
{
	KeyTriggerActive = 1;
}

void ActivateCamera(ITEM_INFO* item)//39610(<), 39B10(<) (F)
{
	KeyTriggerActive = 2;
}

void PoseidonSFX(ITEM_INFO* item)//395E0(<), 39AE0(<) (F)
{
	SoundEffect(SFX_GRAB_OPEN, NULL, 0);
	FlipEffect = -1;
}

void RubbleFX(ITEM_INFO* item)//39534(<), 39A34(<) (F)
{
	int itemNumber = FindItemNumber(ID_EARTHQUAKE);

	if (itemNumber != NO_ITEM)
	{
		ITEM_INFO* eq = &g_Level.Items[itemNumber];

		AddActiveItem(itemNumber);
		eq->status = ITEM_ACTIVE;
		eq->flags |= IFLAG_ACTIVATION_MASK;
	}
	else
	{
		Camera.bounce = -150;
	}

	FlipEffect = -1;
}

void SoundFlipEffect(ITEM_INFO* item)//39500(<), 39A00(<) (F)
{
	SoundEffect(TriggerTimer, NULL, 0);
	FlipEffect = -1;
}

void floor_shake_effect(ITEM_INFO* item)//39410, 39910 (F)
{
	int x = abs(item->pos.xPos - Camera.pos.x);
	int y = abs(item->pos.yPos - Camera.pos.y);
	int z = abs(item->pos.zPos - Camera.pos.z);

	if (x < SECTOR(16) && y < SECTOR(16) && z < SECTOR(16))
	{
		Camera.bounce = 66 * ((x * x + y * y + z * z) / 256 - 0x100000) / 0x100000;
	}
}

void turn180_effect(ITEM_INFO* item)//393F4(<), 398F4(<) (F)
{
	item->pos.yRot -= ANGLE(180);
	item->pos.xRot = -item->pos.xRot;
}

void finish_level_effect(ITEM_INFO* item)//393D4(<), 398D4(<) (F)
{
	LevelComplete = CurrentLevel + 1;
}

void void_effect(ITEM_INFO* item)//393CC(<), 398CC(<) (F)
{

}

void ControlWaterfallMist(short itemNumber) // ControlWaterfallMist
{
	ITEM_INFO* item = &g_Level.Items[itemNumber];
	int x, z;

	if (item->pos.yRot == -ANGLE(180))
	{
		x = item->pos.xPos - (phd_sin(item->pos.yRot + ANGLE(180)) >> 3) + ((rcossin_tbl[2048] * wf) >> W2V_SHIFT);
		z = item->pos.zPos - (phd_cos(item->pos.yRot + ANGLE(180)) >> 3) + ((rcossin_tbl[2049] * wf) >> W2V_SHIFT);
	}
	else
	{
		//3934C
		x = item->pos.xPos - (phd_sin(item->pos.yRot + ANGLE(180)) >> 3) + ((phd_sin(item->pos.yRot + ANGLE(90)) * wf) >> W2V_SHIFT);
		z = item->pos.zPos - (phd_cos(item->pos.yRot + ANGLE(180)) >> 3) + ((phd_cos(item->pos.yRot + ANGLE(90)) * wf) >> W2V_SHIFT);
	}

	//393A0
	TriggerWaterfallMist(x, item->pos.yPos, z, item->pos.yRot + ANGLE(180));
	SoundEffect(SFX_WATERFALL_LOOP, &item->pos, 0);
}

short DoBloodSplat(int x, int y, int z, short a4, short a5, short roomNumber)
{
	short roomNum = roomNumber;
	GetFloor(x, y, z, &roomNum);
	if (g_Level.Rooms[roomNum].flags & ENV_FLAG_WATER)
		TriggerUnderwaterBlood(x, y, z, a4);
	else
		TriggerBlood(x, y, z, a5 >> 4, a4);
	return 0;
}

static bool ItemCollide(int value, int radius)
{
	return value >= -radius && value <= radius;
}

static bool ItemInRange(int x, int z, int radius)
{
	return (SQUARE(x) + SQUARE(z)) <= SQUARE(radius);
}

bool ItemNearLara(PHD_3DPOS* pos, int radius)
{
	ANIM_FRAME* bounds;
	GAME_VECTOR target;
	target.x = pos->xPos - LaraItem->pos.xPos;
	target.y = pos->yPos - LaraItem->pos.yPos;
	target.z = pos->zPos - LaraItem->pos.zPos;
	if (!ItemCollide(target.y, ITEM_RADIUS_YMAX))
		return false;
	if (!ItemCollide(target.x, radius) || !ItemCollide(target.z, radius))
		return false;
	if (!ItemInRange(target.x, target.z, radius))
		return false;

	bounds = (ANIM_FRAME*)GetBoundsAccurate(LaraItem);
	if (target.y >= bounds->MinY && target.y <= (bounds->MaxY + LARA_RAD))
		return true;

	return false;
}

bool ItemNearTarget(PHD_3DPOS* src, ITEM_INFO* target, int radius)
{
	ANIM_FRAME* bounds;
	PHD_VECTOR pos;
	pos.x = src->xPos - target->pos.xPos;
	pos.y = src->yPos - target->pos.yPos;
	pos.z = src->zPos - target->pos.zPos;
	if (!ItemCollide(pos.y, ITEM_RADIUS_YMAX))
		return false;
	if (!ItemCollide(pos.x, radius) || !ItemCollide(pos.z, radius))
		return false;
	if (!ItemInRange(pos.x, pos.z, radius))
		return false;

	bounds = (ANIM_FRAME*)GetBoundsAccurate(target);
	if (pos.y >= bounds->MinY && pos.y <= bounds->MaxY)
		return true;

	return false;
}

void Richochet(PHD_3DPOS* pos)
{
	short angle = mGetAngle(pos->zPos, pos->xPos, LaraItem->pos.zPos, LaraItem->pos.xPos);
	GAME_VECTOR target;
	target.x = pos->xPos;
	target.y = pos->yPos;
	target.z = pos->zPos;
	TriggerRicochetSpark(&target, angle / 16, 3, 0);
	SoundEffect(SFX_LARA_RICOCHET, pos, 0);
}

void DoLotsOfBlood(int x, int y, int z, int speed, short direction, short roomNumber, int count)
{
    for (int i = 0; i < count; i++)
    {
        DoBloodSplat(x + 256 - (GetRandomControl() * 512 / 0x8000),
                     y + 256 - (GetRandomControl() * 512 / 0x8000),
                     z + 256 - (GetRandomControl() * 512 / 0x8000),
                     speed, direction, roomNumber);
    }
}