plugins/basebans.sp
author Asher Baker <asherkin@gmail.com>
Fri Oct 12 02:25:53 2012 +0100 (2012-10-12)
changeset 3661 99c0496b0149
parent 3108 9fc8e7ac629a
child 4089 a4e4207da173
permissions -rw-r--r--
Updated plugin blacklist.
dvander@1423
     1
/**
dvander@1423
     2
 * vim: set ts=4 :
dvander@1423
     3
 * =============================================================================
dvander@1423
     4
 * SourceMod Basic Commands Plugin
dvander@1423
     5
 * Implements basic admin commands.
dvander@1423
     6
 *
ds@1947
     7
 * SourceMod (C)2004-2008 AlliedModders LLC.  All rights reserved.
dvander@1423
     8
 * =============================================================================
dvander@1423
     9
 *
dvander@1423
    10
 * This program is free software; you can redistribute it and/or modify it under
dvander@1423
    11
 * the terms of the GNU General Public License, version 3.0, as published by the
dvander@1423
    12
 * Free Software Foundation.
dvander@1423
    13
 * 
dvander@1423
    14
 * This program is distributed in the hope that it will be useful, but WITHOUT
dvander@1423
    15
 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
dvander@1423
    16
 * FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
dvander@1423
    17
 * details.
dvander@1423
    18
 *
dvander@1423
    19
 * You should have received a copy of the GNU General Public License along with
dvander@1423
    20
 * this program.  If not, see <http://www.gnu.org/licenses/>.
dvander@1423
    21
 *
dvander@1423
    22
 * As a special exception, AlliedModders LLC gives you permission to link the
dvander@1423
    23
 * code of this program (as well as its derivative works) to "Half-Life 2," the
dvander@1423
    24
 * "Source Engine," the "SourcePawn JIT," and any Game MODs that run on software
dvander@1423
    25
 * by the Valve Corporation.  You must obey the GNU General Public License in
dvander@1423
    26
 * all respects for all other code used.  Additionally, AlliedModders LLC grants
dvander@1423
    27
 * this exception to all derivative works.  AlliedModders LLC defines further
dvander@1423
    28
 * exceptions, found in LICENSE.txt (as of this writing, version JULY-31-2007),
dvander@1423
    29
 * or <http://www.sourcemod.net/license.php>.
dvander@1423
    30
 *
dvander@1423
    31
 * Version: $Id$
dvander@1423
    32
 */
dvander@1423
    33
dvander@1423
    34
#pragma semicolon 1
dvander@1423
    35
dvander@1423
    36
#include <sourcemod>
pred@1536
    37
#undef REQUIRE_PLUGIN
pred@1536
    38
#include <adminmenu>
dvander@1423
    39
dvander@1423
    40
public Plugin:myinfo =
dvander@1423
    41
{
dvander@1423
    42
	name = "Basic Ban Commands",
dvander@1423
    43
	author = "AlliedModders LLC",
dvander@1423
    44
	description = "Basic Banning Commands",
dvander@1423
    45
	version = SOURCEMOD_VERSION,
dvander@1423
    46
	url = "http://www.sourcemod.net/"
dvander@1423
    47
};
dvander@1423
    48
pred@1536
    49
new Handle:hTopMenu = INVALID_HANDLE;
pred@1536
    50
pred@1536
    51
new g_BanTarget[MAXPLAYERS+1];
pred@2221
    52
new g_BanTargetUserId[MAXPLAYERS+1];
pred@1536
    53
new g_BanTime[MAXPLAYERS+1];
pred@1536
    54
pred@1536
    55
#include "basebans/ban.sp"
pred@1536
    56
dvander@1423
    57
