plugins/basebans/ban.sp
author Nicholas Hastings <skamonkey@gmail.com>
Fri Nov 04 10:01:33 2011 -0400 (2011-11-04)
changeset 3438 07a1b8a8a2ba
parent 2640 fdc0583f4615
child 3450 577a651c8ca9
permissions -rw-r--r--
Updated TF2_OnIsHolidayActive ret behavior to match doc (bug 5155, r=fyren).
ferret99gt@1789
     1
/**
ferret99gt@1789
     2
 * vim: set ts=4 :
ferret99gt@1789
     3
 * =============================================================================
ferret99gt@1789
     4
 * SourceMod Basecommands
ferret99gt@1789
     5
 * Functionality related to banning.
ferret99gt@1789
     6
 *
ds@1947
     7
 * SourceMod (C)2004-2008 AlliedModders LLC.  All rights reserved.
ferret99gt@1789
     8
 * =============================================================================
ferret99gt@1789
     9
 *
ferret99gt@1789
    10
 * This program is free software; you can redistribute it and/or modify it under
ferret99gt@1789
    11
 * the terms of the GNU General Public License, version 3.0, as published by the
ferret99gt@1789
    12
 * Free Software Foundation.
schubertm@2280
    13
 *
ferret99gt@1789
    14
 * This program is distributed in the hope that it will be useful, but WITHOUT
ferret99gt@1789
    15
 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
ferret99gt@1789
    16
 * FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
ferret99gt@1789
    17
 * details.
ferret99gt@1789
    18
 *
ferret99gt@1789
    19
 * You should have received a copy of the GNU General Public License along with
ferret99gt@1789
    20
 * this program.  If not, see <http://www.gnu.org/licenses/>.
ferret99gt@1789
    21
 *
ferret99gt@1789
    22
 * As a special exception, AlliedModders LLC gives you permission to link the
ferret99gt@1789
    23
 * code of this program (as well as its derivative works) to "Half-Life 2," the
ferret99gt@1789
    24
 * "Source Engine," the "SourcePawn JIT," and any Game MODs that run on software
ferret99gt@1789
    25
 * by the Valve Corporation.  You must obey the GNU General Public License in
ferret99gt@1789
    26
 * all respects for all other code used.  Additionally, AlliedModders LLC grants
ferret99gt@1789
    27
 * this exception to all derivative works.  AlliedModders LLC defines further
ferret99gt@1789
    28
 * exceptions, found in LICENSE.txt (as of this writing, version JULY-31-2007),
ferret99gt@1789
    29
 * or <http://www.sourcemod.net/license.php>.
ferret99gt@1789
    30
 *
ds@1990
    31
 * Version: $Id$
ferret99gt@1789
    32
 */
schubertm@2280
    33
dvander@1672
    34
PrepareBan(client, target, time, const String:reason[])
pred@1536
    35
{
pred@2221
    36
	new originalTarget = GetClientOfUserId(g_BanTargetUserId[client]);
schubertm@2280
    37
pred@2221
    38
	if (originalTarget != target)
pred@2221
    39
	{
schubertm@2280
    40
		if (client == 0)
schubertm@2280
    41
		{
schubertm@2280
    42
			PrintToServer("[SM] %t", "Player no longer available");
schubertm@2280
    43
		}
schubertm@2280
    44
		else
schubertm@2280
    45
		{
schubertm@2280
    46
			PrintToChat(client, "[SM] %t", "Player no longer available");
schubertm@2280
    47
		}
schubertm@2280
    48
schubertm@2280
    49
		return;
pred@2221
    50
	}
schubertm@2280
    51
pred@1536
    52
	decl String:authid[64], String:name[32];
pred@1536
    53
	GetClientAuthString(target, authid, sizeof(authid));
pred@1536
    54
	GetClientName(target, name, sizeof(name));
pred@1536
    55
pred@1536
    56
	if (!time)
pred@1536
    57
	{
pred@1536
    58
		if (reason[0] == '\0')
pred@1536
    59
		{
pred@1536
    60
			ShowActivity(client, "%t", "Permabanned player", name);
pred@1536
    61
		} else {
pred@1536
    62
			ShowActivity(client, "%t", "Permabanned player reason", name, reason);
pred@1536
    63
		}
pred@1536
    64
	} else {
pred@1536
    65
		if (reason[0] == '\0')
pred@1536
    66
		{
pred@1536
    67
			ShowActivity(client, "%t", "Banned player", name, time);
pred@1536
    68
		} else {
pred@1536
    69
			ShowActivity(client, "%t", "Banned player reason", name, time, reason);
pred@1536
    70
		}
pred@1536
    71
	}
pred@1536
    72
pred@1536
    73
	LogAction(client, target, "\"%L\" banned \"%L\" (minutes \"%d\") (reason \"%s\")", client, target, time, reason);
pred@1536
    74
pred@1536
    75
	if (reason[0] == '\0')
pred@1536
    76
	{
dvander@1672
    77
		BanClient(target, time, BANFLAG_AUTO, "Banned", "Banned", "sm_ban", client);
pred@1536
    78
	}
dvander@1672
    79
	else
dvander@1672
    80
	{
dvander@1672
    81
		BanClient(target, time, BANFLAG_AUTO, reason, reason, "sm_ban", client);
dvander@1672
    82
	}
pred@1536
    83
}
pred@1536
    84
