plugins/basecommands.sp
author Michael McKoy <ferret99gt@gmail.com>
Wed Dec 19 01:16:15 2007 +0000 (2007-12-19)
changeset 1801 06ff8ce94b2b
parent 1740 e5f6bd502cb7
child 1839 1f3aaf8fbd12
permissions -rw-r--r--
Large additions to basefuncommands. Moved slay and slap to a new plugin.
dvander@910
     1
/**
ds@1330
     2
 * vim: set ts=4 :
ds@1330
     3
 * =============================================================================
ds@1330
     4
 * SourceMod Basic Commands Plugin
ds@913
     5
 * Implements basic admin commands.
ds@1330
     6
 *
ds@1330
     7
 * SourceMod (C)2004-2007 AlliedModders LLC.  All rights reserved.
ds@1330
     8
 * =============================================================================
dvander@910
     9
 *
ds@1330
    10
 * This program is free software; you can redistribute it and/or modify it under
ds@1330
    11
 * the terms of the GNU General Public License, version 3.0, as published by the
ds@1330
    12
 * Free Software Foundation.
ds@1330
    13
 * 
ds@1330
    14
 * This program is distributed in the hope that it will be useful, but WITHOUT
ds@1330
    15
 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
ds@1330
    16
 * FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
ds@1330
    17
 * details.
dvander@910
    18
 *
ds@1330
    19
 * You should have received a copy of the GNU General Public License along with
ds@1330
    20
 * this program.  If not, see <http://www.gnu.org/licenses/>.
teame06@1211
    21
 *
ds@1330
    22
 * As a special exception, AlliedModders LLC gives you permission to link the
dvander@1624
    23
 * code of this program (as well as its derivative 1works) to "Half-Life 2," the
ds@1330
    24
 * "Source Engine," the "SourcePawn JIT," and any Game MODs that run on software
ds@1330
    25
 * by the Valve Corporation.  You must obey the GNU General Public License in
ds@1330
    26
 * all respects for all other code used.  Additionally, AlliedModders LLC grants
ds@1330
    27
 * this exception to all derivative works.  AlliedModders LLC defines further
ds@1330
    28
 * exceptions, found in LICENSE.txt (as of this writing, version JULY-31-2007),
ds@1330
    29
 * or <http://www.sourcemod.net/license.php>.
ds@913
    30
 *
ds@913
    31
 * Version: $Id$
dvander@910
    32
 */
dvander@910
    33
ds@989
    34
#pragma semicolon 1
dvander@910
    35
ds@989
    36
#include <sourcemod>
dvander@1510
    37
#undef REQUIRE_PLUGIN
dvander@1510
    38
#include <adminmenu>
ds@913
    39
teame06@1211
    40
public Plugin:myinfo =
dvander@910
    41
{
dvander@910
    42
	name = "Basic Commands",
dvander@910
    43
	author = "AlliedModders LLC",
dvander@910
    44
	description = "Basic Admin Commands",
dvander@910
    45
	version = SOURCEMOD_VERSION,
dvander@910
    46
	url = "http://www.sourcemod.net/"
dvander@910
    47
};
dvander@910
    48
dvander@1510
    49
new Handle:hTopMenu = INVALID_HANDLE;
dvander@1510
    50
pred@1536
    51
new Handle:g_MapList;
pred@1536
    52
dvander@1510
    53
#include "basecommands/kick.sp"
dvander@1518
    54
#include "basecommands/reloadadmins.sp"
dvander@1523
    55
#include "basecommands/cancelvote.sp"
pred@1536
    56
#include "basecommands/who.sp"
pred@1536
    57
#include "basecommands/map.sp"
pred@1536
    58
#include "basecommands/execcfg.sp"
dvander@1510
    59
dvander@910
    60