public OnPluginStart()
dvander@1423
    58
{
dvander@1423
    59
	LoadTranslations("common.phrases");
dvander@1625
    60
	LoadTranslations("basebans.phrases");
dvander@1423
    61
dvander@1423
    62
	RegAdminCmd("sm_ban", Command_Ban, ADMFLAG_BAN, "sm_ban <#userid|name> <minutes|0> [reason]");
skamonkey@2932
    63
	RegAdminCmd("sm_unban", Command_Unban, ADMFLAG_UNBAN, "sm_unban <steamid|ip>");
dvander@1423
    64
	RegAdminCmd("sm_addban", Command_AddBan, ADMFLAG_RCON, "sm_addban <time> <steamid> [reason]");
dvander@2030
    65
	RegAdminCmd("sm_banip", Command_BanIp, ADMFLAG_BAN, "sm_banip <ip|#userid|name> <time> [reason]");
pred@1536
    66
	
pred@1536
    67
	/* Account for late loading */
pred@1536
    68
	new Handle:topmenu;
pred@1536
    69
	if (LibraryExists("adminmenu") && ((topmenu = GetAdminTopMenu()) != INVALID_HANDLE))
pred@1536
    70
	{
pred@1536
    71
		OnAdminMenuReady(topmenu);
pred@1536
    72
	}
pred@1536
    73
}
pred@1536
    74
pred@1536
    75
public OnAdminMenuReady(Handle:topmenu)
pred@1536
    76
{
pred@1536
    77
	/* Block us from being called twice */
pred@1536
    78
	if (topmenu == hTopMenu)
pred@1536
    79
	{
pred@1536
    80
		return;
pred@1536
    81
	}
pred@1536
    82
	
pred@1536
    83
	/* Save the Handle */
pred@1536
    84
	hTopMenu = topmenu;
pred@1536
    85
	
pred@1536
    86
	/* Find the "Player Commands" category */
pred@1536
    87
	new TopMenuObject:player_commands = FindTopMenuCategory(hTopMenu, ADMINMENU_PLAYERCOMMANDS);
pred@1536
    88
pred@1536
    89
	if (player_commands != INVALID_TOPMENUOBJECT)
pred@1536
    90
	{
pred@1536
    91
		AddToTopMenu(hTopMenu,
dvander@1600
    92
			"sm_ban",
pred@1536
    93
			TopMenuObject_Item,
pred@1536
    94
			AdminMenu_Ban,
pred@1536
    95
			player_commands,
pred@1536
    96
			"sm_ban",
pred@1536
    97
			ADMFLAG_BAN);
pred@1536
    98
			
pred@1536
    99
	}
dvander@1423
   100
}
dvander@1423
   101
dvander@1423
   102
