/*
 * Copyright (c) 1989 James E. Wilson, Robert A. Koeneke
 *
 * This software may be copied and distributed for educational, research, and
 * not for profit purposes provided that this copyright and statement are
 * included in all such copies.
 */

#include "levels.hpp"

#include "dungeon_info_type.hpp"
#include "init1.hpp"
#include "util.hpp"
#include "util.h"
#include "variable.h"
#include "variable.hpp"


/*
 * Return the parameter of the given command in the given file
 */
static int start_line = 0;
static bool_ get_command(const char *file, char comm, char *param)
{
	char buf[1024];
	int i = -1;
	FILE *fp;
	char *s;

	/* Build the filename */
	path_build(buf, 1024, ANGBAND_DIR_DNGN, file);

	/* Open the file */
	fp = my_fopen(buf, "r");

	/* The file exists ? */
	/* no ? then command not found */
	if (!fp) return FALSE;

	/* Parse to the end of the file or when the command is found */
	while (0 == my_fgets(fp, buf, 1024))
	{
		/* Advance the line number */
		i++;

		/* Skip comments and blank lines */
		if (!buf[0] || (buf[0] == '#')) continue;

		/* Is it the command we are looking for ? */
		if ((i > start_line) && (buf[0] == comm))
		{
			/* Acquire the text */
			s = buf + 2;

			start_line = i;

			/* Get the parameter */
			strcpy(param, s);

			/* Close it */
			my_fclose(fp);

			return TRUE;
		}

	}

	/* Close it */
	my_fclose(fp);

	/* Assume command not found */
	return FALSE;
}


/*
 * Return the dungeon branch starting form the current dungeon/level
 */
int get_branch()
{
	char file[20], buf[5];

	sprintf(file, "dun%d.%d", dungeon_type, dun_level - d_info[dungeon_type].mindepth);

	/* Get and return the branch */
	start_line = -1;
	if (get_command(file, 'B', buf)) return (atoi(buf));

	/* No branch ? return 0 */
	else return 0;
}

/*
 * Return the father dungeon branch
 */
int get_fbranch()
{
	char file[20], buf[5];

	sprintf(file, "dun%d.%d", dungeon_type, dun_level - d_info[dungeon_type].mindepth);

	/* Get and return the branch */
	start_line = -1;
	if (get_command(file, 'A', buf)) return (atoi(buf));

	/* No branch ? return 0 */
	else return 0;
}

/*
 * Return the father dungeon level
 */
int get_flevel()
{
	char file[20], buf[5];

	sprintf(file, "dun%d.%d", dungeon_type, dun_level - d_info[dungeon_type].mindepth);

	/* Get and return the level */
	start_line = -1;
	if (get_command(file, 'L', buf)) return (atoi(buf));

	/* No level ? return 0 */
	else return 0;
}

/*
 * Return the extension of the savefile for the level
 */
bool_ get_dungeon_save(char *buf)
{
	char file[20];

	sprintf(file, "dun%d.%d", dungeon_type, dun_level - d_info[dungeon_type].mindepth);

	/* Get and return the level */
	start_line = -1;
	if (get_command(file, 'S', buf)) return (TRUE);
	else return FALSE;
}

/*
 * Return the level generator
 */
bool_ get_dungeon_generator(char *buf)
{
	char file[20];

	sprintf(file, "dun%d.%d", dungeon_type, dun_level - d_info[dungeon_type].mindepth);

	/* Get and return the level */
	start_line = -1;
	if (get_command(file, 'G', buf)) return (TRUE);
	else return FALSE;
}

/*
 * Return the special level
 */
bool_ get_dungeon_special(char *buf)
{
	char file[20];

	sprintf(file, "dun%d.%d", dungeon_type, dun_level - d_info[dungeon_type].mindepth);

	/* Get and return the level */
	start_line = -1;
	if (get_command(file, 'U', buf)) return (TRUE);
	else return FALSE;
}

/*
 * Return the special level name
 */
bool_ get_dungeon_name(char *buf)
{
	char file[20];

	sprintf(file, "dun%d.%d", dungeon_type, dun_level - d_info[dungeon_type].mindepth);

	/* Get and return the level */
	start_line = -1;
	if (get_command(file, 'N', buf)) return (TRUE);
	else return FALSE;
}

/*
 * Return the special level name
 */
void get_level_flags()
{
	char file[20];
	char buf[1024], *s, *t;

	sprintf(file, "dun%d.%d", dungeon_type, dun_level - d_info[dungeon_type].mindepth);

	start_line = -1;

	/* Parse until done */
	while (get_command(file, 'F', buf))
	{
		/* Parse every entry textually */
		for (s = buf; *s; )
		{
			/* Find the end of this entry */
			for (t = s; *t && (*t != ' ') && (*t != '|'); ++t) /* loop */;

			/* Nuke and skip any dividers */
			if (*t)
			{
				*t++ = '\0';
				while (*t == ' ' || *t == '|') t++;
			}

			/* Parse this entry */
			if (0 != grab_one_dungeon_flag(&dungeon_flags, s)) return;

			/* Start the next entry */
			s = t;
		}
	}
}

/*
 * Return the special level desc
 */
bool_ get_level_desc(char *buf)
{
	char file[20];

	sprintf(file, "dun%d.%d", dungeon_type, dun_level - d_info[dungeon_type].mindepth);

	/* Get and return the level */
	start_line = -1;
	if (get_command(file, 'D', buf)) return (TRUE);
	else return FALSE;
}