#include <sdktools>

#pragma newdecls required
#pragma semicolon 1

#define	PARTICLE_BLOOD		"blood_bleedout"

static const char szVocalizes[][] =
{
	"sound/player/survivor/voice/Gambler/deathscream03.vcd",		 //Nick
	"sound/player/survivor/voice/Gambler/deathscream04.vcd",
	"sound/player/survivor/voice/Gambler/deathscream05.vcd",
	"sound/player/survivor/voice/Gambler/deathscream06.vcd",
	"sound/player/survivor/voice/mechanic/hurtmajor02.vcd", 	//Ellis
	"sound/player/survivor/voice/mechanic/hurtmajor06.vcd",
	"sound/player/survivor/voice/mechanic/defibrillator19.vcd",
	"sound/player/survivor/voice/Producer/deathscream01.vcd", 	//Rochelle
	"sound/player/survivor/voice/Producer/deathscream02.vcd",
	"sound/player/survivor/voice/Coach/deathscream08.vcd", 		//Coach
	"sound/player/survivor/voice/Coach/deathscream09.vcd",
	"sound/player/survivor/voice/Coach/hurtcritical01.vcd",
	"sound/player/survivor/voice/Coach/hurtcritical03.vcd",
	"sound/player/survivor/voice/Coach/hurtcritical06.vcd",
	"left4dead2_dlc2/sound/player/survivor/voice/teengirl/deathscream01.vcd",		 //teengirl //L4D1
	"left4dead2_dlc2/sound/player/survivor/voice/teengirl/deathscream02.vcd",
	"left4dead2_dlc2/sound/player/survivor/voice/teengirl/deathscream03.vcd",
	"left4dead2_dlc2/sound/player/survivor/voice/teengirl/deathscream04.vcd",
	"left4dead2_dlc2/sound/player/survivor/voice/teengirl/deathscream07.vcd",
	"left4dead2_dlc2/sound/player/survivor/voice/teengirl/deathscream09.vcd",
	"left4dead2_dlc2/sound/player/survivor/voice/teengirl/exertionmajor01.vcd",
	"left4dead2_dlc2/sound/player/survivor/voice/teengirl/exertionminor02.vcd",
	"left4dead2_dlc2/sound/player/survivor/voice/namvet/deathscream08.vcd", 	//Bill
	"left4dead2_dlc2/sound/player/survivor/voice/namvet/deathscream07.vcd",
	"left4dead2_dlc2/sound/player/survivor/voice/namvet/deathscream02.vcd",
	"left4dead2_dlc2/sound/player/survivor/voice/namvet/exertioncritical01.vcd",
	"left4dead2_dlc2/sound/player/survivor/voice/namvet/exertioncritical02.vcd",
	"left4dead2_dlc2/sound/player/survivor/voice/namvet/exertionmajor01.vcd",
	"left4dead2_dlc2/sound/player/survivor/voice/namvet/exertionmajor02.vcd",
	"left4dead2_dlc2/sound/player/survivor/voice/manager/deathscream01.vcd", 	//Louis
	"left4dead2_dlc2/sound/player/survivor/voice/manager/deathscream06.vcd",
	"left4dead2_dlc2/sound/player/survivor/voice/manager/deathscream08.vcd",
	"left4dead2_dlc2/sound/player/survivor/voice/manager/deathscream09.vcd",
	"left4dead2_dlc2/sound/player/survivor/voice/manager/deathscream10.vcd",
	"left4dead2_dlc2/sound/player/survivor/voice/manager/exertioncritical02.vcd",
	"left4dead2_dlc2/sound/player/survivor/voice/manager/exertionmajor01.vcd",
	"left4dead2_dlc2/sound/player/survivor/voice/manager/exertionminor03.vcd",
	"left4dead2_dlc2/sound/player/survivor/voice/biker/deathscream01.vcd",		//Francis
	"left4dead2_dlc2/sound/player/survivor/voice/biker/deathscream03.vcd",
	"left4dead2_dlc2/sound/player/survivor/voice/biker/deathscream05.vcd",
	"left4dead2_dlc2/sound/player/survivor/voice/biker/choke04.vcd",
	"left4dead2_dlc2/sound/player/survivor/voice/biker/cough04.vcd",
	"left4dead2_dlc2/sound/player/survivor/voice/biker/dying02.vcd",
	"left4dead2_dlc2/sound/player/survivor/voice/biker/dying01.vcd",
	"left4dead2_dlc2/sound/player/survivor/voice/biker/exertioncritical01.vcd",
	"left4dead2_dlc2/sound/player/survivor/voice/biker/exertionmajor01.vcd",
	"left4dead2_dlc2/sound/player/survivor/voice/biker/exertioncritical02.vcd",
	"left4dead2_dlc2/sound/player/survivor/voice/biker/exertionminor05.vcd"
};

bool	 	g_bDie[MAXPLAYERS + 1];
float 	g_iHelth[MAXPLAYERS + 1];
Handle 	hTimer[MAXPLAYERS + 1], DoAnimationEvent, Blood;

public void OnPluginStart()
{
	HookEvent("revive_begin", eBegin);
	HookEvent("revive_success", eSuccess);

	HookEvent("heal_success", eHeal);

	Handle hGameConf = LoadGameConfigFile("l4d2_sequence");

	StartPrepSDKCall(SDKCall_Static);
	PrepSDKCall_SetFromConf(hGameConf, SDKConf_Signature, "CBloodStream");
	PrepSDKCall_AddParameter(SDKType_Vector, SDKPass_ByRef);
	PrepSDKCall_AddParameter(SDKType_Vector, SDKPass_ByRef);
	PrepSDKCall_AddParameter(SDKType_PlainOldData, SDKPass_Pointer);
	PrepSDKCall_AddParameter(SDKType_PlainOldData, SDKPass_Pointer);
	Blood = EndPrepSDKCall();

	StartPrepSDKCall(SDKCall_Player);
	PrepSDKCall_SetFromConf(hGameConf, SDKConf_Virtual, "CTerrorPlayer::DoAnimationEvent");
	PrepSDKCall_AddParameter(SDKType_PlainOldData, SDKPass_Plain);
	PrepSDKCall_AddParameter(SDKType_PlainOldData, SDKPass_Plain);
	DoAnimationEvent = EndPrepSDKCall();

	delete hGameConf;
}

