/*
 * Copyright (c) 2016-2022 Vera Visions LLC.
 *
 * Permission to use, copy, modify, and distribute this software for any
 * purpose with or without fee is hereby granted, provided that the above
 * copyright notice and this permission notice appear in all copies.
 *
 * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
 * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
 * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
 * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
 * WHATSOEVER RESULTING FROM LOSS OF MIND, USE, DATA OR PROFITS, WHETHER
 * IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING
 * OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
*/

/* early maptweaks implementation (RFC)

	design notes:

	needed system that handles entity renaming
	or edits in an easy to understand syntax

	replaces .ent file overrides for a lot of tasks
	and can apply rules on all relevant maps based on
	custom filters, either via serverinfo or via cvar.

	TODO: immediately throw out things where cvar/infokey
	checks fail and don't even cache them.
*/

typedef struct
{
	string cvarCheck;
	string serverinfoCheck;
	string itemTable;
} mapTweak_t;

mapTweak_t *g_mapTweakTable;
var int g_mapTweakCount;

void
MapTweaks_Init(void)
{
	filestream tweakFile;
	string tempString;
	string newCvar, newInfo, newItem;
	int atTweak = 0i;

	tweakFile = fopen("scripts/maptweaks.txt", FILE_READ);
	g_mapTweakCount = 0;
	newCvar = newInfo = newItem = "";

	/* count valid entries. */
	if (tweakFile >= 0) {
		while ((tempString = fgets(tweakFile))) {
			if (tokenize_console(tempString) == 1) {
				if (argv(0) == "}")
					g_mapTweakCount += 1;
			}
		}
	} else {
		return;
	}

	g_mapTweakTable = memalloc(sizeof(mapTweak_t) * g_mapTweakCount);
	fseek(tweakFile, 0);

	while ((tempString = fgets(tweakFile))) {
		int segments = tokenize_console(tempString);
		if (segments == 1) {
			if (argv(0) == "}") {
				g_mapTweakTable[atTweak].cvarCheck = newCvar;
				g_mapTweakTable[atTweak].serverinfoCheck = newInfo;
				g_mapTweakTable[atTweak].itemTable = newItem;
				newCvar = newInfo = newItem = "";
				atTweak++;
			} else if (argv(0) == "{") {
				/* ??? */
			}
		} else if (segments == 4) {
			switch (argv(0)) {
			case "when-cvar":
				newCvar = strcat(newCvar, argv(1), " ", argv(2), " ", argv(3), " ");
				break;
			case "when-serverinfo":
				newInfo = strcat(newInfo, argv(1), " ", argv(2), " ", argv(3), " ");
				break;
			}
		} else if (segments == 3) {
			switch (argv(0)) {
			case "replace":
				newItem = strcat(newItem, argv(1), " ", argv(2), " ");
				break;
			}
		}
	}

	fclose(tweakFile);
}

static bool
MapTweak_Check(int id)
{
	int segments = tokenize(g_mapTweakTable[id].cvarCheck);

	/* cvars first */
	for (int i = 0; i < segments; i += 3) {
		string cvarName = argv(i);
		string checkType = argv(i + 1);
		float cvarValue = stof(argv(i + 2));

		switch (checkType) {
		case "equals":
			if not (cvar(cvarName) == cvarValue)
				return false;
			break;
		case "less-than":
			if not (cvar(cvarName) < cvarValue)
				return false;
			break;
		case "greater-than":
			if not (cvar(cvarName) > cvarValue)
				return false;
			break;
		case "is-not":
			if not (cvar(cvarName) != cvarValue)
				return false;
			break;
		}
	}

	segments = tokenize(g_mapTweakTable[id].serverinfoCheck);

	/* infokeys second */
	for (int i = 0; i < segments; i += 3) {
		string infoName = argv(i);
		string checkType = argv(i + 1);
		float infoValue = stof(argv(i + 2));

		switch (checkType) {
		case "equals":
			if not (serverkeyfloat(infoName) == infoValue)
				return false;
			break;
		case "less-than":
			if not (serverkeyfloat(infoName) < infoValue)
				return false;
			break;
		case "greater-than":
			if not (serverkeyfloat(infoName) > infoValue)
				return false;
			break;
		case "is-not":
			if not (serverkeyfloat(infoName) != infoValue)
				return false;
			break;
		}
	}

	return true;
}

static void
MapTweak_FinishSpawn(entity targetEntity, string newClassname)
{
	entity oldSelf = self;
	self = targetEntity;

	if (EntityDef_SpawnClassname(newClassname))
		return;

	if (!isfunction(newClassname)) {
		self.classname = strcat("spawnfunc_", newClassname);
	} else {
		self.classname = newClassname;
	}

	callfunction(self.classname);
	self = oldSelf;
}

bool
MapTweak_EntitySpawn(entity targetEntity)
{
	string classCheck = targetEntity.classname;

	if (g_mapTweakCount <= 0)
		return false;

	for (int i = 0; i < g_mapTweakCount; i++) {
		int segments = tokenize(g_mapTweakTable[i].itemTable);

		for (int y = 0; y < segments; y += 2) {
			string newEnt, oldEnt;

			oldEnt = argv(y);
			newEnt = argv(y + 1);

			if (classCheck == oldEnt) {
				if (MapTweak_Check(i) == true) {
					MapTweak_FinishSpawn(targetEntity, newEnt);
					return true;
				} else {
					break;
				}
			}
		}
	}

	return false;
}