[dragonfly.git] / games / rogue / init.c

/*-
 * Copyright (c) 1988, 1993
 *	The Regents of the University of California.  All rights reserved.
 *
 * This code is derived from software contributed to Berkeley by
 * Timothy C. Stoehr.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 * 3. Neither the name of the University nor the names of its contributors
 *    may be used to endorse or promote products derived from this software
 *    without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.
 *
 * @(#)init.c	8.1 (Berkeley) 5/31/93
 * $FreeBSD: src/games/rogue/init.c,v 1.4 1999/11/30 03:49:22 billf Exp $
 * $DragonFly: src/games/rogue/init.c,v 1.3 2006/09/02 19:31:07 pavalos Exp $
 */

/*
 * init.c
 *
 * This source herein may be modified and/or distributed by anybody who
 * so desires, with the following restrictions:
 *    1.)  No portion of this notice shall be removed.
 *    2.)  Credit shall not be taken for the creation of this source.
 *    3.)  This code is not to be traded, sold, or used for personal
 *         gain or profit.
 *
 */

#include <stdio.h>
#include "rogue.h"

static void do_args(int, char **);
static void do_opts(void);
static void env_get_value(char **, char *, boolean);
static void init_str(char **, const char *);
static void player_init(void);


char login_name[MAX_OPT_LEN];
char *nick_name = NULL;
char *rest_file = NULL;
boolean cant_int = 0;
boolean did_int = 0;
boolean score_only;
boolean init_curses = 0;
boolean save_is_interactive = 1;
boolean ask_quit = 1;
boolean no_skull = 0;
boolean passgo = 0;
boolean flush = 1;
const char *error_file = "rogue.esave";
const char *byebye_string = "Okay, bye bye!";

extern char *fruit;
extern char *save_file;
extern short party_room;
extern boolean jump;

boolean
init(int argc, char *argv[])
{
	const char *pn;

	pn = md_gln();
	if ((!pn) || (strlen(pn) >= MAX_OPT_LEN)) {
		clean_up("Hey!  Who are you?");
	}
	strcpy(login_name, pn);

	do_args(argc, argv);
	do_opts();

	if (!score_only && !rest_file) {
		printf("Hello %s, just a moment while I dig the dungeon...",
			nick_name);
		fflush(stdout);
	}

	initscr();
	if ((LINES < DROWS) || (COLS < DCOLS)) {
		clean_up("must be played on 24 x 80 screen");
	}
	start_window();
	init_curses = 1;

	md_heed_signals();

	if (score_only) {
		put_scores(NULL, 0);
	}
	srandomdev();
	if (rest_file) {
		restore(rest_file);
		return(1);
	}
	mix_colors();
	get_wand_and_ring_materials();
	make_scroll_titles();

	level_objects.next_object = NULL;
	level_monsters.next_monster = NULL;
	player_init();
	ring_stats(0);
	return(0);
}

static void
player_init(void)
{
	object *obj;

	rogue.pack.next_object = NULL;

	obj = alloc_object();
	get_food(obj, 1);
	add_to_pack(obj, &rogue.pack, 1);

	obj = alloc_object();		/* initial armor */
	obj->what_is = ARMOR;
	obj->which_kind = RINGMAIL;
	obj->class = RINGMAIL+2;
	obj->is_protected = 0;
	obj->d_enchant = 1;
	add_to_pack(obj, &rogue.pack, 1);
	do_wear(obj);

	obj = alloc_object();		/* initial weapons */
	obj->what_is = WEAPON;
	obj->which_kind = MACE;
	obj->damage = "2d3";
	obj->hit_enchant = obj->d_enchant = 1;
	obj->identified = 1;
	add_to_pack(obj, &rogue.pack, 1);
	do_wield(obj);

	obj = alloc_object();
	obj->what_is = WEAPON;
	obj->which_kind = BOW;
	obj->damage = "1d2";
	obj->hit_enchant = 1;
	obj->d_enchant = 0;
	obj->identified = 1;
	add_to_pack(obj, &rogue.pack, 1);

	obj = alloc_object();
	obj->what_is = WEAPON;
	obj->which_kind = ARROW;
	obj->quantity = get_rand(25, 35);
	obj->damage = "1d2";
	obj->hit_enchant = 0;
	obj->d_enchant = 0;
	obj->identified = 1;
	add_to_pack(obj, &rogue.pack, 1);
}

