AMXX.pl: Support AMX Mod X i SourceMod

/*

AMXBans, managing bans for Half-Life modifications
Copyright © 2003, 2004 Ronald Renes / Jeroen de Rover

Copyright © 2009, 2010 Thomas Kurz

Amxbans Main Plugin
*/

new const AUTHOR[] = "GmStaff, xPaw, ~Val~"
new const PLUGIN_NAME[] = "AMXBans Main"
new const VERSION[] = "Gm 1.5.1" // This is used in the plugins name
new const DATE[] = "20:31 07.03.2011"

new const amxbans_version[] = "1.5.1" // This is for the DB
//#define UNBAN_GAME_DEL

#include <amxmodx>
#include <amxmisc>
#include <fakemeta>
#include <sqlx>
#include <time>

// Amxbans Core natives
#include "include/amxbans_core.inc"

// Amxbans .inl files
#include "include/amxbans/global_vars.inl"
#include "include/amxbans/color_chat.inl"
#include "include/amxbans/init_functions.inl"
#include "include/amxbans/check_player.inl"
#include "include/amxbans/check_flag.inl"
#include "include/amxbans/menu_stocks.inl"
#include "include/amxbans/menu_ban.inl"
#include "include/amxbans/menu_disconnected.inl"
#include "include/amxbans/menu_history.inl"
#include "include/amxbans/menu_flag.inl"
#include "include/amxbans/cmdBan.inl"
#include "include/amxbans/cmdUnBan.inl"
#include "include/amxbans/web_handshake.inl"


// 16k * 4 = 64k stack size
#pragma dynamic 16384 // Give the plugin some extra memory to use