public void OnMapStart()
{
	int table = INVALID_STRING_TABLE;

	if( table == INVALID_STRING_TABLE )
	{
		table = FindStringTable("ParticleEffectNames");
	}

	if( FindStringIndex(table, PARTICLE_BLOOD) == INVALID_STRING_INDEX )
	{
		bool save = LockStringTables(false);
		AddToStringTable(table, PARTICLE_BLOOD);
		LockStringTables(save);
	}
}

public void eBegin (Event event, const char[] name, bool dontbroadcast)
{
	int client = GetClientOfUserId(event.GetInt("subject"));

	if(!client || !IsClientInGame(client))
		return;

	g_iHelth[client] = GetEntPropFloat(client, Prop_Send, "m_healthBuffer") + GetClientHealth(client);
}

public void eSuccess (Event event, const char[] name, bool dontbroadcast)
{
	int client = GetClientOfUserId(event.GetInt("subject"));

	if(!client || !IsClientInGame(client))
		return;

	g_bDie[client] = true;
	hTimer[client] = CreateTimer(g_iHelth[client] / 4.6, tToDie, GetClientUserId(client));
	CreateTimer(GetRandomFloat(0.0, 12.0), tBleed, GetClientUserId(client), TIMER_REPEAT);
}

public void eHeal (Event event, const char[] name, bool dontbroadcast)
{
	int client = GetClientOfUserId(event.GetInt("subject"));

	if(!client || !IsClientInGame(client) || !g_bDie[client])
		return;

	SetEntityHealth(client, 25);
	g_bDie[client] = false;

	if(hTimer[client] != null)
		delete hTimer[client];
}

public Action tBleed (Handle timer, any client)
{
	client = GetClientOfUserId(client);

	if(!client || !IsClientInGame(client))
		return Plugin_Continue;

	if(!g_bDie[client])
		return Plugin_Stop;

	float vPos[3], vAng[3];

	GetClientEyePosition(client, vPos);
	vAng[0] = 89.00;

	Handle hTrace = TR_TraceRayFilterEx(vPos, vAng, CONTENTS_SOLID, RayType_Infinite, TraceDontHitSelf, client);

	if( TR_DidHit(hTrace) )
		TR_GetEndPosition(vPos, hTrace);
	delete hTrace;

	int entity = CreateEntityByName("info_particle_system");

	if(!IsValidEntity(entity))
		return Plugin_Continue;

	DispatchKeyValue(entity, "effect_name", PARTICLE_BLOOD);
	TeleportEntity(entity, vPos, NULL_VECTOR, NULL_VECTOR);
	DispatchSpawn(entity);
	ActivateEntity(entity);

	AcceptEntityInput(entity, "start");

	Vocalize(client);

	GetClientEyePosition(client, vPos);
	vPos[2] -= 4.0;
	for(int i = 1; i < GetRandomInt(1, 12); i++)
		SDKCall(Blood, vPos, vPos, 40, 40);

	return Plugin_Continue;
}

public bool TraceDontHitSelf(int entity, int mask, any data)
{
    if(entity == data)
        return false;
    return true;
}

public Action tToDie (Handle timer, any client)
{
	client = GetClientOfUserId(client);

	if(!client || !IsClientInGame(client))
		return;

	SDKCall(DoAnimationEvent, client, 10, 0);
	CreateTimer(3.15, tDeath, GetClientUserId(client));
}

public Action tDeath (Handle timer, any client)
{
	client = GetClientOfUserId(client);

	if(!client || !IsClientInGame(client))
		return;

	ForcePlayerSuicide(client);
	hTimer[client] = null;
	g_bDie[client] = false;
}

void Vocalize(int client)
{
	char sTemp[64];
	GetEntPropString(client, Prop_Data, "m_ModelName", sTemp, 64);

	int random;

	if( sTemp[26] == 'c' )							// c = Coach
		random = GetRandomInt(10, 13);
	else if( sTemp[26] == 'g' )						// g = Gambler
		random = GetRandomInt(0, 3);
	else if( sTemp[26] == 'm' && sTemp[27] == 'e' )	// me = Mechanic
		random = GetRandomInt(4, 6);
	else if( sTemp[26] == 'p' )						// p = Producer
		random = GetRandomInt(7, 8);
	else if( sTemp[26] == 'b' )						// b = biker
		random = GetRandomInt(37, 47);
	else if( sTemp[26] == 'n' )						// n = namvet
		random = GetRandomInt(22, 28);
	else if( sTemp[26] == 'm' && sTemp[27] == 'a' )	// m = manager
		random = GetRandomInt(29, 36);
	else if( sTemp[26] == 't' )						// t = teengirl
		random = GetRandomInt(14, 21);
	else
		return;

	int entity = CreateEntityByName("instanced_scripted_scene");
	DispatchKeyValue(entity, "SceneFile", szVocalizes[random]);
	DispatchSpawn(entity);
	SetEntPropEnt(entity, Prop_Data, "m_hOwner", client);
	ActivateEntity(entity);
	AcceptEntityInput(entity, "Start", client, client);
}