plugins/basebans.sp
author David Anderson <dvander@alliedmods.net>
Tue Oct 02 14:48:44 2007 +0000 (2007-10-02)
changeset 1525 bca151238f5e
parent 1423 e73b3563f254
child 1536 fe2146e4975d
permissions -rw-r--r--
- removed incorrect information about DrawOption, renamed to DisplayOption
- renamed DrawTitle to DisplayTitle
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
 *
dvander@1423
     7
 * SourceMod (C)2004-2007 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>
dvander@1423
    37
dvander@1423
    38
public Plugin:myinfo =
dvander@1423
    39
{
dvander@1423
    40
	name = "Basic Ban Commands",
dvander@1423
    41
	author = "AlliedModders LLC",
dvander@1423
    42
	description = "Basic Banning Commands",
dvander@1423
    43
	version = SOURCEMOD_VERSION,
dvander@1423
    44
	url = "http://www.sourcemod.net/"
dvander@1423
    45
};
dvander@1423
    46
dvander@1423
    47
public OnPluginStart()
dvander@1423
    48
{
dvander@1423
    49
	LoadTranslations("common.phrases");
dvander@1423
    50
dvander@1423
    51
	RegAdminCmd("sm_ban", Command_Ban, ADMFLAG_BAN, "sm_ban <#userid|name> <minutes|0> [reason]");
dvander@1423
    52
	RegAdminCmd("sm_unban", Command_Unban, ADMFLAG_UNBAN, "sm_unban <steamid>");
dvander@1423
    53
	RegAdminCmd("sm_addban", Command_AddBan, ADMFLAG_RCON, "sm_addban <time> <steamid> [reason]");
dvander@1423
    54
	RegAdminCmd("sm_banip", Command_BanIp, ADMFLAG_BAN, "sm_banip <time> <ip|#userid|name> [reason]");
dvander@1423
    55
}
dvander@1423
    56
dvander@1423
    57
public Action:Command_BanIp(client, args)
dvander@1423
    58
{
dvander@1423
    59
	if (args < 2)
dvander@1423
    60
	{
dvander@1423
    61
		ReplyToCommand(client, "[SM] Usage: sm_banip <time> <ip|#userid|name> [reason]");
dvander@1423
    62
		return Plugin_Handled;
dvander@1423
    63
	}
dvander@1423
    64
dvander@1423
    65
	decl String:arg[50], String:time[20];
dvander@1423
    66
	GetCmdArg(1, time, sizeof(time));
dvander@1423
    67
	GetCmdArg(2, arg, sizeof(arg));
dvander@1423
    68
	
dvander@1423
    69
	if (StrEqual(arg, "0"))
dvander@1423
    70
	{
dvander@1423
    71
		ReplyToCommand(client, "[SM] %t", "Cannot ban that IP");
dvander@1423
    72
		return Plugin_Handled;
dvander@1423
    73
	}
dvander@1423
    74
	
dvander@1423
    75
	new clients[1];
dvander@1423
    76
	new numClients = SearchForClients(arg, clients, 1);
dvander@1423
    77
dvander@1423
    78
	new bool:has_rcon;
dvander@1423
    79
	
dvander@1423
    80
	if (client == 0 || (client == 1 && !IsDedicatedServer()))
dvander@1423
    81
	{
dvander@1423
    82
		has_rcon = true;
dvander@1423
    83
	} else {
dvander@1423
    84
		new AdminId:id = GetUserAdmin(client);
dvander@1423
    85
		has_rcon = (id == INVALID_ADMIN_ID) ? false : GetAdminFlag(id, Admin_RCON);
dvander@1423
    86
	}
dvander@1423
    87
	
dvander@1423
    88
	new hit_client = -1;
dvander@1423
    89
	if (numClients == 1 
dvander@1423
    90
		&& !IsFakeClient(clients[0])
dvander@1423
    91
		&& (has_rcon || CanUserTarget(client, clients[0])))
dvander@1423
    92
	{
dvander@1423
    93
		GetClientIP(clients[0], arg, sizeof(arg));
dvander@1423
    94
		hit_client = clients[0];
dvander@1423
    95
	}
dvander@1423
    96
	
dvander@1423
    97
	if (hit_client == -1 && !has_rcon)
dvander@1423
    98
	{
dvander@1423
    99
		ReplyToCommand(client, "[SM] %t", "No Access");
dvander@1423
   100
		return Plugin_Handled;
dvander@1423
   101
	}
dvander@1423
   102
dvander@1423
   103
	new minutes = StringToInt(time);
dvander@1423
   104
dvander@1423
   105
	decl String:reason[128];
dvander@1423
   106
	if (args >= 3)
dvander@1423
   107
	{
dvander@1423
   108
		GetCmdArg(3, reason, sizeof(reason));
dvander@1423
   109
	}
dvander@1423
   110
dvander@1423
   111
	LogAction(client, 
dvander@1423
   112
			  hit_client, 
dvander@1423
   113
			  "\"%L\" added ban (minutes \"%d\") (ip \"%s\") (reason \"%s\")", 
dvander@1423
   114
			  client, 
dvander@1423
   115
			  minutes, 
dvander@1423
   116
			  arg, 
dvander@1423
   117
			  reason);
dvander@1423
   118
	BanIdentity(arg, 
dvander@1423
   119
				minutes, 
dvander@1423
   120
				BANFLAG_IP, 
dvander@1423
   121
				reason, 
dvander@1423
   122
				"sm_banip", 
dvander@1423
   123
				client);
dvander@1423
   124
dvander@1423
   125
	ReplyToCommand(client, "[SM] %t", "Ban added");
dvander@1423
   126
dvander@1423
   127
	return Plugin_Handled;
dvander@1423
   128
}
dvander@1423
   129