public OnPluginStart()
dvander@910
    61
{
dvander@1027
    62
	LoadTranslations("common.phrases");
dvander@1521
    63
	LoadTranslations("plugin.basecommands");
teame06@1211
    64
dvander@910
    65
	RegAdminCmd("sm_kick", Command_Kick, ADMFLAG_KICK, "sm_kick <#userid|name> [reason]");
dvander@917
    66
	RegAdminCmd("sm_map", Command_Map, ADMFLAG_CHANGEMAP, "sm_map <map>");
dvander@918
    67
	RegAdminCmd("sm_rcon", Command_Rcon, ADMFLAG_RCON, "sm_rcon <args>");
dvander@920
    68
	RegAdminCmd("sm_cvar", Command_Cvar, ADMFLAG_CONVARS, "sm_cvar <cvar> [value]");
dvander@921
    69
	RegAdminCmd("sm_execcfg", Command_ExecCfg, ADMFLAG_CONFIG, "sm_execcfg <filename>");
dvander@923
    70
	RegAdminCmd("sm_who", Command_Who, ADMFLAG_GENERIC, "sm_who [#userid|name]");
dvander@1162
    71
	RegAdminCmd("sm_reloadadmins", Command_ReloadAdmins, ADMFLAG_BAN, "sm_reloadadmins");
ferret99gt@1276
    72
	RegAdminCmd("sm_cancelvote", Command_CancelVote, ADMFLAG_VOTE, "sm_cancelvote");
dvander@1510
    73
	
dvander@1510
    74
	/* Account for late loading */
dvander@1510
    75
	new Handle:topmenu;
dvander@1510
    76
	if (LibraryExists("adminmenu") && ((topmenu = GetAdminTopMenu()) != INVALID_HANDLE))
dvander@1510
    77
	{
dvander@1510
    78
		OnAdminMenuReady(topmenu);
dvander@1510
    79
	}
pred@1536
    80
	
pred@1536
    81
	g_MapList = CreateMenu(MenuHandler_ChangeMap);
pred@1536
    82
	SetMenuTitle(g_MapList, "Please select a map");
pred@1536
    83
	SetMenuExitBackButton(g_MapList, true);
dvander@1738
    84
	
dvander@1738
    85
	decl String:mapListPath[PLATFORM_MAX_PATH];
dvander@1738
    86
	BuildPath(Path_SM, mapListPath, sizeof(mapListPath), "configs/adminmenu_maplist.ini");
pred@1740
    87
	SetMapListCompatBind("sm_map menu", mapListPath);
pred@1536
    88
}
pred@1536
    89
pred@1536
    90
public OnMapStart()
pred@1536
    91
{
pred@1740
    92
	ParseConfigs();
pred@1740
    93
}
pred@1740
    94
pred@1740
    95
public OnConfigsExecuted()
pred@1740
    96
{
ferret99gt@1606
    97
	LoadMapList(g_MapList);
pred@1536
    98
}
pred@1536
    99
dvander@1510
   100
public OnAdminMenuReady(Handle:topmenu)
dvander@1510
   101
{
dvander@1510
   102
	/* Block us from being called twice */
dvander@1510
   103
	if (topmenu == hTopMenu)
dvander@1510
   104
	{
dvander@1510
   105
		return;
dvander@1510
   106
	}
dvander@1510
   107
	
dvander@1510
   108
	/* Save the Handle */
dvander@1510
   109
	hTopMenu = topmenu;
dvander@1510
   110
	
dvander@1510
   111
	/* Build the "Player Commands" category */
dvander@1510
   112
	new TopMenuObject:player_commands = FindTopMenuCategory(hTopMenu, ADMINMENU_PLAYERCOMMANDS);
dvander@1510
   113
	
dvander@1510
   114
	if (player_commands != INVALID_TOPMENUOBJECT)
dvander@1510
   115
	{
dvander@1510
   116
		AddToTopMenu(hTopMenu, 
dvander@1600
   117
			"sm_kick",
dvander@1510
   118
			TopMenuObject_Item,
dvander@1510
   119
			AdminMenu_Kick,
dvander@1510
   120
			player_commands,
dvander@1510
   121
			"sm_kick",
dvander@1510
   122
			ADMFLAG_KICK);
pred@1536
   123
			
pred@1536
   124
		AddToTopMenu(hTopMenu,
dvander@1600
   125
			"sm_who",
pred@1536
   126
			TopMenuObject_Item,
pred@1536
   127
			AdminMenu_Who,
pred@1536
   128
			player_commands,
pred@1536
   129
			"sm_who",
pred@1536
   130
			ADMFLAG_GENERIC);
dvander@1510
   131
	}
dvander@1518
   132
dvander@1518
   133
	new TopMenuObject:server_commands = FindTopMenuCategory(hTopMenu, ADMINMENU_SERVERCOMMANDS);
dvander@1518
   134
dvander@1518
   135
	if (server_commands != INVALID_TOPMENUOBJECT)
dvander@1518
   136
	{
dvander@1518
   137
		AddToTopMenu(hTopMenu,
dvander@1600
   138
			"sm_reloadadmins",
dvander@1518
   139
			TopMenuObject_Item,
dvander@1518
   140
			AdminMenu_ReloadAdmins,
dvander@1518
   141
			server_commands,
dvander@1518
   142
			"sm_reloadadmins",
dvander@1518
   143
			ADMFLAG_BAN);
pred@1536
   144
			
pred@1536
   145
		AddToTopMenu(hTopMenu,
dvander@1600
   146
			"sm_map",
pred@1536
   147
			TopMenuObject_Item,
pred@1536
   148
			AdminMenu_Map,
pred@1536
   149
			server_commands,
pred@1536
   150
			"sm_map",
pred@1536
   151
			ADMFLAG_CHANGEMAP);
pred@1536
   152
			
pred@1536
   153
		AddToTopMenu(hTopMenu,
dvander@1600
   154
			"sm_execcfg",
pred@1536
   155
			TopMenuObject_Item,
pred@1536
   156
			AdminMenu_ExecCFG,
pred@1536
   157
			server_commands,
pred@1536
   158
			"sm_execcfg",
pred@1536
   159
			ADMFLAG_CONFIG);		
dvander@1518
   160
	}
dvander@1523
   161
dvander@1523
   162
	new TopMenuObject:voting_commands = FindTopMenuCategory(hTopMenu, ADMINMENU_VOTINGCOMMANDS);
dvander@1523
   163
dvander@1523
   164
	if (voting_commands != INVALID_TOPMENUOBJECT)
dvander@1523
   165
	{
dvander@1523
   166
		AddToTopMenu(hTopMenu,
dvander@1600
   167
			"sm_cancelvote",
dvander@1523
   168
			TopMenuObject_Item,
dvander@1523
   169
			AdminMenu_CancelVote,
dvander@1523
   170
			voting_commands,
dvander@1523
   171
			"sm_cancelvote",
dvander@1523
   172
			ADMFLAG_VOTE);
dvander@1523
   173
	}
dvander@1510
   174
}
dvander@1510
   175
