/**

 * vim: set ts=4 :

 * =============================================================================

 * SourceMod

 * Copyright (C) 2004-2008 AlliedModders LLC.  All rights reserved.

 * =============================================================================

 *

 * This program is free software; you can redistribute it and/or modify it under

 * the terms of the GNU General Public License, version 3.0, as published by the

 * Free Software Foundation.

 * 

 * This program is distributed in the hope that it will be useful, but WITHOUT

 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS

 * FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more

 * details.

 *

 * You should have received a copy of the GNU General Public License along with

 * this program.  If not, see <http://www.gnu.org/licenses/>.

 *

 * As a special exception, AlliedModders LLC gives you permission to link the

 * code of this program (as well as its derivative works) to "Half-Life 2," the

 * "Source Engine," the "SourcePawn JIT," and any Game MODs that run on software

 * by the Valve Corporation.  You must obey the GNU General Public License in

 * all respects for all other code used.  Additionally, AlliedModders LLC grants

 * this exception to all derivative works.  AlliedModders LLC defines further

 * exceptions, found in LICENSE.txt (as of this writing, version JULY-31-2007),

 * or <http://www.sourcemod.net/license.php>.

 *

 * Version: $Id$

 */

#include "sm_globals.h"

#include "GameConfigs.h"

#include "UserMessages.h"

#include "TimerSys.h"

#include "PlayerManager.h"

#include "HandleSys.h"

#define MAX_HUD_CHANNELS		6

int g_HudMsgNum = -1;

struct hud_syncobj_t

{

	int *player_channels;

};

struct player_chaninfo_t

{

	double chan_times[MAX_HUD_CHANNELS];

	hud_syncobj_t *chan_syncobjs[MAX_HUD_CHANNELS];

};

struct hud_text_parms

{

	float       x;

	float       y;

	int         effect;

	byte        r1, g1, b1, a1;

	byte        r2, g2, b2, a2;

	float       fadeinTime;

	float       fadeoutTime;

	float       holdTime;

	float       fxTime;

	int         channel;

};

class HudMsgHelpers : 

	public SMGlobalClass,

	public IHandleTypeDispatch,

	public IClientListener

{

public:

	bool IsSupported()

	{

		return (g_HudMsgNum != -1);

	}

	virtual void OnSourceModAllInitialized_Post()

	{

		const char *key;

		key = g_pGameConf->GetKeyValue("HudTextMsg");

		if (key != NULL)

		{

			g_HudMsgNum = g_UserMsgs.GetMessageIndex(key);

		}

		if (!IsSupported())

		{

			m_hHudSyncObj = 0;

			m_PlayerHuds = NULL;

			return;

		}

		m_PlayerHuds = new player_chaninfo_t[256+1];

		m_hHudSyncObj = g_HandleSys.CreateType("HudSyncObj", this, 0, NULL, NULL, g_pCoreIdent, NULL);

		g_Players.AddClientListener(this);

	}

	virtual void OnSourceModShutdown()

	{

		if (!IsSupported())

		{

			return;

		}

		delete [] m_PlayerHuds;

		g_HandleSys.RemoveType(m_hHudSyncObj, g_pCoreIdent);

		g_Players.RemoveClientListener(this);

	}

	virtual void OnHandleDestroy(HandleType_t type, void *object)

	{

		hud_syncobj_t *obj = (hud_syncobj_t *)object;

		delete [] obj->player_channels;

		delete obj;

	}

	virtual bool GetHandleApproxSize(HandleType_t type, void *object, unsigned int *pSize)

	{

		*pSize = sizeof(unsigned int) * g_Players.GetMaxClients();

		return true;

	}

	virtual void OnClientConnected(int client)

	{

		player_chaninfo_t *player;

		player = &m_PlayerHuds[client];

		memset(player->chan_syncobjs, 0, sizeof(player->chan_syncobjs));

		memset(player->chan_times, 0, sizeof(player->chan_times));

	}

	Handle_t CreateHudSyncObj(IdentityToken_t *pIdent)

	{

		Handle_t hndl;

		int max_clients;

		HandleError err;

		hud_syncobj_t *obj;

		HandleSecurity sec;

		if ((max_clients = g_Players.MaxClients()) == 0)

		{

			max_clients = 256+1;

		}

		obj = new hud_syncobj_t;

		obj->player_channels = new int[max_clients];

		memset(obj->player_channels, 0, sizeof(int) * max_clients);

		sec = HandleSecurity(pIdent, g_pCoreIdent);

		if ((hndl = g_HandleSys.CreateHandleEx(m_hHudSyncObj, obj, &sec, NULL, &err))

			== BAD_HANDLE)

		{

			delete [] obj->player_channels;

			delete obj;

		}

		return hndl;

	}

	HandleError ReadHudSyncObj(Handle_t hndl, 

		IdentityToken_t *pOwner, 

		hud_syncobj_t **pObj)

	{

		HandleSecurity sec(pOwner, g_pCoreIdent);

		return g_HandleSys.ReadHandle(hndl, m_hHudSyncObj, &sec, (void **)pObj);

	}

	unsigned int AutoSelectChannel(unsigned int client)

	{

		int last_channel;

		player_chaninfo_t *player;

		player = &m_PlayerHuds[client];

		last_channel = 0;

		for (unsigned int i = 1; i < MAX_HUD_CHANNELS; i++)

		{

			if (player->chan_times[i] < player->chan_times[last_channel])

			{

				last_channel = i;

			}

		}

		ManualSelectChannel(client, last_channel);

		return last_channel;

	}

	int TryReuseLastChannel(unsigned int client, hud_syncobj_t *obj)

	{

		int last_channel;

		player_chaninfo_t *player;

		player = &m_PlayerHuds[client];

		/* First, see if we can re-use the previous channel. */

		last_channel = obj->player_channels[client];

		if (player->chan_syncobjs[last_channel] == obj)

		{

			player->chan_times[last_channel] = *g_pUniversalTime;

			return last_channel;

		}

		return -1;

	}

	int AutoSelectChannel(unsigned int client, hud_syncobj_t *obj)

	{

		int last_channel;

		player_chaninfo_t *player;

		player = &m_PlayerHuds[client];

		/* First, see if we can re-use the previous channel. */

		last_channel = obj->player_channels[client];

		if (player->chan_syncobjs[last_channel] == obj)

		{

			player->chan_times[last_channel] = *g_pUniversalTime;

			return last_channel;

		}

		last_channel = 0;

		for (unsigned int i = 1; i < MAX_HUD_CHANNELS; i++)

		{

			if (player->chan_times[i] < player->chan_times[last_channel])

			{

				last_channel = i;

			}

		}

		obj->player_channels[client] = last_channel;

		player->chan_syncobjs[last_channel] = obj;

		player->chan_times[last_channel] = *g_pUniversalTime;

		return last_channel;

	}

	int ManualSelectChannel(unsigned int client, int channel)

	{

		player_chaninfo_t *player;

		player = &m_PlayerHuds[client];

		player->chan_times[channel] = *g_pUniversalTime;

		player->chan_syncobjs[channel] = NULL;

		return channel;

	}

private:

	HandleType_t m_hHudSyncObj;

	player_chaninfo_t *m_PlayerHuds;

} s_HudMsgHelpers;

