/*
Copyright (C) 2018 Parallel Realities

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.

*/

#include "game.h"

static void loadMetaInfo(void);
static void addKeyToStash(Item *item);

void initGame(void)
{
	memset(&game, 0, sizeof(Game));
	
	game.missionStatusTail = &game.missionStatusHead;
	
	game.cells = 5;
	game.hearts = 10;

	game.timePlayed = 0;
	
	loadMetaInfo();
	
	initControls();
}

void addRescuedMIA(char *name)
{
	int i;
	
	for (i = 0 ; i < game.totalMIAs ; i++)
	{
		if (strcmp(game.mias[i], "") == 0)
		{
			STRNCPY(game.mias[i], name, MAX_NAME_LENGTH);
			return;
		}
	}
}

void addDefeatedTarget(char *name)
{
	int i;
	
	for (i = 0 ; i < game.totalTargets ; i++)
	{
		if (strcmp(game.targets[i], "") == 0)
		{
			STRNCPY(game.targets[i], name, MAX_NAME_LENGTH);
			return;
		}
	}
}

int getNumItemsCarried(void)
{
	int rtn, i;

	rtn = 0;

	for (i = 0 ; i < MAX_ITEMS ; i++)
	{
		if (world.bob->items[i] != NULL)
		{
			rtn++;
		}
	}

	return rtn;
}

int addItem(Item *item)
{
	int i;
	
	if (getNumItemsCarried() < MAX_ITEMS)
	{
		for (i = 0 ; i < MAX_ITEMS ; i++)
		{
			if (item->type == ET_KEY && world.bob->items[i] != NULL && world.bob->items[i]->type == ET_KEY && strcmp(item->name, world.bob->items[i]->name) == 0)
			{
				world.bob->items[i]->value++;
				SDL_LogMessage(SDL_LOG_CATEGORY_APPLICATION, SDL_LOG_PRIORITY_DEBUG, "Inc. %s value (%d)(+1) - Killing", item->name, world.bob->items[i]->value);
				item->alive = ALIVE_DEAD;
				return 1;
			}
			else if (world.bob->items[i] == NULL)
			{
				world.bob->items[i] = item;
				item->canBePickedUp = 0;
				item->flags |= EF_GONE;
				if (item->type == ET_KEY)
				{
					item->value = 1;
				}
				
				SDL_LogMessage(SDL_LOG_CATEGORY_APPLICATION, SDL_LOG_PRIORITY_DEBUG, "Added %s (value=%d)", item->name, world.bob->items[i]->value);
				
				return 1;
			}
		}
	}
	
	return 0;
}

int hasItem(char *name)
{
	int i;
	Item *item;

	for (i = 0 ; i < MAX_ITEMS ; i++)
	{
		item = world.bob->items[i];
		
		if (item != NULL && strcmp(item->name, name) == 0)
		{
			return 1;
		}
	}
	
	return 0;
}

Item *getItem(char *name)
{
	int i;
	Item *item;
	
	for (i = 0 ; i < MAX_ITEMS ; i++)
	{
		item = world.bob->items[i];
		
		if (item != NULL && strcmp(item->name, name) == 0)
		{
			return world.bob->items[i];
		}
	}
	
	return NULL;
}

void removeItem(char *name)
{
	int i;
	Item *item;
	
	for (i = 0 ; i < MAX_ITEMS ; i++)
	{
		item = world.bob->items[i];
		
		if (item != NULL && strcmp(item->name, name) == 0)
		{
			/* only null this, as whether to kill it is handled elsewhere */
			if (item->type != ET_KEY)
			{
				world.bob->items[i] = NULL;
				return;
			}
			else
			{
				if (--item->value == 0)
				{
					item->flags &= ~EF_GONE;
					item->alive = ALIVE_DEAD;
					
					world.bob->items[i] = NULL;
				}
			}
		}
	}
}

void dropCarriedItems(void)
{
	int i;
	Item *item;

	memset(game.keys, 0, sizeof(Tuple) * MAX_KEY_TYPES);
	
	for (i = 0 ; i < MAX_ITEMS ; i++)
	{
		item = world.bob->items[i];

		if (item != NULL)
		{
			if (item->type == ET_KEY)
			{
				addKeyToStash(item);

				item->alive = ALIVE_DEAD;
			}
			else
			{
				item->flags &= ~EF_GONE;
				item->x = world.bob->checkpoints[0].x;
				item->y = world.bob->checkpoints[0].y;
				/* items can only be collected if they have a thinktime of 0 */
				item->thinkTime = FPS * 9999;
			}
		}
	}
}

static void addKeyToStash(Item *item)
{
	int i;
	Tuple *t;

	for (i = 0 ; i < MAX_KEY_TYPES ; i++)
	{
		t = &game.keys[i];

		if (t->value.i == 0)
		{
			STRNCPY(t->key, item->name, MAX_NAME_LENGTH);
			t->value.i = item->value;

			SDL_LogMessage(SDL_LOG_CATEGORY_APPLICATION, SDL_LOG_PRIORITY_DEBUG, "Added %s (%d) to stash", t->key, t->value.i);
			
			return;
		}
	}
}

void addKeysFromStash(void)
{
	int i;
	Tuple *t;
	Item *item;

	for (i = 0 ; i < MAX_KEY_TYPES ; i++)
	{
		t = &game.keys[i];

		if (t->value.i > 0)
		{
			item = (Item*)createEntity(t->key);
			item->init();
			item->value = t->value.i;

			addItem(item);

			SDL_LogMessage(SDL_LOG_CATEGORY_APPLICATION, SDL_LOG_PRIORITY_DEBUG, "Added %s (%d) to inventory", item->name, item->value);
		}
	}
}

static void loadMetaInfo(void)
{
	cJSON *root;
	char *text;
	int i;
	
	text = readFile("data/meta/meta.json");

	root = cJSON_Parse(text);
	
	game.totalKeys = cJSON_GetObjectItem(root, "totalKeys")->valueint;
	game.totalTargets = cJSON_GetObjectItem(root, "totalTargets")->valueint;
	game.totalMIAs = cJSON_GetObjectItem(root, "totalMIAs")->valueint;
	game.totalHearts = cJSON_GetObjectItem(root, "totalHearts")->valueint;
	game.totalCells = cJSON_GetObjectItem(root, "totalCells")->valueint;
	
	SDL_LogMessage(SDL_LOG_CATEGORY_APPLICATION, SDL_LOG_PRIORITY_DEBUG, "Meta [keys=%d, targets=%d, mias=%d, hearts=%d, cells=%d]", game.totalKeys, game.totalTargets, game.totalMIAs, game.totalHearts, game.totalCells);
	
	game.mias = malloc(sizeof(char*) * game.totalMIAs);
	for (i = 0 ; i < game.totalMIAs ; i++)
	{
		game.mias[i] = malloc(MAX_NAME_LENGTH);
	}
	
	game.targets = malloc(sizeof(char*) * game.totalTargets);
	for (i = 0 ; i < game.totalTargets ; i++)
	{
		game.targets[i] = malloc(MAX_NAME_LENGTH);
	}
	
	cJSON_Delete(root);
	
	free(text);
}

void destroyGame(void)
{
}