/**

 * vim: set ts=4 :

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

 * SourceMod Basic Chat Plugin

 * Implements basic communication commands.

 *

 * SourceMod (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$

 */

#pragma semicolon 1

#include <sourcemod>

public Plugin:myinfo = 

{

	name = "Basic Chat",

	author = "AlliedModders LLC",

	description = "Basic Communication Commands",

	version = SOURCEMOD_VERSION,

	url = "http://www.sourcemod.net/"

};

#define CHAT_SYMBOL '@'

new String:g_ColorNames[13][10] = {"White", "Red", "Green", "Blue", "Yellow", "Purple", "Cyan", "Orange", "Pink", "Olive", "Lime", "Violet", "Lightblue"};

new g_Colors[13][3] = {{255,255,255},{255,0,0},{0,255,0},{0,0,255},{255,255,0},{255,0,255},{0,255,255},{255,128,0},{255,0,128},{128,255,0},{0,255,128},{128,0,255},{0,128,255}};

new Handle:g_Cvar_Chatmode = INVALID_HANDLE;

new g_GameEngine = SOURCE_SDK_UNKNOWN;

public OnPluginStart()

{

	LoadTranslations("common.phrases");

	g_GameEngine = GuessSDKVersion();

	g_Cvar_Chatmode = CreateConVar("sm_chat_mode", "1", "Allows player's to send messages to admin chat.", 0, true, 0.0, true, 1.0);

	RegConsoleCmd("say", Command_SayChat);

	RegConsoleCmd("say_team", Command_SayAdmin);		

	RegAdminCmd("sm_say", Command_SmSay, ADMFLAG_CHAT, "sm_say <message> - sends message to all players");

	RegAdminCmd("sm_csay", Command_SmCsay, ADMFLAG_CHAT, "sm_csay <message> - sends centered message to all players");

	/* HintText does not work on Dark Messiah */

	if (g_GameEngine != SOURCE_SDK_DARKMESSIAH)

	{

		RegAdminCmd("sm_hsay", Command_SmHsay, ADMFLAG_CHAT, "sm_hsay <message> - sends hint message to all players");	

	}

	RegAdminCmd("sm_tsay", Command_SmTsay, ADMFLAG_CHAT, "sm_tsay [color] <message> - sends top-left message to all players");

	RegAdminCmd("sm_chat", Command_SmChat, ADMFLAG_CHAT, "sm_chat <message> - sends message to admins");

	RegAdminCmd("sm_psay", Command_SmPsay, ADMFLAG_CHAT, "sm_psay <name or #userid> <message> - sends private message");

	RegAdminCmd("sm_msay", Command_SmMsay, ADMFLAG_CHAT, "sm_msay <message> - sends message as a menu panel");

}

public Action:Command_SayChat(client, args)

{	

	decl String:text[192];

	if (IsChatTrigger() || GetCmdArgString(text, sizeof(text)) < 1)

	{

		return Plugin_Continue;

	}

	new startidx;

	if (text[strlen(text)-1] == '"')

	{

		text[strlen(text)-1] = '\0';

		startidx = 1;

	}

	if (text[startidx] != CHAT_SYMBOL)

		return Plugin_Continue;

	new msgStart = 1;

	if (text[startidx+1] == CHAT_SYMBOL)

	{

		msgStart = 2;

		if (text[startidx+2] == CHAT_SYMBOL)

			msgStart = 3;

	}

	decl String:message[192];

	strcopy(message, 192, text[startidx+msgStart]);

	if (msgStart == 1 && CheckCommandAccess(client, "sm_say", ADMFLAG_CHAT)) // sm_say alias

	{

		SendChatToAll(client, message);

		LogAction(client, -1, "\"%L\" triggered sm_say (text %s)", client, message);

	}

	else if (msgStart == 3 && CheckCommandAccess(client, "sm_csay", ADMFLAG_CHAT)) // sm_csay alias

	{

		DisplayCenterTextToAll(client, message);

		LogAction(client, -1, "\"%L\" triggered sm_csay (text %s)", client, text);		

	}	

	else if (msgStart == 2 && CheckCommandAccess(client, "sm_psay", ADMFLAG_CHAT)) // sm_psay alias

	{

		decl String:arg[64];

		new len = BreakString(message, arg, sizeof(arg));

		new target = FindTarget(client, arg, true, false);

		if (target == -1 || len == -1)

			return Plugin_Handled;

		PrintToChat(client, "\x04(Private to %N) %N: \x01%s", target, client, message[len]);

		PrintToChat(target, "\x04(Private to %N) %N: \x01%s", target, client, message[len]);

		LogAction(client, -1, "\"%L\" triggered sm_psay to \"%L\" (text %s)", client, target, message);		

	}

	else

		return Plugin_Continue;

	return Plugin_Handled;	

}

