ViewVC Help

View File | Revision Log | Show Annotations | Download File

/cvs/deliantra/server/server/init.C

Comparing deliantra/server/server/init.C (file contents):
Revision 1.55 by root, Sat Jun 9 22:54:03 2007 UTC vs.
Revision 1.88 by root, Sat Nov 17 23:40:04 2018 UTC

1	/*	1	/*
2	* This file is part of Crossfire TRT, the Roguelike Realtime MORPG.	2	* This file is part of Deliantra, the Roguelike Realtime MMORPG.
3	*	3	*
4	* Copyright (©) 2005,2006,2007 Marc Alexander Lehmann / Robin Redeker / the Crossfire TRT team	4	* Copyright (©) 2017,2018 Marc Alexander Lehmann / the Deliantra team
		5	* Copyright (©) 2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016 Marc Alexander Lehmann / Robin Redeker / the Deliantra team
5	* Copyright (©) 2002,2007 Mark Wedel & Crossfire Development Team	6	* Copyright (©) 2002 Mark Wedel & Crossfire Development Team
6	* Copyright (©) 1992,2007 Frank Tore Johansen	7	* Copyright (©) 1992 Frank Tore Johansen
7	*	8	*
8	* Crossfire TRT is free software; you can redistribute it and/or modify it	9	* Deliantra is free software: you can redistribute it and/or modify it under
9	* under the terms of the GNU General Public License as published by the Free	10	* the terms of the Affero GNU General Public License as published by the
10	* Software Foundation; either version 2 of the License, or (at your option)	11	* Free Software Foundation, either version 3 of the License, or (at your
11	* any later version.	12	* option) any later version.
12	*	13	*
13	* This program is distributed in the hope that it will be useful, but	14	* This program is distributed in the hope that it will be useful,
14	* WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY	15	* but WITHOUT ANY WARRANTY; without even the implied warranty of
15	* or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License	16	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16	* for more details.	17	* GNU General Public License for more details.
17	*	18	*
18	* You should have received a copy of the GNU General Public License along	19	* You should have received a copy of the Affero GNU General Public License
19	* with Crossfire TRT; if not, write to the Free Software Foundation, Inc. 51	20	* and the GNU General Public License along with this program. If not, see
20	* Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA	21	* <http://www.gnu.org/licenses/>.
21	*	22	*
22	* The authors can be reached via e-mail to <crossfire@schmorp.de>	23	* The authors can be reached via e-mail to <support@deliantra.net>
23	*/	24	*/
24		25
25	#include <global.h>	26	#include <global.h>
26	#include <material.h>	27	#include <material.h>
27	#include <loader.h>
28	#include <sproto.h>	28	#include <sproto.h>
29
30	void
31	set_logfile (char *val)
32	{
33	settings.logfilename = val;
34	}
35
36	void
37	call_version (void)
38	{
39	version (NULL);
40	exit (0);
41	}
42
43	void
44	showscores (void)
45	{
46	display_high_score (NULL, 9999, NULL);
47	exit (0);
48	}
49
50	void
51	set_debug (void)
52	{
53	settings.debug = llevDebug;
54	}
55
56	void
57	unset_debug (void)
58	{
59	settings.debug = llevInfo;
60	}
61
62	void
63	set_mondebug (void)
64	{
65	settings.debug = llevMonster;
66	}
67
68	void
69	set_dumpmon1 (void)
70	{
71	settings.dumpvalues = 1;
72	}
73
74	void
75	set_dumpmon2 (void)
76	{
77	settings.dumpvalues = 2;
78	}
79
80	void
81	set_dumpmon3 (void)
82	{
83	settings.dumpvalues = 3;
84	}
85
86	void
87	set_dumpmon4 (void)
88	{
89	settings.dumpvalues = 4;
90	}
91
92	void
93	set_dumpmon5 (void)
94	{
95	settings.dumpvalues = 5;
96	}
97
98	void
99	set_dumpmon6 (void)
100	{
101	settings.dumpvalues = 6;
102	}
103
104	void
105	set_dumpmon7 (void)
106	{
107	settings.dumpvalues = 7;
108	}
109
110	void
111	set_dumpmon8 (void)
112	{
113	settings.dumpvalues = 8;
114	}
115
116	void
117	set_dumpmon9 (void)
118	{
119	settings.dumpvalues = 9;
120	}
121
122	void
123	set_dumpmont (char *name)
124	{
125	settings.dumpvalues = 10;
126	settings.dumparg = name;
127	}
128
129	void
130	set_daemon (void)
131	{
132	settings.daemonmode = 1;
133	}
134
135	void
136	set_datadir (char *path)
137	{
138	settings.datadir = path;
139	}
140
141	void
142	set_confdir (char *path)
143	{
144	settings.confdir = path;
145	}
146
147	void
148	set_localdir (char *path)
149	{
150	settings.localdir = path;
151	}
152
153	void
154	set_mapdir (char *path)
155	{
156	settings.mapdir = path;
157	}
158
159	void
160	set_archetypes (char *path)
161	{
162	settings.archetypes = path;
163	}
164
165	void
166	set_regions (char *path)
167	{
168	settings.regions = path;
169	}
170
171	void
172	set_treasures (char *path)
173	{
174	settings.treasures = path;
175	}
176
177	void
178	set_uniquedir (char *path)
179	{
180	settings.uniquedir = path;
181	}
182
183	void
184	set_templatedir (char *path)
185	{
186	settings.templatedir = path;
187	}
188
189	void
190	set_playerdir (char *path)
191	{
192	settings.playerdir = path;
193	}
194
195	void
196	set_tmpdir (char *path)
197	{
198	settings.tmpdir = path;
199	}
200
201	void
202	showscoresparm (char *data)
203	{
204	display_high_score (NULL, 9999, data);
205	exit (0);
206	}
207
208	void
209	set_csport (char *val)
210	{
211	settings.csport = atoi (val);
212	if (settings.csport <= 0 || settings.csport > 32765 || (settings.csport < 1024 && getuid () != 0))
213	{
214	LOG (llevError, "%d is an invalid csport number.\n", settings.csport);
215	exit (1);
216	}
217	}
218
219	/* Most of this is shamelessly stolen from XSysStats. But since that is
220	* also my program, no problem.
221	*/
222	struct Command_Line_Options
223	{
224	const char *cmd_option; /* how it is called on the command line */
225	uint8 num_args; /* Number or args it takes */
226	uint8 pass; /* What pass this should be processed on. */
227	void (*func) (); /* function to call when we match this.
228	* if num_args is true, than that gets passed
229	* to the function, otherwise nothing is passed
230	*/
231	};
232
233	/* The way this system works is pretty simple - parse_args takes
234	* the options passed to the program and a pass number. If an option
235	* matches both in name and in pass (and we have enough options),
236	* we call the associated function. This makes writing a multi
237	* pass system very easy, and it is very easy to add in new options.
238	*/
239	struct Command_Line_Options options[] = {
240
241	/* Pass 1 functions - STuff that can/should be called before we actually
242	* initialise any data.
243	*/
244	{"-h", 0, 1, help},
245
246	/* Honor -help also, since it is somewhat common */
247	{"-help", 0, 1, help},
248	{"-v", 0, 1, call_version},
249	{"-d", 0, 1, set_debug},
250	{"+d", 0, 1, unset_debug},
251	{"-mon", 0, 1, set_mondebug},
252	{"-data", 1, 1, (void (*)()) set_datadir},
253	{"-conf", 1, 1, (void (*)()) set_confdir},
254	{"-local", 1, 1, (void (*)()) set_localdir},
255	{"-maps", 1, 1, (void (*)()) set_mapdir},
256	{"-arch", 1, 1, (void (*)()) set_archetypes},
257	{"-regions", 1, 1, (void (*)()) set_regions},
258	{"-playerdir", 1, 1, (void (*)()) set_playerdir},
259	{"-treasures", 1, 1, (void (*)()) set_treasures},
260	{"-uniquedir", 1, 1, (void (*)()) set_uniquedir},
261	{"-templatedir", 1, 1, (void (*)()) set_templatedir},
262	{"-tmpdir", 1, 1, (void (*)()) set_tmpdir},
263	{"-log", 1, 1, (void (*)()) set_logfile},
264
265	/* Pass 2 functions. Most of these could probably be in pass 1,
266	* as they don't require much of anything to bet set up.
267	*/
268	{"-csport", 1, 2, (void (*)()) set_csport},
269	{"-detach", 0, 2, set_daemon},
270
271	/* Start of pass 3 information. In theory, by pass 3, all data paths
272	* and defaults should have been set up.
273	*/
274	{"-o", 0, 3, compile_info},
275	{"-m", 0, 3, set_dumpmon1},
276	{"-m2", 0, 3, set_dumpmon2},
277	{"-m3", 0, 3, set_dumpmon3},
278	{"-m4", 0, 3, set_dumpmon4},
279	{"-m5", 0, 3, set_dumpmon5},
280	{"-m6", 0, 3, set_dumpmon6},
281	{"-m7", 0, 3, set_dumpmon7},
282	{"-m8", 0, 3, set_dumpmon8},
283	{"-m9", 0, 3, set_dumpmon9},
284	{"-mt", 1, 3, (void (*)()) set_dumpmont},
285	{"-mexp", 0, 3, dump_experience},
286	{"-s", 0, 3, showscores},
287	{"-score", 1, 3, (void (*)()) showscoresparm}
288	};
289
290
291	/* Note since this may be called before the library has been set up,
292	* we don't use any of crossfires built in logging functions.
293	*/
294	static void
295	parse_args (int argc, char *argv[], int pass)
296	{
297	size_t i;
298	int on_arg = 1;
299
300	while (on_arg < argc)
301	{
302	for (i = 0; i < sizeof (options) / sizeof (struct Command_Line_Options); i++)
303	{
304	if (!strcmp (options[i].cmd_option, argv[on_arg]))
305	{
306	/* Found a matching option, but should not be processed on
307	* this pass. Just skip over it
308	*/
309	if (options[i].pass != pass)
310	{
311	on_arg += options[i].num_args + 1;
312	break;
313	}
314	if (options[i].num_args)
315	{
316	if ((on_arg + options[i].num_args) >= argc)
317	{
318	fprintf (stderr, "%s requires an argument.\n", options[i].cmd_option);
319	exit (1);
320	}
321	else
322	{
323	if (options[i].num_args == 1)
324	((void (*)(char *)) options[i].func) (argv[on_arg + 1]);
325	if (options[i].num_args == 2)
326	((void (*)(char *, char *)) options[i].func) (argv[on_arg + 1], argv[on_arg + 2]);
327	on_arg += options[i].num_args + 1;
328	}
329	}
330	else
331	{ /* takes no args */
332	options[i].func ();
333	on_arg++;
334	}
335	break;
336	}
337	}
338	if (i == sizeof (options) / sizeof (struct Command_Line_Options))
339	{
340	fprintf (stderr, "Unknown option: %s\n", argv[on_arg]);
341	usage ();
342	exit (1);
343	}
344	}
345	}
346
347	//TODO: make this a constructor
348	static materialtype_t *
349	get_empty_mat (void)
350	{
351	materialtype_t *mt;
352	int i;
353
354	mt = new materialtype_t;
355
356	mt->name = NULL;
357	mt->description = NULL;
358	for (i = 0; i < NROFATTACKS; i++)
359	{
360	mt->save[i] = 0;
361	mt->mod[i] = 0;
362	}
363	mt->chance = 0;
364	mt->difficulty = 0;
365	mt->magic = 0;
366	mt->damage = 0;
367	mt->wc = 0;
368	mt->ac = 0;
369	mt->sp = 0;
370	mt->weight = 100;
371	mt->value = 100;
372	mt->next = NULL;
373	return mt;
374	}
375
376	static void
377	load_materials (void)
378	{
379	char filename[MAX_BUF];
380	materialtype_t *mt;
381
382	sprintf (filename, "%s/materials", settings.datadir);
383	LOG (llevDebug, "Reading material type data from %s...\n", filename);
384
385	object_thawer thawer (filename);
386
387	if (!thawer)
388	{
389	LOG (llevError, "Cannot open %s for reading\n", filename);
390	mt = get_empty_mat ();
391	mt->next = 0;
392	materialt = mt;
393	return;
394	}
395
396	mt = get_empty_mat ();
397	materialt = mt;
398
399	for (;;)
400	{
401	thawer.next ();
402
403	switch (thawer.kw)
404	{
405	case KW_name:
406	/* clean up the previous entry */
407	if (mt->next)
408	{
409	if (!mt->description)
410	mt->description = mt->name;
411
412	mt = mt->next;
413	}
414
415	mt->next = get_empty_mat ();
416	thawer.get (mt->name);
417	break;
418
419	case KW_description:
420	thawer.get (mt->description);
421	break;
422
423	case KW_material:
424	thawer.get (mt->material);
425	break;
426
427	case KW_saves:
428	{
429	const char *cp = thawer.get_str () - 1;
430
431	for (int i = 0; i < NROFATTACKS; i++)
432	{
433	if (!cp)
434	{
435	mt->save[i] = 0;
436	continue;
437	}
438
439	int value;
440	++cp;
441	sscanf (cp, "%d", &value);
442	mt->save[i] = (sint8) value;
443	cp = strchr (cp, ',');
444	}
445	}
446	break;
447
448	case KW_mods:
449	{
450	const char *cp = thawer.get_str () - 1;
451
452	for (int i = 0; i < NROFATTACKS; i++)
453	{
454	if (!cp)
455	{
456	mt->save[i] = 0;
457	continue;
458	}
459
460	++cp;
461	int value;
462	sscanf (cp, "%d", &value);
463	mt->mod[i] = (sint8) value;
464	cp = strchr (cp, ',');
465	}
466	}
467	break;
468
469	case KW_chance: thawer.get (mt->chance); break;
470	case KW_difficulty: // cf+ alias, not original cf
471	case KW_diff: thawer.get (mt->difficulty); break;
472	case KW_magic: thawer.get (mt->magic); break;
473	case KW_dam: // cf+ alias, not original cf
474	case KW_damage: thawer.get (mt->damage); break;
475	case KW_wc: thawer.get (mt->wc); break;
476	case KW_ac: thawer.get (mt->ac); break;
477	case KW_sp: thawer.get (mt->sp); break;
478	case KW_weight: thawer.get (mt->weight); break;
479	case KW_value: thawer.get (mt->value); break;
480	case KW_density: thawer.get (mt->density); break;
481
482	case KW_EOF:
483	goto done;
484
485	default:
486	if (!thawer.parse_error ("materials file", "materials"))
487	goto done;
488	break;
489	}
490	}
491
492	done:
493	if (mt->next)
494	{
495	delete mt->next;
496
497	mt->next = 0;
498	}
499
500	LOG (llevDebug, "Done.\n");
501	}
502		29
503	/* This loads the settings file. There could be debate whether this should	30	/* This loads the settings file. There could be debate whether this should
504	* be here or in the common directory - but since only the server needs this	31	* be here or in the common directory - but since only the server needs this
505	* information, having it here probably makes more sense.	32	* information, having it here probably makes more sense.
506	*/	33	*/
507	static void	34	void
508	load_settings (void)	35	load_settings ()
509	{	36	{
510	char buf[MAX_BUF], *cp;	37	object_thawer thawer (settings.confdir, "settings");
511	int has_val, comp;
512	FILE *fp;
513		38
514	sprintf (buf, "%s/settings", settings.confdir);	39	if (!thawer)
515
516	/* We don't require a settings file at current time, but down the road,
517	* there will probably be so many values that not having a settings file
518	* will not be a good thing.
519	*/
520	if (!(fp = open_and_uncompress (buf, 0, &comp)))
521	{	40	{
522	LOG (llevError, "Error: No settings file found\n");	41	LOG (llevError, "Error: No settings file found\n");
523	exit (1);	42	exit (1);
524	}	43	}
525		44
526	while (fgets (buf, MAX_BUF - 1, fp) != NULL)	45	while (thawer.kw)
527	{	46	{
528	if (buf[0] == '#')	47	const char *buf = thawer.kw_str;
529	continue;	48	const char *cp = thawer.value_nn;
530	/* eliminate newline */
531	if ((cp = strrchr (buf, '\n')) != NULL)
532	*cp = '\0';
533		49
534	/* Skip over empty lines */
535	if (buf[0] == 0)
536	continue;
537
538	/* Skip all the spaces and set them to nulls. If not space,
539	* set cp to "" to make strcpy's and the like easier down below.
540	*/
541	if ((cp = strchr (buf, ' ')) != NULL)
542	{
543	while (*cp == ' ')
544	*cp++ = 0;
545	has_val = 1;
546	}
547	else
548	{
549	cp = (char *)"";
550	has_val = 0;
551	}
552
553	if (!strcasecmp (buf, "motd"))
554	{
555	if (has_val)
556	strcpy (settings.motd, cp);
557	else
558	LOG (llevError, "load_settings: motd must have a value.\n");
559	}
560	else if (!strcasecmp (buf, "dm_mail"))
561	{
562	if (has_val)
563	strcpy (settings.dm_mail, cp);
564	else
565	LOG (llevError, "load_settings: dm_mail must have a value.\n");
566	}
567	else if (!strcasecmp (buf, "worldmapstartx"))
568	{
569	int size = atoi (cp);
570
571	if (size < 0)
572	LOG (llevError, "load_settings: worldmapstartx must be at least " "0, %d is invalid\n", size);
573	else
574	settings.worldmapstartx = size;
575	}
576	else if (!strcasecmp (buf, "worldmapstarty"))
577	{
578	int size = atoi (cp);
579
580	if (size < 0)
581	LOG (llevError, "load_settings: worldmapstarty must be at least " "0, %d is invalid\n", size);
582	else
583	settings.worldmapstarty = size;
584	}
585	else if (!strcasecmp (buf, "worldmaptilesx"))
586	{
587	int size = atoi (cp);
588
589	if (size < 1)
590	LOG (llevError, "load_settings: worldmaptilesx must be greater " "than 1, %d is invalid\n", size);
591	else
592	settings.worldmaptilesx = size;
593	}
594	else if (!strcasecmp (buf, "worldmaptilesy"))
595	{
596	int size = atoi (cp);
597
598	if (size < 1)
599	LOG (llevError, "load_settings: worldmaptilesy must be greater " "than 1, %d is invalid\n", size);
600	else
601	settings.worldmaptilesy = size;
602	}
603	else if (!strcasecmp (buf, "worldmaptilesizex"))
604	{
605	int size = atoi (cp);
606
607	if (size < 1)
608	LOG (llevError, "load_settings: worldmaptilesizex must be " "greater than 1, %d is invalid\n", size);
609	else
610	settings.worldmaptilesizex = size;
611	}
612	else if (!strcasecmp (buf, "worldmaptilesizey"))
613	{
614	int size = atoi (cp);
615
616	if (size < 1)
617	LOG (llevError, "load_settings: worldmaptilesizey must be " "greater than 1, %d is invalid\n", size);
618	else
619	settings.worldmaptilesizey = size;
620	}
621	else if (!strcasecmp (buf, "dynamiclevel"))
622	{
623	int lev = atoi (cp);
624
625	if (lev < 0)
626	LOG (llevError, "load_settings: dynamiclevel must be " "at least 0, %d is invalid\n", lev);
627	else
628	settings.dynamiclevel = lev;
629	}
630	else if (!strcasecmp (buf, "fastclock"))
631	{
632	int lev = atoi (cp);
633
634	if (lev < 0)
635	LOG (llevError, "load_settings: fastclock must be at least 0" ", %d is invalid\n", lev);
636	else
637	settings.fastclock = lev;
638	}
639	else if (!strcasecmp (buf, "not_permadeth"))	50	if (!strcmp (buf, "not_permadeth"))
640	{	51	{
641	if (!strcasecmp (cp, "on") || !strcasecmp (cp, "true"))	52	if (!strcmp (cp, "on") || !strcmp (cp, "true"))
642	{	53	{
643	settings.not_permadeth = TRUE;	54	settings.not_permadeth = TRUE;
644	}	55	}
645	else if (!strcasecmp (cp, "off") || !strcasecmp (cp, "false"))	56	else if (!strcmp (cp, "off") || !strcmp (cp, "false"))
646	{	57	{
647	settings.not_permadeth = FALSE;	58	settings.not_permadeth = FALSE;
648	}	59	}
649	else	60	else
650	{	61	{
651	LOG (llevError, "load_settings: Unknown value for not_permadeth" ": %s\n", cp);	62	LOG (llevError, "load_settings: Unknown value for not_permadeth" ": %s\n", cp);
652	}	63	}
653	}	64	}
654	else if (!strcasecmp (buf, "resurrection"))	65	else if (!strcmp (buf, "resurrection"))
655	{	66	{
656	if (!strcasecmp (cp, "on") || !strcasecmp (cp, "true"))	67	if (!strcmp (cp, "on") || !strcmp (cp, "true"))
657	{	68	{
658	settings.resurrection = TRUE;	69	settings.resurrection = TRUE;
659	}	70	}
660	else if (!strcasecmp (cp, "off") || !strcasecmp (cp, "false"))	71	else if (!strcmp (cp, "off") || !strcmp (cp, "false"))
661	{	72	{
662	settings.resurrection = FALSE;	73	settings.resurrection = FALSE;
663	}	74	}
664	else	75	else
665	{	76	{
666	LOG (llevError, "load_settings: Unknown value for resurrection" ": %s\n", cp);	77	LOG (llevError, "load_settings: Unknown value for resurrection" ": %s\n", cp);
667	}	78	}
668	}	79	}
669	else if (!strcasecmp (buf, "set_title"))	80	else if (!strcmp (buf, "set_title"))
670	{	81	{
671	if (!strcasecmp (cp, "on") || !strcasecmp (cp, "true"))	82	if (!strcmp (cp, "on") || !strcmp (cp, "true"))
672	{	83	{
673	settings.set_title = TRUE;	84	settings.set_title = TRUE;
674	}	85	}
675	else if (!strcasecmp (cp, "off") || !strcasecmp (cp, "false"))	86	else if (!strcmp (cp, "off") || !strcmp (cp, "false"))
676	{	87	{
677	settings.set_title = FALSE;	88	settings.set_title = FALSE;
678	}	89	}
679	else	90	else
680	{	91	{
681	LOG (llevError, "load_settings: Unknown value for set_title" ": %s\n", cp);	92	LOG (llevError, "load_settings: Unknown value for set_title" ": %s\n", cp);
682	}	93	}
683	}	94	}
684	else if (!strcasecmp (buf, "search_items"))	95	else if (!strcmp (buf, "search_items"))
685	{	96	{
686	if (!strcasecmp (cp, "on") || !strcasecmp (cp, "true"))	97	if (!strcmp (cp, "on") || !strcmp (cp, "true"))
687	{	98	{
688	settings.search_items = TRUE;	99	settings.search_items = TRUE;
689	}	100	}
690	else if (!strcasecmp (cp, "off") || !strcasecmp (cp, "false"))	101	else if (!strcmp (cp, "off") || !strcmp (cp, "false"))
691	{	102	{
692	settings.search_items = FALSE;	103	settings.search_items = FALSE;
693	}	104	}
694	else	105	else
695	{	106	{
696	LOG (llevError, "load_settings: Unknown value for search_items" ": %s\n", cp);	107	LOG (llevError, "load_settings: Unknown value for search_items" ": %s\n", cp);
697	}	108	}
698	}	109	}
699	else if (!strcasecmp (buf, "spell_encumbrance"))	110	else if (!strcmp (buf, "spell_encumbrance"))
700	{	111	{
701	if (!strcasecmp (cp, "on") || !strcasecmp (cp, "true"))	112	if (!strcmp (cp, "on") || !strcmp (cp, "true"))
702	{	113	{
703	settings.spell_encumbrance = TRUE;	114	settings.spell_encumbrance = TRUE;
704	}	115	}
705	else if (!strcasecmp (cp, "off") || !strcasecmp (cp, "false"))	116	else if (!strcmp (cp, "off") || !strcmp (cp, "false"))
706	{	117	{
707	settings.spell_encumbrance = FALSE;	118	settings.spell_encumbrance = FALSE;
708	}	119	}
709	else	120	else
710	{	121	{
711	LOG (llevError, "load_settings: Unknown value for " "spell_encumbrance: %s\n", cp);	122	LOG (llevError, "load_settings: Unknown value for " "spell_encumbrance: %s\n", cp);
712	}	123	}
713	}	124	}
714	else if (!strcasecmp (buf, "spell_failure_effects"))	125	else if (!strcmp (buf, "spell_failure_effects"))
715	{	126	{
716	if (!strcasecmp (cp, "on") || !strcasecmp (cp, "true"))	127	if (!strcmp (cp, "on") || !strcmp (cp, "true"))
717	{	128	{
718	settings.spell_failure_effects = TRUE;	129	settings.spell_failure_effects = TRUE;
719	}	130	}
720	else if (!strcasecmp (cp, "off") || !strcasecmp (cp, "false"))	131	else if (!strcmp (cp, "off") || !strcmp (cp, "false"))
721	{	132	{
722	settings.spell_failure_effects = FALSE;	133	settings.spell_failure_effects = FALSE;
723	}	134	}
724	else	135	else
725	{	136	{
726	LOG (llevError, "load_settings: Unknown value for " "spell_failure_effects: %s\n", cp);	137	LOG (llevError, "load_settings: Unknown value for " "spell_failure_effects: %s\n", cp);
727	}	138	}
728	}	139	}
729	else if (!strcasecmp (buf, "spellpoint_level_depend"))	140	else if (!strcmp (buf, "spellpoint_level_depend"))
730	{	141	{
731	if (!strcasecmp (cp, "on") || !strcasecmp (cp, "true"))	142	if (!strcmp (cp, "on") || !strcmp (cp, "true"))
732	{	143	{
733	settings.spellpoint_level_depend = TRUE;	144	settings.spellpoint_level_depend = TRUE;
734	}	145	}
735	else if (!strcasecmp (cp, "off") || !strcasecmp (cp, "false"))	146	else if (!strcmp (cp, "off") || !strcmp (cp, "false"))
736	{	147	{
737	settings.spellpoint_level_depend = FALSE;	148	settings.spellpoint_level_depend = FALSE;
738	}	149	}
739	else	150	else
740	{	151	{
741	LOG (llevError, "load_settings: Unknown value for " "spellpoint_level_depend: %s\n", cp);	152	LOG (llevError, "load_settings: Unknown value for " "spellpoint_level_depend: %s\n", cp);
742	}	153	}
743	}	154	}
744	else if (!strcasecmp (buf, "stat_loss_on_death"))	155	else if (!strcmp (buf, "stat_loss_on_death"))
745	{	156	{
746	if (!strcasecmp (cp, "on") || !strcasecmp (cp, "true"))	157	if (!strcmp (cp, "on") || !strcmp (cp, "true"))
747	{	158	{
748	settings.stat_loss_on_death = TRUE;	159	settings.stat_loss_on_death = TRUE;
749	}	160	}
750	else if (!strcasecmp (cp, "off") || !strcasecmp (cp, "false"))	161	else if (!strcmp (cp, "off") || !strcmp (cp, "false"))
751	{	162	{
752	settings.stat_loss_on_death = FALSE;	163	settings.stat_loss_on_death = FALSE;
753	}	164	}
754	else	165	else
755	{	166	{
756	LOG (llevError, "load_settings: Unknown value for " "stat_loss_on_death: %s\n", cp);	167	LOG (llevError, "load_settings: Unknown value for " "stat_loss_on_death: %s\n", cp);
757	}	168	}
758	}	169	}
759	else if (!strcasecmp (buf, "use_permanent_experience"))	170	else if (!strcmp (buf, "use_permanent_experience"))
760	{	171	{
761	LOG (llevError, "use_permanent_experience is deprecated, use" "permenent_experience_percentage instead\n");	172	LOG (llevError, "use_permanent_experience is deprecated, use" "permenent_experience_percentage instead\n");
762	}	173	}
763	else if (!strcasecmp (buf, "permanent_experience_percentage"))	174	else if (!strcmp (buf, "permanent_experience_percentage"))
764	{	175	{
765	int val = atoi (cp);	176	int val = atoi (cp);
766		177
767	if (val < 0 || val > 100)	178	if (val < 0 || val > 100)
768	LOG (llevError, "load_settings: permenent_experience_percentage" "must be between 0 and 100, %d is invalid\n", val);	179	LOG (llevError, "load_settings: permenent_experience_percentage" "must be between 0 and 100, %d is invalid\n", val);
769	else	180	else
770	settings.permanent_exp_ratio = val;	181	settings.permanent_exp_ratio = val;
771	}	182	}
772	else if (!strcasecmp (buf, "death_penalty_percentage"))	183	else if (!strcmp (buf, "death_penalty_percentage"))
773	{	184	{
774	int val = atoi (cp);	185	int val = atoi (cp);
775		186
776	if (val < 0 || val > 100)	187	if (val < 0 || val > 100)
777	LOG (llevError, "load_settings: death_penalty_percentage" "must be between 0 and 100, %d is invalid\n", val);	188	LOG (llevError, "load_settings: death_penalty_percentage" "must be between 0 and 100, %d is invalid\n", val);
778	else	189	else
779	settings.death_penalty_ratio = val;	190	settings.death_penalty_ratio = val;
780	}	191	}
781	else if (!strcasecmp (buf, "death_penalty_levels"))	192	else if (!strcmp (buf, "death_penalty_levels"))
782	{	193	{
783	int val = atoi (cp);	194	int val = atoi (cp);
784		195
785	if (val < 0 || val > 255)	196	if (val < 0 || val > 255)
786	LOG (llevError, "load_settings: death_penalty_levels" "can not be negative, %d is invalid\n", val);	197	LOG (llevError, "load_settings: death_penalty_levels" "can not be negative, %d is invalid\n", val);
787	else	198	else
788	settings.death_penalty_level = val;	199	settings.death_penalty_level = val;
789	}	200	}
790	else if (!strcasecmp (buf, "balanced_stat_loss"))	201	else if (!strcmp (buf, "balanced_stat_loss"))
791	{	202	{
792	if (!strcasecmp (cp, "on") || !strcasecmp (cp, "true"))	203	if (!strcmp (cp, "on") || !strcmp (cp, "true"))
793	{	204	{
794	settings.balanced_stat_loss = TRUE;	205	settings.balanced_stat_loss = TRUE;
795	}	206	}
796	else if (!strcasecmp (cp, "off") || !strcasecmp (cp, "false"))	207	else if (!strcmp (cp, "off") || !strcmp (cp, "false"))
797	{	208	{
798	settings.balanced_stat_loss = FALSE;	209	settings.balanced_stat_loss = FALSE;
799	}	210	}
800	else	211	else
801	{	212	{
802	LOG (llevError, "load_settings: Unknown value for " "balanced_stat_loss: %s\n", cp);	213	LOG (llevError, "load_settings: Unknown value for " "balanced_stat_loss: %s\n", cp);
803	}	214	}
804	}	215	}
805	else if (!strcasecmp (buf, "simple_exp"))	216	else if (!strcmp (buf, "simple_exp"))
806	{	217	{
807	if (!strcasecmp (cp, "on") || !strcasecmp (cp, "true"))	218	if (!strcmp (cp, "on") || !strcmp (cp, "true"))
808	{	219	{
809	settings.simple_exp = TRUE;	220	settings.simple_exp = TRUE;
810	}	221	}
811	else if (!strcasecmp (cp, "off") || !strcasecmp (cp, "false"))	222	else if (!strcmp (cp, "off") || !strcmp (cp, "false"))
812	{	223	{
813	settings.simple_exp = FALSE;	224	settings.simple_exp = FALSE;
814	}	225	}
815	else	226	else
816	{	227	{
817	LOG (llevError, "load_settings: Unknown value for simple_exp: %s\n", cp);	228	LOG (llevError, "load_settings: Unknown value for simple_exp: %s\n", cp);
818	}	229	}
819	}	230	}
820	else if (!strcasecmp (buf, "item_power_factor"))	231	else if (!strcmp (buf, "item_power_factor"))
821	{	232	{
822	float tmp = atof (cp);	233	float tmp = atof (cp);
823		234
824	if (tmp < 0)	235	if (tmp < 0)
825	LOG (llevError, "load_settings: item_power_factor must be a positive number (%f < 0)\n", tmp);	236	LOG (llevError, "load_settings: item_power_factor must be a positive number (%f < 0)\n", tmp);
826	else	237	else
827	settings.item_power_factor = tmp;	238	settings.item_power_factor = tmp;
828	}	239	}
829	else if (!strcasecmp (buf, "pk_luck_penalty"))	240	else if (!strcmp (buf, "pk_luck_penalty"))
830	{	241	{
831	sint16 val = atoi (cp);	242	sint16 val = atoi (cp);
832		243
833	if (val < -100 || val > 100)	244	if (val < -100 || val > 100)
834	LOG (llevError, "load_settings: pk_luck_penalty must be between -100 and 100" ", %d is invalid\n", val);	245	LOG (llevError, "load_settings: pk_luck_penalty must be between -100 and 100" ", %d is invalid\n", val);
835	else	246	else
836	settings.pk_luck_penalty = val;	247	settings.pk_luck_penalty = val;
837	}	248	}
838	else if (!strcasecmp (buf, "set_friendly_fire"))	249	else if (!strcmp (buf, "set_friendly_fire"))
839	{	250	{
840	int val = atoi (cp);	251	int val = atoi (cp);
841		252
842	if (val < 0 || val > 100)	253	if (val < 0 || val > 100)
843	LOG (llevError, "load_settings: set_friendly_fire must be between 0 an 100" ", %d is invalid\n", val);	254	LOG (llevError, "load_settings: set_friendly_fire must be between 0 an 100" ", %d is invalid\n", val);
844	else	255	else
845	settings.set_friendly_fire = val;	256	settings.set_friendly_fire = val;
846	}	257	}
847	else if (!strcasecmp (buf, "armor_max_enchant"))	258	else if (!strcmp (buf, "armor_max_enchant"))
848	{	259	{
849	int max_e = atoi (cp);	260	int max_e = atoi (cp);
850		261
851	if (max_e <= 0)	262	if (max_e <= 0)
852	LOG (llevError, "load_settings: armor_max_enchant is %d\n", max_e);	263	LOG (llevError, "load_settings: armor_max_enchant is %d\n", max_e);
853	else	264	else
854	settings.armor_max_enchant = max_e;	265	settings.armor_max_enchant = max_e;
855	}	266	}
856	else if (!strcasecmp (buf, "armor_weight_reduction"))	267	else if (!strcmp (buf, "armor_weight_reduction"))
857	{	268	{
858	int wr = atoi (cp);	269	int wr = atoi (cp);
859		270
860	if (wr < 0)	271	if (wr < 0)
861	LOG (llevError, "load_settings: armor_weight_reduction is %d\n", wr);	272	LOG (llevError, "load_settings: armor_weight_reduction is %d\n", wr);
862	else	273	else
863	settings.armor_weight_reduction = wr;	274	settings.armor_weight_reduction = wr;
864	}	275	}
865	else if (!strcasecmp (buf, "armor_weight_linear"))	276	else if (!strcmp (buf, "armor_weight_linear"))
866	{	277	{
867	if (!strcasecmp (cp, "on") || !strcasecmp (cp, "true"))	278	if (!strcmp (cp, "on") || !strcmp (cp, "true"))
868	{	279	{
869	settings.armor_weight_linear = TRUE;	280	settings.armor_weight_linear = TRUE;
870	}	281	}
871	else if (!strcasecmp (cp, "off") || !strcasecmp (cp, "false"))	282	else if (!strcmp (cp, "off") || !strcmp (cp, "false"))
872	{	283	{
873	settings.armor_weight_linear = FALSE;	284	settings.armor_weight_linear = FALSE;
874	}	285	}
875	else	286	else
876	{	287	{
877	LOG (llevError, "load_settings: unknown value for armor_weight_linear: %s\n", cp);	288	LOG (llevError, "load_settings: unknown value for armor_weight_linear: %s\n", cp);
878	}	289	}
879		290
880	}	291	}
881	else if (!strcasecmp (buf, "armor_speed_improvement"))	292	else if (!strcmp (buf, "armor_speed_improvement"))
882	{	293	{
883	int wr = atoi (cp);	294	int wr = atoi (cp);
884		295
885	if (wr < 0)	296	if (wr < 0)
886	LOG (llevError, "load_settings: armor_speed_improvement is %d\n", wr);	297	LOG (llevError, "load_settings: armor_speed_improvement is %d\n", wr);
887	else	298	else
888	settings.armor_speed_improvement = wr;	299	settings.armor_speed_improvement = wr;
889	}	300	}
890	else if (!strcasecmp (buf, "armor_speed_linear"))	301	else if (!strcmp (buf, "armor_speed_linear"))
891	{	302	{
892	if (!strcasecmp (cp, "on") || !strcasecmp (cp, "true"))	303	if (!strcmp (cp, "on") || !strcmp (cp, "true"))
893	{	304	{
894	settings.armor_speed_linear = TRUE;	305	settings.armor_speed_linear = TRUE;
895	}	306	}
896	else if (!strcasecmp (cp, "off") || !strcasecmp (cp, "false"))	307	else if (!strcmp (cp, "off") || !strcmp (cp, "false"))
897	{	308	{
898	settings.armor_speed_linear = FALSE;	309	settings.armor_speed_linear = FALSE;
899	}	310	}
900	else	311	else
901	{	312	{
902	LOG (llevError, "load_settings: unknown value for armor_speed_linear: %s\n", cp);	313	LOG (llevError, "load_settings: unknown value for armor_speed_linear: %s\n", cp);
903	}	314	}
904		315
905	}	316	}
906	else	317	else
907	LOG (llevError, "Unknown value in settings file: %s\n", buf);	318	thawer.parse_error ("settings file");
		319
		320	thawer.next ();
908	}	321	}
909
910	close_and_delete (fp, comp);
911	}	322	}
912		323
913	/*	324	/*
914	* init() is called only once, when starting the program.	325	* init() is called only once, when starting the program.
915	*/	326	*/
916	void	327	void
917	init (int argc, char **argv)	328	init (int argc, char **argv)
918	{	329	{
919	init_done = 0; /* Must be done before init_signal() */	330	init_done = 0; /* Must be done before init_signal() */
920	rndm.seed (time (0));
921		331
922	logfile = stderr;
923	init_environ ();	332	init_environ ();
924	parse_args (argc, argv, 1); /* First arg pass - right now it does
925	* nothing, but in future specifying the
926	* LibDir in this pass would be reasonable*/
927
928	init_anim (); // Must be called before perl
929	cfperl_init ();	333	cfperl_init ();
930	init_library (); /* Must be called early */
931	load_settings (); /* Load the settings file */
932	load_materials ();
933	parse_args (argc, argv, 2);
934	fprintf (logfile, "Welcome to CrossFire, v%s\n", VERSION);
935	fprintf (logfile, "Copyright (C) 2005, 2006, 2007 Marc Lehmann.\n");
936	fprintf (logfile, "Copyright (C) 1994 Mark Wedel.\n");
937	fprintf (logfile, "Copyright (C) 1992 Frank Tore Johansen.\n");
938
939	if (strcmp (settings.dm_mail, "") != 0)
940	{
941	fprintf (logfile, "Maintained locally by: %s\n", settings.dm_mail);
942	fprintf (logfile, "Questions and bugs should be mailed to above address.\n");
943	}
944
945	init_startup (); /* Write (C), check shutdown/forbid files */
946	init_uuid ();
947	init_signals (); /* Sets up signal interceptions */
948	init_commands (); /* Sort command tables */
949	init_skills ();
950
951	parse_args (argc, argv, 3);
952
953	init_beforeplay ();
954	init_done = 1;	334	init_done = 1;
955	}
956
957	void
958	usage (void)
959	{
960	(void) fprintf (logfile, "Usage: crossfire [-h] [-<flags>]...\n");
961	}
962
963	void
964	help (void)
965	{
966
967	/* The information in usage is redundant with what is given below, so why call it? */
968
969	/* usage();*/
970	printf ("Flags:\n");
971	printf (" -csport <port> Specifies the port to use for the new client/server code.\n");
972	printf (" -d Turns on some debugging.\n");
973	printf (" +d Turns off debugging (useful if server compiled with debugging\n");
974	printf (" as default).\n");
975	printf (" -detach The server will go in the background, closing all\n");
976	printf (" connections to the tty.\n");
977	printf (" -h Display this information.\n");
978	printf (" -log <file> Specifies which file to send output to.\n");
979	printf (" Only has meaning if -detach is specified.\n");
980	printf (" -mon Turns on monster debugging.\n");
981	printf (" -o Prints out info on what was defined at compile time.\n");
982	printf (" -s Display the high-score list.\n");
983	printf (" -score <name or class> Displays all high scores with matching name/class.\n");
984	printf (" -v Print version and contributors.\n");
985	printf (" -data Sets the lib dir (archetypes, treasures, etc.)\n");
986	printf (" -local Read/write local data (hiscore, unique items, etc.)\n");
987	printf (" -maps Sets the directory for maps.\n");
988	printf (" -arch Sets the archetype file to use.\n");
989	printf (" -regions Sets the regions file to use.\n");
990	printf (" -playerdir Sets the directory for the player files.\n");
991	printf (" -templatedir Sets the directory for template generate maps.\n");
992	printf (" -treasures Sets the treasures file to use.\n");
993	printf (" -uniquedir Sets the unique items/maps directory.\n");
994	printf (" -tmpdir Sets the directory for temporary files (mostly maps.)\n");
995	printf (" -m Lists out suggested experience for all monsters.\n");
996	printf (" -m2 Dumps out abilities.\n");
997	printf (" -m3 Dumps out artifact information.\n");
998	printf (" -m4 Dumps out spell information.\n");
999	printf (" -m5 Dumps out skill information.\n");
1000	printf (" -m6 Dumps out race information.\n");
1001	printf (" -m7 Dumps out alchemy information.\n");
1002	printf (" -m8 Dumps out gods information.\n");
1003	printf (" -m9 Dumps out more alchemy information (formula checking).\n");
1004	printf (" -mt <name> Dumps out list of treasures for a monster.\n");
1005	exit (0);
1006	}
1007
1008	void
1009	init_beforeplay (void)
1010	{
1011	init_artifacts (); /* If not called before, reads all artifacts from file */
1012	init_spells (); /* If not called before, links archtypes used by spells */
1013	init_archetype_pointers (); /* Setup global pointers to archetypes */
1014	init_races (); /* overwrite race designations using entries in lib/races file */
1015	init_gods (); /* init linked list of gods from archs */
1016	init_readable (); /* inits useful arrays for readable texts */
1017	init_formulae (); /* If not called before, reads formulae from file */
1018	}
1019
1020	void
1021	init_startup (void)
1022	{
1023	char buf[MAX_BUF];
1024	FILE *fp;
1025	int comp;
1026
1027	#ifdef SHUTDOWN_FILE
1028	sprintf (buf, "%s/%s", settings.confdir, SHUTDOWN_FILE);
1029	if ((fp = open_and_uncompress (buf, 0, &comp)) != NULL)
1030	{
1031	while (fgets (buf, MAX_BUF - 1, fp) != NULL)
1032	printf ("%s", buf);
1033	close_and_delete (fp, comp);
1034	exit (1);
1035	}
1036	#endif
1037
1038	if (forbid_play ())
1039	{ /* Maybe showing highscore should be allowed? */
1040	LOG (llevError, "CrossFire: Playing not allowed.\n");
1041	exit (-1);
1042	}
1043	}
1044
1045	/*
1046	* compile_info(): activated with the -o flag.
1047	* It writes out information on how Imakefile and config.h was configured
1048	* at compile time.
1049	*/
1050
1051	void
1052	compile_info (void)
1053	{
1054	int i = 0;
1055
1056	printf ("Non-standard include files:\n");
1057	#if !defined (__STRICT_ANSI__) || defined (__sun__)
1058	# if !defined (Mips)
1059	printf ("<stdlib.h>\n");
1060	i = 1;
1061	# endif
1062	# if !defined (MACH) && !defined (sony)
1063	printf ("<malloc.h>\n");
1064	i = 1;
1065	# endif
1066	#endif
1067	#ifndef __STRICT_ANSI__
1068	# ifndef MACH
1069	printf ("<memory.h\n");
1070	i = 1;
1071	# endif
1072	#endif
1073	#ifndef sgi
1074	printf ("<sys/timeb.h>\n");
1075	i = 1;
1076	#endif
1077	if (!i)
1078	printf ("(none)\n");
1079	printf ("Datadir:\t\t%s\n", settings.datadir);
1080	printf ("Localdir:\t\t%s\n", settings.localdir);
1081	#ifdef PERM_FILE
1082	printf ("Perm file:\t<ETC>/%s\n", PERM_FILE);
1083	#endif
1084	#ifdef SHUTDOWN_FILE
1085	printf ("Shutdown file:\t<ETC>/%s\n", SHUTDOWN_FILE);
1086	#endif
1087	printf ("Save player:\t<true>\n");
1088	printf ("Save mode:\t%4.4o\n", SAVE_MODE);
1089	printf ("Playerdir:\t<VAR>/%s\n", settings.playerdir);
1090	printf ("Itemsdir:\t<VAR>/%s\n", settings.uniquedir);
1091	printf ("Tmpdir:\t\t%s\n", settings.tmpdir);
1092	#ifdef USE_CALLOC
1093	printf ("Use_calloc:\t<true>\n");
1094	#else
1095	printf ("Use_calloc:\t<false>\n");
1096	#endif
1097
1098	#ifdef X_EDITOR
1099	printf ("Editor:\t\t%s\n", X_EDITOR);
1100	#endif
1101
1102	printf ("Max_time:\t%d\n", MAX_TIME);
1103
1104	execl ("/bin/uname", "uname", "-a", NULL);
1105	LOG (llevError, "Oops, shouldn't have gotten here: execl(/bin/uname) failed: %s\n", strerror (errno));
1106	exit (-1);
1107	}	335	}
1108		336
1109	/* Signal handlers: */	337	/* Signal handlers: */
1110		338
1111	static void	339	static void
…		…
1116	LOG (llevError, "SIGABRT received.\n");	344	LOG (llevError, "SIGABRT received.\n");
1117	cleanup ("SIGABRT received", 1);	345	cleanup ("SIGABRT received", 1);
1118	}	346	}
1119		347
1120	static void	348	static void
		349	rec_sigquit (int i)
		350	{
		351	signal (SIGQUIT, SIG_IGN);
		352
		353	LOG (llevInfo, "SIGQUIT received\n");
		354	cleanup ("SIGQUIT received", 1);
		355	}
		356
		357	static void