void
clean_up(const char *estr)
{
	if (save_is_interactive) {
		if (init_curses) {
			move(DROWS-1, 0);
			refresh();
			stop_window();
		}
		printf("\n%s\n", estr);
	}
	md_exit(0);
}

void
start_window(void)
{
	cbreak();
	noecho();
#ifndef BAD_NONL
	nonl();
#endif
	md_control_keybord(0);
}

void
stop_window(void)
{
	endwin();
	md_control_keybord(1);
}

void
byebye(void)
{
	md_ignore_signals();
	if (ask_quit) {
		quit(1);
	} else {
		clean_up(byebye_string);
	}
	md_heed_signals();
}

void
onintr(void)
{
	md_ignore_signals();
	if (cant_int) {
		did_int = 1;
	} else {
		check_message();
		message("interrupt", 1);
	}
	md_heed_signals();
}

void
error_save(void)
{
	save_is_interactive = 0;
	save_into_file(error_file);
	clean_up("");
}

static void
do_args(int argc, char *argv[])
{
	short i, j;

	for (i = 1; i < argc; i++) {
		if (argv[i][0] == '-') {
			for (j = 1; argv[i][j]; j++) {
				switch(argv[i][j]) {
				case 's':
					score_only = 1;
					break;
				}
			}
		} else {
			rest_file = argv[i];
		}
	}
}

static void
do_opts(void)
{
	char *eptr;

	if ((eptr = md_getenv("ROGUEOPTS")) != NULL) {
		for (;;) {
			while ((*eptr) == ' ') {
				eptr++;
			}
			if (!(*eptr)) {
				break;
			}
			if (!strncmp(eptr, "fruit=", 6)) {
				eptr += 6;
				env_get_value(&fruit, eptr, 1);
			} else if (!strncmp(eptr, "file=", 5)) {
				eptr += 5;
				env_get_value(&save_file, eptr, 0);
			} else if (!strncmp(eptr, "jump", 4)) {
				jump = 1;
			} else if (!strncmp(eptr, "name=", 5)) {
				eptr += 5;
				env_get_value(&nick_name, eptr, 0);
			} else if (!strncmp(eptr, "noaskquit", 9)) {
				ask_quit = 0;
			} else if (!strncmp(eptr, "noskull", 7) ||
					!strncmp(eptr,"notomb", 6)) {
				no_skull = 1;
			} else if (!strncmp(eptr, "passgo", 6)) {
				passgo = 1;
			} else if (!strncmp(eptr, "noflush", 7)) {
				flush = 0;
			}
			while ((*eptr) && (*eptr != ',')) {
				eptr++;
			}
			if (!(*(eptr++))) {
				break;
			}
		}
	}
	/* If some strings have not been set through ROGUEOPTS, assign defaults
	 * to them so that the options editor has data to work with.
	 */
	init_str(&nick_name, login_name);
	init_str(&save_file, "rogue.save");
	init_str(&fruit, "slime-mold");
}

static void
env_get_value(char **s, char *e, boolean add_blank)
{
	short i = 0;
	const char *t;

	t = e;

	while ((*e) && (*e != ',')) {
		if (*e == ':') {
			*e = ';';		/* ':' reserved for score file purposes */
		}
		e++;
		if (++i >= MAX_OPT_LEN) {
			break;
		}
	}
	/* note: edit_opts() in room.c depends on this being the right size */
	*s = md_malloc(MAX_OPT_LEN + 2);
	strncpy(*s, t, i);
	if (add_blank) {
		(*s)[i++] = ' ';
	}
	(*s)[i] = '\0';
}