hud_text_parms g_hud_params;

static cell_t CreateHudSynchronizer(IPluginContext *pContext, const cell_t *params)

{

	return s_HudMsgHelpers.CreateHudSyncObj(pContext->GetIdentity());

}

static cell_t SetHudTextParams(IPluginContext *pContext, const cell_t *params)

{

	g_hud_params.x = sp_ctof(params[1]);

	g_hud_params.y = sp_ctof(params[2]);

	g_hud_params.holdTime = sp_ctof(params[3]);

	g_hud_params.r1 = static_cast<byte>(params[4]);

	g_hud_params.g1 = static_cast<byte>(params[5]);

	g_hud_params.b1 = static_cast<byte>(params[6]);

	g_hud_params.a1 = static_cast<byte>(params[7]);

	g_hud_params.effect = params[8];

	g_hud_params.fxTime = sp_ctof(params[9]);

	g_hud_params.fadeinTime = sp_ctof(params[10]);

	g_hud_params.fadeoutTime = sp_ctof(params[11]);

	g_hud_params.r2 = 255;

	g_hud_params.g2 = 255;

	g_hud_params.b2 = 250;

	g_hud_params.a2 = 0;

	return 1;

}

static cell_t SetHudTextParamsEx(IPluginContext *pContext, const cell_t *params)

{

	cell_t *color1, *color2;

	pContext->LocalToPhysAddr(params[4], &color1);

	pContext->LocalToPhysAddr(params[5], &color2);

	g_hud_params.x = sp_ctof(params[1]);

	g_hud_params.y = sp_ctof(params[2]);

	g_hud_params.holdTime = sp_ctof(params[3]);

	g_hud_params.r1 = static_cast<byte>(color1[0]);

	g_hud_params.g1 = static_cast<byte>(color1[1]);

	g_hud_params.b1 = static_cast<byte>(color1[2]);

	g_hud_params.a1 = static_cast<byte>(color1[3]);

	g_hud_params.effect = params[6];

	g_hud_params.fxTime = sp_ctof(params[7]);

	g_hud_params.fadeinTime = sp_ctof(params[8]);

	g_hud_params.fadeoutTime = sp_ctof(params[9]);

	g_hud_params.r2 = static_cast<byte>(color2[0]);

	g_hud_params.g2 = static_cast<byte>(color2[1]);

	g_hud_params.b2 = static_cast<byte>(color2[2]);

	g_hud_params.a2 = static_cast<byte>(color2[3]);

	return 1;

}

void UTIL_SendHudText(int client, const hud_text_parms &textparms, const char *pMessage)