dvander@1510
   176
public OnLibraryRemoved(const String:name[])
dvander@1510
   177
{
dvander@1510
   178
	if (strcmp(name, "adminmenu") == 0)
dvander@1510
   179
	{
dvander@1510
   180
		hTopMenu = INVALID_HANDLE;
dvander@1510
   181
	}
dvander@927
   182
}
dvander@927
   183
dvander@923
   184
#define FLAG_STRINGS		14
dvander@923
   185
new String:g_FlagNames[FLAG_STRINGS][20] =
dvander@923
   186
{
dvander@1376
   187
	"res",
dvander@923
   188
	"admin",
dvander@923
   189
	"kick",
dvander@923
   190
	"ban",
dvander@923
   191
	"unban",
dvander@923
   192
	"slay",
dvander@923
   193
	"map",
dvander@923
   194
	"cvars",
dvander@923
   195
	"cfg",
dvander@923
   196
	"chat",
dvander@923
   197
	"vote",
dvander@923
   198
	"pass",
dvander@923
   199
	"rcon",
dvander@923
   200
	"cheat"
dvander@923
   201
};
dvander@923
   202
dvander@1376
   203
CustomFlagsToString(String:buffer[], maxlength, flags)
dvander@1376
   204
{
dvander@1376
   205
	decl String:joins[6][6];
dvander@1376
   206
	new total;
dvander@1376
   207
	
dvander@1376
   208
	for (new i=_:Admin_Custom1; i<=_:Admin_Custom6; i++)
dvander@1376
   209
	{
dvander@1376
   210
		if (flags & (1<<i))
dvander@1376
   211
		{
dvander@1376
   212
			IntToString(i - _:Admin_Custom1 + 1, joins[total++], 6);
dvander@1376
   213
		}
dvander@1376
   214
	}
dvander@1376
   215
	
dvander@1376
   216
	ImplodeStrings(joins, total, ",", buffer, maxlength);
dvander@1376
   217
	
dvander@1376
   218
	return total;
dvander@1376
   219
}
dvander@1376
   220
dvander@923
   221
FlagsToString(String:buffer[], maxlength, flags)
dvander@923
   222
{
dvander@1376
   223
	decl String:joins[FLAG_STRINGS+1][32];
dvander@923
   224
	new total;
teame06@1211
   225
dvander@923
   226
	for (new i=0; i<FLAG_STRINGS; i++)
dvander@923
   227
	{
dvander@923
   228
		if (flags & (1<<i))
dvander@923
   229
		{
dvander@1376
   230
			strcopy(joins[total++], 32, g_FlagNames[i]);
dvander@923
   231
		}
dvander@923
   232
	}
dvander@1376
   233
	
dvander@1376
   234
	decl String:custom_flags[32];
dvander@1376
   235
	if (CustomFlagsToString(custom_flags, sizeof(custom_flags), flags))
dvander@1376
   236
	{
dvander@1376
   237
		Format(joins[total++], 32, "custom(%s)", custom_flags);
dvander@1376
   238
	}
teame06@1211
   239
dvander@923
   240
	ImplodeStrings(joins, total, ", ", buffer, maxlength);
dvander@923
   241
}
dvander@923
   242
dvander@920
   243