public Action:Command_SayAdmin(client, args)

{

	if (!CheckCommandAccess(client, "sm_chat", ADMFLAG_CHAT) && !GetConVarBool(g_Cvar_Chatmode))

	{

		return Plugin_Continue;	

	}

	decl String:text[192];

	if (IsChatTrigger() || GetCmdArgString(text, sizeof(text)) < 1)

	{

		return Plugin_Continue;

	}

	new startidx;

	if (text[strlen(text)-1] == '"')

	{

		text[strlen(text)-1] = '\0';

		startidx = 1;

	}

	if (text[startidx] != CHAT_SYMBOL)

		return Plugin_Continue;

	decl String:message[192];

	strcopy(message, 192, text[startidx+1]);

	SendChatToAdmins(client, message);

	LogAction(client, -1, "\"%L\" triggered sm_chat (text %s)", client, message);

	return Plugin_Handled;	

}

public Action:Command_SmSay(client, args)

{

	if (args < 1)

	{

		ReplyToCommand(client, "[SM] Usage: sm_say <message>");

		return Plugin_Handled;	

	}

	decl String:text[192];

	GetCmdArgString(text, sizeof(text));

	SendChatToAll(client, text);

	LogAction(client, -1, "\"%L\" triggered sm_say (text %s)", client, text);

	return Plugin_Handled;		

}

public Action:Command_SmCsay(client, args)

{

	if (args < 1)

	{

		ReplyToCommand(client, "[SM] Usage: sm_csay <message>");

		return Plugin_Handled;	

	}

	decl String:text[192];

	GetCmdArgString(text, sizeof(text));

	DisplayCenterTextToAll(client, text);

	LogAction(client, -1, "\"%L\" triggered sm_csay (text %s)", client, text);

	return Plugin_Handled;		

}

public Action:Command_SmHsay(client, args)

{

	if (args < 1)

	{

		ReplyToCommand(client, "[SM] Usage: sm_hsay <message>");

		return Plugin_Handled;  

	}

	decl String:text[192];

	GetCmdArgString(text, sizeof(text));

	decl String:nameBuf[MAX_NAME_LENGTH];

	for (new i = 1; i <= MaxClients; i++)

	{

		if (!IsClientInGame(i) || IsFakeClient(i))

		{

			continue;

		}

		FormatActivitySource(client, i, nameBuf, sizeof(nameBuf));

		PrintHintText(i, "%s: %s", nameBuf, text);

	}

	LogAction(client, -1, "\"%L\" triggered sm_hsay (text %s)", client, text);

	return Plugin_Handled;	

}

public Action:Command_SmTsay(client, args)

{

	if (args < 1)

	{

		ReplyToCommand(client, "[SM] Usage: sm_tsay <message>");

		return Plugin_Handled;  

	}

	decl String:text[192], String:colorStr[16];

	GetCmdArgString(text, sizeof(text));

	new len = BreakString(text, colorStr, 16);

	new color = FindColor(colorStr);

	new String:nameBuf[MAX_NAME_LENGTH];

	if (color == -1)

	{

		color = 0;

		len = 0;

	}

	for (new i = 1; i <= MaxClients; i++)

	{

		if (!IsClientInGame(i) || IsFakeClient(i))

		{

			continue;

		}

		FormatActivitySource(client, i, nameBuf, sizeof(nameBuf));

		SendDialogToOne(i, color, "%s: %s", nameBuf, text[len]);

	}

	LogAction(client, -1, "\"%L\" triggered sm_tsay (text %s)", client, text);

	return Plugin_Handled;	

}

public Action:Command_SmChat(client, args)

{

	if (args < 1)

	{

		ReplyToCommand(client, "[SM] Usage: sm_chat <message>");

		return Plugin_Handled;	

	}	

	decl String:text[192];

	GetCmdArgString(text, sizeof(text));

	SendChatToAdmins(client, text);

	LogAction(client, -1, "\"%L\" triggered sm_chat (text %s)", client, text);

	return Plugin_Handled;	

}

public Action:Command_SmPsay(client, args)