static void
init_str(char **str, const char *dflt)
{
	if (!(*str)) {
		/* note: edit_opts() in room.c depends on this size */
		*str = md_malloc(MAX_OPT_LEN + 2);
		strcpy(*str, dflt);
	}
}
Commit	Line	Data
6693db17	1	/*-
984263bc MD	2	* Copyright (c) 1988, 1993
	3	* The Regents of the University of California. All rights reserved.
	4	*
	5	* This code is derived from software contributed to Berkeley by
	6	* Timothy C. Stoehr.
	7	*
	8	* Redistribution and use in source and binary forms, with or without
	9	* modification, are permitted provided that the following conditions
	10	* are met:
	11	* 1. Redistributions of source code must retain the above copyright
	12	* notice, this list of conditions and the following disclaimer.
	13	* 2. Redistributions in binary form must reproduce the above copyright
	14	* notice, this list of conditions and the following disclaimer in the
	15	* documentation and/or other materials provided with the distribution.
6693db17	16	* 3. Neither the name of the University nor the names of its contributors
984263bc MD	17	* may be used to endorse or promote products derived from this software
	18	* without specific prior written permission.
	19	*
	20	* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
	21	* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
	22	* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
	23	* ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
	24	* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
	25	* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
	26	* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
	27	* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
	28	* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
	29	* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
	30	* SUCH DAMAGE.
1de703da MD	31	*
	32	* @(#)init.c 8.1 (Berkeley) 5/31/93
	33	* $FreeBSD: src/games/rogue/init.c,v 1.4 1999/11/30 03:49:22 billf Exp $
b28e2a8f	34	* $DragonFly: src/games/rogue/init.c,v 1.3 2006/09/02 19:31:07 pavalos Exp $
984263bc MD	35	*/
984263bc MD	36
984263bc MD	37	/*
	38	* init.c
	39	*
	40	* This source herein may be modified and/or distributed by anybody who
	41	* so desires, with the following restrictions:
	42	* 1.) No portion of this notice shall be removed.
	43	* 2.) Credit shall not be taken for the creation of this source.
	44	* 3.) This code is not to be traded, sold, or used for personal
	45	* gain or profit.
	46	*
	47	*/
	48
	49	#include <stdio.h>
	50	#include "rogue.h"
	51
6693db17 SW	52	static void do_args(int, char **);
	53	static void do_opts(void);
	54	static void env_get_value(char *, char , boolean);
	55	static void init_str(char *, const char );
	56	static void player_init(void);
	57
	58
984263bc	59	char login_name[MAX_OPT_LEN];
902ec341	60	char *nick_name = NULL;
6693db17	61	char *rest_file = NULL;
984263bc MD	62	boolean cant_int = 0;
	63	boolean did_int = 0;
	64	boolean score_only;
	65	boolean init_curses = 0;
	66	boolean save_is_interactive = 1;
	67	boolean ask_quit = 1;
	68	boolean no_skull = 0;
	69	boolean passgo = 0;
	70	boolean flush = 1;
	71	const char *error_file = "rogue.esave";
	72	const char *byebye_string = "Okay, bye bye!";
	73
	74	extern char *fruit;
	75	extern char *save_file;
	76	extern short party_room;
	77	extern boolean jump;
	78
b28e2a8f PA	79	boolean
b28e2a8f PA	80	init(int argc, char *argv[])
984263bc MD	81	{
984263bc MD	82	const char *pn;
984263bc MD	83
	84	pn = md_gln();
	85	if ((!pn) \|\| (strlen(pn) >= MAX_OPT_LEN)) {
	86	clean_up("Hey! Who are you?");
	87	}
b28e2a8f	88	strcpy(login_name, pn);
984263bc MD	89
	90	do_args(argc, argv);
	91	do_opts();
	92
	93	if (!score_only && !rest_file) {
	94	printf("Hello %s, just a moment while I dig the dungeon...",
	95	nick_name);
	96	fflush(stdout);
	97	}
	98
	99	initscr();
	100	if ((LINES < DROWS) \|\| (COLS < DCOLS)) {
	101	clean_up("must be played on 24 x 80 screen");
	102	}
	103	start_window();
	104	init_curses = 1;
	105
	106	md_heed_signals();
	107
	108	if (score_only) {
902ec341	109	put_scores(NULL, 0);
984263bc	110	}
435f923e	111	srandomdev();
984263bc MD	112	if (rest_file) {
	113	restore(rest_file);
	114	return(1);
	115	}
	116	mix_colors();
	117	get_wand_and_ring_materials();
	118	make_scroll_titles();
	119
902ec341 SW	120	level_objects.next_object = NULL;
902ec341 SW	121	level_monsters.next_monster = NULL;
984263bc MD	122	player_init();
	123	ring_stats(0);
	124	return(0);
	125	}
	126
