ferret99gt@1174: /** ds@1330: * vim: set ts=4 : ds@1330: * ============================================================================= ds@1330: * SourceMod Basic Chat Plugin ds@1330: * Implements basic communication commands. ds@1330: * ds@1330: * SourceMod (C)2004-2007 AlliedModders LLC. All rights reserved. ds@1330: * ============================================================================= ferret99gt@1174: * ds@1330: * This program is free software; you can redistribute it and/or modify it under ds@1330: * the terms of the GNU General Public License, version 3.0, as published by the ds@1330: * Free Software Foundation. ds@1330: * ds@1330: * This program is distributed in the hope that it will be useful, but WITHOUT ds@1330: * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS ds@1330: * FOR A PARTICULAR PURPOSE. See the GNU General Public License for more ds@1330: * details. ferret99gt@1174: * ds@1330: * You should have received a copy of the GNU General Public License along with ds@1330: * this program. If not, see . ds@1330: * ds@1330: * As a special exception, AlliedModders LLC gives you permission to link the ds@1330: * code of this program (as well as its derivative works) to "Half-Life 2," the ds@1330: * "Source Engine," the "SourcePawn JIT," and any Game MODs that run on software ds@1330: * by the Valve Corporation. You must obey the GNU General Public License in ds@1330: * all respects for all other code used. Additionally, AlliedModders LLC grants ds@1330: * this exception to all derivative works. AlliedModders LLC defines further ds@1330: * exceptions, found in LICENSE.txt (as of this writing, version JULY-31-2007), ds@1330: * or . ferret99gt@1174: * ferret99gt@1174: * Version: $Id$ ferret99gt@1174: */ ferret99gt@1174: ds@1330: #pragma semicolon 1 ferret99gt@1174: ds@1330: #include ferret99gt@1174: ferret99gt@1174: public Plugin:myinfo = ferret99gt@1174: { ferret99gt@1174: name = "Basic Chat", ferret99gt@1174: author = "AlliedModders LLC", ferret99gt@1174: description = "Basic Communication Commands", ferret99gt@1174: version = SOURCEMOD_VERSION, ferret99gt@1174: url = "http://www.sourcemod.net/" ferret99gt@1174: }; ferret99gt@1174: ferret99gt@1516: #define CHAT_SYMBOL '@' ferret99gt@1516: ferret99gt@1179: new String:g_ColorNames[13][10] = {"White", "Red", "Green", "Blue", "Yellow", "Purple", "Cyan", "Orange", "Pink", "Olive", "Lime", "Violet", "Lightblue"}; ferret99gt@1174: 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}}; ferret99gt@1174: ferret99gt@1174: new Handle:g_Cvar_Chatmode = INVALID_HANDLE; ferret99gt@1174: new Handle:g_Cvar_Psaymode = INVALID_HANDLE; ferret99gt@1174: ferret99gt@1174: new bool:g_DoColor = false; ferret99gt@1174: ferret99gt@1174: public OnPluginStart() ferret99gt@1174: { ferret99gt@1174: LoadTranslations("common.phrases"); ferret99gt@1174: ferret99gt@1174: g_Cvar_Chatmode = CreateConVar("sm_chat_mode", "1", "Allows player's to send messages to admin chat.", 0, true, 0.0, true, 1.0); ferret99gt@1174: g_Cvar_Psaymode = CreateConVar("sm_psay_mode", "0", "Allows player's to use psay 'say @@' alias.", 0, true, 0.0, true, 1.0); ferret99gt@1174: ferret99gt@1174: RegConsoleCmd("say", Command_SayChat); ferret99gt@1174: RegConsoleCmd("say_team", Command_SayAdmin); ferret99gt@1174: RegAdminCmd("sm_say", Command_SmSay, ADMFLAG_CHAT, "sm_say - sends message to all players"); ferret99gt@1174: RegAdminCmd("sm_csay", Command_SmCsay, ADMFLAG_CHAT, "sm_csay - sends centered message to all players"); ferret99gt@1277: RegAdminCmd("sm_hsay", Command_SmHsay, ADMFLAG_CHAT, "sm_hsay - sends hint message to all players"); ferret99gt@1174: RegAdminCmd("sm_tsay", Command_SmTsay, ADMFLAG_CHAT, "sm_tsay [color] - sends top-left message to all players"); ferret99gt@1174: RegAdminCmd("sm_chat", Command_SmChat, ADMFLAG_CHAT, "sm_chat - sends message to admins"); ferret99gt@1174: RegAdminCmd("sm_psay", Command_SmPsay, ADMFLAG_CHAT, "sm_psay - sends private message"); ferret99gt@1174: RegAdminCmd("sm_msay", Command_SmMsay, ADMFLAG_CHAT, "sm_msay - sends message as a menu panel"); ferret99gt@1174: ferret99gt@1174: decl String:modname[64]; ferret99gt@1174: GetGameFolderName(modname, sizeof(modname)); ferret99gt@1174: ferret99gt@1174: if (strcmp(modname, "cstrike") == 0) ferret99gt@1174: { ferret99gt@1174: g_DoColor = true; ferret99gt@1174: } ferret99gt@1174: } ferret99gt@1174: ferret99gt@1174: public Action:Command_SayChat(client, args) ferret99gt@1174: { ferret99gt@1174: decl String:text[192]; dvander@1469: if (IsChatTrigger() || GetCmdArgString(text, sizeof(text)) < 1) dvander@1422: { dvander@1422: return Plugin_Continue; dvander@1422: } ferret99gt@1174: ferret99gt@1174: new startidx; ferret99gt@1174: if (text[strlen(text)-1] == '"') ferret99gt@1174: { ferret99gt@1174: text[strlen(text)-1] = '\0'; ferret99gt@1174: startidx = 1; ferret99gt@1174: } ferret99gt@1174: ferret99gt@1516: if (text[startidx] != CHAT_SYMBOL) ferret99gt@1174: return Plugin_Continue; ferret99gt@1174: ferret99gt@1174: new msgStart = 1; ferret99gt@1174: ferret99gt@1516: if (text[startidx+1] == CHAT_SYMBOL) ferret99gt@1174: { ferret99gt@1174: msgStart = 2; ferret99gt@1174: ferret99gt@1516: if (text[startidx+2] == CHAT_SYMBOL) ferret99gt@1174: msgStart = 3; ferret99gt@1174: } ferret99gt@1174: ferret99gt@1174: decl String:message[192]; ferret99gt@1174: strcopy(message, 192, text[startidx+msgStart]); ferret99gt@1174: ferret99gt@1174: decl String:name[64]; ferret99gt@1174: GetClientName(client, name, sizeof(name)); ferret99gt@1174: ferret99gt@1174: if (msgStart == 1 && CheckAdminForChat(client)) // sm_say alias ferret99gt@1174: { ferret99gt@1174: SendChatToAll(name, message); dvander@1378: LogAction(client, -1, "%L triggered sm_say (text %s)", client, message); ferret99gt@1174: } ferret99gt@1174: else if (msgStart == 3 && CheckAdminForChat(client)) // sm_csay alias ferret99gt@1174: { ferret99gt@1174: PrintCenterTextAll("%s: %s", name, message); dvander@1378: LogAction(client, -1, "%L triggered sm_csay (text %s)", client, text); ferret99gt@1174: } ferret99gt@1174: else if (msgStart == 2 && (CheckAdminForChat(client) || GetConVarBool(g_Cvar_Psaymode))) // sm_psay alias ferret99gt@1174: { ferret99gt@1178: decl String:arg[64]; ferret99gt@1174: ferret99gt@1179: new len = BreakString(message, arg, sizeof(arg)); ferret99gt@1178: new target = FindTarget(client, arg, true, false); ferret99gt@1174: ferret99gt@1178: if (target == -1) ferret99gt@1174: return Plugin_Handled; ferret99gt@1174: ferret99gt@1174: decl String:name2[64]; ferret99gt@1178: GetClientName(target, name2, sizeof(name2)); ferret99gt@1174: ferret99gt@1174: if (g_DoColor) ferret99gt@1174: { ferret99gt@1174: PrintToChat(client, "\x04(Private to %s) %s: \x01%s", name2, name, message[len]); ferret99gt@1178: PrintToChat(target, "\x04(Private to %s) %s: \x01%s", name2, name, message[len]); ferret99gt@1174: } ferret99gt@1174: else ferret99gt@1174: { ferret99gt@1174: PrintToChat(client, "(Private to %s) %s: %s", name2, name, message[len]); ferret99gt@1178: PrintToChat(target, "(Private to %s) %s: %s", name2, name, message[len]); ferret99gt@1174: } ferret99gt@1174: dvander@1378: LogAction(client, -1, "%L triggered sm_psay to %L (text %s)", client, target, message); ferret99gt@1174: } ferret99gt@1174: else ferret99gt@1174: return Plugin_Continue; ferret99gt@1174: ferret99gt@1174: return Plugin_Handled; ferret99gt@1174: } ferret99gt@1174: ferret99gt@1174: public Action:Command_SayAdmin(client, args) ferret99gt@1174: { ferret99gt@1174: if (!CheckAdminForChat(client) && !GetConVarBool(g_Cvar_Chatmode)) dvander@1434: { ferret99gt@1174: return Plugin_Continue; dvander@1434: } ferret99gt@1174: ferret99gt@1174: decl String:text[192]; ferret99gt@1516: if (IsChatTrigger() || GetCmdArgString(text, sizeof(text)) < 1) dvander@1434: { dvander@1434: return Plugin_Continue; dvander@1434: } ferret99gt@1174: ferret99gt@1174: new startidx; ferret99gt@1174: if (text[strlen(text)-1] == '"') ferret99gt@1174: { ferret99gt@1174: text[strlen(text)-1] = '\0'; ferret99gt@1174: startidx = 1; ferret99gt@1174: } ferret99gt@1174: ferret99gt@1516: if (text[startidx] != CHAT_SYMBOL) ferret99gt@1174: return Plugin_Continue; ferret99gt@1174: ferret99gt@1174: decl String:message[192]; ferret99gt@1174: strcopy(message, 192, text[startidx+1]); ferret99gt@1174: ferret99gt@1174: decl String:name[64]; ferret99gt@1174: GetClientName(client, name, sizeof(name)); ferret99gt@1174: ferret99gt@1174: SendChatToAdmins(name, message); dvander@1378: LogAction(client, -1, "%L triggered sm_chat (text %s)", client, message); ferret99gt@1174: ferret99gt@1174: return Plugin_Handled; ferret99gt@1174: } ferret99gt@1174: ferret99gt@1174: public Action:Command_SmSay(client, args) ferret99gt@1174: { ferret99gt@1174: if (args < 1) ferret99gt@1174: { ferret99gt@1174: ReplyToCommand(client, "[SM] Usage: sm_say "); ferret99gt@1174: return Plugin_Handled; ferret99gt@1174: } ferret99gt@1174: ferret99gt@1174: decl String:text[192]; ferret99gt@1174: GetCmdArgString(text, sizeof(text)); ferret99gt@1174: ferret99gt@1174: decl String:name[64]; ferret99gt@1174: GetClientName(client, name, sizeof(name)); ferret99gt@1174: ferret99gt@1174: SendChatToAll(name, text); dvander@1378: LogAction(client, -1, "%L triggered sm_say (text %s)", client, text); ferret99gt@1174: ferret99gt@1174: return Plugin_Handled; ferret99gt@1174: } ferret99gt@1174: ferret99gt@1174: public Action:Command_SmCsay(client, args) ferret99gt@1174: { ferret99gt@1174: if (args < 1) ferret99gt@1174: { ferret99gt@1174: ReplyToCommand(client, "[SM] Usage: sm_csay "); ferret99gt@1174: return Plugin_Handled; ferret99gt@1174: } ferret99gt@1174: ferret99gt@1174: decl String:text[192]; ferret99gt@1174: GetCmdArgString(text, sizeof(text)); ferret99gt@1174: ferret99gt@1174: new String:name[64]; ferret99gt@1174: GetClientName(client, name, sizeof(name)); ferret99gt@1174: ferret99gt@1174: PrintCenterTextAll("%s: %s", name, text); dvander@1378: LogAction(client, -1, "%L triggered sm_csay (text %s)", client, text); ferret99gt@1174: ferret99gt@1174: return Plugin_Handled; ferret99gt@1174: } ferret99gt@1174: ferret99gt@1174: public Action:Command_SmHsay(client, args) ferret99gt@1174: { ferret99gt@1174: if (args < 1) ferret99gt@1174: { ferret99gt@1174: ReplyToCommand(client, "[SM] Usage: sm_hsay "); ferret99gt@1174: return Plugin_Handled; ferret99gt@1174: } ferret99gt@1174: ferret99gt@1174: decl String:text[192]; ferret99gt@1174: GetCmdArgString(text, sizeof(text)); ferret99gt@1174: ferret99gt@1174: decl String:name[64]; ferret99gt@1174: GetClientName(client, name, sizeof(name)); ferret99gt@1174: ferret99gt@1277: PrintHintTextToAll("%s: %s", name, text); dvander@1378: LogAction(client, -1, "%L triggered sm_hsay (text %s)", client, text); ferret99gt@1174: ferret99gt@1174: return Plugin_Handled; ferret99gt@1174: } ferret99gt@1174: ferret99gt@1174: public Action:Command_SmTsay(client, args) ferret99gt@1174: { ferret99gt@1174: if (args < 1) ferret99gt@1174: { ferret99gt@1174: ReplyToCommand(client, "[SM] Usage: sm_tsay "); ferret99gt@1174: return Plugin_Handled; ferret99gt@1174: } ferret99gt@1174: ferret99gt@1174: decl String:text[192], String:colorStr[16]; ferret99gt@1174: GetCmdArgString(text, sizeof(text)); ferret99gt@1174: ferret99gt@1174: new len = BreakString(text, colorStr, 16); ferret99gt@1174: ferret99gt@1174: decl String:name[64]; ferret99gt@1174: GetClientName(client, name, sizeof(name)); ferret99gt@1174: ferret99gt@1174: new color = FindColor(colorStr); ferret99gt@1174: ferret99gt@1174: if (color == -1) ferret99gt@1178: SendDialogToAll(_, "%s: %s", name, text); ferret99gt@1174: else ferret99gt@1174: SendDialogToAll(color, "%s: %s", name, text[len]); ferret99gt@1174: dvander@1378: LogAction(client, -1, "%L triggered sm_tsay (text %s)", client, text); ferret99gt@1174: ferret99gt@1174: return Plugin_Handled; ferret99gt@1174: } ferret99gt@1174: ferret99gt@1174: public Action:Command_SmChat(client, args) ferret99gt@1174: { ferret99gt@1174: if (args < 1) ferret99gt@1174: { ferret99gt@1174: ReplyToCommand(client, "[SM] Usage: sm_chat "); ferret99gt@1174: return Plugin_Handled; ferret99gt@1174: } ferret99gt@1174: ferret99gt@1174: decl String:text[192]; ferret99gt@1174: GetCmdArgString(text, sizeof(text)); ferret99gt@1174: ferret99gt@1174: decl String:name[64]; ferret99gt@1174: GetClientName(client, name, sizeof(name)); ferret99gt@1174: ferret99gt@1174: SendChatToAdmins(name, text); dvander@1378: LogAction(client, -1, "%L triggered sm_chat (text %s)", client, text); ferret99gt@1174: ferret99gt@1174: return Plugin_Handled; ferret99gt@1174: } ferret99gt@1174: ferret99gt@1174: public Action:Command_SmPsay(client, args) ferret99gt@1174: { ferret99gt@1174: if (args < 2) ferret99gt@1174: { ferret99gt@1174: ReplyToCommand(client, "[SM] Usage: sm_psay "); ferret99gt@1174: return Plugin_Handled; ferret99gt@1174: } ferret99gt@1174: ferret99gt@1178: decl String:text[192], String:arg[64], String:message[192]; ferret99gt@1174: GetCmdArgString(text, sizeof(text)); ferret99gt@1174: ferret99gt@1178: new len = BreakString(text, arg, sizeof(arg)); ferret99gt@1174: BreakString(text[len], message, sizeof(message)); ferret99gt@1174: ferret99gt@1178: new target = FindTarget(client, arg, true, false); ferret99gt@1178: ferret99gt@1178: if (target == -1) ferret99gt@1178: return Plugin_Handled; ferret99gt@1178: ferret99gt@1174: decl String:name[64], String:name2[64]; ferret99gt@1174: GetClientName(client, name, sizeof(name)); ferret99gt@1178: GetClientName(target, name2, sizeof(name2)); ferret99gt@1174: ferret99gt@1174: if (g_DoColor) ferret99gt@1174: { ferret99gt@1174: PrintToChat(client, "\x04(Private: %s) %s: \x01%s", name2, name, message); ferret99gt@1178: PrintToChat(target, "\x04(Private: %s) %s: \x01%s", name2, name, message); ferret99gt@1174: } ferret99gt@1174: else ferret99gt@1174: { ferret99gt@1174: PrintToChat(client, "(Private: %s) %s: %s", name2, name, message); ferret99gt@1178: PrintToChat(target, "(Private: %s) %s: %s", name2, name, message); ferret99gt@1174: } ferret99gt@1174: dvander@1378: LogAction(client, -1, "%L triggered sm_psay to %L (text %s)", client, target, message); ferret99gt@1174: ferret99gt@1174: return Plugin_Handled; ferret99gt@1174: } ferret99gt@1174: ferret99gt@1174: public Action:Command_SmMsay(client, args) ferret99gt@1174: { ferret99gt@1174: if (args < 1) ferret99gt@1174: { ferret99gt@1174: ReplyToCommand(client, "[SM] Usage: sm_msay "); ferret99gt@1174: return Plugin_Handled; ferret99gt@1174: } ferret99gt@1174: ferret99gt@1174: decl String:text[192]; ferret99gt@1174: GetCmdArgString(text, sizeof(text)); ferret99gt@1174: ferret99gt@1174: decl String:name[64]; ferret99gt@1174: GetClientName(client, name, sizeof(name)); ferret99gt@1174: ferret99gt@1174: SendPanelToAll(name, text); ferret99gt@1174: dvander@1378: LogAction(client, -1, "%L triggered sm_msay (text %s)", client, text); ferret99gt@1174: ferret99gt@1174: return Plugin_Handled; ferret99gt@1174: } ferret99gt@1174: ferret99gt@1174: bool:CheckAdminForChat(client) ferret99gt@1174: { dvander@1434: if (client == 0) dvander@1434: { dvander@1434: return true; dvander@1434: } dvander@1434: ferret99gt@1438: return CheckCommandAccess(client, "sm_chat", ADMFLAG_CHAT); ferret99gt@1174: } ferret99gt@1174: ferret99gt@1174: FindColor(String:color[]) ferret99gt@1174: { ferret99gt@1174: for (new i = 0; i < 13; i++) ferret99gt@1174: { ferret99gt@1174: if (strcmp(color, g_ColorNames[i], false) == 0) ferret99gt@1174: return i; ferret99gt@1174: } ferret99gt@1174: ferret99gt@1174: return -1; ferret99gt@1174: } ferret99gt@1174: ferret99gt@1174: SendChatToAll(String:name[], String:message[]) ferret99gt@1174: { ferret99gt@1174: if (g_DoColor) ferret99gt@1174: { ferret99gt@1174: PrintToChatAll("\x04(ALL) %s: \x01%s", name, message); ferret99gt@1174: } ferret99gt@1174: else ferret99gt@1174: { ferret99gt@1174: PrintToChatAll("(ALL) %s: %s", name, message); ferret99gt@1174: } ferret99gt@1174: } ferret99gt@1174: ferret99gt@1174: SendChatToAdmins(String:name[], String:message[]) ferret99gt@1174: { ferret99gt@1174: new iMaxClients = GetMaxClients(); ferret99gt@1174: ferret99gt@1174: for (new i = 1; i <= iMaxClients; i++) ferret99gt@1174: { ferret99gt@1174: if (IsClientInGame(i)) ferret99gt@1174: { ferret99gt@1174: if (CheckAdminForChat(i)) ferret99gt@1174: { ferret99gt@1174: if (g_DoColor) ferret99gt@1174: { ferret99gt@1174: PrintToChat(i, "\x04(ADMINS) %s: \x01%s", name, message); ferret99gt@1174: } ferret99gt@1174: else ferret99gt@1174: { ferret99gt@1174: PrintToChat(i, "(ADMINS) %s: %s", name, message); ferret99gt@1174: } ferret99gt@1174: } ferret99gt@1174: } ferret99gt@1174: } ferret99gt@1174: } ferret99gt@1174: ferret99gt@1174: SendDialogToAll(color = 0, String:text[], any:...) ferret99gt@1174: { ferret99gt@1174: new String:message[100]; ferret99gt@1174: VFormat(message, sizeof(message), text, 3); ferret99gt@1174: ferret99gt@1174: new MaxClients = GetMaxClients(); ferret99gt@1174: for(new i = 1; i < MaxClients; i++) ferret99gt@1174: { ferret99gt@1174: if(IsClientInGame(i)) ferret99gt@1174: { ferret99gt@1174: new Handle:kv = CreateKeyValues("Stuff", "title", message); ferret99gt@1174: KvSetColor(kv, "color", g_Colors[color][0], g_Colors[color][1], g_Colors[color][2], 255); ferret99gt@1174: KvSetNum(kv, "level", 1); ferret99gt@1174: KvSetNum(kv, "time", 10); ferret99gt@1174: ferret99gt@1174: CreateDialog(i, kv, DialogType_Msg); ferret99gt@1174: ferret99gt@1174: CloseHandle(kv); ferret99gt@1174: } ferret99gt@1174: } ferret99gt@1174: } ferret99gt@1174: ferret99gt@1174: SendPanelToAll(String:name[], String:message[]) ferret99gt@1174: { ferret99gt@1174: decl String:title[100]; ferret99gt@1174: Format(title, 64, "%s:", name); ferret99gt@1174: ferret99gt@1174: ReplaceString(message, 192, "\\n", "\n"); ferret99gt@1174: ferret99gt@1174: new Handle:mSayPanel = CreatePanel(); ferret99gt@1174: SetPanelTitle(mSayPanel, title); ferret99gt@1174: DrawPanelItem(mSayPanel, "", ITEMDRAW_SPACER); ferret99gt@1174: DrawPanelText(mSayPanel, message); ferret99gt@1174: DrawPanelItem(mSayPanel, "", ITEMDRAW_SPACER); ferret99gt@1174: ferret99gt@1174: SetPanelCurrentKey(mSayPanel, 10); ferret99gt@1174: DrawPanelItem(mSayPanel, "Exit", ITEMDRAW_CONTROL); ferret99gt@1174: ferret99gt@1174: new MaxClients = GetMaxClients(); ferret99gt@1174: for(new i = 1; i < MaxClients; i++) ferret99gt@1174: { ferret99gt@1174: if(IsClientInGame(i) && !IsFakeClient(i)) ferret99gt@1174: { ferret99gt@1174: SendPanelToClient(mSayPanel, i, Handler_DoNothing, 10); ferret99gt@1174: } ferret99gt@1174: } ferret99gt@1174: ferret99gt@1174: CloseHandle(mSayPanel); ferret99gt@1174: } ferret99gt@1174: ferret99gt@1174: public Handler_DoNothing(Handle:menu, MenuAction:action, param1, param2) ferret99gt@1174: { ferret99gt@1174: /* Do nothing */ ds@1268: }