/* AMX Mod X
*   Stats Configuration Plugin
*
* by the AMX Mod X Development Team
*  originally developed by OLO
*
* This file is part of AMX Mod X.
*
*
*  This program is free software; you can redistribute it and/or modify it
*  under the terms of the GNU General Public License as published by the
*  Free Software Foundation; either version 2 of the License, or (at
*  your option) any later version.
*
*  This program is distributed in the hope that it will be useful, but
*  WITHOUT ANY WARRANTY; without even the implied warranty of
*  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
*  General Public License for more details.
*
*  You should have received a copy of the GNU General Public License
*  along with this program; if not, write to the Free Software Foundation,
*  Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*
*  In addition, as a special exception, the author gives permission to
*  link the code of this program with the Half-Life Game Engine ("HL
*  Engine") and Modified Game Libraries ("MODs") developed by Valve,
*  L.L.C ("Valve"). You must obey the GNU General Public License in all
*  respects for all of the code used other than the HL Engine and MODs
*  from Valve. If you modify this file, you may extend this exception
*  to your version of the file, but you are not obligated to do so. If
*  you do not wish to do so, delete this exception statement from your
*  version.
*/

#include <amxmodx>
#include <amxmisc>

#define MAX_MENU_DATA 64

new g_menuData[MAX_MENU_DATA][32]
new g_menuDataVar[MAX_MENU_DATA][32]
new g_menuDataId[MAX_MENU_DATA]
new g_menuDataNum
new g_menuPosition[33]
new g_fileToSave[64]
new bool:g_modified
new g_coloredMenus

public plugin_precache()
{
	register_clcmd("amx_statscfgmenu", "cmdCfgMenu", ADMIN_CFG, "- displays stats configuration menu")
	register_dictionary("statscfg.txt")
	register_dictionary("common.txt")
	register_concmd("amx_statscfg", "cmdCfg", ADMIN_CFG, "- displays help for stats configuration")
}

public plugin_init()
{
	register_plugin("Stats Configuration", AMXX_VERSION_STR, "AMXX Dev Team")
	register_menucmd(register_menuid("Stats Configuration"), 1023, "actionCfgMenu")
	
	get_configsdir(g_fileToSave, 63)
	format(g_fileToSave, 63, "%s/stats.ini", g_fileToSave)
	loadSettings(g_fileToSave)
	g_coloredMenus = colored_menus()
}

public cmdCfg(id, level, cid)
{
	if (!cmd_access(id, level, cid, 1))
		return PLUGIN_HANDLED

	new cmds[32]
	read_argv(1, cmds, 31)
	
	new option = equali(cmds, "on") ? 1 : 0

	if (!option)
		option = equali(cmds, "off") ? 2 : 0
	
	if (read_argc() > 2 && option)
	{
		new var[32], enabled = 0
		read_argv(2, var, 31)
		
		for (new a = 0; a < g_menuDataNum; ++a)
		{
			if (containi(g_menuDataVar[a], var) != -1)
			{
				g_modified = true
				++enabled
				if (option == 1)
				{
					set_xvar_num(g_menuDataId[a], 1)
					console_print(id, "%L: %s", id, "STATS_ENABLED", g_menuData[a])
				} else {
					set_xvar_num(g_menuDataId[a], 0)
					console_print(id, "%L: %s", id, "STATS_DISABLED", g_menuData[a])
				}
			}
		}
		
		if (enabled)
			console_print(id, "%L", id, "TOTAL_NUM", enabled)
		else
			console_print(id, "%L", id, "NO_OPTION", var)
	}
	else if (equali(cmds, "save"))
	{
		if (saveSettings(g_fileToSave))
		{
			g_modified = false
			console_print(id, "%L", id, "STATS_CONF_SAVED")
		}
		else
			console_print(id, "%L", id, "STATS_CONF_FAILED")
	}
	else if (equali(cmds, "load"))
	{
		if (loadSettings(g_fileToSave))
		{
			g_modified = false
			console_print(id, "%L", id, "STATS_CONF_LOADED")
		}
		else
			console_print(id, "%L", id, "STATS_CONF_FAIL_LOAD")
	}
	else if (equali(cmds, "list"))
	{
		new arg1[8]
		new start = read_argv(2, arg1, 7) ? str_to_num(arg1) : 1

		if (--start < 0) start = 0
		
		if (start >= g_menuDataNum)
			start = g_menuDataNum - 1
		
		new end = start + 10
		
		if (end > g_menuDataNum)
			end = g_menuDataNum

		new lName[16], lVariable[16], lStatus[16]
		
		format(lName, 15, "%L", id, "NAME")
		format(lVariable, 15, "%L", id, "VARIABLE")
		format(lStatus, 15, "%L", id, "STATUS")
		console_print(id, "^n----- %L: -----", id, "STATS_CONF")
		console_print(id, "     %-29.28s   %-24.23s   %-9.8s", lName, lVariable, lStatus)
		
		if (start != -1)
		{ 
			new lOnOff[16]
			
			for (new a = start; a < end; ++a)
			{
				format(lOnOff, 15, "%L", id, get_xvar_num(g_menuDataId[a]) ? "ON" : "OFF")
				console_print(id, "%3d: %-29.28s   %-24.23s   %-9.8s", a + 1, g_menuData[a], g_menuDataVar[a], lOnOff)
			}
		}
		
		console_print(id, "----- %L -----", id, "STATS_ENTRIES_OF", start + 1, end, g_menuDataNum)
		
		if (end < g_menuDataNum)
			console_print(id, "----- %L -----", id, "STATS_USE_MORE", end + 1)
		else 
			console_print(id, "----- %L -----", id, "STATS_USE_BEGIN")
	}
	else if (equali(cmds, "add") && read_argc() > 3)
	{
		if (g_menuDataNum < MAX_MENU_DATA)
		{
			read_argv(2, g_menuData[g_menuDataNum], 31)
			read_argv(3, g_menuDataVar[g_menuDataNum], 31)
			g_menuDataId[g_menuDataNum] = get_xvar_id(g_menuDataVar[g_menuDataNum])
			++g_menuDataNum
		}
		else
			console_print(id, "%L", id, "CANT_ADD_STATS")
	} else {
		console_print(id, "%L", id, "COM_STATS_USAGE")
		console_print(id, "%L", id, "COM_STATS_COM")
		console_print(id, "%L", id, "COM_STATS_ON")
		console_print(id, "%L", id, "COM_STATS_OFF")
		console_print(id, "%L", id, "COM_STATS_SAVE")
		console_print(id, "%L", id, "COM_STATS_LOAD")
		console_print(id, "%L", id, "COM_STATS_LIST")
		console_print(id, "%L", id, "COM_STATS_ADD")
	}

	return PLUGIN_HANDLED
}