1121	rec_sigsegv (int i)	358	rec_sigsegv (int i)
1122	{	359	{
1123	signal (SIGSEGV, SIG_DFL);	360	signal (SIGSEGV, SIG_DFL);
1124		361
1125	LOG (llevError, "SIGSEGV received.\n");	362	LOG (llevError, "SIGSEGV received.\n");
1126	cleanup ("SIGSEGV received", 1);	363	cleanup ("SIGSEGV received", 1);
1127	}	364	}
1128		365
1129	static void	366	static void
1130	rec_sigquit (int i)
1131	{
1132	signal (SIGQUIT, SIG_IGN);
1133
1134	LOG (llevInfo, "SIGQUIT received\n");
1135	cleanup ("SIGQUIT received", 1);
1136	}
1137
1138	static void
1139	rec_sigbus (int i)	367	rec_sigbus (int i)
1140	{	368	{
1141	signal (SIGBUS, SIG_DFL);	369	signal (SIGBUS, SIG_DFL);
1142		370
1143	LOG (llevError, "SIGBUS received\n");	371	LOG (llevError, "SIGBUS received\n");
1144	cleanup ("SIGBUS received", 1);	372	cleanup ("SIGBUS received", 1);
		373	}
		374
		375	static void
		376	rec_sigfpe (int i)
		377	{
		378	signal (SIGFPE, SIG_DFL);
		379
		380	LOG (llevError, "SIGFPE received.\n");
		381	cleanup ("SIGFPE received", 1);
1145	}	382	}
1146		383
1147	void	384	void
1148	reset_signals ()	385	reset_signals ()
1149	{	386	{
1150	signal (SIGABRT, SIG_DFL);	387	signal (SIGABRT, SIG_DFL);
1151	signal (SIGQUIT, SIG_DFL);	388	signal (SIGQUIT, SIG_DFL);
1152	signal (SIGSEGV, SIG_DFL);	389	signal (SIGSEGV, SIG_DFL);
		390	#ifdef SIGBUS
1153	signal (SIGBUS , SIG_DFL);	391	signal (SIGBUS , SIG_DFL);
		392	#endif
		393	signal (SIGFPE , SIG_DFL);
1154	signal (SIGINT , SIG_DFL);	394	signal (SIGINT , SIG_DFL);
1155	signal (SIGTERM, SIG_DFL);	395	signal (SIGTERM, SIG_DFL);
1156	}	396	}
1157		397
1158	void	398	void
1159	init_signals (void)	399	init_signals ()
1160	{	400	{
1161	// large stack, but it's important data we want to save, and it is not usually	401	// large stack, but it's important data we want to save, and it is not usually
1162	// being physically allocated anyways	402	// being physically allocated anyways
1163	const size_t stacksize = 8 * 1024 * 1024 + SIGSTKSZ;	403	const size_t stacksize = 8 * 1024 * 1024 + SIGSTKSZ;
1164		404
…		…
1174	sa.sa_flags = SA_RESTART;	414	sa.sa_flags = SA_RESTART;
1175		415
1176	sa.sa_handler = SIG_IGN; sigaction (SIGPIPE, &sa, 0);	416	sa.sa_handler = SIG_IGN; sigaction (SIGPIPE, &sa, 0);
1177	sa.sa_handler = rec_sigabrt; sigaction (SIGABRT, &sa, 0);	417	sa.sa_handler = rec_sigabrt; sigaction (SIGABRT, &sa, 0);
1178	sa.sa_handler = rec_sigquit; sigaction (SIGQUIT, &sa, 0);	418	sa.sa_handler = rec_sigquit; sigaction (SIGQUIT, &sa, 0);
		419	#ifdef SIGBUS
1179	sa.sa_handler = rec_sigbus; sigaction (SIGBUS, &sa, 0);	420	sa.sa_handler = rec_sigbus; sigaction (SIGBUS, &sa, 0);
		421	#endif
		422	sa.sa_handler = rec_sigfpe; sigaction (SIGFPE, &sa, 0);
1180		423
1181	sa.sa_flags |= SA_ONSTACK;	424	sa.sa_flags |= SA_ONSTACK;
1182	sa.sa_handler = rec_sigsegv; sigaction (SIGSEGV, &sa, 0);	425	sa.sa_handler = rec_sigsegv; sigaction (SIGSEGV, &sa, 0);
		426	}
		427
		428	static racelink *
		429	get_racelist ()
		430	{
		431	racelink *list = new racelink;
		432
		433	list->name = 0;
		434	list->nrof = 0;
		435	list->next = 0;
		436	list->member = get_objectlink ();
		437
		438	return list;
		439	}
		440
		441	racelink *
		442	find_racelink (const char *name)
		443	{
		444	if (name)
		445	for (racelink *link = first_race; link; link = link->next)
		446	if (!link->name || !strcmp (name, link->name))
		447	return link;
		448
		449	return 0;
		450	}
		451
		452	static void
		453	add_to_racelist (const char *race_name, object *op)
		454	{
		455	racelink *race;
		456
		457	if (!op || !race_name)
		458	return;
		459
		460	race = find_racelink (race_name);
		461
		462	if (!race)
		463	{ /* add in a new race list */
		464	race = get_racelist ();
		465	race->next = first_race;
		466	first_race = race;
		467	race->name = race_name;
		468	}
		469
		470	if (race->member->ob)
		471	{
		472	objectlink *tmp = get_objectlink ();
		473
		474	tmp->next = race->member;
		475	race->member = tmp;
		476	}
		477
		478	race->nrof++;
		479	race->member->ob = op;
1183	}	480	}
1184		481
1185	/* init_races() - reads the races file in the lib/ directory, then	482	/* init_races() - reads the races file in the lib/ directory, then
1186	* overwrites old 'race' entries. This routine allow us to quickly	483	* overwrites old 'race' entries. This routine allow us to quickly
1187	* re-configure the 'alignment' of monsters, objects. Useful for	484	* re-configure the 'alignment' of monsters, objects. Useful for
1188	* putting together lists of creatures, etc that belong to gods.	485	* putting together lists of creatures, etc that belong to gods.
1189	*/	486	*/
1190	void	487	static void
1191	init_races (void)	488	init_races ()
1192	{	489	{
1193	FILE *file;	490	FILE *file;
1194	char race[MAX_BUF], fname[MAX_BUF], buf[MAX_BUF], *cp, variable[MAX_BUF];	491	char race[MAX_BUF], fname[MAX_BUF], buf[MAX_BUF], *cp, variable[MAX_BUF];
1195	archetype *mon = NULL;	492	archetype *mon = NULL;
1196	static int init_done = 0;	493	static int init_done = 0;
…		…
1219	*cp = '\0';	516	*cp = '\0';
1220		517
1221	cp = buf;	518	cp = buf;
1222	while (*cp == ' ' || *cp == '!' || *cp == '@')	519	while (*cp == ' ' || *cp == '!' || *cp == '@')
1223	{	520	{
1224	if (*cp == '!')	521	if (*cp == '!') set_race = 0;
1225	set_race = 0;
1226	if (*cp == '@')	522	if (*cp == '@') set_list = 0;
1227	set_list = 0;	523
1228	cp++;	524	cp++;
1229	}	525	}
1230		526
1231	if (sscanf (cp, "RACE %s", variable))	527	if (sscanf (cp, "RACE %s", variable))
1232	/* set new race value */	528	/* set new race value */
…		…
1252	/* set creature race to race value */	548	/* set creature race to race value */
1253	if ((mon = archetype::find (cp)) == NULL)	549	if ((mon = archetype::find (cp)) == NULL)
1254	LOG (llevError, "Creature %s in race file lacks archetype\n", cp);	550	LOG (llevError, "Creature %s in race file lacks archetype\n", cp);
1255	else	551	else
1256	{	552	{
1257	if (set_race && (!mon->race || strcmp (mon->race, race)))	553	if (set_race && (!mon->race || strcmp (&mon->race, race)))
1258	{	554	{
1259	if (mon->race)	555	if (mon->race)
1260	LOG (llevDebug, "Resetting race to %s from %s for archetype %s\n", race, &mon->race, &mon->archname);	556	LOG (llevDebug, "Resetting race to %s from %s for archetype %s\n", race, &mon->race, &mon->archname);
1261		557
1262	mon->race = race;	558	mon->race = race;
1263	}	559	}
1264		560
1265	/* if the arch is a monster, add it to the race list */	561	/* if the arch is a monster, add it to the race list */
1266	if (set_list && QUERY_FLAG (mon, FLAG_MONSTER))	562	if (set_list && mon->flag [FLAG_MONSTER])
1267	add_to_racelist (race, mon);	563	add_to_racelist (race, mon);
1268	}	564	}
1269	}	565	}
1270	}	566	}
1271		567
1272	fclose (file);	568	fclose (file);
1273	LOG (llevDebug, "done.\n");	569	LOG (llevDebug, "done.\n");
1274	}	570	}
1275		571
1276	void	572	void
1277	dump_races (void)	573	init_beforeplay ()
1278	{	574	{
1279	racelink *list;	575	init_artifacts (); /* If not called before, reads all artifacts from file */
1280	objectlink *tmp;	576	init_races (); /* overwrite race designations using entries in lib/races file */
1281		577	init_gods (); /* init linked list of gods from archs */
1282	for (list = first_race; list; list = list->next)	578	init_readable (); /* inits useful arrays for readable texts */
1283	{	579	init_formulae (); /* If not called before, reads formulae from file */
1284	fprintf (stderr, "\nRACE %s:\t", &list->name);
1285	for (tmp = list->member; tmp; tmp = tmp->next)
1286	fprintf (stderr, "%s(%d), ", &tmp->ob->arch->archname, tmp->ob->level);
1287	}
1288
1289	fprintf (stderr, "\n");
1290	}	580	}
1291		581
1292	void
1293	add_to_racelist (const char *race_name, object *op)
1294	{
1295	racelink *race;
1296
1297	if (!op || !race_name)
1298	return;
1299
1300	race = find_racelink (race_name);
1301
1302	if (!race)
1303	{ /* add in a new race list */
1304	race = get_racelist ();
1305	race->next = first_race;
1306	first_race = race;
1307	race->name = race_name;
1308	}
1309
1310	if (race->member->ob)
1311	{
1312	objectlink *tmp = get_objectlink ();
1313
1314	tmp->next = race->member;
1315	race->member = tmp;
1316	}
1317
1318	race->nrof++;
1319	race->member->ob = op;
1320	}
1321
1322	racelink *
1323	get_racelist ()
1324	{
1325	racelink *list = new racelink;
1326
1327	list->name = 0;
1328	list->nrof = 0;
1329	list->next = 0;
1330	list->member = get_objectlink ();
1331
1332	return list;
1333	}
1334
1335	racelink *
1336	find_racelink (const char *name)
1337	{
1338	if (name)
1339	for (racelink *link = first_race; link; link = link->next)
1340	if (!link->name || !strcmp (name, link->name))
1341	return link;
1342
1343	return 0;
1344	}

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines