plugins/adminmenu.sp
author David Anderson <dvander@alliedmods.net>
Fri Jul 11 05:14:32 2008 +0000 (2008-07-11)
branchrefac-jit
changeset 2190 880e81f30b5e
parent 2168 c24a6fa957db
child 1982 26a1e1df3a93
permissions -rw-r--r--
GetContext() now returns 'this' as a hack (shouldn't+can't be accessed anyway)
dvander@2168
     1
/**
dvander@2168
     2
 * vim: set ts=4 :
dvander@2168
     3
 * =============================================================================
dvander@2168
     4
 * SourceMod Admin Menu Plugin
dvander@2168
     5
 * Creates the base admin menu, for plugins to add items to.
dvander@2168
     6
 *
dvander@2168
     7
 * SourceMod (C)2004-2008 AlliedModders LLC.  All rights reserved.
dvander@2168
     8
 * =============================================================================
dvander@2168
     9
 *
dvander@2168
    10
 * This program is free software; you can redistribute it and/or modify it under
dvander@2168
    11
 * the terms of the GNU General Public License, version 3.0, as published by the
dvander@2168
    12
 * Free Software Foundation.
dvander@2168
    13
 * 
dvander@2168
    14
 * This program is distributed in the hope that it will be useful, but WITHOUT
dvander@2168
    15
 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
dvander@2168
    16
 * FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
dvander@2168
    17
 * details.
dvander@2168
    18
 *
dvander@2168
    19
 * You should have received a copy of the GNU General Public License along with
dvander@2168
    20
 * this program.  If not, see <http://www.gnu.org/licenses/>.
dvander@2168
    21
 *
dvander@2168
    22
 * As a special exception, AlliedModders LLC gives you permission to link the
dvander@2168
    23
 * code of this program (as well as its derivative works) to "Half-Life 2," the
dvander@2168
    24
 * "Source Engine," the "SourcePawn JIT," and any Game MODs that run on software
dvander@2168
    25
 * by the Valve Corporation.  You must obey the GNU General Public License in
dvander@2168
    26
 * all respects for all other code used.  Additionally, AlliedModders LLC grants
dvander@2168
    27
 * this exception to all derivative works.  AlliedModders LLC defines further
dvander@2168
    28
 * exceptions, found in LICENSE.txt (as of this writing, version JULY-31-2007),
dvander@2168
    29
 * or <http://www.sourcemod.net/license.php>.
dvander@2168
    30
 *
dvander@2168
    31
 * Version: $Id$
dvander@2168
    32
 */
dvander@2168
    33
dvander@2168
    34
#pragma semicolon 1
dvander@2168
    35
dvander@2168
    36
#include <sourcemod>
dvander@2168
    37
#include <topmenus>
dvander@2168
    38
dvander@2168
    39
public Plugin:myinfo = 
dvander@2168
    40
{
dvander@2168
    41
	name = "Admin Menu",
dvander@2168
    42
	author = "AlliedModders LLC",
dvander@2168
    43
	description = "Administration Menu",
dvander@2168
    44
	version = SOURCEMOD_VERSION,
dvander@2168
    45
	url = "http://www.sourcemod.net/"
dvander@2168
    46
};
dvander@2168
    47
dvander@2168
    48
new g_maxPlayers;
dvander@2168
    49
dvander@2168
    50
/* Forwards */
dvander@2168
    51
new Handle:hOnAdminMenuReady = INVALID_HANDLE;
dvander@2168
    52
new Handle:hOnAdminMenuCreated = INVALID_HANDLE;
dvander@2168
    53
dvander@2168
    54
/* Menus */
dvander@2168
    55
new Handle:hAdminMenu = INVALID_HANDLE;
dvander@2168
    56
dvander@2168
    57
/* Top menu objects */
dvander@2168
    58
new TopMenuObject:obj_playercmds = INVALID_TOPMENUOBJECT;
dvander@2168
    59
new TopMenuObject:obj_servercmds = INVALID_TOPMENUOBJECT;
dvander@2168
    60
new TopMenuObject:obj_votingcmds = INVALID_TOPMENUOBJECT;
dvander@2168
    61
dvander@2168
    62
#include "adminmenu/dynamicmenu.sp"
dvander@2168
    63
