Home - sourcemod-central - file revision - plugins/basechat.sp@80d56f1d58fe Mercurial
summary | shortlog | changelog | graph | tags | branches | files | changeset | file | latest | revisions | annotate | diff | raw | help
plugins/basechat.sp
author Matt Woodrow <pred@alliedmods.net>
Sat May 24 04:08:29 2008 +0000 (2008-05-24)
changeset 2069 80d56f1d58fe
parent 1952 b7aa2b626807
child 2218 d45329f70462
permissions -rw-r--r--
Added a load-block for incorrect mods to TF2 and cstrike extensions. 
     1 /**
     2  * vim: set ts=4 :
     3  * =============================================================================
     4  * SourceMod Basic Chat Plugin
     5  * Implements basic communication commands.
     6  *
     7  * SourceMod (C)2004-2008 AlliedModders LLC.  All rights reserved.
     8  * =============================================================================
     9  *
    10  * This program is free software; you can redistribute it and/or modify it under
    11  * the terms of the GNU General Public License, version 3.0, as published by the
    12  * Free Software Foundation.
    13  * 
    14  * This program is distributed in the hope that it will be useful, but WITHOUT
    15  * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
    16  * FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
    17  * details.
    18  *
    19  * You should have received a copy of the GNU General Public License along with
    20  * this program.  If not, see <http://www.gnu.org/licenses/>.
    21  *
    22  * As a special exception, AlliedModders LLC gives you permission to link the
    23  * code of this program (as well as its derivative works) to "Half-Life 2," the
    24  * "Source Engine," the "SourcePawn JIT," and any Game MODs that run on software
    25  * by the Valve Corporation.  You must obey the GNU General Public License in
    26  * all respects for all other code used.  Additionally, AlliedModders LLC grants
    27  * this exception to all derivative works.  AlliedModders LLC defines further
    28  * exceptions, found in LICENSE.txt (as of this writing, version JULY-31-2007),
    29  * or <http://www.sourcemod.net/license.php>.
    30  *
    31  * Version: $Id$
    32  */
    33 
    34 #pragma semicolon 1
    35 
    36 #include <sourcemod>
    37 
    38 public Plugin:myinfo = 
    39 {
    40 	name = "Basic Chat",
    41 	author = "AlliedModders LLC",
    42 	description = "Basic Communication Commands",
    43 	version = SOURCEMOD_VERSION,
    44 	url = "http://www.sourcemod.net/"
    45 };
    46 
    47 #define CHAT_SYMBOL '@'
    48 
    49 new String:g_ColorNames[13][10] = {"White", "Red", "Green", "Blue", "Yellow", "Purple", "Cyan", "Orange", "Pink", "Olive", "Lime", "Violet", "Lightblue"};
    50 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}};
    51 
    52 new Handle:g_Cvar_Chatmode = INVALID_HANDLE;
    53 
    54 new bool:g_DoColor = true;
    55 
    56 public OnPluginStart()
    57 {
    58 	LoadTranslations("common.phrases");
    59 
    60 	g_Cvar_Chatmode = CreateConVar("sm_chat_mode", "1", "Allows player's to send messages to admin chat.", 0, true, 0.0, true, 1.0);
    61 
    62 	RegConsoleCmd("say", Command_SayChat);
    63 	RegConsoleCmd("say_team", Command_SayAdmin);		
    64 	RegAdminCmd("sm_say", Command_SmSay, ADMFLAG_CHAT, "sm_say <message> - sends message to all players");
    65 	RegAdminCmd("sm_csay", Command_SmCsay, ADMFLAG_CHAT, "sm_csay <message> - sends centered message to all players");
    66 	RegAdminCmd("sm_hsay", Command_SmHsay, ADMFLAG_CHAT, "sm_hsay <message> - sends hint message to all players");
    67 	RegAdminCmd("sm_tsay", Command_SmTsay, ADMFLAG_CHAT, "sm_tsay [color] <message> - sends top-left message to all players");
    68 	RegAdminCmd("sm_chat", Command_SmChat, ADMFLAG_CHAT, "sm_chat <message> - sends message to admins");
    69 	RegAdminCmd("sm_psay", Command_SmPsay, ADMFLAG_CHAT, "sm_psay <name or #userid> <message> - sends private message");
    70 	RegAdminCmd("sm_msay", Command_SmMsay, ADMFLAG_CHAT, "sm_msay <message> - sends message as a menu panel");
    71 	
    72 	decl String:modname[64];
    73 	GetGameFolderName(modname, sizeof(modname));
    74 	
    75 	if (strcmp(modname, "hl2mp") == 0)
    76 	{
    77 		g_DoColor = false;
    78 	}
    79 }
    80 
    81 public Action:Command_SayChat(client, args)
    82 {	
    83 	decl String:text[192];
    84 	if (IsChatTrigger() || GetCmdArgString(text, sizeof(text)) < 1)
    85 	{
    86 		return Plugin_Continue;
    87 	}
    88 	
    89 	new startidx;
    90 	if (text[strlen(text)-1] == '"')
    91 	{
    92 		text[strlen(text)-1] = '\0';
    93 		startidx = 1;
    94 	}
    95 	
    96 	if (text[startidx] != CHAT_SYMBOL)
    97 		return Plugin_Continue;
    98 	
    99 	new msgStart = 1;
   100 	
   101 	if (text[startidx+1] == CHAT_SYMBOL)
   102 	{
   103 		msgStart = 2;
   104 		
   105 		if (text[startidx+2] == CHAT_SYMBOL)
   106 			msgStart = 3;
   107 	}
   108 	
   109 	decl String:message[192];
   110 	strcopy(message, 192, text[startidx+msgStart]);
   111 	
   112 	decl String:name[64];
   113 	GetClientName(client, name, sizeof(name));
   114 	
   115 	if (msgStart == 1 && CheckCommandAccess(client, "sm_say", ADMFLAG_CHAT)) // sm_say alias
   116 	{
   117 		SendChatToAll(name, message);
   118 		LogAction(client, -1, "%L triggered sm_say (text %s)", client, message);
   119 	}
   120 	else if (msgStart == 3 && CheckCommandAccess(client, "sm_csay", ADMFLAG_CHAT)) // sm_csay alias
   121 	{
   122 		PrintCenterTextAll("%s: %s", name, message);
   123 		LogAction(client, -1, "%L triggered sm_csay (text %s)", client, text);		
   124 	}	
   125 	else if (msgStart == 2 && CheckCommandAccess(client, "sm_psay", ADMFLAG_CHAT)) // sm_psay alias
   126 	{
   127 		decl String:arg[64];
   128 	
   129 		new len = BreakString(message, arg, sizeof(arg));
   130 		new target = FindTarget(client, arg, true, false);
   131 		
   132 		if (target == -1)
   133 			return Plugin_Handled;
   134 		
   135 		decl String:name2[64];
   136 		GetClientName(target, name2, sizeof(name2));
   137 	
   138 		if (g_DoColor)
   139 		{
   140 			PrintToChat(client, "\x04(Private to %s) %s: \x01%s", name2, name, message[len]);
   141 			PrintToChat(target, "\x04(Private to %s) %s: \x01%s", name2, name, message[len]);
   142 		}
   143 		else
   144 		{
   145 			PrintToChat(client, "(Private to %s) %s: %s", name2, name, message[len]);
   146 			PrintToChat(target, "(Private to %s) %s: %s", name2, name, message[len]);			
   147 		}
   148 
   149 		LogAction(client, -1, "%L triggered sm_psay to %L (text %s)", client, target, message);		
   150 	}
   151 	else
   152 		return Plugin_Continue;
   153 	
   154 	return Plugin_Handled;	
   155 }
   156 
   157 public Action:Command_SayAdmin(client, args)
   158 {
   159 	if (!CheckCommandAccess(client, "sm_chat", ADMFLAG_CHAT) && !GetConVarBool(g_Cvar_Chatmode))
   160 	{
   161 		return Plugin_Continue;	
   162 	}
   163 	
   164 	decl String:text[192];
   165 	if (IsChatTrigger() || GetCmdArgString(text, sizeof(text)) < 1)
   166 	{
   167 		return Plugin_Continue;
   168 	}
   169 	
   170 	new startidx;
   171 	if (text[strlen(text)-1] == '"')
   172 	{
   173 		text[strlen(text)-1] = '\0';
   174 		startidx = 1;
   175 	}
   176 	
   177 	if (text[startidx] != CHAT_SYMBOL)
   178 		return Plugin_Continue;
   179 	
   180 	decl String:message[192];
   181 	strcopy(message, 192, text[startidx+1]);
   182 
   183 	decl String:name[64];
   184 	GetClientName(client, name, sizeof(name));
   185 	
   186 	SendChatToAdmins(name, message);
   187 	LogAction(client, -1, "%L triggered sm_chat (text %s)", client, message);
   188 	
   189 	return Plugin_Handled;	
   190 }
   191 
   192 public Action:Command_SmSay(client, args)
   193 {
   194 	if (args < 1)
   195 	{
   196 		ReplyToCommand(client, "[SM] Usage: sm_say <message>");
   197 		return Plugin_Handled;	
   198 	}
   199 	
   200 	decl String:text[192];
   201 	GetCmdArgString(text, sizeof(text));
   202 
   203 	decl String:name[64];
   204 	GetClientName(client, name, sizeof(name));
   205 			
   206 	SendChatToAll(name, text);
   207 	LogAction(client, -1, "%L triggered sm_say (text %s)", client, text);
   208 	
   209 	return Plugin_Handled;		
   210 }
   211 
   212 public Action:Command_SmCsay(client, args)
   213 {
   214 	if (args < 1)
   215 	{
   216 		ReplyToCommand(client, "[SM] Usage: sm_csay <message>");
   217 		return Plugin_Handled;	
   218 	}
   219 	
   220 	decl String:text[192];
   221 	GetCmdArgString(text, sizeof(text));
   222 
   223 	new String:name[64];
   224 	GetClientName(client, name, sizeof(name));
   225 	
   226 	PrintCenterTextAll("%s: %s", name, text);
   227 	LogAction(client, -1, "%L triggered sm_csay (text %s)", client, text);
   228 	
   229 	return Plugin_Handled;		
   230 }
   231 
   232 public Action:Command_SmHsay(client, args)
   233 {
   234 	if (args < 1)
   235 	{
   236 		ReplyToCommand(client, "[SM] Usage: sm_hsay <message>");
   237 		return Plugin_Handled;  
   238 	}
   239     
   240 	decl String:text[192];
   241 	GetCmdArgString(text, sizeof(text));
   242  
   243 	decl String:name[64];
   244 	GetClientName(client, name, sizeof(name));
   245     
   246 	PrintHintTextToAll("%s: %s", name, text);
   247 	LogAction(client, -1, "%L triggered sm_hsay (text %s)", client, text);
   248     
   249 	return Plugin_Handled;    
   250 }
   251 
   252 public Action:Command_SmTsay(client, args)
   253 {
   254 	if (args < 1)
   255 	{
   256 		ReplyToCommand(client, "[SM] Usage: sm_tsay <message>");
   257 		return Plugin_Handled;  
   258 	}
   259     
   260 	decl String:text[192], String:colorStr[16];
   261 	GetCmdArgString(text, sizeof(text));
   262 	
   263 	new len = BreakString(text, colorStr, 16);
   264  
   265 	decl String:name[64];
   266 	GetClientName(client, name, sizeof(name));
   267 		
   268 	new color = FindColor(colorStr);
   269 
   270 	if (color == -1)    
   271 		SendDialogToAll(_, "%s: %s", name, text);
   272 	else
   273 		SendDialogToAll(color, "%s: %s", name, text[len]);
   274 
   275 	LogAction(client, -1, "%L triggered sm_tsay (text %s)", client, text);
   276     
   277 	return Plugin_Handled;    
   278 }
   279 
   280 public Action:Command_SmChat(client, args)
   281 {
   282 	if (args < 1)
   283 	{
   284 		ReplyToCommand(client, "[SM] Usage: sm_chat <message>");
   285 		return Plugin_Handled;	
   286 	}	
   287 	
   288 	decl String:text[192];
   289 	GetCmdArgString(text, sizeof(text));
   290 
   291 	decl String:name[64];
   292 	GetClientName(client, name, sizeof(name));
   293 	
   294 	SendChatToAdmins(name, text);
   295 	LogAction(client, -1, "%L triggered sm_chat (text %s)", client, text);
   296 	
   297 	return Plugin_Handled;	
   298 }
   299 
   300 public Action:Command_SmPsay(client, args)
   301 {
   302 	if (args < 2)
   303 	{
   304 		ReplyToCommand(client, "[SM] Usage: sm_psay <name or #userid> <message>");
   305 		return Plugin_Handled;	
   306 	}	
   307 	
   308 	decl String:text[192], String:arg[64], String:message[192];
   309 	GetCmdArgString(text, sizeof(text));
   310 
   311 	new len = BreakString(text, arg, sizeof(arg));
   312 	BreakString(text[len], message, sizeof(message));
   313 	
   314 	new target = FindTarget(client, arg, true, false);
   315 		
   316 	if (target == -1)
   317 		return Plugin_Handled;	
   318 		
   319 	decl String:name[64], String:name2[64];
   320 
   321 	if (client == 0)
   322 	{
   323 		name = "Console";
   324 	}
   325 	else
   326 	{
   327 		GetClientName(client, name, sizeof(name));
   328 	}
   329 
   330 	GetClientName(target, name2, sizeof(name2));
   331 
   332 	if (client == 0)
   333 	{
   334 		PrintToServer("(Private: %s) %s: %s", name2, name, message);
   335 	}
   336 	else if (g_DoColor)
   337 	{
   338 		PrintToChat(client, "\x04(Private: %s) %s: \x01%s", name2, name, message);
   339 	}
   340 	else
   341 	{
   342 		PrintToChat(client, "(Private: %s) %s: %s", name2, name, message);
   343 	}
   344 
   345 	if (g_DoColor)
   346 	{
   347 		PrintToChat(target, "\x04(Private: %s) %s: \x01%s", name2, name, message);
   348 	}
   349 	else
   350 	{
   351 		PrintToChat(target, "(Private: %s) %s: %s", name2, name, message);		
   352 	}
   353 
   354 	LogAction(client, -1, "%L triggered sm_psay to %L (text %s)", client, target, message);
   355 	
   356 	return Plugin_Handled;	
   357 }
   358 
   359 public Action:Command_SmMsay(client, args)
   360 {
   361 	if (args < 1)
   362 	{
   363 		ReplyToCommand(client, "[SM] Usage: sm_msay <message>");
   364 		return Plugin_Handled;	
   365 	}
   366 	
   367 	decl String:text[192];
   368 	GetCmdArgString(text, sizeof(text));
   369 
   370 	decl String:name[64];
   371 	GetClientName(client, name, sizeof(name));
   372 		
   373 	SendPanelToAll(name, text);
   374 
   375 	LogAction(client, -1, "%L triggered sm_msay (text %s)", client, text);
   376 	
   377 	return Plugin_Handled;		
   378 }
   379 
   380 FindColor(String:color[])
   381 {
   382 	for (new i = 0; i < 13; i++)
   383 	{
   384 		if (strcmp(color, g_ColorNames[i], false) == 0)
   385 			return i;
   386 	}
   387 	
   388 	return -1;
   389 }
   390 
   391 SendChatToAll(String:name[], String:message[])
   392 {
   393 	if (g_DoColor)
   394 	{
   395 		PrintToChatAll("\x04(ALL) %s: \x01%s", name, message);
   396 	}
   397 	else
   398 	{
   399 		PrintToChatAll("(ALL) %s: %s", name, message);
   400 	}
   401 }
   402 
   403 SendChatToAdmins(String:name[], String:message[])
   404 {
   405 	new iMaxClients = GetMaxClients();
   406 	
   407 	for (new i = 1; i <= iMaxClients; i++)
   408 	{
   409 		if (IsClientInGame(i))
   410 		{
   411 			if (CheckCommandAccess(i, "sm_chat", ADMFLAG_CHAT))
   412 			{
   413 				if (g_DoColor)
   414 				{
   415 					PrintToChat(i, "\x04(ADMINS) %s: \x01%s", name, message);
   416 				}
   417 				else
   418 				{
   419 					PrintToChat(i, "(ADMINS) %s: %s", name, message);
   420 				}
   421 			}
   422 		}	
   423 	}
   424 }
   425 
   426 SendDialogToAll(color = 0, String:text[], any:...)
   427 {
   428 	new String:message[100];
   429 	VFormat(message, sizeof(message), text, 3);	
   430 	
   431 	new MaxClients = GetMaxClients();
   432 	for(new i = 1; i < MaxClients; i++)
   433 	{
   434 		if(IsClientInGame(i))
   435 		{
   436 			new Handle:kv = CreateKeyValues("Stuff", "title", message);
   437 			KvSetColor(kv, "color", g_Colors[color][0], g_Colors[color][1], g_Colors[color][2], 255);
   438 			KvSetNum(kv, "level", 1);
   439 			KvSetNum(kv, "time", 10);
   440 			
   441 			CreateDialog(i, kv, DialogType_Msg);
   442 			
   443 			CloseHandle(kv);
   444 		}
   445 	}	
   446 }
   447 
   448 SendPanelToAll(String:name[], String:message[])
   449 {
   450 	decl String:title[100];
   451 	Format(title, 64, "%s:", name);
   452 	
   453 	ReplaceString(message, 192, "\\n", "\n");
   454 	
   455 	new Handle:mSayPanel = CreatePanel();
   456 	SetPanelTitle(mSayPanel, title);
   457 	DrawPanelItem(mSayPanel, "", ITEMDRAW_SPACER);
   458 	DrawPanelText(mSayPanel, message);
   459 	DrawPanelItem(mSayPanel, "", ITEMDRAW_SPACER);
   460 
   461 	SetPanelCurrentKey(mSayPanel, 10);
   462 	DrawPanelItem(mSayPanel, "Exit", ITEMDRAW_CONTROL);
   463 
   464 	new MaxClients = GetMaxClients();
   465 	for(new i = 1; i < MaxClients; i++)
   466 	{
   467 		if(IsClientInGame(i) && !IsFakeClient(i))
   468 		{
   469 			SendPanelToClient(mSayPanel, i, Handler_DoNothing, 10);
   470 		}
   471 	}
   472 
   473 	CloseHandle(mSayPanel);
   474 }
   475 
   476 public Handler_DoNothing(Handle:menu, MenuAction:action, param1, param2)
   477 {
   478 	/* Do nothing */
   479 }
sourcemod-central
Feed