pred@1536
    85
DisplayBanTargetMenu(client)
pred@1536
    86
{
pred@1536
    87
	new Handle:menu = CreateMenu(MenuHandler_BanPlayerList);
schubertm@2280
    88
pred@1536
    89
	decl String:title[100];
dvander@1592
    90
	Format(title, sizeof(title), "%T:", "Ban player", client);
pred@1536
    91
	SetMenuTitle(menu, title);
pred@1536
    92
	SetMenuExitBackButton(menu, true);
schubertm@2280
    93
dvander@1832
    94
	AddTargetsToMenu2(menu, client, COMMAND_FILTER_NO_BOTS|COMMAND_FILTER_CONNECTED);
schubertm@2280
    95
pred@1536
    96
	DisplayMenu(menu, client, MENU_TIME_FOREVER);
pred@1536
    97
}
pred@1536
    98
pred@1536
    99
DisplayBanTimeMenu(client)
pred@1536
   100
{
pred@1536
   101
	new Handle:menu = CreateMenu(MenuHandler_BanTimeList);
schubertm@2280
   102
pred@1536
   103
	decl String:title[100];
fyrenmoo@2640
   104
	Format(title, sizeof(title), "%T: %N", "Ban player", client, g_BanTarget[client]);
pred@1536
   105
	SetMenuTitle(menu, title);
pred@1536
   106
	SetMenuExitBackButton(menu, true);
schubertm@2280
   107
pred@1536
   108
	AddMenuItem(menu, "0", "Permanent");
pred@1536
   109
	AddMenuItem(menu, "10", "10 Minutes");
pred@1536
   110
	AddMenuItem(menu, "30", "30 Minutes");
pred@1536
   111
	AddMenuItem(menu, "60", "1 Hour");
pred@1536
   112
	AddMenuItem(menu, "240", "4 Hours");
pred@1536
   113
	AddMenuItem(menu, "1440", "1 Day");
pred@1536
   114
	AddMenuItem(menu, "10080", "1 Week");
schubertm@2280
   115
pred@1536
   116
	DisplayMenu(menu, client, MENU_TIME_FOREVER);
pred@1536
   117
}
pred@1536
   118
pred@1536
   119
DisplayBanReasonMenu(client)
pred@1536
   120
{
pred@1536
   121
	new Handle:menu = CreateMenu(MenuHandler_BanReasonList);
schubertm@2280
   122
pred@1536
   123
	decl String:title[100];
fyrenmoo@2640
   124
	Format(title, sizeof(title), "%T: %N", "Ban reason", client, g_BanTarget[client]);
pred@1536
   125
	SetMenuTitle(menu, title);
pred@1536
   126
	SetMenuExitBackButton(menu, true);
schubertm@2280
   127
dvander@1592
   128
	/* :TODO: we should either remove this or make it configurable */
schubertm@2280
   129
pred@1536
   130
	AddMenuItem(menu, "Abusive", "Abusive");
pred@1536
   131
	AddMenuItem(menu, "Racism", "Racism");
pred@1536
   132
	AddMenuItem(menu, "General cheating/exploits", "General cheating/exploits");
pred@1536
   133
	AddMenuItem(menu, "Wallhack", "Wallhack");
pred@1536
   134
	AddMenuItem(menu, "Aimbot", "Aimbot");
pred@1536
   135
	AddMenuItem(menu, "Speedhacking", "Speedhacking");
pred@1536
   136
	AddMenuItem(menu, "Mic spamming", "Mic spamming");
pred@1536
   137
	AddMenuItem(menu, "Admin disrepect", "Admin disrepect");
pred@1536
   138
	AddMenuItem(menu, "Camping", "Camping");
pred@1536
   139
	AddMenuItem(menu, "Team killing", "Team killing");
pred@1536
   140
	AddMenuItem(menu, "Unacceptable Spray", "Unacceptable Spray");
pred@1536
   141
	AddMenuItem(menu, "Breaking Server Rules", "Breaking Server Rules");
pred@1536
   142
	AddMenuItem(menu, "Other", "Other");
schubertm@2280
   143
pred@1536
   144
	DisplayMenu(menu, client, MENU_TIME_FOREVER);
pred@1536
   145
}
pred@1536
   146
schubertm@2280
   147
public AdminMenu_Ban(Handle:topmenu,
pred@1536
   148
							  TopMenuAction:action,
pred@1536
   149
							  TopMenuObject:object_id,
pred@1536
   150
							  param,
pred@1536
   151
							  String:buffer[],
pred@1536
   152
							  maxlength)
pred@1536
   153
{
pred@1536
   154
	if (action == TopMenuAction_DisplayOption)
pred@1536
   155
	{
dvander@1592
   156
		Format(buffer, maxlength, "%T", "Ban player", param);
pred@1536
   157
	}
pred@1536
   158
	else if (action == TopMenuAction_SelectOption)
pred@1536
   159
	{
pred@1536
   160
		DisplayBanTargetMenu(param);
pred@1536
   161
	}
pred@1536
   162
}
pred@1536
   163
pred@1536
   164
public MenuHandler_BanReasonList(Handle:menu, MenuAction:action, param1, param2)
pred@1536
   165
{
pred@1536
   166
	if (action == MenuAction_End)
pred@1536
   167
	{
pred@1536
   168
		CloseHandle(menu);
pred@1536
   169
	}
pred@1536
   170
	else if (action == MenuAction_Cancel)
pred@1536
   171
	{
pred@1536
   172
		if (param2 == MenuCancel_ExitBack && hTopMenu != INVALID_HANDLE)
pred@1536
   173
		{
pred@1536
   174
			DisplayTopMenu(hTopMenu, param1, TopMenuPosition_LastCategory);
pred@1536
   175
		}
pred@1536
   176
	}
pred@1536
   177
	else if (action == MenuAction_Select)
pred@1536
   178
	{
pred@1536
   179
		decl String:info[64];
schubertm@2280
   180
pred@1536
   181
		GetMenuItem(menu, param2, info, sizeof(info));
schubertm@2280
   182
dvander@1672
   183
		PrepareBan(param1, g_BanTarget[param1], g_BanTime[param1], info);
pred@1536
   184
	}
pred@1536
   185
}
pred@1536
   186
pred@1536
   187