dvander@2168
    64
public bool:AskPluginLoad(Handle:myself, bool:late, String:error[], err_max)
dvander@2168
    65
{
dvander@2168
    66
	CreateNative("GetAdminTopMenu", __GetAdminTopMenu);
dvander@2168
    67
	CreateNative("AddTargetsToMenu", __AddTargetsToMenu);
dvander@2168
    68
	CreateNative("AddTargetsToMenu2", __AddTargetsToMenu2);
dvander@2168
    69
	RegPluginLibrary("adminmenu");
dvander@2168
    70
	return true;
dvander@2168
    71
}
dvander@2168
    72
dvander@2168
    73
public OnPluginStart()
dvander@2168
    74
{
dvander@2168
    75
	LoadTranslations("common.phrases");
dvander@2168
    76
	LoadTranslations("adminmenu.phrases");
dvander@2168
    77
	
dvander@2168
    78
	hOnAdminMenuCreated = CreateGlobalForward("OnAdminMenuCreated", ET_Ignore, Param_Cell);
dvander@2168
    79
	hOnAdminMenuReady = CreateGlobalForward("OnAdminMenuReady", ET_Ignore, Param_Cell);
dvander@2168
    80
dvander@2168
    81
	RegAdminCmd("sm_admin", Command_DisplayMenu, ADMFLAG_GENERIC, "Displays the admin menu");
dvander@2168
    82
}
dvander@2168
    83
dvander@2168
    84
public OnConfigsExecuted()
dvander@2168
    85
{
dvander@2168
    86
	decl String:path[PLATFORM_MAX_PATH];
dvander@2168
    87
	decl String:error[256];
dvander@2168
    88
	
dvander@2168
    89
	BuildPath(Path_SM, path, sizeof(path), "configs/adminmenu_sorting.txt");
dvander@2168
    90
	
dvander@2168
    91
	if (!LoadTopMenuConfig(hAdminMenu, path, error, sizeof(error)))
dvander@2168
    92
	{
dvander@2168
    93
		LogError("Could not load admin menu config (file \"%s\": %s)", path, error);
dvander@2168
    94
		return;
dvander@2168
    95
	}
dvander@2168
    96
}
dvander@2168
    97
dvander@2168
    98
public OnMapStart()
dvander@2168
    99
{
dvander@2168
   100
	g_maxPlayers = GetMaxClients();
dvander@2168
   101
	
dvander@2168
   102
	ParseConfigs();
dvander@2168
   103
}
dvander@2168
   104
dvander@2168
   105
public OnAllPluginsLoaded()
dvander@2168
   106
{
dvander@2168
   107
	hAdminMenu = CreateTopMenu(DefaultCategoryHandler);
dvander@2168
   108
	
dvander@2168
   109
	obj_playercmds = AddToTopMenu(hAdminMenu, 
dvander@2168
   110
		"PlayerCommands",
dvander@2168
   111
		TopMenuObject_Category,
dvander@2168
   112
		DefaultCategoryHandler,
dvander@2168
   113
		INVALID_TOPMENUOBJECT);
dvander@2168
   114
dvander@2168
   115
	obj_servercmds = AddToTopMenu(hAdminMenu,
dvander@2168
   116
		"ServerCommands",
dvander@2168
   117
		TopMenuObject_Category,
dvander@2168
   118
		DefaultCategoryHandler,
dvander@2168
   119
		INVALID_TOPMENUOBJECT);
dvander@2168
   120
dvander@2168
   121
	obj_votingcmds = AddToTopMenu(hAdminMenu,
dvander@2168
   122
		"VotingCommands",
dvander@2168
   123
		TopMenuObject_Category,
dvander@2168
   124
		DefaultCategoryHandler,
dvander@2168
   125
		INVALID_TOPMENUOBJECT);
dvander@2168
   126
		
dvander@2168
   127
	BuildDynamicMenu();
dvander@2168
   128
	
dvander@2168
   129
	Call_StartForward(hOnAdminMenuCreated);
dvander@2168
   130
	Call_PushCell(hAdminMenu);
dvander@2168
   131
	Call_Finish();
dvander@2168
   132
	
dvander@2168
   133
	Call_StartForward(hOnAdminMenuReady);
dvander@2168
   134
	Call_PushCell(hAdminMenu);
dvander@2168
   135
	Call_Finish();
dvander@2168
   136
}
dvander@2168
   137