{

	if (args < 2)

	{

		ReplyToCommand(client, "[SM] Usage: sm_psay <name or #userid> <message>");

		return Plugin_Handled;	

	}	

	decl String:text[192], String:arg[64], String:message[192];

	GetCmdArgString(text, sizeof(text));

	new len = BreakString(text, arg, sizeof(arg));

	BreakString(text[len], message, sizeof(message));

	new target = FindTarget(client, arg, true, false);

	if (target == -1)

		return Plugin_Handled;	

	decl String:name[64];

	if (client == 0)

	{

		name = "Console";

	}

	else

	{

		GetClientName(client, name, sizeof(name));

	}

	if (client == 0)

	{

		PrintToServer("(Private: %N) %s: %s", target, name, message);

	}

	else

	{

		PrintToChat(client, "\x04(Private: %N) %s: \x01%s", target, name, message);

	}

	PrintToChat(target, "\x04(Private: %N) %s: \x01%s", target, name, message);

	LogAction(client, -1, "\"%L\" triggered sm_psay to \"%L\" (text %s)", client, target, message);

	return Plugin_Handled;	

}

public Action:Command_SmMsay(client, args)

{

	if (args < 1)

	{

		ReplyToCommand(client, "[SM] Usage: sm_msay <message>");

		return Plugin_Handled;	

	}

	decl String:text[192];

	GetCmdArgString(text, sizeof(text));

	SendPanelToAll(client, text);

	LogAction(client, -1, "\"%L\" triggered sm_msay (text %s)", client, text);

	return Plugin_Handled;		

}

FindColor(String:color[])

{

	for (new i = 0; i < 13; i++)

	{

		if (strcmp(color, g_ColorNames[i], false) == 0)

			return i;

	}

	return -1;

}

SendChatToAll(client, String:message[])

{

	new String:nameBuf[MAX_NAME_LENGTH];

	for (new i = 1; i <= MaxClients; i++)

	{

		if (!IsClientInGame(i) || IsFakeClient(i))

		{

			continue;

		}

		FormatActivitySource(client, i, nameBuf, sizeof(nameBuf));

		PrintToChat(i, "\x04(ALL) %s: \x01%s", nameBuf, message);

	}

}

DisplayCenterTextToAll(client, String:message[])

{

	new String:nameBuf[MAX_NAME_LENGTH];

	for (new i = 1; i <= MaxClients; i++)

	{

		if (!IsClientInGame(i) || IsFakeClient(i))

		{

			continue;

		}

		FormatActivitySource(client, i, nameBuf, sizeof(nameBuf));

		PrintCenterText(i, "%s: %s", nameBuf, message);

	}

}

SendChatToAdmins(from, String:message[])

{

	new fromAdmin = CheckCommandAccess(from, "sm_chat", ADMFLAG_CHAT);

	for (new i = 1; i <= MaxClients; i++)

	{

		if (IsClientInGame(i) && (from == i || CheckCommandAccess(i, "sm_chat", ADMFLAG_CHAT)))

		{

			PrintToChat(i, "\x04(%sADMINS) %N: \x01%s", fromAdmin ? "" : "TO ", from, message);

		}	

	}

}

SendDialogToOne(client, color, String:text[], any:...)

{

	new String:message[100];

	VFormat(message, sizeof(message), text, 4);	

	new Handle:kv = CreateKeyValues("Stuff", "title", message);

	KvSetColor(kv, "color", g_Colors[color][0], g_Colors[color][1], g_Colors[color][2], 255);

	KvSetNum(kv, "level", 1);

	KvSetNum(kv, "time", 10);

	CreateDialog(client, kv, DialogType_Msg);

	CloseHandle(kv);	

}

SendPanelToAll(from, String:message[])

{

	decl String:title[100];

	Format(title, 64, "%N:", from);

	ReplaceString(message, 192, "\\n", "\n");

	new Handle:mSayPanel = CreatePanel();

	SetPanelTitle(mSayPanel, title);

	DrawPanelItem(mSayPanel, "", ITEMDRAW_SPACER);

	DrawPanelText(mSayPanel, message);

	DrawPanelItem(mSayPanel, "", ITEMDRAW_SPACER);

	SetPanelCurrentKey(mSayPanel, 10);

	DrawPanelItem(mSayPanel, "Exit", ITEMDRAW_CONTROL);

	for(new i = 1; i <= MaxClients; i++)

	{

		if(IsClientInGame(i) && !IsFakeClient(i))

		{

			SendPanelToClient(mSayPanel, i, Handler_DoNothing, 10);

		}

	}

	CloseHandle(mSayPanel);

}

public Handler_DoNothing(Handle:menu, MenuAction:action, param1, param2)

{

	/* Do nothing */

}