dvander@1423
   130
public Action:Command_AddBan(client, args)
dvander@1423
   131
{
dvander@1423
   132
	if (args < 2)
dvander@1423
   133
	{
dvander@1423
   134
		ReplyToCommand(client, "[SM] Usage: sm_addban <time> <steamid> [reason]");
dvander@1423
   135
		return Plugin_Handled;
dvander@1423
   136
	}
dvander@1423
   137
dvander@1423
   138
	decl String:arg_string[256];
dvander@1423
   139
	new String:reason[128];
dvander@1423
   140
	new String:time[50];
dvander@1423
   141
	new String:authid[50];
dvander@1423
   142
dvander@1423
   143
	GetCmdArgString(arg_string, sizeof(arg_string));
dvander@1423
   144
dvander@1423
   145
	new len, total_len;
dvander@1423
   146
dvander@1423
   147
	/* Get time */
dvander@1423
   148
	if ((len = BreakString(arg_string, time, sizeof(time))) == -1)
dvander@1423
   149
	{
dvander@1423
   150
		ReplyToCommand(client, "t[SM] Usage: sm_addban <time> <steamid> [reason]");
dvander@1423
   151
		return Plugin_Handled;
dvander@1423
   152
	}	
dvander@1423
   153
	total_len += len;
dvander@1423
   154
dvander@1423
   155
	/* Get steamid */
dvander@1423
   156
	if ((len = BreakString(arg_string[total_len], authid, sizeof(authid))) != -1)
dvander@1423
   157
	{
dvander@1423
   158
		/* Get reason */
dvander@1423
   159
		total_len += len;
dvander@1423
   160
		BreakString(arg_string[total_len], reason, sizeof(reason));
dvander@1423
   161
	}
dvander@1423
   162
dvander@1423
   163
	/* Verify steamid */
dvander@1423
   164
	if (strncmp(authid, "STEAM_0:", 8) != 0)
dvander@1423
   165
	{
dvander@1423
   166
		ReplyToCommand(client, "[SM] %t", "Invalid SteamID specified");
dvander@1423
   167
		return Plugin_Handled;
dvander@1423
   168
	}
dvander@1423
   169
dvander@1423
   170
	new minutes = StringToInt(time);
dvander@1423
   171
dvander@1423
   172
	LogAction(client, 
dvander@1423
   173
			  -1, 
dvander@1423
   174
			  "\"%L\" added ban (minutes \"%d\") (id \"%s\") (reason \"%s\")", 
dvander@1423
   175
			  client, 
dvander@1423
   176
			  minutes, 
dvander@1423
   177
			  authid, 
dvander@1423
   178
			  reason);
dvander@1423
   179
	BanIdentity(authid, 
dvander@1423
   180
				minutes, 
dvander@1423
   181
				BANFLAG_AUTHID, 
dvander@1423
   182
				reason, 
dvander@1423
   183
				"sm_addban", 
dvander@1423
   184
				client);
dvander@1423
   185
dvander@1423
   186
	ReplyToCommand(client, "[SM] %t", "Ban added");
dvander@1423
   187
dvander@1423
   188
	return Plugin_Handled;
dvander@1423
   189
}
dvander@1423
   190
dvander@1423
   191