dvander@2168
   138
public DefaultCategoryHandler(Handle:topmenu, 
dvander@2168
   139
						TopMenuAction:action,
dvander@2168
   140
						TopMenuObject:object_id,
dvander@2168
   141
						param,
dvander@2168
   142
						String:buffer[],
dvander@2168
   143
						maxlength)
dvander@2168
   144
{
dvander@2168
   145
	if (action == TopMenuAction_DisplayTitle)
dvander@2168
   146
	{
dvander@2168
   147
		if (object_id == INVALID_TOPMENUOBJECT)
dvander@2168
   148
		{
dvander@2168
   149
			Format(buffer, maxlength, "%T:", "Admin Menu", param);
dvander@2168
   150
		}
dvander@2168
   151
		else if (object_id == obj_playercmds)
dvander@2168
   152
		{
dvander@2168
   153
			Format(buffer, maxlength, "%T:", "Player Commands", param);
dvander@2168
   154
		}
dvander@2168
   155
		else if (object_id == obj_servercmds)
dvander@2168
   156
		{
dvander@2168
   157
			Format(buffer, maxlength, "%T:", "Server Commands", param);
dvander@2168
   158
		}
dvander@2168
   159
		else if (object_id == obj_votingcmds)
dvander@2168
   160
		{
dvander@2168
   161
			Format(buffer, maxlength, "%T:", "Voting Commands", param);
dvander@2168
   162
		}
dvander@2168
   163
	}
dvander@2168
   164
	else if (action == TopMenuAction_DisplayOption)
dvander@2168
   165
	{
dvander@2168
   166
		if (object_id == obj_playercmds)
dvander@2168
   167
		{
dvander@2168
   168
			Format(buffer, maxlength, "%T", "Player Commands", param);
dvander@2168
   169
		}
dvander@2168
   170
		else if (object_id == obj_servercmds)
dvander@2168
   171
		{
dvander@2168
   172
			Format(buffer, maxlength, "%T", "Server Commands", param);
dvander@2168
   173
		}
dvander@2168
   174
		else if (object_id == obj_votingcmds)
dvander@2168
   175
		{
dvander@2168
   176
			Format(buffer, maxlength, "%T", "Voting Commands", param);
dvander@2168
   177
		}
dvander@2168
   178
	}
dvander@2168
   179
}
dvander@2168
   180
dvander@2168
   181
public __GetAdminTopMenu(Handle:plugin, numParams)
dvander@2168
   182
{
dvander@2168
   183
	return _:hAdminMenu;
dvander@2168
   184
}
dvander@2168
   185
dvander@2168
   186
public __AddTargetsToMenu(Handle:plugin, numParams)
dvander@2168
   187
{
dvander@2168
   188
	new bool:alive_only = false;
dvander@2168
   189
	
dvander@2168
   190
	if (numParams >= 4)
dvander@2168
   191
	{
dvander@2168
   192
		alive_only = GetNativeCell(4);
dvander@2168
   193
	}
dvander@2168
   194
	
dvander@2168
   195
	return UTIL_AddTargetsToMenu(GetNativeCell(1), GetNativeCell(2), GetNativeCell(3), alive_only);
dvander@2168
   196
}
dvander@2168
   197
dvander@2168
   198
public __AddTargetsToMenu2(Handle:plugin, numParams)
dvander@2168
   199
{
dvander@2168
   200
	return UTIL_AddTargetsToMenu2(GetNativeCell(1), GetNativeCell(2), GetNativeCell(3));
dvander@2168
   201
}
dvander@2168
   202
dvander@2168
   203
public Action:Command_DisplayMenu(client, args)
dvander@2168
   204
{
dvander@2168
   205
	if (client == 0)
dvander@2168
   206
	{
dvander@2168
   207
		ReplyToCommand(client, "[SM] %t", "Command is in-game only");
dvander@2168
   208
		return Plugin_Handled;
dvander@2168
   209
	}
dvander@2168
   210
	
dvander@2168
   211
	DisplayTopMenu(hAdminMenu, client, TopMenuPosition_Start);
dvander@2168
   212
	
dvander@2168
   213
	return Plugin_Handled;
dvander@2168
   214
}
dvander@2168
   215