b28e2a8f PA	127	static void
b28e2a8f PA	128	player_init(void)
984263bc MD	129	{
	130	object *obj;
	131
902ec341	132	rogue.pack.next_object = NULL;
984263bc MD	133
	134	obj = alloc_object();
	135	get_food(obj, 1);
b28e2a8f	136	add_to_pack(obj, &rogue.pack, 1);
984263bc MD	137
	138	obj = alloc_object(); /* initial armor */
	139	obj->what_is = ARMOR;
	140	obj->which_kind = RINGMAIL;
	141	obj->class = RINGMAIL+2;
	142	obj->is_protected = 0;
	143	obj->d_enchant = 1;
b28e2a8f	144	add_to_pack(obj, &rogue.pack, 1);
984263bc MD	145	do_wear(obj);
	146
	147	obj = alloc_object(); /* initial weapons */
	148	obj->what_is = WEAPON;
	149	obj->which_kind = MACE;
	150	obj->damage = "2d3";
	151	obj->hit_enchant = obj->d_enchant = 1;
	152	obj->identified = 1;
b28e2a8f	153	add_to_pack(obj, &rogue.pack, 1);
984263bc MD	154	do_wield(obj);
	155
	156	obj = alloc_object();
	157	obj->what_is = WEAPON;
	158	obj->which_kind = BOW;
	159	obj->damage = "1d2";
	160	obj->hit_enchant = 1;
	161	obj->d_enchant = 0;
	162	obj->identified = 1;
b28e2a8f	163	add_to_pack(obj, &rogue.pack, 1);
984263bc MD	164
	165	obj = alloc_object();
	166	obj->what_is = WEAPON;
	167	obj->which_kind = ARROW;
	168	obj->quantity = get_rand(25, 35);
	169	obj->damage = "1d2";
	170	obj->hit_enchant = 0;
	171	obj->d_enchant = 0;
	172	obj->identified = 1;
b28e2a8f	173	add_to_pack(obj, &rogue.pack, 1);
984263bc MD	174	}
984263bc MD	175
b28e2a8f PA	176	void
b28e2a8f PA	177	clean_up(const char *estr)
984263bc MD	178	{
	179	if (save_is_interactive) {
	180	if (init_curses) {
	181	move(DROWS-1, 0);
	182	refresh();
	183	stop_window();
	184	}
	185	printf("\n%s\n", estr);
	186	}
	187	md_exit(0);
	188	}
	189
b28e2a8f PA	190	void
b28e2a8f PA	191	start_window(void)
984263bc	192	{
6693db17	193	cbreak();
984263bc MD	194	noecho();
	195	#ifndef BAD_NONL
	196	nonl();
	197	#endif
	198	md_control_keybord(0);
	199	}
	200
b28e2a8f PA	201	void
b28e2a8f PA	202	stop_window(void)
984263bc MD	203	{
	204	endwin();
	205	md_control_keybord(1);
	206	}
	207
	208	void
b28e2a8f	209	byebye(void)
984263bc MD	210	{
	211	md_ignore_signals();
	212	if (ask_quit) {
	213	quit(1);
	214	} else {
	215	clean_up(byebye_string);
	216	}
	217	md_heed_signals();
	218	}
	219
	220	void
b28e2a8f	221	onintr(void)
984263bc MD	222	{
	223	md_ignore_signals();
	224	if (cant_int) {
	225	did_int = 1;
	226	} else {
	227	check_message();
	228	message("interrupt", 1);
	229	}
	230	md_heed_signals();
	231	}
	232
	233	void