public Action:Command_Unban(client, args)
dvander@1423
   192
{
dvander@1423
   193
	if (args < 1)
dvander@1423
   194
	{
dvander@1423
   195
		ReplyToCommand(client, "[SM] Usage: sm_unban <steamid|ip>");
dvander@1423
   196
		return Plugin_Handled;
dvander@1423
   197
	}
dvander@1423
   198
dvander@1423
   199
	decl String:arg[50];
dvander@1423
   200
	GetCmdArgString(arg, sizeof(arg));
dvander@1423
   201
dvander@1423
   202
	ReplaceString(arg, sizeof(arg), "\"", "");	
dvander@1423
   203
dvander@1423
   204
	new ban_flags;
dvander@1423
   205
	if (strncmp(arg, "STEAM_0:", 8) == 0)
dvander@1423
   206
	{
dvander@1423
   207
		ban_flags |= BANFLAG_AUTHID;
dvander@1423
   208
	}
dvander@1423
   209
	else
dvander@1423
   210
	{
dvander@1423
   211
		ban_flags |= BANFLAG_IP;
dvander@1423
   212
	}
dvander@1423
   213
dvander@1423
   214
	LogAction(client, -1, "\"%L\" removed ban (filter \"%s\")", client, arg);
dvander@1423
   215
	RemoveBan(arg, ban_flags, "sm_unban", client);
dvander@1423
   216
dvander@1423
   217
	ReplyToCommand(client, "[SM] %t", "Removed bans matching", arg);
dvander@1423
   218
dvander@1423
   219
	return Plugin_Handled;
dvander@1423
   220
}
dvander@1423
   221
dvander@1423
   222
public Action:Command_Ban(client, args)
dvander@1423
   223
{
dvander@1423
   224
	if (args < 2)
dvander@1423
   225
	{
dvander@1423
   226
		ReplyToCommand(client, "[SM] Usage: sm_ban <#userid|name> <minutes|0> [reason]");
dvander@1423
   227
		return Plugin_Handled;
dvander@1423
   228
	}
dvander@1423
   229
dvander@1423
   230
	decl String:arg[65];
dvander@1423
   231
	GetCmdArg(1, arg, sizeof(arg));
dvander@1423
   232
dvander@1423
   233
	new target = FindTarget(client, arg, true);
dvander@1423
   234
	if (target == -1)
dvander@1423
   235
	{
dvander@1423
   236
		return Plugin_Handled;
dvander@1423
   237
	}
dvander@1423
   238
dvander@1423
   239
	decl String:s_time[12];
dvander@1423
   240
	GetCmdArg(2, s_time, sizeof(s_time));
dvander@1423
   241
dvander@1423
   242
	new time = StringToInt(s_time);
dvander@1423
   243
dvander@1423
   244
	decl String:reason[128];
dvander@1423
   245
	if (args >= 3)
dvander@1423
   246
	{
dvander@1423
   247
		GetCmdArg(3, reason, sizeof(reason));
dvander@1423
   248
	} else {
dvander@1423
   249
		reason[0] = '\0';
dvander@1423
   250
	}
dvander@1423
   251
dvander@1423
   252
	decl String:authid[64];
dvander@1423
   253
	GetClientAuthString(target, authid, sizeof(authid));
dvander@1423
   254
	GetClientName(target, arg, sizeof(arg));
dvander@1423
   255
dvander@1423
   256
	if (!time)
dvander@1423
   257
	{
dvander@1423
   258
		if (reason[0] == '\0')
dvander@1423
   259
		{
dvander@1423
   260
			ShowActivity(client, "%t", "Permabanned player", arg);
dvander@1423
   261
		} else {
dvander@1423
   262
			ShowActivity(client, "%t", "Permabanned player reason", arg, reason);
dvander@1423
   263
		}
dvander@1423
   264
	} else {
dvander@1423
   265
		if (reason[0] == '\0')
dvander@1423
   266
		{
dvander@1423
   267
			ShowActivity(client, "%t", "Banned player", arg, time);
dvander@1423
   268
		} else {
dvander@1423
   269
			ShowActivity(client, "%t", "Banned player reason", arg, time, reason);
dvander@1423
   270
		}
dvander@1423
   271
	}
dvander@1423
   272
dvander@1423
   273
	LogAction(client, target, "\"%L\" banned \"%L\" (minutes \"%d\") (reason \"%s\")", client, target, time, reason);
dvander@1423
   274
dvander@1423
   275
	if (reason[0] == '\0')
dvander@1423
   276
	{
dvander@1423
   277
		strcopy(reason, sizeof(reason), "Banned");
dvander@1423
   278
	}
dvander@1423
   279
dvander@1423
   280
	BanClient(target, time, BANFLAG_AUTO, reason, reason, "sm_ban", client);
dvander@1423
   281
dvander@1423
   282
	return Plugin_Handled;
dvander@1423
   283
}
dvander@1423
   284