public Action:Command_BanIp(client, args)
dvander@1423
   103
{
dvander@1423
   104
	if (args < 2)
dvander@1423
   105
	{
dvander@2030
   106
		ReplyToCommand(client, "[SM] Usage: sm_banip <ip|#userid|name> <time> [reason]");
dvander@1423
   107
		return Plugin_Handled;
dvander@1423
   108
	}
dvander@1423
   109
dvander@1672
   110
	decl len, next_len;
dvander@1672
   111
	decl String:Arguments[256];
dvander@1423
   112
	decl String:arg[50], String:time[20];
dvander@1672
   113
	
dvander@1672
   114
	GetCmdArgString(Arguments, sizeof(Arguments));
dvander@1672
   115
	len = BreakString(Arguments, arg, sizeof(arg));
dvander@1423
   116
	
dvander@1672
   117
	if ((next_len = BreakString(Arguments[len], time, sizeof(time))) != -1)
dvander@1672
   118
	{
dvander@1672
   119
		len += next_len;
dvander@1672
   120
	}
dvander@1672
   121
	else
dvander@1672
   122
	{
dvander@1672
   123
		len = 0;
dvander@1672
   124
		Arguments[0] = '\0';
dvander@1672
   125
	}
dvander@1672
   126
dvander@1423
   127
	if (StrEqual(arg, "0"))
dvander@1423
   128
	{
dvander@1423
   129
		ReplyToCommand(client, "[SM] %t", "Cannot ban that IP");
dvander@1423
   130
		return Plugin_Handled;
dvander@1423
   131
	}
dvander@1423
   132
	
dvander@1627
   133
	decl String:target_name[MAX_TARGET_LENGTH];
dvander@1627
   134
	decl target_list[1], bool:tn_is_ml;
dvander@1627
   135
	new found_client = -1;
dvander@1627
   136
	
dvander@1627
   137
	if (ProcessTargetString(
dvander@1627
   138
			arg,
dvander@1627
   139
			client, 
dvander@1627
   140
			target_list, 
dvander@1627
   141
			1, 
dvander@1627
   142
			COMMAND_FILTER_CONNECTED|COMMAND_FILTER_NO_MULTI,
dvander@1627
   143
			target_name,
dvander@1627
   144
			sizeof(target_name),
dvander@1627
   145
			tn_is_ml) > 0)
dvander@1627
   146
	{
dvander@1627
   147
		found_client = target_list[0];
dvander@1627
   148
	}
dvander@1627
   149
	
dvander@1423
   150
	new bool:has_rcon;
dvander@1423
   151
	
dvander@1423
   152
	if (client == 0 || (client == 1 && !IsDedicatedServer()))
dvander@1423
   153
	{
dvander@1423
   154
		has_rcon = true;
dvander@1627
   155
	}
dvander@1627
   156
	else
dvander@1627
   157
	{
dvander@1423
   158
		new AdminId:id = GetUserAdmin(client);
dvander@1423
   159
		has_rcon = (id == INVALID_ADMIN_ID) ? false : GetAdminFlag(id, Admin_RCON);
dvander@1423
   160
	}
dvander@1423
   161
	
dvander@1423
   162
	new hit_client = -1;
dvander@1627
   163
	if (found_client != -1
dvander@1627
   164
		&& !IsFakeClient(found_client)
dvander@1627
   165
		&& (has_rcon || CanUserTarget(client, found_client)))
dvander@1423
   166
	{
dvander@1627
   167
		GetClientIP(found_client, arg, sizeof(arg));
dvander@1627
   168
		hit_client = found_client;
dvander@1423
   169
	}
dvander@1423
   170
	
dvander@1423
   171
	if (hit_client == -1 && !has_rcon)
dvander@1423
   172
	{
dvander@1423
   173
		ReplyToCommand(client, "[SM] %t", "No Access");
dvander@1423
   174
		return Plugin_Handled;
dvander@1423
   175
	}
dvander@1423
   176
dvander@1423
   177
	new minutes = StringToInt(time);
dvander@1423
   178
dvander@1423
   179
	LogAction(client, 
dvander@1423
   180
			  hit_client, 
dvander@1423
   181
			  "\"%L\" added ban (minutes \"%d\") (ip \"%s\") (reason \"%s\")", 
dvander@1423
   182
			  client, 
dvander@1423
   183
			  minutes, 
dvander@1423
   184
			  arg, 
dvander@1672
   185
			  Arguments[len]);
dvander@1627
   186
				
dvander@1627
   187
	ReplyToCommand(client, "[SM] %t", "Ban added");
dvander@1627
   188
	
dvander@1423
   189
	BanIdentity(arg, 
dvander@1423
   190
				minutes, 
dvander@1423
   191
				BANFLAG_IP, 
dvander@1672
   192
				Arguments[len], 
dvander@1423
   193
				"sm_banip", 
dvander@1423
   194
				client);
dvander@1627
   195
				
dvander@1627
   196
	if (hit_client != -1)
dvander@1627
   197
	{
dvander@1672
   198
		KickClient(hit_client, "Banned: %s", Arguments[len]);
dvander@1627
   199
	}
dvander@1423
   200
dvander@1423
   201
	return Plugin_Handled;
dvander@1423
   202
}
dvander@1423
   203
dvander@1423
   204
