/**

  * vim: set ts=4 :

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

  * SourceMod

  * Copyright (C) 2004-2007 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 "MenuStyle_Radio.h"

 #include "sm_stringutil.h"

 #include "UserMessages.h"

 #include "GameConfigs.h"

 #include "PlayerManager.h"

 #if defined MENU_DEBUG

 #include "Logger.h"

 #endif

 extern const char *g_RadioNumTable[];

 CRadioStyle g_RadioMenuStyle;

 int g_ShowMenuId = -1;

 bool g_bRadioInit = false;

 CRadioStyle::CRadioStyle() : m_players(new CBaseMenuPlayer[256+1])

 {

 }

 void CRadioStyle::OnSourceModAllInitialized()

 {

 	g_Players.AddClientListener(this);

 }

 void CRadioStyle::OnSourceModLevelChange(const char *mapName)

 {

 	if (g_bRadioInit)

 	{

 		return;

 	}

 	g_bRadioInit = true;

 	const char *msg = g_pGameConf->GetKeyValue("HudRadioMenuMsg");

 	if (!msg || msg[0] == '\0')

 	{

 		return;

 	}

 	g_ShowMenuId = g_UserMsgs.GetMessageIndex(msg);

 	if (!IsSupported())

 	{

 		return;

 	}

 	g_Menus.AddStyle(this);

 	g_Menus.SetDefaultStyle(this);

 	g_UserMsgs.HookUserMessage(g_ShowMenuId, this, false);

 }

 void CRadioStyle::OnSourceModShutdown()

 {

 	g_Players.RemoveClientListener(this);

 	g_UserMsgs.UnhookUserMessage(g_ShowMenuId, this, false);

 	while (!m_FreeDisplays.empty())

 	{

 		delete m_FreeDisplays.front();

 		m_FreeDisplays.pop();

 	}

 }

 bool CRadioStyle::IsSupported()

 {

 	return (g_ShowMenuId != -1);

 }

 bool CRadioStyle::OnClientCommand(int client)

 {

 	const char *cmd = engine->Cmd_Argv(0);

 	if (strcmp(cmd, "menuselect") == 0)

 	{

 		if (!m_players[client].bInMenu)

 		{

 			return false;

 		}

 		int arg = atoi(engine->Cmd_Argv(1));

 		ClientPressedKey(client, arg);

 		return true;

 	}

 	return false;

 }

 static unsigned int g_last_holdtime = 0;

 static unsigned int g_last_client_count = 0;

 static int g_last_clients[256];

 void CRadioStyle::OnUserMessage(int msg_id, bf_write *bf, IRecipientFilter *pFilter)

 {

 	int count = pFilter->GetRecipientCount();

 	bf_read br(bf->GetBasePointer(), 2);

 	br.ReadWord();

 	int c = br.ReadChar();

 	g_last_holdtime = (c == -1) ? 0 : (unsigned)c;

 	for (int i=0; i<count; i++)

 	{

 		g_last_clients[g_last_client_count++] = pFilter->GetRecipientIndex(i);

 	}

 }

 void CRadioStyle::OnUserMessageSent(int msg_id)

 {

 	for (unsigned int i=0; i<g_last_client_count; i++)

 	{

 		int client = g_last_clients[i];

 #if defined MENU_DEBUG

 		g_Logger.LogMessage("[SM_MENU] CRadioStyle got ShowMenu (client %d) (bInMenu %d)",

 			client,

 			m_players[client].bInExternMenu);

 #endif

 		if (m_players[client].bInMenu)

 		{

 			_CancelClientMenu(client, MenuCancel_Interrupted, true);

 		}

 		m_players[client].bInExternMenu = true;

 		m_players[client].menuHoldTime = g_last_holdtime;

 	}

 	g_last_client_count = 0;

 }

 void CRadioStyle::SendDisplay(int client, IMenuPanel *display)

 {

 	CRadioDisplay *rDisplay = (CRadioDisplay *)display;

 	rDisplay->SendRawDisplay(client, m_players[client].menuHoldTime);

 }

 IMenuPanel *CRadioStyle::CreatePanel()

 {

 	return g_RadioMenuStyle.MakeRadioDisplay();

 }

 IBaseMenu *CRadioStyle::CreateMenu(IMenuHandler *pHandler, IdentityToken_t *pOwner)

 {

 	return new CRadioMenu(pHandler, pOwner);

 }

 unsigned int CRadioStyle::GetMaxPageItems()

 {

 	return 10;

 }

 const char *CRadioStyle::GetStyleName()

 {

 	return "radio";

 }

 CBaseMenuPlayer *CRadioStyle::GetMenuPlayer(int client)

 {

 	return &m_players[client];

 }

 CRadioDisplay *CRadioStyle::MakeRadioDisplay(CRadioMenu *menu)

 {

 	CRadioDisplay *display;

 	if (m_FreeDisplays.empty())

 	{

 		display = new CRadioDisplay();

 	} else {

 		display = m_FreeDisplays.front();

 		m_FreeDisplays.pop();

 		display->Reset();

 	}

 	return display;

 }

 void CRadioStyle::FreeRadioDisplay(CRadioDisplay *display)

 {

 	m_FreeDisplays.push(display);

 }

 CRadioDisplay::CRadioDisplay()

 {

 	Reset();

 }

 CRadioDisplay::CRadioDisplay(CRadioMenu *menu)

 {

 	Reset();

 }

 bool CRadioDisplay::DrawRawLine(const char *rawline)

 {

 	m_BufferText.append(rawline);

 	m_BufferText.append("\n");

 	return true;

 }

 void CRadioDisplay::Reset()

 {

 	m_BufferText.assign("");

 	m_Title.assign("");

 	m_NextPos = 1;

 	keys = 0;

 }

 unsigned int CRadioDisplay::GetCurrentKey()

 {

 	return m_NextPos;

 }

 bool CRadioDisplay::SetCurrentKey(unsigned int key)

 {

 	if (key < m_NextPos || m_NextPos > 10)

 	{

 		return false;

 	}

 	m_NextPos = key;

 	return true;

 }

 bool CRadioDisplay::SendDisplay(int client, IMenuHandler *handler, unsigned int time)

 {

 	return g_RadioMenuStyle.DoClientMenu(client, this, handler, time);

 }

 bool CRadioDisplay::SetExtOption(MenuOption option, const void *valuePtr)

 {

 	return false;

 }

 IMenuStyle *CRadioDisplay::GetParentStyle()

 {

 	return &g_RadioMenuStyle;

 }

 void CRadioDisplay::DrawTitle(const char *text, bool onlyIfEmpty/* =false */)

 {

 	if (m_Title.size() != 0 && onlyIfEmpty)

 	{

 		return;

 	}

 	m_Title.assign(text);

 }

 unsigned int CRadioDisplay::DrawItem(const ItemDrawInfo &item)

 {

 	if (m_NextPos > 10 || !CanDrawItem(item.style))

 	{

 		return 0;

 	}

 	if (item.style & ITEMDRAW_RAWLINE)

 	{

 		if (item.style & ITEMDRAW_SPACER)

 		{

 			m_BufferText.append(" \n");

 		} else {

 			m_BufferText.append(item.display);

 			m_BufferText.append("\n");

 		}

 		return 0;

 	} else if (item.style & ITEMDRAW_SPACER) {

 		m_BufferText.append(" \n");

 		return m_NextPos++;

 	} else if (item.style & ITEMDRAW_NOTEXT) {

 		return m_NextPos++;

 	}

 	if (item.style & ITEMDRAW_DISABLED)

 	{

 		m_BufferText.append(g_RadioNumTable[m_NextPos]);

 		m_BufferText.append(item.display);

 		m_BufferText.append("\n");

 	} else {

 		m_BufferText.append("->");

 		m_BufferText.append(g_RadioNumTable[m_NextPos]);

 		m_BufferText.append(item.display);

 		m_BufferText.append("\n");

 		keys |= (1<<(m_NextPos-1));

 	}

 	return m_NextPos++;

 }

 bool CRadioDisplay::CanDrawItem(unsigned int drawFlags)

 {

 	if ((drawFlags & ITEMDRAW_IGNORE) == ITEMDRAW_IGNORE)

 	{

 		return false;

 	}

 	if ((drawFlags & ITEMDRAW_DISABLED) && (drawFlags & ITEMDRAW_CONTROL))

 	{

 		return false;

 	}

 	return true;

 }

 void CRadioDisplay::SendRawDisplay(int client, unsigned int time)

 {

 	char buffer[4096];

 	size_t len;

 	len = UTIL_Format(buffer, sizeof(buffer), "%s\n%s", m_Title.c_str(), m_BufferText.c_str());

 	cell_t players[1] = {client};

 	int _sel_keys = (keys == 0) ? (1<<9) : keys;

 	char *ptr = buffer;

 	char save = 0;

 	while (true)

 	{

 		if (len > 240)

 		{

 			save = ptr[240];

 			ptr[240] = '\0';

 		}

 		bf_write *buffer = g_UserMsgs.StartMessage(g_ShowMenuId, players, 1, 0);

 		buffer->WriteWord(_sel_keys);

 		buffer->WriteChar(time ? time : -1);

 		buffer->WriteByte( (len > 240) ? 1 : 0 );

 		buffer->WriteString(ptr);

 		g_UserMsgs.EndMessage();

 		if (len > 240)

 		{

 			ptr[240] = save;

 			ptr = &ptr[240];

 			len -= 240;

 		} else {

 			break;

 		}

 	}

 }

 void CRadioDisplay::DeleteThis()

 {

 	delete this;

 }

 bool CRadioDisplay::SetSelectableKeys(unsigned int keymap)

 {

 	keys = (signed)keymap;

 	return true;

 }

 CRadioMenu::CRadioMenu(IMenuHandler *pHandler, IdentityToken_t *pOwner) : 

 CBaseMenu(pHandler, &g_RadioMenuStyle, pOwner)

 {

 }

 bool CRadioMenu::SetExtOption(MenuOption option, const void *valuePtr)

 {

 	return false;

 }

 IMenuPanel *CRadioMenu::CreatePanel()

 {

 	return g_RadioMenuStyle.MakeRadioDisplay(this);

 }

 bool CRadioMenu::Display(int client, unsigned int time)

 {

 #if defined MENU_DEBUG

 	g_Logger.LogMessage("[SM_MENU] CRadioMenu::Display(%p) (client %d) (time %d)",

 		this,

 		client,

 		time);

 #endif

 	if (m_bCancelling)

 	{

 		return false;

 	}

 	return g_RadioMenuStyle.DoClientMenu(client, this, m_pHandler, time);

 }

 void CRadioMenu::VoteDisplay(int client, unsigned int maxTime)

 {

 #if defined MENU_DEBUG

 	g_Logger.LogMessage("[SM_MENU] CRadioMenu::VoteDisplay(%p) (client %d) (time %d)",

 		this,

 		client,

 		maxTime);

 #endif

 	if (m_bCancelling)

 	{

 		return;

 	}

 	g_RadioMenuStyle.DoClientMenu(client, this, m_pVoteHandler, maxTime);

 }

 void CRadioMenu::Cancel_Finally()

 {

 	g_RadioMenuStyle.CancelMenu(this);

 }

 const char *g_RadioNumTable[11] = 

 {

 	"0. ", "1. ", "2. ", "3. ", "4. ", "5. ", "6. ", "7. ", "8. ", "9. ", "0. "

 };