game.c

/*
 * Copyright (c) 2018 Tristan Le Guern <tleguern@bouledef.eu>
 *
 * 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 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.
 */

#include "config.h"

#include <err.h>
#include <glob.h>
#include <limits.h>
#include <pwd.h>
#include <stdarg.h>
#include <stdbool.h>
#include <stdint.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
#include <unistd.h>

#include "level.h"
#include "ui.h"
#include "creature.h"
#include "options.h"
#include "world.h"
#include "rng.h"

static void usage(void);

static const char *filename = ".roguelikerc";

static int
config_file_read(const char *configfile)
{
	size_t		 linez = 0;
	ssize_t		 linelen = 0;
	char		*line = NULL;
	FILE		*s;

	log_debug("--- Configuration file ---\n");
	log_debug("Reading configuration file %s\n", configfile);
	if (NULL == (s = fopen(configfile, "r"))) {
		log_debug("Can't open, aborting\n");
		return(-1);
	}
	while (-1 != (linelen = getline(&line, &linez, s))) {
		char *linep, *key, *value;
		int found = 0;

		line[linelen - 1] = '\0';
		linep = line;
		if ('#' == linep[0])
			continue;
		while (' ' == linep[0] || '\t' == linep[0]) {
			linep++;
		}
		if (strlen(linep) == 0)
			continue;
		key = strsep(&linep, ":");
		if (NULL == linep) {
			log_debug("bad line -- %s\n", line);
			free(line);
			return(-1);
		}
		value = linep;
		while (' ' == value[0] || '\t' == value[0]) {
			value++;
		}
		for (int i = 0; i < O__MAX; i++) {
			if (strcmp(optionsmap[i].name, key) != 0) {
				continue;
			}
			if (strcmp(value, "true") == 0) {
				optionsmap[i].value = true;
			} else if (strcmp(value, "false") == 0) {
				optionsmap[i].value = false;
			} else {
				log_debug("option %s has wrong value -- %s\n",
				    key, value);
				free(line);
				return(-1);
			}
			found = 1;
			log_debug("Found option %s=%s\n", key, value);
			break;
		}
		if (found == 1)
			continue;
		for (int i = NONCONFIGURABLEKEYS; i < K__MAX; i++) {
			if (strcmp(keybindingsmap[i].name, key) != 0) {
				continue;
			}
			if (strlen(value) > 1) {
				log_debug("key %s has wrong value -- %s\n",
				    key, value);
				free(line);
				return(-1);
			}
			keybindingsmap[i].key = value[0];
		}
	}
	free(line);
	line = NULL;
	return(0);
}