dvander@2168
   216
stock UTIL_AddTargetsToMenu2(Handle:menu, source_client, flags)
dvander@2168
   217
{
dvander@2168
   218
	new max_clients = GetMaxClients();
dvander@2168
   219
	decl String:user_id[12];
dvander@2168
   220
	decl String:name[MAX_NAME_LENGTH];
dvander@2168
   221
	decl String:display[MAX_NAME_LENGTH+12];
dvander@2168
   222
	
dvander@2168
   223
	new num_clients;
dvander@2168
   224
	
dvander@2168
   225
	for (new i = 1; i <= max_clients; i++)
dvander@2168
   226
	{
dvander@2168
   227
		if (!IsClientConnected(i) || IsClientInKickQueue(i))
dvander@2168
   228
		{
dvander@2168
   229
			continue;
dvander@2168
   230
		}
dvander@2168
   231
		
dvander@2168
   232
		PrintToServer("%d, %d, %d", i, flags, IsFakeClient(i));
dvander@2168
   233
		
dvander@2168
   234
		if (((flags & COMMAND_FILTER_NO_BOTS) == COMMAND_FILTER_NO_BOTS)
dvander@2168
   235
			&& IsFakeClient(i))
dvander@2168
   236
		{
dvander@2168
   237
			continue;
dvander@2168
   238
		}
dvander@2168
   239
		
dvander@2168
   240
		if (((flags & COMMAND_FILTER_CONNECTED) != COMMAND_FILTER_CONNECTED)
dvander@2168
   241
			&& !IsClientInGame(i))
dvander@2168
   242
		{
dvander@2168
   243
			continue;
dvander@2168
   244
		}
dvander@2168
   245
		
dvander@2168
   246
		if (((flags & COMMAND_FILTER_ALIVE) == COMMAND_FILTER_ALIVE) 
dvander@2168
   247
			&& !IsPlayerAlive(i))
dvander@2168
   248
		{
dvander@2168
   249
			continue;
dvander@2168
   250
		}
dvander@2168
   251
		
dvander@2168
   252
		if (((flags & COMMAND_FILTER_DEAD) == COMMAND_FILTER_DEAD)
dvander@2168
   253
			&& IsPlayerAlive(i))
dvander@2168
   254
		{
dvander@2168
   255
			continue;
dvander@2168
   256
		}
dvander@2168
   257
		
dvander@2168
   258
		if ((source_client && ((flags & COMMAND_FILTER_NO_IMMUNITY) != COMMAND_FILTER_NO_IMMUNITY))
dvander@2168
   259
			&& !CanUserTarget(source_client, i))
dvander@2168
   260
		{
dvander@2168
   261
			continue;
dvander@2168
   262
		}
dvander@2168
   263
		
dvander@2168
   264
		IntToString(GetClientUserId(i), user_id, sizeof(user_id));
dvander@2168
   265
		GetClientName(i, name, sizeof(name));
dvander@2168
   266
		Format(display, sizeof(display), "%s (%s)", name, user_id);
dvander@2168
   267
		AddMenuItem(menu, user_id, display);
dvander@2168
   268
		num_clients++;
dvander@2168
   269
	}
dvander@2168
   270
	
dvander@2168
   271
	return num_clients;
dvander@2168
   272
}
dvander@2168
   273
dvander@2168
   274
stock UTIL_AddTargetsToMenu(Handle:menu, source_client, bool:in_game_only, bool:alive_only)
dvander@2168
   275
{
dvander@2168
   276
	new flags = 0;
dvander@2168
   277
	
dvander@2168
   278
	if (!in_game_only)
dvander@2168
   279
	{
dvander@2168
   280
		flags |= COMMAND_FILTER_CONNECTED;
dvander@2168
   281
	}
dvander@2168
   282
	
dvander@2168
   283
	if (alive_only)
dvander@2168
   284
	{
dvander@2168
   285
		flags |= COMMAND_FILTER_ALIVE;
dvander@2168
   286
	}
dvander@2168
   287
	
dvander@2168
   288
	return UTIL_AddTargetsToMenu2(menu, source_client, flags);
dvander@2168
   289
}
dvander@2168
   290