1.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000
1.2 +++ b/plugins/basechat.sp Sun Mar 30 07:00:22 2008 +0000
1.3 @@ -0,0 +1,479 @@
1.4 +/**
1.5 + * vim: set ts=4 :
1.6 + * =============================================================================
1.7 + * SourceMod Basic Chat Plugin
1.8 + * Implements basic communication commands.
1.9 + *
1.10 + * SourceMod (C)2004-2008 AlliedModders LLC. All rights reserved.
1.11 + * =============================================================================
1.12 + *
1.13 + * This program is free software; you can redistribute it and/or modify it under
1.14 + * the terms of the GNU General Public License, version 3.0, as published by the
1.15 + * Free Software Foundation.
1.16 + *
1.17 + * This program is distributed in the hope that it will be useful, but WITHOUT
1.18 + * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
1.19 + * FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
1.20 + * details.
1.21 + *
1.22 + * You should have received a copy of the GNU General Public License along with
1.23 + * this program. If not, see <http://www.gnu.org/licenses/>.
1.24 + *
1.25 + * As a special exception, AlliedModders LLC gives you permission to link the
1.26 + * code of this program (as well as its derivative works) to "Half-Life 2," the
1.27 + * "Source Engine," the "SourcePawn JIT," and any Game MODs that run on software
1.28 + * by the Valve Corporation. You must obey the GNU General Public License in
1.29 + * all respects for all other code used. Additionally, AlliedModders LLC grants
1.30 + * this exception to all derivative works. AlliedModders LLC defines further
1.31 + * exceptions, found in LICENSE.txt (as of this writing, version JULY-31-2007),
1.32 + * or <http://www.sourcemod.net/license.php>.
1.33 + *
1.34 + * Version: $Id$
1.35 + */
1.36 +
1.37 +#pragma semicolon 1
1.38 +
1.39 +#include <sourcemod>
1.40 +
1.41 +public Plugin:myinfo =
1.42 +{
1.43 + name = "Basic Chat",
1.44 + author = "AlliedModders LLC",
1.45 + description = "Basic Communication Commands",
1.46 + version = SOURCEMOD_VERSION,
1.47 + url = "http://www.sourcemod.net/"
1.48 +};
1.49 +
1.50 +#define CHAT_SYMBOL '@'
1.51 +
1.52 +new String:g_ColorNames[13][10] = {"White", "Red", "Green", "Blue", "Yellow", "Purple", "Cyan", "Orange", "Pink", "Olive", "Lime", "Violet", "Lightblue"};
1.53 +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}};
1.54 +
1.55 +new Handle:g_Cvar_Chatmode = INVALID_HANDLE;
1.56 +
1.57 +new bool:g_DoColor = true;
1.58 +
1.59 +public OnPluginStart()
1.60 +{
1.61 + LoadTranslations("common.phrases");
1.62 +
1.63 + g_Cvar_Chatmode = CreateConVar("sm_chat_mode", "1", "Allows player's to send messages to admin chat.", 0, true, 0.0, true, 1.0);
1.64 +
1.65 + RegConsoleCmd("say", Command_SayChat);
1.66 + RegConsoleCmd("say_team", Command_SayAdmin);
1.67 + RegAdminCmd("sm_say", Command_SmSay, ADMFLAG_CHAT, "sm_say <message> - sends message to all players");
1.68 + RegAdminCmd("sm_csay", Command_SmCsay, ADMFLAG_CHAT, "sm_csay <message> - sends centered message to all players");
1.69 + RegAdminCmd("sm_hsay", Command_SmHsay, ADMFLAG_CHAT, "sm_hsay <message> - sends hint message to all players");
1.70 + RegAdminCmd("sm_tsay", Command_SmTsay, ADMFLAG_CHAT, "sm_tsay [color] <message> - sends top-left message to all players");
1.71 + RegAdminCmd("sm_chat", Command_SmChat, ADMFLAG_CHAT, "sm_chat <message> - sends message to admins");
1.72 + RegAdminCmd("sm_psay", Command_SmPsay, ADMFLAG_CHAT, "sm_psay <name or #userid> <message> - sends private message");
1.73 + RegAdminCmd("sm_msay", Command_SmMsay, ADMFLAG_CHAT, "sm_msay <message> - sends message as a menu panel");
1.74 +
1.75 + decl String:modname[64];
1.76 + GetGameFolderName(modname, sizeof(modname));
1.77 +
1.78 + if (strcmp(modname, "hl2mp") == 0)
1.79 + {
1.80 + g_DoColor = false;
1.81 + }
1.82 +}
1.83 +
1.84 +public Action:Command_SayChat(client, args)
1.85 +{
1.86 + decl String:text[192];
1.87 + if (IsChatTrigger() || GetCmdArgString(text, sizeof(text)) < 1)
1.88 + {
1.89 + return Plugin_Continue;
1.90 + }
1.91 +
1.92 + new startidx;
1.93 + if (text[strlen(text)-1] == '"')
1.94 + {
1.95 + text[strlen(text)-1] = '\0';
1.96 + startidx = 1;
1.97 + }
1.98 +
1.99 + if (text[startidx] != CHAT_SYMBOL)
1.100 + return Plugin_Continue;
1.101 +
1.102 + new msgStart = 1;
1.103 +
1.104 + if (text[startidx+1] == CHAT_SYMBOL)
1.105 + {
1.106 + msgStart = 2;
1.107 +
1.108 + if (text[startidx+2] == CHAT_SYMBOL)
1.109 + msgStart = 3;
1.110 + }
1.111 +
1.112 + decl String:message[192];
1.113 + strcopy(message, 192, text[startidx+msgStart]);
1.114 +
1.115 + decl String:name[64];
1.116 + GetClientName(client, name, sizeof(name));
1.117 +
1.118 + if (msgStart == 1 && CheckCommandAccess(client, "sm_say", ADMFLAG_CHAT)) // sm_say alias
1.119 + {
1.120 + SendChatToAll(name, message);
1.121 + LogAction(client, -1, "%L triggered sm_say (text %s)", client, message);
1.122 + }
1.123 + else if (msgStart == 3 && CheckCommandAccess(client, "sm_csay", ADMFLAG_CHAT)) // sm_csay alias
1.124 + {
1.125 + PrintCenterTextAll("%s: %s", name, message);
1.126 + LogAction(client, -1, "%L triggered sm_csay (text %s)", client, text);
1.127 + }
1.128 + else if (msgStart == 2 && CheckCommandAccess(client, "sm_psay", ADMFLAG_CHAT)) // sm_psay alias
1.129 + {
1.130 + decl String:arg[64];
1.131 +
1.132 + new len = BreakString(message, arg, sizeof(arg));
1.133 + new target = FindTarget(client, arg, true, false);
1.134 +
1.135 + if (target == -1)
1.136 + return Plugin_Handled;
1.137 +
1.138 + decl String:name2[64];
1.139 + GetClientName(target, name2, sizeof(name2));
1.140 +
1.141 + if (g_DoColor)
1.142 + {
1.143 + PrintToChat(client, "\x04(Private to %s) %s: \x01%s", name2, name, message[len]);
1.144 + PrintToChat(target, "\x04(Private to %s) %s: \x01%s", name2, name, message[len]);
1.145 + }
1.146 + else
1.147 + {
1.148 + PrintToChat(client, "(Private to %s) %s: %s", name2, name, message[len]);
1.149 + PrintToChat(target, "(Private to %s) %s: %s", name2, name, message[len]);
1.150 + }
1.151 +
1.152 + LogAction(client, -1, "%L triggered sm_psay to %L (text %s)", client, target, message);
1.153 + }
1.154 + else
1.155 + return Plugin_Continue;
1.156 +
1.157 + return Plugin_Handled;
1.158 +}
1.159 +
1.160 +public Action:Command_SayAdmin(client, args)
1.161 +{
1.162 + if (!CheckCommandAccess(client, "sm_chat", ADMFLAG_CHAT) && !GetConVarBool(g_Cvar_Chatmode))
1.163 + {
1.164 + return Plugin_Continue;
1.165 + }
1.166 +
1.167 + decl String:text[192];
1.168 + if (IsChatTrigger() || GetCmdArgString(text, sizeof(text)) < 1)
1.169 + {
1.170 + return Plugin_Continue;
1.171 + }
1.172 +
1.173 + new startidx;
1.174 + if (text[strlen(text)-1] == '"')
1.175 + {
1.176 + text[strlen(text)-1] = '\0';
1.177 + startidx = 1;
1.178 + }
1.179 +
1.180 + if (text[startidx] != CHAT_SYMBOL)
1.181 + return Plugin_Continue;
1.182 +
1.183 + decl String:message[192];
1.184 + strcopy(message, 192, text[startidx+1]);
1.185 +
1.186 + decl String:name[64];
1.187 + GetClientName(client, name, sizeof(name));
1.188 +
1.189 + SendChatToAdmins(name, message);
1.190 + LogAction(client, -1, "%L triggered sm_chat (text %s)", client, message);
1.191 +
1.192 + return Plugin_Handled;
1.193 +}
1.194 +
1.195 +public Action:Command_SmSay(client, args)
1.196 +{
1.197 + if (args < 1)
1.198 + {
1.199 + ReplyToCommand(client, "[SM] Usage: sm_say <message>");
1.200 + return Plugin_Handled;
1.201 + }
1.202 +
1.203 + decl String:text[192];
1.204 + GetCmdArgString(text, sizeof(text));
1.205 +
1.206 + decl String:name[64];
1.207 + GetClientName(client, name, sizeof(name));
1.208 +
1.209 + SendChatToAll(name, text);
1.210 + LogAction(client, -1, "%L triggered sm_say (text %s)", client, text);
1.211 +
1.212 + return Plugin_Handled;
1.213 +}
1.214 +
1.215 +public Action:Command_SmCsay(client, args)
1.216 +{
1.217 + if (args < 1)
1.218 + {
1.219 + ReplyToCommand(client, "[SM] Usage: sm_csay <message>");
1.220 + return Plugin_Handled;
1.221 + }
1.222 +
1.223 + decl String:text[192];
1.224 + GetCmdArgString(text, sizeof(text));
1.225 +
1.226 + new String:name[64];
1.227 + GetClientName(client, name, sizeof(name));
1.228 +
1.229 + PrintCenterTextAll("%s: %s", name, text);
1.230 + LogAction(client, -1, "%L triggered sm_csay (text %s)", client, text);
1.231 +
1.232 + return Plugin_Handled;
1.233 +}
1.234 +
1.235 +public Action:Command_SmHsay(client, args)
1.236 +{
1.237 + if (args < 1)
1.238 + {
1.239 + ReplyToCommand(client, "[SM] Usage: sm_hsay <message>");
1.240 + return Plugin_Handled;
1.241 + }
1.242 +
1.243 + decl String:text[192];
1.244 + GetCmdArgString(text, sizeof(text));
1.245 +
1.246 + decl String:name[64];
1.247 + GetClientName(client, name, sizeof(name));
1.248 +
1.249 + PrintHintTextToAll("%s: %s", name, text);
1.250 + LogAction(client, -1, "%L triggered sm_hsay (text %s)", client, text);
1.251 +
1.252 + return Plugin_Handled;
1.253 +}
1.254 +
1.255 +public Action:Command_SmTsay(client, args)
1.256 +{
1.257 + if (args < 1)
1.258 + {
1.259 + ReplyToCommand(client, "[SM] Usage: sm_tsay <message>");
1.260 + return Plugin_Handled;
1.261 + }
1.262 +
1.263 + decl String:text[192], String:colorStr[16];
1.264 + GetCmdArgString(text, sizeof(text));
1.265 +
1.266 + new len = BreakString(text, colorStr, 16);
1.267 +
1.268 + decl String:name[64];
1.269 + GetClientName(client, name, sizeof(name));
1.270 +
1.271 + new color = FindColor(colorStr);
1.272 +
1.273 + if (color == -1)
1.274 + SendDialogToAll(_, "%s: %s", name, text);
1.275 + else
1.276 + SendDialogToAll(color, "%s: %s", name, text[len]);
1.277 +
1.278 + LogAction(client, -1, "%L triggered sm_tsay (text %s)", client, text);
1.279 +
1.280 + return Plugin_Handled;
1.281 +}
1.282 +
1.283 +public Action:Command_SmChat(client, args)
1.284 +{
1.285 + if (args < 1)
1.286 + {
1.287 + ReplyToCommand(client, "[SM] Usage: sm_chat <message>");
1.288 + return Plugin_Handled;
1.289 + }
1.290 +
1.291 + decl String:text[192];
1.292 + GetCmdArgString(text, sizeof(text));
1.293 +
1.294 + decl String:name[64];
1.295 + GetClientName(client, name, sizeof(name));
1.296 +
1.297 + SendChatToAdmins(name, text);
1.298 + LogAction(client, -1, "%L triggered sm_chat (text %s)", client, text);
1.299 +
1.300 + return Plugin_Handled;
1.301 +}
1.302 +
1.303 +public Action:Command_SmPsay(client, args)
1.304 +{
1.305 + if (args < 2)
1.306 + {
1.307 + ReplyToCommand(client, "[SM] Usage: sm_psay <name or #userid> <message>");
1.308 + return Plugin_Handled;
1.309 + }
1.310 +
1.311 + decl String:text[192], String:arg[64], String:message[192];
1.312 + GetCmdArgString(text, sizeof(text));
1.313 +
1.314 + new len = BreakString(text, arg, sizeof(arg));
1.315 + BreakString(text[len], message, sizeof(message));
1.316 +
1.317 + new target = FindTarget(client, arg, true, false);
1.318 +
1.319 + if (target == -1)
1.320 + return Plugin_Handled;
1.321 +
1.322 + decl String:name[64], String:name2[64];
1.323 +
1.324 + if (client == 0)
1.325 + {
1.326 + name = "Console";
1.327 + }
1.328 + else
1.329 + {
1.330 + GetClientName(client, name, sizeof(name));
1.331 + }
1.332 +
1.333 + GetClientName(target, name2, sizeof(name2));
1.334 +
1.335 + if (client == 0)
1.336 + {
1.337 + PrintToServer("(Private: %s) %s: %s", name2, name, message);
1.338 + }
1.339 + else if (g_DoColor)
1.340 + {
1.341 + PrintToChat(client, "\x04(Private: %s) %s: \x01%s", name2, name, message);
1.342 + }
1.343 + else
1.344 + {
1.345 + PrintToChat(client, "(Private: %s) %s: %s", name2, name, message);
1.346 + }
1.347 +
1.348 + if (g_DoColor)
1.349 + {
1.350 + PrintToChat(target, "\x04(Private: %s) %s: \x01%s", name2, name, message);
1.351 + }
1.352 + else
1.353 + {
1.354 + PrintToChat(target, "(Private: %s) %s: %s", name2, name, message);
1.355 + }
1.356 +
1.357 + LogAction(client, -1, "%L triggered sm_psay to %L (text %s)", client, target, message);
1.358 +
1.359 + return Plugin_Handled;
1.360 +}
1.361 +
1.362 +public Action:Command_SmMsay(client, args)
1.363 +{
1.364 + if (args < 1)
1.365 + {
1.366 + ReplyToCommand(client, "[SM] Usage: sm_msay <message>");
1.367 + return Plugin_Handled;
1.368 + }
1.369 +
1.370 + decl String:text[192];
1.371 + GetCmdArgString(text, sizeof(text));
1.372 +
1.373 + decl String:name[64];
1.374 + GetClientName(client, name, sizeof(name));
1.375 +
1.376 + SendPanelToAll(name, text);
1.377 +
1.378 + LogAction(client, -1, "%L triggered sm_msay (text %s)", client, text);
1.379 +
1.380 + return Plugin_Handled;
1.381 +}
1.382 +
1.383 +FindColor(String:color[])
1.384 +{
1.385 + for (new i = 0; i < 13; i++)
1.386 + {
1.387 + if (strcmp(color, g_ColorNames[i], false) == 0)
1.388 + return i;
1.389 + }
1.390 +
1.391 + return -1;
1.392 +}
1.393 +
1.394 +SendChatToAll(String:name[], String:message[])
1.395 +{
1.396 + if (g_DoColor)
1.397 + {
1.398 + PrintToChatAll("\x04(ALL) %s: \x01%s", name, message);
1.399 + }
1.400 + else
1.401 + {
1.402 + PrintToChatAll("(ALL) %s: %s", name, message);
1.403 + }
1.404 +}
1.405 +
1.406 +SendChatToAdmins(String:name[], String:message[])
1.407 +{
1.408 + new iMaxClients = GetMaxClients();
1.409 +
1.410 + for (new i = 1; i <= iMaxClients; i++)
1.411 + {
1.412 + if (IsClientInGame(i))
1.413 + {
1.414 + if (CheckCommandAccess(i, "sm_chat", ADMFLAG_CHAT))
1.415 + {
1.416 + if (g_DoColor)
1.417 + {
1.418 + PrintToChat(i, "\x04(ADMINS) %s: \x01%s", name, message);
1.419 + }
1.420 + else
1.421 + {
1.422 + PrintToChat(i, "(ADMINS) %s: %s", name, message);
1.423 + }
1.424 + }
1.425 + }
1.426 + }
1.427 +}
1.428 +
1.429 +SendDialogToAll(color = 0, String:text[], any:...)
1.430 +{
1.431 + new String:message[100];
1.432 + VFormat(message, sizeof(message), text, 3);
1.433 +
1.434 + new MaxClients = GetMaxClients();
1.435 + for(new i = 1; i < MaxClients; i++)
1.436 + {
1.437 + if(IsClientInGame(i))
1.438 + {
1.439 + new Handle:kv = CreateKeyValues("Stuff", "title", message);
1.440 + KvSetColor(kv, "color", g_Colors[color][0], g_Colors[color][1], g_Colors[color][2], 255);
1.441 + KvSetNum(kv, "level", 1);
1.442 + KvSetNum(kv, "time", 10);
1.443 +
1.444 + CreateDialog(i, kv, DialogType_Msg);
1.445 +
1.446 + CloseHandle(kv);
1.447 + }
1.448 + }
1.449 +}
1.450 +
1.451 +SendPanelToAll(String:name[], String:message[])
1.452 +{
1.453 + decl String:title[100];
1.454 + Format(title, 64, "%s:", name);
1.455 +
1.456 + ReplaceString(message, 192, "\\n", "\n");
1.457 +
1.458 + new Handle:mSayPanel = CreatePanel();
1.459 + SetPanelTitle(mSayPanel, title);
1.460 + DrawPanelItem(mSayPanel, "", ITEMDRAW_SPACER);
1.461 + DrawPanelText(mSayPanel, message);
1.462 + DrawPanelItem(mSayPanel, "", ITEMDRAW_SPACER);
1.463 +
1.464 + SetPanelCurrentKey(mSayPanel, 10);
1.465 + DrawPanelItem(mSayPanel, "Exit", ITEMDRAW_CONTROL);
1.466 +
1.467 + new MaxClients = GetMaxClients();
1.468 + for(new i = 1; i < MaxClients; i++)
1.469 + {
1.470 + if(IsClientInGame(i) && !IsFakeClient(i))
1.471 + {
1.472 + SendPanelToClient(mSayPanel, i, Handler_DoNothing, 10);
1.473 + }
1.474 + }
1.475 +
1.476 + CloseHandle(mSayPanel);
1.477 +}
1.478 +
1.479 +public Handler_DoNothing(Handle:menu, MenuAction:action, param1, param2)
1.480 +{
1.481 + /* Do nothing */
1.482 +}