public plugin_init() {
register_plugin(PLUGIN_NAME, VERSION, AUTHOR)
register_cvar("amxbans_version", VERSION, FCVAR_SERVER|FCVAR_EXTDLL|FCVAR_UNLOGGED|FCVAR_SPONLY)

register_dictionary("amxbans.txt")
register_dictionary("common.txt")
register_dictionary("time.txt")

new szGame[20];
get_modname(szGame, charsmax(szGame));

register_clcmd("amx_banmenu", "cmdBanMenu", ADMIN_BAN, "- displays ban menu")
register_clcmd("amxbans_custombanreason", "setCustomBanReason", ADMIN_BAN, "- configures custom ban message")
register_clcmd("amx_banhistorymenu", "cmdBanhistoryMenu", ADMIN_BAN, "- displays banhistorymenu")
register_clcmd("amx_bandisconnectedmenu", "cmdBanDisconnectedMenu", ADMIN_BAN, "- displays bandisconnectedmenu")
register_clcmd("amx_flaggingmenu","cmdFlaggingMenu",ADMIN_BAN,"- displays flagging menu")

register_srvcmd("amx_sethighbantimes", "setHighBantimes")
register_srvcmd("amx_setlowbantimes", "setLowBantimes")
register_srvcmd("amx_setflagtimes","setFlagTimes")

register_concmd("amx_reloadreasons", "cmdFetchReasons", ADMIN_CFG)

pcvar_serverip = register_cvar("amxbans_server_address","")
pcvar_server_nick = register_cvar("amxbans_servernick", "")
pcvar_discon_in_banlist = register_cvar("amxbans_discon_players_saved","10")
pcvar_complainurl = register_cvar("amxbans_complain_url", "www.yoursite.com") // Dont use http:// then the url will not show
pcvar_debug = register_cvar("amxbans_debug", "0") // Set this to 1 to enable debug
pcvar_add_mapname = register_cvar("amxbans_add_mapname_in_servername", "0")
pcvar_flagged_all = register_cvar("amxbans_flagged_all_server","1")
pcvar_show_in_hlsw = register_cvar("amxbans_show_in_hlsw", "1")
pcvar_show_hud_messages = register_cvar("amxbans_show_hud_messages", "1")
pcvar_higher_ban_time_admin = register_cvar("amxbans_higher_ban_time_admin", "n")
pcvar_admin_mole_access = register_cvar("amxbans_admin_mole_access", "r")
pcvar_show_name_evenif_mole = register_cvar("amxbans_show_name_evenif_mole", "1")
pcvar_custom_statictime = register_cvar("amxbans_custom_statictime","1440")
pcvar_show_prebanned = register_cvar("amxbans_show_prebanned","1")
pcvar_show_prebanned_num = register_cvar("amxbans_show_prebanned_num","2")
pcvar_default_banreason = register_cvar("amxbans_default_ban_reason","unknown")
pcvar_extendedbanmenu = register_cvar("amxbans_extendedbanmenu","0")

register_concmd("amx_ban", "cmdBan", ADMIN_BAN, "<time in mins> <steamID or nickname or #authid or IP> <reason>")
register_concmd("amx_banip", "cmdBan", ADMIN_BAN, "<time in mins> <steamID or nickname or #authid or IP> <reason>")
register_concmd("amx_unban", "cmdUnBan", ADMIN_BAN, "<steamID or IP>")

register_srvcmd("amx_list", "cmdLst", ADMIN_RCON, "sends playerinfos to web")

g_coloredMenus = colored_menus()
g_MyMsgSync = CreateHudSyncObj()

g_banReasons = ArrayCreate(128,7)
g_banReasons_Bantime = ArrayCreate(1,7)

g_disconPLname = ArrayCreate(32,1)
g_disconPLauthid = ArrayCreate(35,1)
g_disconPLip = ArrayCreate(22,1)

plnum = get_maxplayers()

new configsDir[64]
get_configsdir(configsDir, 63)

server_cmd("exec %s/amxbans.cfg", configsDir)

color_chat_init()
}
create_forwards() {
MFHandle[Ban_MotdOpen]=CreateMultiForward("amxbans_ban_motdopen",ET_IGNORE,FP_CELL)
MFHandle[Player_Flagged]=CreateMultiForward("amxbans_player_flagged",ET_IGNORE,FP_CELL,FP_CELL,FP_STRING)
MFHandle[Player_UnFlagged]=CreateMultiForward("amxbans_player_unflagged",ET_IGNORE,FP_CELL)
}
public addMenus() {
new szKey[64]
format(szKey,charsmax(szKey),"%L",LANG_SERVER,"ADMMENU_FLAGGING")
AddMenuItem(szKey,"amx_flaggingmenu",ADMIN_BAN,PLUGIN_NAME)
format(szKey,charsmax(szKey),"%L",LANG_SERVER,"ADMMENU_DISCONNECTED")
AddMenuItem(szKey,"amx_bandisconnectedmenu",ADMIN_BAN,PLUGIN_NAME)
format(szKey,charsmax(szKey),"%L",LANG_SERVER,"ADMMENU_HISTORY")
AddMenuItem(szKey,"amx_banhistorymenu",ADMIN_BAN,PLUGIN_NAME)

AddMenuItem ( "AMXBans: Screens", "amx_ssbanmenu", ADMIN_BAN, "AMXBans: Screens" );
}
//forward from amxbans_core
public amxbans_sql_initialized(Handle:sqlTuple,dbPrefix[]) {

copy(g_dbPrefix,charsmax(g_dbPrefix),dbPrefix)
//db was already initialized, second init can be caused by a second forward from main plugin
//this should never happen!!
if(g_SqlX != Empty_Handle) {
log_amx("[AMXBans Error] DB Info Tuple from amxbans_core initialized twice!!")
return PLUGIN_HANDLED
}

g_SqlX=sqlTuple
if ( get_pcvar_num(pcvar_debug) >= 1 )
log_amx("[AMXBans] Received DB Info Tuple from amxbans_core: %d | %s", sqlTuple,g_dbPrefix)
if(g_SqlX==Empty_Handle) {
log_amx("[AMXBans Error] DB Info Tuple from amxbans_main is empty! Trying to get a valid one")
new host[64], user[64], pass[64], db[64]

get_cvar_string("amx_sql_host", host, 63)
get_cvar_string("amx_sql_user", user, 63)
get_cvar_string("amx_sql_pass", pass, 63)
get_cvar_string("amx_sql_db", db, 63)

g_SqlX = SQL_MakeDbTuple(host, user, pass, db)

get_cvar_string("amx_sql_prefix",g_dbPrefix,charsmax(g_dbPrefix))
}
create_forwards()
set_task(0.1, "banmod_online")
set_task(0.2, "fetchReasons")
set_task(2.0, "addMenus")

return PLUGIN_HANDLED
}