public Action:Command_AddBan(client, args)
dvander@1423
   205
{
dvander@1423
   206
	if (args < 2)
dvander@1423
   207
	{
dvander@1423
   208
		ReplyToCommand(client, "[SM] Usage: sm_addban <time> <steamid> [reason]");
dvander@1423
   209
		return Plugin_Handled;
dvander@1423
   210
	}
dvander@1423
   211
dvander@1423
   212
	decl String:arg_string[256];
dvander@1423
   213
	new String:time[50];
dvander@1423
   214
	new String:authid[50];
dvander@1423
   215
dvander@1423
   216
	GetCmdArgString(arg_string, sizeof(arg_string));
dvander@1423
   217
dvander@1423
   218
	new len, total_len;
dvander@1423
   219
dvander@1423
   220
	/* Get time */
dvander@1423
   221
	if ((len = BreakString(arg_string, time, sizeof(time))) == -1)
dvander@1423
   222
	{
erik@3108
   223
		ReplyToCommand(client, "[SM] Usage: sm_addban <time> <steamid> [reason]");
dvander@1423
   224
		return Plugin_Handled;
dvander@1423
   225
	}	
dvander@1423
   226
	total_len += len;
dvander@1423
   227
dvander@1423
   228
	/* Get steamid */
dvander@1423
   229
	if ((len = BreakString(arg_string[total_len], authid, sizeof(authid))) != -1)
dvander@1423
   230
	{
dvander@1423
   231
		total_len += len;
pred@1736
   232
	}
pred@1736
   233
	else
pred@1736
   234
	{
pred@1736
   235
		total_len = 0;
pred@1736
   236
		arg_string[0] = '\0';
dvander@1423
   237
	}
dvander@1423
   238
dvander@1423
   239
	/* Verify steamid */
rbutler14@2532
   240
	if (strncmp(authid, "STEAM_", 6) != 0 || authid[7] != ':')
dvander@1423
   241
	{
dvander@1423
   242
		ReplyToCommand(client, "[SM] %t", "Invalid SteamID specified");
dvander@1423
   243
		return Plugin_Handled;
dvander@1423
   244
	}
dvander@1423
   245
dvander@1423
   246
	new minutes = StringToInt(time);
dvander@1423
   247
dvander@1423
   248
	LogAction(client, 
dvander@1423
   249
			  -1, 
dvander@1423
   250
			  "\"%L\" added ban (minutes \"%d\") (id \"%s\") (reason \"%s\")", 
dvander@1423
   251
			  client, 
dvander@1423
   252
			  minutes, 
dvander@1423
   253
			  authid, 
pred@1736
   254
			  arg_string[total_len]);
dvander@1423
   255
	BanIdentity(authid, 
dvander@1423
   256
				minutes, 
dvander@1423
   257
				BANFLAG_AUTHID, 
pred@1736
   258
				arg_string[total_len], 
dvander@1423
   259
				"sm_addban", 
dvander@1423
   260
				client);
dvander@1423
   261
dvander@1423
   262
	ReplyToCommand(client, "[SM] %t", "Ban added");
dvander@1423
   263
dvander@1423
   264
	return Plugin_Handled;
dvander@1423
   265
}
dvander@1423
   266
dvander@1423
   267
public Action:Command_Unban(client, args)
dvander@1423
   268
{
dvander@1423
   269
	if (args < 1)
dvander@1423
   270
	{
dvander@1423
   271
		ReplyToCommand(client, "[SM] Usage: sm_unban <steamid|ip>");
dvander@1423
   272
		return Plugin_Handled;
dvander@1423
   273
	}
dvander@1423
   274
dvander@1423
   275
	decl String:arg[50];
dvander@1423
   276
	GetCmdArgString(arg, sizeof(arg));
dvander@1423
   277
dvander@1423
   278
	ReplaceString(arg, sizeof(arg), "\"", "");	
dvander@1423
   279
dvander@1423
   280
	new ban_flags;
rbutler14@2532
   281
	if (strncmp(arg, "STEAM_", 6) == 0 && arg[7] == ':')
dvander@1423
   282
	{
dvander@1423
   283
		ban_flags |= BANFLAG_AUTHID;
dvander@1423
   284
	}
dvander@1423
   285
	else
dvander@1423
   286
	{
dvander@1423
   287
		ban_flags |= BANFLAG_IP;
dvander@1423
   288
	}
dvander@1423
   289
dvander@1423
   290
	LogAction(client, -1, "\"%L\" removed ban (filter \"%s\")", client, arg);
dvander@1423
   291
	RemoveBan(arg, ban_flags, "sm_unban", client);
dvander@1423
   292
dvander@1423
   293
	ReplyToCommand(client, "[SM] %t", "Removed bans matching", arg);
dvander@1423
   294
dvander@1423
   295
	return Plugin_Handled;
dvander@1423
   296
}
dvander@1423
   297