public cmdCfgMenu(id, level, cid)
{
	if (cmd_access(id, level, cid, 1))
		displayCfgMenu(id, g_menuPosition[id] = 0)
	
	return PLUGIN_HANDLED
}

displayCfgMenu(id, pos)
{
	if (pos < 0)
		return
	
	new menu_body[512], start = pos * 7
	
	if (start >= g_menuDataNum)
		start = pos = g_menuPosition[id] = 0
	
	new len = format(menu_body, 511, g_coloredMenus ? "\y%L\R%d/%d^n\w^n" : "%L %d/%d^n^n", id, "STATS_CONF", pos + 1, ((g_menuDataNum / 7)+((g_menuDataNum % 7) ? 1 : 0)))
	new end = start + 7, keys = MENU_KEY_0|MENU_KEY_8, k = 0
	
	if (end > g_menuDataNum)
		end = g_menuDataNum
	
	for (new a = start; a < end; ++a)
	{
		keys |= (1<<k)
		len += format(menu_body[len], 511-len, g_coloredMenus ? "%d. %s\y\R%L^n\w" : "%d. %s %L^n", ++k, g_menuData[a], id, get_xvar_num(g_menuDataId[a]) ? "ON" : "OFF")
	}
	
	if (g_menuDataNum == 0)
		len += format(menu_body[len], 511-len, g_coloredMenus ? "\d%L\w" : "%L", id, "NO_STATS")

	len += format(menu_body[len], 511-len, g_coloredMenus ? "^n8. %L\y\R%s^n\w" : "^n8. %L %s^n", id, "SAVE_CONF", g_modified ? "*" : "")

	if (end != g_menuDataNum)
	{
		format(menu_body[len], 511-len, "^n9. %L...^n0. %L", id, "MORE", id, pos ? "BACK" : "EXIT")
		keys |= MENU_KEY_9
	}
	else
		format(menu_body[len], 511-len, "^n0. %L", id, pos ? "BACK" : "EXIT")
	
	show_menu(id, keys, menu_body, -1, "Stats Configuration")
}

public actionCfgMenu(id, key)
{
	switch (key)
	{
		case 7:
		{
			if (saveSettings(g_fileToSave))
			{
				g_modified = false
				client_print(id, print_chat, "* %L", id, "STATS_CONF_SAVED")
			}
			else
				client_print(id, print_chat, "* %L", id, "STATS_CONF_FAILED")
			
			displayCfgMenu(id, g_menuPosition[id])
		}
		case 8: displayCfgMenu(id, ++g_menuPosition[id])
		case 9: displayCfgMenu(id, --g_menuPosition[id])
		default:
		{
			g_modified = true
			new a = g_menuPosition[id] * 7 + key
			set_xvar_num(g_menuDataId[a], 1 - get_xvar_num(g_menuDataId[a]))
			
			displayCfgMenu(id, g_menuPosition[id])
		}
	}
	
	return PLUGIN_HANDLED
}

saveSettings(filename[])
{
	if (file_exists(filename))
		delete_file(filename)
	
	if (!write_file(filename, ";Generated by Stats Configuration Plugin. Do not modify!^n;Variable  Description"))
		return 0
	
	new text[256]
	
	for (new a = 0; a < g_menuDataNum; ++a)
	{
		if (get_xvar_num(g_menuDataId[a]))
		{
			format(text, 255, "%-24.23s ;%s", g_menuDataVar[a], g_menuData[a])
			write_file(filename, text)
		}
	} 
	
	return 1
}

loadSettings(filename[])
{
	if (!file_exists(filename)) 
		return 0
	
	new text[256], name[32]
	new len, pos = 0, xid

	while (read_file(filename, pos++, text, 255, len))
	{
		if (text[0] == ';') continue // line is a comment
		
		parse(text, name, 31)
		
		if ((xid = get_xvar_id(name)) != -1)
			set_xvar_num(xid, 1)
	}
	
	return 1
}