public Action:Command_Cvar(client, args)
dvander@920
   244
{
dvander@920
   245
	if (args < 1)
dvander@920
   246
	{
dvander@920
   247
		ReplyToCommand(client, "[SM] Usage: sm_cvar <cvar> [value]");
dvander@920
   248
		return Plugin_Handled;
dvander@920
   249
	}
teame06@1211
   250
dvander@1671
   251
	decl String:cvarname[64];
dvander@920
   252
	GetCmdArg(1, cvarname, sizeof(cvarname));
teame06@1211
   253
dvander@920
   254
	new Handle:hndl = FindConVar(cvarname);
dvander@920
   255
	if (hndl == INVALID_HANDLE)
dvander@920
   256
	{
dvander@920
   257
		ReplyToCommand(client, "[SM] %t", "Unable to find cvar", cvarname);
dvander@920
   258
		return Plugin_Handled;
dvander@920
   259
	}
teame06@1211
   260
dvander@920
   261
	new bool:allowed = false;
dvander@920
   262
	if (GetConVarFlags(hndl) & FCVAR_PROTECTED)
dvander@920
   263
	{
dvander@920
   264
		/* If they're root, allow anything */
dvander@920
   265
		if ((GetUserFlagBits(client) & ADMFLAG_ROOT) == ADMFLAG_ROOT)
dvander@920
   266
		{
dvander@920
   267
			allowed = true;
dvander@920
   268
		}
dvander@920
   269
		/* If they're not root, and getting sv_password, see if they have ADMFLAG_PASSWORD */
dvander@920
   270
		else if (StrEqual(cvarname, "sv_password") && (GetUserFlagBits(client) & ADMFLAG_PASSWORD))
dvander@920
   271
		{
dvander@920
   272
			allowed = true;
dvander@920
   273
		}
teame06@1211
   274
	}
dvander@920
   275
	/* Do a check for the cheat cvar */
dvander@920
   276
	else if (StrEqual(cvarname, "sv_cheats"))
dvander@920
   277
	{
dvander@929
   278
		if (GetUserFlagBits(client) & ADMFLAG_CHEATS
dvander@929
   279
			|| GetUserFlagBits(client) & ADMFLAG_ROOT)
dvander@920
   280
		{
dvander@920
   281
			allowed = true;
dvander@920
   282
		}
dvander@920
   283
	}
dvander@920
   284
	/* If we drop down to here, it was a normal cvar. */
dvander@920
   285
	else
dvander@920
   286
	{
dvander@920
   287
		allowed = true;
dvander@920
   288
	}
teame06@1211
   289
dvander@920
   290
	if (!allowed)
dvander@920
   291
	{
dvander@920
   292
		ReplyToCommand(client, "[SM] %t", "No access to cvar");
dvander@920
   293
		return Plugin_Handled;
dvander@920
   294
	}
teame06@1211
   295
dvander@920
   296
	decl String:value[255];
dvander@920
   297
	if (args < 2)
dvander@920
   298
	{
dvander@920
   299
		GetConVarString(hndl, value, sizeof(value));
teame06@1211
   300
dvander@920
   301
		ReplyToCommand(client, "[SM] %t", "Value of cvar", cvarname, value);
dvander@920
   302
		return Plugin_Handled;
dvander@920
   303
	}
teame06@1211
   304
dvander@920
   305
	GetCmdArg(2, value, sizeof(value));
teame06@1211
   306
dvander@920
   307
	if ((GetConVarFlags(hndl) & FCVAR_PROTECTED) != FCVAR_PROTECTED)
dvander@920
   308
	{
dvander@1623
   309
		ShowActivity2(client, "[SM] ", "%t", "Cvar changed", cvarname, value);
dvander@1623
   310
	}
dvander@1623
   311
	else
dvander@1623
   312
	{
dvander@924
   313
		ReplyToCommand(client, "[SM] %t", "Cvar changed", cvarname, value);
dvander@920
   314
	}
teame06@1211
   315
dvander@1378
   316
	LogAction(client, -1, "\"%L\" changed cvar (cvar \"%s\") (value \"%s\")", client, cvarname, value);
teame06@1211
   317
ds@937
   318
	SetConVarString(hndl, value, true);
teame06@1211
   319
dvander@920
   320
	return Plugin_Handled;
dvander@918
   321
}
dvander@918
   322
dvander@918
   323
public Action:Command_Rcon(client, args)
dvander@918
   324
{
dvander@918
   325
	if (args < 1)
dvander@918
   326
	{
dvander@918
   327
		ReplyToCommand(client, "[SM] Usage: sm_rcon <args>");
dvander@918
   328
		return Plugin_Handled;
dvander@918
   329
	}
teame06@1211
   330
dvander@918
   331
	decl String:argstring[255];
dvander@918
   332
	GetCmdArgString(argstring, sizeof(argstring));
teame06@1211
   333
dvander@1378
   334
	LogAction(client, -1, "\"%L\" console command (cmdline \"%s\")", client, argstring);
teame06@1211
   335
dvander@918
   336
	ServerCommand("%s", argstring);
teame06@1211
   337
dvander@918
   338
	return Plugin_Handled;
dvander@917
   339
}