public MenuHandler_BanPlayerList(Handle:menu, MenuAction:action, param1, param2)
pred@1536
   188
{
pred@1536
   189
	if (action == MenuAction_End)
pred@1536
   190
	{
pred@1536
   191
		CloseHandle(menu);
pred@1536
   192
	}
pred@1536
   193
	else if (action == MenuAction_Cancel)
pred@1536
   194
	{
pred@1536
   195
		if (param2 == MenuCancel_ExitBack && hTopMenu != INVALID_HANDLE)
pred@1536
   196
		{
pred@1536
   197
			DisplayTopMenu(hTopMenu, param1, TopMenuPosition_LastCategory);
pred@1536
   198
		}
pred@1536
   199
	}
pred@1536
   200
	else if (action == MenuAction_Select)
pred@1536
   201
	{
pred@1536
   202
		decl String:info[32], String:name[32];
pred@1536
   203
		new userid, target;
schubertm@2280
   204
pred@1536
   205
		GetMenuItem(menu, param2, info, sizeof(info), _, name, sizeof(name));
pred@1536
   206
		userid = StringToInt(info);
pred@1536
   207
pred@1536
   208
		if ((target = GetClientOfUserId(userid)) == 0)
pred@1536
   209
		{
pred@1536
   210
			PrintToChat(param1, "[SM] %t", "Player no longer available");
pred@1536
   211
		}
pred@1536
   212
		else if (!CanUserTarget(param1, target))
pred@1536
   213
		{
pred@1536
   214
			PrintToChat(param1, "[SM] %t", "Unable to target");
pred@1536
   215
		}
pred@1536
   216
		else
pred@1536
   217
		{
pred@1536
   218
			g_BanTarget[param1] = target;
pred@2221
   219
			g_BanTargetUserId[param1] = userid;
pred@1536
   220
			DisplayBanTimeMenu(param1);
pred@1536
   221
		}
pred@1536
   222
	}
pred@1536
   223
}
pred@1536
   224
pred@1536
   225
public MenuHandler_BanTimeList(Handle:menu, MenuAction:action, param1, param2)
pred@1536
   226
{
pred@1536
   227
	if (action == MenuAction_End)
pred@1536
   228
	{
pred@1536
   229
		CloseHandle(menu);
pred@1536
   230
	}
pred@1536
   231
	else if (action == MenuAction_Cancel)
pred@1536
   232
	{
pred@1536
   233
		if (param2 == MenuCancel_ExitBack && hTopMenu != INVALID_HANDLE)
pred@1536
   234
		{
pred@1536
   235
			DisplayTopMenu(hTopMenu, param1, TopMenuPosition_LastCategory);
pred@1536
   236
		}
pred@1536
   237
	}
pred@1536
   238
	else if (action == MenuAction_Select)
pred@1536
   239
	{
pred@1536
   240
		decl String:info[32];
schubertm@2280
   241
pred@1536
   242
		GetMenuItem(menu, param2, info, sizeof(info));
pred@1536
   243
		g_BanTime[param1] = StringToInt(info);
schubertm@2280
   244
pred@1536
   245
		DisplayBanReasonMenu(param1);
pred@1536
   246
	}
pred@1536
   247
}
pred@1536
   248
pred@1536
   249
pred@1536
   250
public Action:Command_Ban(client, args)
pred@1536
   251
{
pred@1536
   252
	if (args < 2)
pred@1536
   253
	{
pred@1536
   254
		ReplyToCommand(client, "[SM] Usage: sm_ban <#userid|name> <minutes|0> [reason]");
pred@1536
   255
		return Plugin_Handled;
pred@1536
   256
	}
schubertm@2280
   257
dvander@1672
   258
	decl len, next_len;
dvander@1672
   259
	decl String:Arguments[256];
dvander@1672
   260
	GetCmdArgString(Arguments, sizeof(Arguments));
pred@1536
   261
schubertm@2280
   262
	decl String:arg[65];
dvander@1672
   263
	len = BreakString(Arguments, arg, sizeof(arg));
pred@1536
   264
pred@1536
   265
	new target = FindTarget(client, arg, true);
pred@1536
   266
	if (target == -1)
pred@1536
   267
	{
pred@1536
   268
		return Plugin_Handled;
pred@1536
   269
	}
pred@1536
   270
pred@1536
   271
	decl String:s_time[12];
dvander@1672
   272
	if ((next_len = BreakString(Arguments[len], s_time, sizeof(s_time))) != -1)
dvander@1672
   273
	{
dvander@1672
   274
		len += next_len;
dvander@1672
   275
	}
dvander@1672
   276
	else
dvander@1672
   277
	{
dvander@1672
   278
		len = 0;
dvander@1672
   279
		Arguments[0] = '\0';
dvander@1672
   280
	}
pred@1536
   281
pred@1536
   282
	new time = StringToInt(s_time);
pred@1536
   283
schubertm@2280
   284
	g_BanTargetUserId[client] = GetClientUserId(target);
schubertm@2280
   285
dvander@1672
   286
	PrepareBan(client, target, time, Arguments[len]);
pred@1536
   287
pred@1536
   288
	return Plugin_Handled;
dvander@1672
   289
}