b28e2a8f	234	error_save(void)
984263bc MD	235	{
	236	save_is_interactive = 0;
	237	save_into_file(error_file);
	238	clean_up("");
	239	}
	240
b28e2a8f PA	241	static void
b28e2a8f PA	242	do_args(int argc, char *argv[])
984263bc MD	243	{
	244	short i, j;
	245
	246	for (i = 1; i < argc; i++) {
	247	if (argv[i][0] == '-') {
	248	for (j = 1; argv[i][j]; j++) {
	249	switch(argv[i][j]) {
	250	case 's':
	251	score_only = 1;
	252	break;
	253	}
	254	}
	255	} else {
	256	rest_file = argv[i];
	257	}
	258	}
	259	}
	260
b28e2a8f PA	261	static void
b28e2a8f PA	262	do_opts(void)
984263bc MD	263	{
	264	char *eptr;
	265
6693db17	266	if ((eptr = md_getenv("ROGUEOPTS")) != NULL) {
984263bc MD	267	for (;;) {
	268	while ((*eptr) == ' ') {
	269	eptr++;
	270	}
	271	if (!(*eptr)) {
	272	break;
	273	}
	274	if (!strncmp(eptr, "fruit=", 6)) {
	275	eptr += 6;
	276	env_get_value(&fruit, eptr, 1);
	277	} else if (!strncmp(eptr, "file=", 5)) {
	278	eptr += 5;
	279	env_get_value(&save_file, eptr, 0);
	280	} else if (!strncmp(eptr, "jump", 4)) {
	281	jump = 1;
	282	} else if (!strncmp(eptr, "name=", 5)) {
	283	eptr += 5;
	284	env_get_value(&nick_name, eptr, 0);
	285	} else if (!strncmp(eptr, "noaskquit", 9)) {
	286	ask_quit = 0;
	287	} else if (!strncmp(eptr, "noskull", 7) \|\|
	288	!strncmp(eptr,"notomb", 6)) {
	289	no_skull = 1;
	290	} else if (!strncmp(eptr, "passgo", 6)) {
	291	passgo = 1;
	292	} else if (!strncmp(eptr, "noflush", 7)) {
	293	flush = 0;
	294	}
	295	while ((eptr) && (eptr != ',')) {
	296	eptr++;
	297	}
	298	if (!(*(eptr++))) {
	299	break;
	300	}
	301	}
	302	}
	303	/* If some strings have not been set through ROGUEOPTS, assign defaults
	304	* to them so that the options editor has data to work with.
	305	*/
	306	init_str(&nick_name, login_name);
	307	init_str(&save_file, "rogue.save");
	308	init_str(&fruit, "slime-mold");
	309	}
	310
b28e2a8f PA	311	static void
b28e2a8f PA	312	env_get_value(char *s, char e, boolean add_blank)
984263bc MD	313	{
	314	short i = 0;
	315	const char *t;
	316
	317	t = e;
	318
	319	while ((e) && (e != ',')) {
	320	if (*e == ':') {
	321	e = ';'; / ':' reserved for score file purposes */
	322	}
	323	e++;
	324	if (++i >= MAX_OPT_LEN) {
	325	break;
	326	}
	327	}
6693db17	328	/* note: edit_opts() in room.c depends on this being the right size */
984263bc	329	*s = md_malloc(MAX_OPT_LEN + 2);
b28e2a8f	330	strncpy(*s, t, i);
984263bc MD	331	if (add_blank) {
	332	(*s)[i++] = ' ';
	333	}
	334	(*s)[i] = '\0';
	335	}
	336
b28e2a8f PA	337	static void
b28e2a8f PA	338	init_str(char *str, const char dflt)
984263bc MD	339	{
984263bc MD	340	if (!(*str)) {
6693db17	341	/* note: edit_opts() in room.c depends on this size */
984263bc	342	*str = md_malloc(MAX_OPT_LEN + 2);
b28e2a8f	343	strcpy(*str, dflt);
984263bc MD	344	}
984263bc MD	345	}