{

	bf_write *bf;

	cell_t players[1];

	players[0] = client;

	bf = g_UserMsgs.StartMessage(g_HudMsgNum, players, 1, 0);

	bf->WriteByte(textparms.channel & 0xFF );

	bf->WriteFloat(textparms.x);

	bf->WriteFloat(textparms.y);

	bf->WriteByte(textparms.r1);

	bf->WriteByte(textparms.g1);

	bf->WriteByte(textparms.b1);

	bf->WriteByte(textparms.a1);

	bf->WriteByte(textparms.r2);

	bf->WriteByte(textparms.g2);

	bf->WriteByte(textparms.b2);

	bf->WriteByte(textparms.a2);

	bf->WriteByte(textparms.effect);

	bf->WriteFloat(textparms.fadeinTime);

	bf->WriteFloat(textparms.fadeoutTime);

	bf->WriteFloat(textparms.holdTime);

	bf->WriteFloat(textparms.fxTime);

	bf->WriteString(pMessage);

	g_UserMsgs.EndMessage();

}

static cell_t ShowSyncHudText(IPluginContext *pContext, const cell_t *params)

{

	int client;

	Handle_t err;

	CPlayer *pPlayer;

	hud_syncobj_t *obj;

	char message_buffer[255-36];

	if (!s_HudMsgHelpers.IsSupported())

	{

		return -1;

	}

	if ((err = s_HudMsgHelpers.ReadHudSyncObj(params[2], pContext->GetIdentity(), &obj)) != HandleError_None)

	{

		return pContext->ThrowNativeError("Invalid Handle %x (error %d)", params[2], err);

	}

	client = params[1];

	if ((pPlayer = g_Players.GetPlayerByIndex(client)) == NULL)

	{

		return pContext->ThrowNativeError("Invalid client index %d", client);

	}

	else if (!pPlayer->IsInGame())

	{

		return pContext->ThrowNativeError("Client %d is not in-game", client);

	}

	g_SourceMod.FormatString(message_buffer, sizeof(message_buffer), pContext, params, 3);

	if (pContext->GetContext()->n_err != SP_ERROR_NONE)

	{

		return 0;

	}

	g_hud_params.channel = s_HudMsgHelpers.AutoSelectChannel(client, obj);

	UTIL_SendHudText(client, g_hud_params, message_buffer);

	return 1;

}

static cell_t ClearSyncHud(IPluginContext *pContext, const cell_t *params)

{

	int client;

	int channel;

	Handle_t err;

	CPlayer *pPlayer;

	hud_syncobj_t *obj;

	if (!s_HudMsgHelpers.IsSupported())

	{

		return -1;

	}

	if ((err = s_HudMsgHelpers.ReadHudSyncObj(params[2], pContext->GetIdentity(), &obj)) != HandleError_None)

	{

		return pContext->ThrowNativeError("Invalid Handle %x (error %d)", params[2], err);

	}

	client = params[1];

	if ((pPlayer = g_Players.GetPlayerByIndex(client)) == NULL)

	{

		return pContext->ThrowNativeError("Invalid client index %d", client);

	}

	else if (!pPlayer->IsInGame())

	{

		return pContext->ThrowNativeError("Client %d is not in-game", client);

	}

	if ((channel = s_HudMsgHelpers.TryReuseLastChannel(client, obj)) == -1)

	{

		return -1;

	}

	g_hud_params.channel = channel;

	UTIL_SendHudText(client, g_hud_params, "");

	return g_hud_params.channel;

}

static cell_t ShowHudText(IPluginContext *pContext, const cell_t *params)

{

	int client;

	CPlayer *pPlayer;

	char message_buffer[255-36];

	if (!s_HudMsgHelpers.IsSupported())

	{

		return -1;

	}

	client = params[1];

	if ((pPlayer = g_Players.GetPlayerByIndex(client)) == NULL)

	{

		return pContext->ThrowNativeError("Invalid client index %d", client);

	}

	else if (!pPlayer->IsInGame())

	{

		return pContext->ThrowNativeError("Client %d is not in-game", client);

	}

	g_SourceMod.FormatString(message_buffer, sizeof(message_buffer), pContext, params, 3);

	if (pContext->GetContext()->n_err != SP_ERROR_NONE)

	{

		return 0;

	}

	if (params[2] == -1)

	{

		g_hud_params.channel = s_HudMsgHelpers.AutoSelectChannel(client);

	}

	else

	{

		g_hud_params.channel = params[2] % MAX_HUD_CHANNELS;

		s_HudMsgHelpers.ManualSelectChannel(client, g_hud_params.channel);

	}

	UTIL_SendHudText(client, g_hud_params, message_buffer);

	return g_hud_params.channel;

}

REGISTER_NATIVES(hudNatives)

{

	{"ClearSyncHud",				ClearSyncHud},

	{"CreateHudSynchronizer",		CreateHudSynchronizer},

	{"SetHudTextParams",			SetHudTextParams},

	{"SetHudTextParamsEx",			SetHudTextParamsEx},

	{"ShowHudText",					ShowHudText},

	{"ShowSyncHudText",				ShowSyncHudText},

	{NULL,							NULL},

};