/**

  * vim: set ts=4 :

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

  * SourceMod Basic Chat Plugin

  * Implements basic communication commands.

  *

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

  */

 #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/"

 };

 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 Handle:g_Cvar_Psaymode = INVALID_HANDLE;

 new bool:g_DoColor = false;

 public OnPluginStart()

 {

 	LoadTranslations("common.phrases");

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

 	g_Cvar_Psaymode = CreateConVar("sm_psay_mode", "0", "Allows player's to use psay 'say @@' alias.", 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");

 	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");

 	decl String:modname[64];

 	GetGameFolderName(modname, sizeof(modname));

 	if (strcmp(modname, "cstrike") == 0)

 	{

 		g_DoColor = true;

 	}

 }

 public Action:Command_SayChat(client, args)

 {	

 	decl String:text[192];

 	if (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] != '@')

 		return Plugin_Continue;

 	new msgStart = 1;

 	if (text[startidx+1] == '@')

 	{

 		msgStart = 2;

 		if (text[startidx+2] == '@')

 			msgStart = 3;

 	}

 	decl String:message[192];

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

 	decl String:name[64];

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

 	if (msgStart == 1 && CheckAdminForChat(client)) // sm_say alias

 	{

 		SendChatToAll(name, message);

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

 	}

 	else if (msgStart == 3 && CheckAdminForChat(client)) // sm_csay alias

 	{

 		PrintCenterTextAll("%s: %s", name, message);

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

 	}	

 	else if (msgStart == 2 && (CheckAdminForChat(client) || GetConVarBool(g_Cvar_Psaymode))) // sm_psay alias

 	{

 		decl String:arg[64];

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

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

 		if (target == -1)

 			return Plugin_Handled;

 		decl String:name2[64];

 		GetClientName(target, name2, sizeof(name2));

 		if (g_DoColor)

 		{

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

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

 		}

 		else

 		{

 			PrintToChat(client, "(Private to %s) %s: %s", name2, name, message[len]);

 			PrintToChat(target, "(Private to %s) %s: %s", name2, name, 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 (!CheckAdminForChat(client) && !GetConVarBool(g_Cvar_Chatmode))

 	{

 		return Plugin_Continue;	

 	}

 	decl String:text[192];

 	if (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] != '@')

 		return Plugin_Continue;

 	decl String:message[192];

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

 	decl String:name[64];

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

 	SendChatToAdmins(name, 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));

 	decl String:name[64];

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

 	SendChatToAll(name, 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));

 	new String:name[64];

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

 	PrintCenterTextAll("%s: %s", name, 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:name[64];

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

 	PrintHintTextToAll("%s: %s", name, 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);

 	decl String:name[64];

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

 	new color = FindColor(colorStr);

 	if (color == -1)    

 		SendDialogToAll(_, "%s: %s", name, text);

 	else

 		SendDialogToAll(color, "%s: %s", name, 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));

 	decl String:name[64];

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

 	SendChatToAdmins(name, 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], String:name2[64];

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

 	GetClientName(target, name2, sizeof(name2));

 	if (g_DoColor)

 	{

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

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

 	}

 	else

 	{

 		PrintToChat(client, "(Private: %s) %s: %s", name2, name, message);

 		PrintToChat(target, "(Private: %s) %s: %s", name2, 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));

 	decl String:name[64];

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

 	SendPanelToAll(name, text);

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

 	return Plugin_Handled;		

 }

 bool:CheckAdminForChat(client)

 {

 	if (client == 0)

 	{

 		return true;

 	}

 	new AdminId:aid = GetUserAdmin(client);

 	if (aid == INVALID_ADMIN_ID)

 	{

 		return false;			

 	}

 	return GetAdminFlag(aid, Admin_Chat, Access_Effective);

 }

 FindColor(String:color[])

 {

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

 	{

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

 			return i;

 	}

 	return -1;

 }

 SendChatToAll(String:name[], String:message[])

 {

 	if (g_DoColor)

 	{

 		PrintToChatAll("\x04(ALL) %s: \x01%s", name, message);

 	}

 	else

 	{

 		PrintToChatAll("(ALL) %s: %s", name, message);

 	}

 }

 SendChatToAdmins(String:name[], String:message[])

 {

 	new iMaxClients = GetMaxClients();

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

 	{

 		if (IsClientInGame(i))

 		{

 			if (CheckAdminForChat(i))

 			{

 				if (g_DoColor)

 				{

 					PrintToChat(i, "\x04(ADMINS) %s: \x01%s", name, message);

 				}

 				else

 				{

 					PrintToChat(i, "(ADMINS) %s: %s", name, message);

 				}

 			}

 		}	

 	}

 }

 SendDialogToAll(color = 0, String:text[], any:...)

 {

 	new String:message[100];

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

 	new MaxClients = GetMaxClients();

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

 	{

 		if(IsClientInGame(i))

 		{

 			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(i, kv, DialogType_Msg);

 			CloseHandle(kv);

 		}

 	}	

 }

 SendPanelToAll(String:name[], String:message[])

 {

 	decl String:title[100];

 	Format(title, 64, "%s:", name);

 	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);

 	new MaxClients = GetMaxClients();

 	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 */

 }