//////////////////////////////////////////////////////////////////
public get_higher_ban_time_admin_flag() {
new flags[24]
get_pcvar_string(pcvar_higher_ban_time_admin, flags, 23)

return(read_flags(flags))
}
public get_admin_mole_access_flag() {
new flags[24]
get_pcvar_string(pcvar_admin_mole_access, flags, 23)

return(read_flags(flags))
}
public delayed_kick(player_id) {

player_id-=200
new userid = get_user_userid(player_id)
new kick_message[128]

format(kick_message,127,"%L", player_id,"KICK_MESSAGE")

if ( get_pcvar_num(pcvar_debug) >= 1 )
log_amx("[AMXBANS DEBUG] Delayed Kick ID: <%d>", player_id)

server_cmd("kick #%d %s",userid, kick_message)

g_kicked_by_amxbans[player_id]=true
g_being_banned[player_id] = false

return PLUGIN_CONTINUE
}

/********* Error handler ***************/
MySqlX_ThreadError(szQuery[], error[], errnum, failstate, id) {
if (failstate == TQUERY_CONNECT_FAILED) {
log_amx("%L", LANG_SERVER, "TCONNECTION_FAILED")
} else if (failstate == TQUERY_QUERY_FAILED) {
log_amx("%L", LANG_SERVER, "TQUERY_FAILED")
}
log_amx("%L", LANG_SERVER, "TQUERY_ERROR", id)
log_amx("%L", LANG_SERVER, "TQUERY_MSG", error, errnum)
log_amx("%L", LANG_SERVER, "TQUERY_STATEMENT", szQuery)
}
/********* client functions ************/
public client_authorized(id) {
//fix for the invalid tuple error at mapchange, only a fast fix now
if(g_SqlX==Empty_Handle) {
set_task(2.0,"client_authorized",id)
return PLUGIN_HANDLED
}
//check if an activ ban exists
check_player(id)
return PLUGIN_CONTINUE
}
public client_putinserver(id) {
//fix for the invalid tuple error at mapchange, only a fast fix now
if(g_SqlX==Empty_Handle) {
set_task(5.0,"client_putinserver",id)
return PLUGIN_HANDLED
}
//check if the player was banned before
prebanned_check(id)
//remove the player from the disconnect player list because he is already connected ;-)
disconnect_remove_player(id)
return PLUGIN_CONTINUE
}
public client_disconnect(id) {

g_being_banned[id]=false

if(!g_kicked_by_amxbans[id]) {
//only add players to disconnect list if not kicked by amxbans
disconnected_add_player(id)
} else if(g_being_flagged[id]) {
// if kicked by amxbans maybe remove the flagged, not added yet
/*****///remove_flagged_by_steam(0,id,0)
}
//reset some vars
g_kicked_by_amxbans[id]=false
g_being_flagged[id]=false
g_nextround_kick[id]=false
}
/********* timecmd functions ************/
public setHighBantimes() {
new arg[32]
new argc = read_argc() - 1
g_highbantimesnum = argc

if(argc < 1 || argc > 14) {
log_amx("[AMXBANS] You have more than 14 or less than 1 bantimes set in amx_sethighbantimes")
log_amx("[AMXBANS] Loading default bantimes")
loadDefaultBantimes(1)

return PLUGIN_HANDLED
}

new i = 0
new num[32], flag[32]
while (i < argc) {
read_argv(i + 1, arg, 31)
parse(arg, num, 31, flag, 31)

if(equali(flag, "m")) {
g_HighBanMenuValues[i] = str_to_num(num)
} else if(equali(flag, "h")) {
g_HighBanMenuValues[i] = (str_to_num(num) * 60)
} else if(equali(flag, "d")) {
g_HighBanMenuValues[i] = (str_to_num(num) * 1440)
} else if(equali(flag, "w")) {
g_HighBanMenuValues[i] = (str_to_num(num) * 10080)
}
i++
}
return PLUGIN_HANDLED
}
public setLowBantimes() {
new arg[32]
new argc = read_argc() - 1
g_lowbantimesnum = argc

if(argc < 1 || argc > 14) {
log_amx("[AMXBANS] You have more than 14 or less than 1 bantimes set in amx_setlowbantimes")
log_amx("[AMXBANS] Loading default bantimes")
loadDefaultBantimes(2)

return PLUGIN_HANDLED
}

new i = 0
new num[32], flag[32]
while (i < argc) {
read_argv(i + 1, arg, 31)
parse(arg, num, 31, flag, 31)

if(equali(flag, "m")) {
g_LowBanMenuValues[i] = str_to_num(num)
} else if(equali(flag, "h")) {
g_LowBanMenuValues[i] = (str_to_num(num) * 60)
} else if(equali(flag, "d")) {
g_LowBanMenuValues[i] = (str_to_num(num) * 1440)
} else if(equali(flag, "w")) {
g_LowBanMenuValues[i] = (str_to_num(num) * 10080)
}
i++
}
return PLUGIN_HANDLED
}
public setFlagTimes() {
new arg[32]
new argc = read_argc() - 1
g_flagtimesnum = argc
if(argc < 1 || argc > 14) {
log_amx("[AMXBANS] You have more than 14 or less than 1 flagtimes set in amx_setflagtimes")
log_amx("[AMXBANS] Loading default flagtimes")
loadDefaultBantimes(3)

return PLUGIN_HANDLED
}

new i = 0
new num[32], flag[32]
while (i < argc) {
read_argv(i + 1, arg, 31)
parse(arg, num, 31, flag, 31)

if(equali(flag, "m")) {
g_FlagMenuValues[i] = str_to_num(num)
} else if(equali(flag, "h")) {
g_FlagMenuValues[i] = (str_to_num(num) * 60)
} else if(equali(flag, "d")) {
g_FlagMenuValues[i] = (str_to_num(num) * 1440)
} else if(equali(flag, "w")) {
g_FlagMenuValues[i] = (str_to_num(num) * 10080)
}
i++
}
return PLUGIN_HANDLED
}
loadDefaultBantimes(num) {
if(num == 1 || num == 0)
server_cmd("amx_sethighbantimes 5 60 240 600 6000 0")
if(num == 2 || num == 0)
server_cmd("amx_setlowbantimes 5 30 60 480 600 1440")
if(num == 3 || num == 0)
server_cmd("amx_setflagtimes 60 240 600 1440 10080 40320 90720 0")
}
/********* mysql escape functions ************/
mysql_escape_string(const source[],dest[],len)
{
copy(dest, len, source);
replace_all(dest,len,"\\","\\\\");
replace_all(dest,len,"\0","\\0");
replace_all(dest,len,"\n","\\n");
replace_all(dest,len,"\r","\\r");
replace_all(dest,len,"\x1a","\Z");
replace_all(dest,len,"'","\'");
replace_all(dest,len,"^"","\^"");
}
mysql_get_username_safe(id,dest[],len) {
new name[128]
get_user_name(id,name,127)
mysql_escape_string(name,dest,len)
}
mysql_get_servername_safe(dest[],len) {
new server_name[256]
get_cvar_string("hostname", server_name, charsmax(server_name))
mysql_escape_string(server_name,dest,len)
}