int
main(int argc, char *argv[])
{
	int		 ch, is_running;
	bool		 debug = false;
	uint32_t	 seed;
	glob_t		 gl;
	char		 path[PATH_MAX];
	struct creature	 p;
	struct world	 w;
	char		*configfile = NULL;
	const char	*errstr;
	struct level	*lp;
	struct passwd	*pw;

	while ((ch = getopt(argc, argv, "df:s:")) != -1) {
		switch (ch) {
		case 'd':
			debug = true;
			break;
		case 'f':
			configfile = optarg;
			break;
		case 's':
			seed = strtonum(optarg, 0, UINT32_MAX, &errstr);
			if (errstr != NULL) {
				errx(1, "invalid seed value");
			}
			rng_set_seed(seed);
			break;
		default:
			usage();
		}
	}
	argc -= optind;
	argv += optind;

	if (true == debug) {
		log_open("debug.log");
	}

	if (NULL == configfile) {
		pw = getpwuid(getuid());
		snprintf(path, sizeof(path), "%s/%s", pw->pw_dir, filename);
	} else {
		glob(configfile, GLOB_NOCHECK | GLOB_TILDE, NULL, &gl);
		snprintf(path, sizeof(path), "%s", gl.gl_pathv[0]);
		globfree(&gl);
	}
	if (-1 == config_file_read(path)) {
		goto exit;
	}

	log_debug("--- rng ---\n");
	rng_init();
	log_debug("Seed is %li\n", rng_get_seed());
	log_debug("--- ui ---\n");
	ui_init();
	/* Check for 23 because of ripoffline */
	if ((ui_get_lines() < 23) || (ui_get_cols() < 80)) {
		ui_cleanup();
		fprintf(stderr, "must be displayed on 80x24 screen.");
		fprintf(stderr, "LINES: %i, COLS: %i\n",
		    ui_get_lines(), ui_get_cols());
		goto exit;
	}

	is_running = -1;
	log_debug("--- world ---\n");
	world_init(&w);
	lp = world_first(&w);
	log_debug("--- creature (hero) ---\n");
	creature_init(&p, R_HUMAN);
	creature_place_at_stair(&p, lp, true);
	log_debug("--- start game ---\n");
	do {
		int key, noaction;

		noaction = 0;
		if (false == lp->visited) {
			if (true == debug)
				ui_message("Seed: %u", rng_get_seed());
			else if (NULL == lp->entrymessage)
				ui_clearmessage();
			else
				ui_message(lp->entrymessage);
			lp->visited = true;
		}
		ui_draw(lp);
		p.actionpoints += p.speed;
		while (p.actionpoints >= 5) {
			if (-1 != is_running) {
				key = is_running;
			} else {
				key = keybinding_resolve(ui_get_input());
			}
			if (key == K__MAX) {
				continue;
			}
			switch (key) {
			case K_RUNLEFT:
				is_running = K_LEFT;
				/* FALLTHROUGH */
			case K_LEFT:
				noaction = creature_move_left(&p, lp);
				break;
			case K_RUNDOWN:
				is_running = K_DOWN;
				/* FALLTHROUGH */
			case K_DOWN:
				noaction = creature_move_down(&p, lp);
				break;
			case K_RUNUP:
				is_running = K_UP;
				/* FALLTHROUGH */
			case K_UP:
				noaction = creature_move_up(&p, lp);
				break;
			case K_RUNRIGHT:
				is_running = K_RIGHT;
				/* FALLTHROUGH */
			case K_RIGHT:
				noaction = creature_move_right(&p, lp);
				break;
			case K_RUNUPLEFT:
				is_running = K_UPLEFT;
				/* FALLTHROUGH */
			case K_UPLEFT:
				noaction = creature_move_upleft(&p, lp);
				break;
			case K_RUNUPRIGHT:
				is_running = K_UPRIGHT;
				/* FALLTHROUGH */
			case K_UPRIGHT:
				noaction = creature_move_upright(&p, lp);
				break;
			case K_RUNDOWNLEFT:
				is_running = K_DOWNLEFT;
				/* FALLTHROUGH */
			case K_DOWNLEFT:
				noaction = creature_move_downleft(&p, lp);
				break;
			case K_RUNDOWNRIGHT:
				is_running = K_DOWNRIGHT;
				/* FALLTHROUGH */
			case K_DOWNRIGHT:
				noaction = creature_move_downright(&p, lp);
				break;
			case K_UPSTAIR:
				if (lp == world_first(&w)) {
					noaction = -1;
					break;
				}
				noaction = creature_climb_upstair(&p, lp, world_prev(&w));
				lp = world_current(&w);
				break;
			case K_DOWNSTAIR:
				noaction = creature_climb_downstair(&p, lp, world_next(&w));
				lp = world_current(&w);
				break;
			case K_REST:
				noaction = creature_rest(&p);
				break;
			case K_LOOKHERE:
				ui_look(lp, p.y, p.x);
				ui_draw(lp);
				noaction = -1;
				break;
			case K_LOOKELSEWHERE:
				ui_look_elsewhere(lp, p.y, p.x);
				ui_draw(lp);
				noaction = -1;
				break;
			case K_OPTIONMENU:
				ui_menu_options();
				ui_draw(lp);
				noaction = -1;
				break;
			case K_HELPMENU:
				ui_menu_help();
				ui_draw(lp);
				noaction = -1;
				break;
			default:
				noaction = -1;
				break;
			}
			if (noaction == -1) {
				is_running = -1;
				continue;
			}
			p.actionpoints -= 5;
		}
		/* Monsters' turn */
		for (int32_t i = 0; i < w.creaturesz; i++) {
			struct creature *c;

			c = w.creatures[i];
			c->actionpoints += c->speed;
			while (c->actionpoints >= 5) {
				creature_do_something(c, world_first(&w));
				c->actionpoints -= 5;
			}
		}
		/* Add a slight delay when running */
		if (-1 != is_running) {
			ui_pause(0, 100);
		}
	} while (1);
exit:
	log_close();
	world_free(&w);
	ui_cleanup();
	return(0);
}

static void
usage(void)
{
	fprintf(stderr, "usage: %s [-d] [-f file] [-s seed]\n", getprogname());
	exit(1);
}