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.21 by root, Wed Dec 20 09:14:22 2006 UTC vs.
Revision 1.77 by root, Sat Jan 16 13:41:37 2010 UTC

1	/*	1	/*
2	CrossFire, A Multiplayer game for X-windows	2	* This file is part of Deliantra, the Roguelike Realtime MMORPG.
3		3	*
		4	* Copyright (©) 2005,2006,2007,2008,2009,2010 Marc Alexander Lehmann / Robin Redeker / the Deliantra team
4	Copyright (C) 2002 Mark Wedel & Crossfire Development Team	5	* Copyright (©) 2002,2007 Mark Wedel & Crossfire Development Team
5	Copyright (C) 1992 Frank Tore Johansen	6	* Copyright (©) 1992,2007 Frank Tore Johansen
6		7	*
7	This program is free software; you can redistribute it and/or modify	8	* Deliantra is free software: you can redistribute it and/or modify it under
8	it under the terms of the GNU General Public License as published by	9	* the terms of the Affero GNU General Public License as published by the
9	the Free Software Foundation; either version 2 of the License, or	10	* Free Software Foundation, either version 3 of the License, or (at your
10	(at your option) any later version.	11	* option) any later version.
11		12	*
12	This program is distributed in the hope that it will be useful,	13	* This program is distributed in the hope that it will be useful,
13	but WITHOUT ANY WARRANTY; without even the implied warranty of	14	* but WITHOUT ANY WARRANTY; without even the implied warranty of
14	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the	15	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15	GNU General Public License for more details.	16	* GNU General Public License for more details.
16		17	*
17	You should have received a copy of the GNU General Public License	18	* You should have received a copy of the Affero GNU General Public License
18	along with this program; if not, write to the Free Software	19	* and the GNU General Public License along with this program. If not, see
19	Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.	20	* <http://www.gnu.org/licenses/>.
20		21	*
21	The authors can be reached via e-mail at <crossfire@schmorp.de>	22	* The authors can be reached via e-mail to <support@deliantra.net>
22	*/	23	*/
23		24
24	#include <global.h>	25	#include <global.h>
25	#include <material.h>	26	#include <material.h>
26	#include <loader.h>
27	#ifndef __CEXTRACT__
28	# include <sproto.h>	27	#include <sproto.h>
29	#endif
30
31	/* global weathermap */
32	weathermap_t **weathermap;
33
34	void
35	set_logfile (char *val)
36	{
37	settings.logfilename = val;
38	}
39
40	void
41	call_version (void)
42	{
43	version (NULL);
44	exit (0);
45	}
46
47	void
48	showscores (void)
49	{
50	display_high_score (NULL, 9999, NULL);
51	exit (0);
52	}
53
54	void
55	set_debug (void)
56	{
57	settings.debug = llevDebug;
58	}
59
60	void
61	unset_debug (void)
62	{
63	settings.debug = llevInfo;
64	}
65
66	void
67	set_mondebug (void)
68	{
69	settings.debug = llevMonster;
70	}
71
72	void
73	set_dumpmon1 (void)
74	{
75	settings.dumpvalues = 1;
76	}
77
78	void
79	set_dumpmon2 (void)
80	{
81	settings.dumpvalues = 2;
82	}
83
84	void
85	set_dumpmon3 (void)
86	{
87	settings.dumpvalues = 3;
88	}
89
90	void
91	set_dumpmon4 (void)
92	{
93	settings.dumpvalues = 4;
94	}
95
96	void
97	set_dumpmon5 (void)
98	{
99	settings.dumpvalues = 5;
100	}
101
102	void
103	set_dumpmon6 (void)
104	{
105	settings.dumpvalues = 6;
106	}
107
108	void
109	set_dumpmon7 (void)
110	{
111	settings.dumpvalues = 7;
112	}
113
114	void
115	set_dumpmon8 (void)
116	{
117	settings.dumpvalues = 8;
118	}
119
120	void
121	set_dumpmon9 (void)
122	{
123	settings.dumpvalues = 9;
124	}
125
126	void
127	set_dumpmont (char *name)
128	{
129	settings.dumpvalues = 10;
130	settings.dumparg = name;
131	}
132
133	void
134	set_daemon (void)
135	{
136	settings.daemonmode = 1;
137	}
138
139	void
140	set_datadir (char *path)
141	{
142	settings.datadir = path;
143	}
144
145	void
146	set_confdir (char *path)
147	{
148	settings.confdir = path;
149	}
150
151	void
152	set_localdir (char *path)
153	{
154	settings.localdir = path;
155	}
156
157	void
158	set_mapdir (char *path)
159	{
160	settings.mapdir = path;
161	}
162
163	void
164	set_archetypes (char *path)
165	{
166	settings.archetypes = path;
167	}
168
169	void
170	set_regions (char *path)
171	{
172	settings.regions = path;
173	}
174
175	void
176	set_treasures (char *path)
177	{
178	settings.treasures = path;
179	}
180
181	void
182	set_uniquedir (char *path)
183	{
184	settings.uniquedir = path;
185	}
186
187	void
188	set_templatedir (char *path)
189	{
190	settings.templatedir = path;
191	}
192
193	void
194	set_playerdir (char *path)
195	{
196	settings.playerdir = path;
197	}
198
199	void
200	set_tmpdir (char *path)
201	{
202	settings.tmpdir = path;
203	}
204
205	void
206	showscoresparm (char *data)
207	{
208	display_high_score (NULL, 9999, data);
209	exit (0);
210	}
211
212	void
213	set_csport (char *val)
214	{
215	settings.csport = atoi (val);
216	if (settings.csport <= 0 || settings.csport > 32765 || (settings.csport < 1024 && getuid () != 0))
217	{
218	LOG (llevError, "%d is an invalid csport number.\n", settings.csport);
219	exit (1);
220	}
221	}
222
223	/* Most of this is shamelessly stolen from XSysStats. But since that is
224	* also my program, no problem.
225	*/
226	struct Command_Line_Options
227	{
228	const char *cmd_option; /* how it is called on the command line */
229	uint8 num_args; /* Number or args it takes */
230	uint8 pass; /* What pass this should be processed on. */
231	void (*func) (); /* function to call when we match this.
232	* if num_args is true, than that gets passed
233	* to the function, otherwise nothing is passed
234	*/
235	};
236
237	/* The way this system works is pretty simple - parse_args takes
238	* the options passed to the program and a pass number. If an option
239	* matches both in name and in pass (and we have enough options),
240	* we call the associated function. This makes writing a multi
241	* pass system very easy, and it is very easy to add in new options.
242	*/
243	struct Command_Line_Options options[] = {
244
245	/* Pass 1 functions - STuff that can/should be called before we actually
246	* initialize any data.
247	*/
248	{"-h", 0, 1, help},
249
250	/* Honor -help also, since it is somewhat common */
251	{"-help", 0, 1, help},
252	{"-v", 0, 1, call_version},
253	{"-d", 0, 1, set_debug},
254	{"+d", 0, 1, unset_debug},
255	{"-mon", 0, 1, set_mondebug},
256	{"-data", 1, 1, (void (*)()) set_datadir},
257	{"-conf", 1, 1, (void (*)()) set_confdir},
258	{"-local", 1, 1, (void (*)()) set_localdir},
259	{"-maps", 1, 1, (void (*)()) set_mapdir},
260	{"-arch", 1, 1, (void (*)()) set_archetypes},
261	{"-regions", 1, 1, (void (*)()) set_regions},
262	{"-playerdir", 1, 1, (void (*)()) set_playerdir},
263	{"-treasures", 1, 1, (void (*)()) set_treasures},
264	{"-uniquedir", 1, 1, (void (*)()) set_uniquedir},
265	{"-templatedir", 1, 1, (void (*)()) set_templatedir},
266	{"-tmpdir", 1, 1, (void (*)()) set_tmpdir},
267	{"-log", 1, 1, (void (*)()) set_logfile},
268
269	/* Pass 2 functions. Most of these could probably be in pass 1,
270	* as they don't require much of anything to bet set up.
271	*/
272	{"-csport", 1, 2, (void (*)()) set_csport},
273	{"-detach", 0, 2, set_daemon},
274
275	/* Start of pass 3 information. In theory, by pass 3, all data paths
276	* and defaults should have been set up.
277	*/
278	{"-o", 0, 3, compile_info},
279	{"-m", 0, 3, set_dumpmon1},
280	{"-m2", 0, 3, set_dumpmon2},
281	{"-m3", 0, 3, set_dumpmon3},
282	{"-m4", 0, 3, set_dumpmon4},
283	{"-m5", 0, 3, set_dumpmon5},
284	{"-m6", 0, 3, set_dumpmon6},
285	{"-m7", 0, 3, set_dumpmon7},
286	{"-m8", 0, 3, set_dumpmon8},
287	{"-m9", 0, 3, set_dumpmon9},
288	{"-mt", 1, 3, (void (*)()) set_dumpmont},
289	{"-mexp", 0, 3, dump_experience},
290	{"-s", 0, 3, showscores},
291	{"-score", 1, 3, (void (*)()) showscoresparm}
292	};
293
294
295	/* Note since this may be called before the library has been set up,
296	* we don't use any of crossfires built in logging functions.
297	*/
298	static void
299	parse_args (int argc, char *argv[], int pass)
300	{
301	size_t i;
302	int on_arg = 1;
303
304	while (on_arg < argc)
305	{
306	for (i = 0; i < sizeof (options) / sizeof (struct Command_Line_Options); i++)
307	{
308	if (!strcmp (options[i].cmd_option, argv[on_arg]))
309	{
310	/* Found a matching option, but should not be processed on
311	* this pass. Just skip over it
312	*/
313	if (options[i].pass != pass)
314	{
315	on_arg += options[i].num_args + 1;
316	break;
317	}
318	if (options[i].num_args)
319	{
320	if ((on_arg + options[i].num_args) >= argc)
321	{
322	fprintf (stderr, "%s requires an argument.\n", options[i].cmd_option);
323	exit (1);
324	}
325	else
326	{
327	if (options[i].num_args == 1)
328	((void (*)(char *)) options[i].func) (argv[on_arg + 1]);
329	if (options[i].num_args == 2)
330	((void (*)(char *, char *)) options[i].func) (argv[on_arg + 1], argv[on_arg + 2]);
331	on_arg += options[i].num_args + 1;
332	}
333	}
334	else
335	{ /* takes no args */
336	options[i].func ();
337	on_arg++;
338	}
339	break;
340	}
341	}
342	if (i == sizeof (options) / sizeof (struct Command_Line_Options))
343	{
344	fprintf (stderr, "Unknown option: %s\n", argv[on_arg]);
345	usage ();
346	exit (1);
347	}
348	}
349	}
350
351	//TODO: make this a constructor
352	static materialtype_t *
353	get_empty_mat (void)
354	{
355	materialtype_t *mt;
356	int i;
357
358	mt = new materialtype_t;
359
360	mt->name = NULL;
361	mt->description = NULL;
362	for (i = 0; i < NROFATTACKS; i++)
363	{
364	mt->save[i] = 0;
365	mt->mod[i] = 0;
366	}
367	mt->chance = 0;
368	mt->difficulty = 0;
369	mt->magic = 0;
370	mt->damage = 0;
371	mt->wc = 0;
372	mt->ac = 0;
373	mt->sp = 0;
374	mt->weight = 100;
375	mt->value = 100;
376	mt->next = NULL;
377	return mt;
378	}
379
380	static void
381	load_materials (void)
382	{
383	char buf[MAX_BUF], filename[MAX_BUF], *cp, *next;
384	FILE *fp;
385	materialtype_t *mt;
386	int i, value;
387
388	sprintf (filename, "%s/materials", settings.datadir);
389	LOG (llevDebug, "Reading material type data from %s...", filename);
390	if ((fp = fopen (filename, "r")) == NULL)
391	{
392	LOG (llevError, "Cannot open %s for reading\n", filename);
393	mt = get_empty_mat ();
394	mt->next = NULL;
395	materialt = mt;
396	return;
397	}
398	mt = get_empty_mat ();
399	materialt = mt;
400	while (fgets (buf, MAX_BUF, fp) != NULL)
401	{
402	if (*buf == '#')
403	continue;
404	if ((cp = strchr (buf, '\n')) != NULL)
405	*cp = '\0';
406	cp = buf;
407	while (*cp == ' ') /* Skip blanks */
408	cp++;
409	if (!strncmp (cp, "name", 4))
410	{
411	/* clean up the previous entry */
412	if (mt->next != NULL)
413	{
414	if (mt->description == NULL)
415	mt->description = mt->name;
416	mt = mt->next;
417	}
418	mt->next = get_empty_mat ();
419	mt->name = strchr (cp, ' ') + 1;
420	}
421	else if (!strncmp (cp, "description", 11))
422	{
423	mt->description = strchr (cp, ' ') + 1;
424	}
425	else if (sscanf (cp, "material %d", &value))
426	{
427	mt->material = value;
428	}
429	else if (!strncmp (cp, "saves", 5))
430	{
431	cp = strchr (cp, ' ') + 1;
432	for (i = 0; i < NROFATTACKS; i++)
433	{
434	if (cp == NULL)
435	{
436	mt->save[i] = 0;
437	continue;
438	}
439	if ((next = strchr (cp, ',')) != NULL)
440	*(next++) = '\0';
441	sscanf (cp, "%d", &value);
442	mt->save[i] = (sint8) value;
443	cp = next;
444	}
445	}
446	else if (!strncmp (cp, "mods", 4))
447	{
448	cp = strchr (cp, ' ') + 1;
449	for (i = 0; i < NROFATTACKS; i++)
450	{
451	if (cp == NULL)
452	{
453	mt->save[i] = 0;
454	continue;
455	}
456	if ((next = strchr (cp, ',')) != NULL)
457	*(next++) = '\0';
458	sscanf (cp, "%d", &value);
459	mt->mod[i] = (sint8) value;
460	cp = next;
461	}
462	}
463	else if (sscanf (cp, "chance %d\n", &value))
464	{
465	mt->chance = (sint8) value;
466	}
467	else if (sscanf (cp, "diff %d\n", &value))
468	{
469	mt->difficulty = (sint8) value;
470	}
471	else if (sscanf (cp, "magic %d\n", &value))
472	{
473	mt->magic = (sint8) value;
474	}
475	else if (sscanf (cp, "damage %d\n", &value))
476	{
477	mt->damage = (sint8) value;
478	}
479	else if (sscanf (cp, "wc %d\n", &value))
480	{
481	mt->wc = (sint8) value;
482	}
483	else if (sscanf (cp, "ac %d\n", &value))
484	{
485	mt->ac = (sint8) value;
486	}
487	else if (sscanf (cp, "sp %d\n", &value))
488	{
489	mt->sp = (sint8) value;
490	}
491	else if (sscanf (cp, "weight %d\n", &value))
492	{
493	mt->weight = value;
494	}
495	else if (sscanf (cp, "value %d\n", &value))
496	{
497	mt->value = value;
498	}
499	}
500	if (mt->next)
501	{
502	delete mt->next;
503
504	mt->next = NULL;
505	}
506	LOG (llevDebug, "Done.\n");
507	fclose (fp);
508	}
509		28
510	/* This loads the settings file. There could be debate whether this should	29	/* This loads the settings file. There could be debate whether this should
511	* be here or in the common directory - but since only the server needs this	30	* be here or in the common directory - but since only the server needs this
512	* information, having it here probably makes more sense.	31	* information, having it here probably makes more sense.
513	*/	32	*/
514	static void	33	void
515	load_settings (void)	34	load_settings ()
516	{	35	{
517	char buf[MAX_BUF], *cp;	36	char buf[MAX_BUF], *cp;
518	int has_val, comp;	37	int has_val, comp;
519	FILE *fp;	38	FILE *fp;
520		39
…		…
522		41
523	/* We don't require a settings file at current time, but down the road,	42	/* We don't require a settings file at current time, but down the road,
524	* there will probably be so many values that not having a settings file	43	* there will probably be so many values that not having a settings file
525	* will not be a good thing.	44	* will not be a good thing.
526	*/	45	*/
527	if ((fp = open_and_uncompress (buf, 0, &comp)) == NULL)	46	if (!(fp = open_and_uncompress (buf, 0, &comp)))
528	{	47	{
529	LOG (llevError, "Warning: No settings file found\n");	48	LOG (llevError, "Error: No settings file found\n");
530	return;	49	exit (1);
531	}	50	}
		51
532	while (fgets (buf, MAX_BUF - 1, fp) != NULL)	52	while (fgets (buf, MAX_BUF - 1, fp) != NULL)
533	{	53	{
534	if (buf[0] == '#')	54	if (buf[0] == '#')
535	continue;	55	continue;
536	/* eliminate newline */	56	/* eliminate newline */
…		…
550	*cp++ = 0;	70	*cp++ = 0;
551	has_val = 1;	71	has_val = 1;
552	}	72	}
553	else	73	else
554	{	74	{
555	cp = "";	75	cp = (char *)"";
556	has_val = 0;	76	has_val = 0;
557	}	77	}
558		78
559	if (!strcasecmp (buf, "motd"))
560	{
561	if (has_val)
562	strcpy (settings.motd, cp);
563	else
564	LOG (llevError, "load_settings: motd must have a value.\n");
565	}
566	else if (!strcasecmp (buf, "dm_mail"))
567	{
568	if (has_val)
569	strcpy (settings.dm_mail, cp);
570	else
571	LOG (llevError, "load_settings: dm_mail must have a value.\n");
572	}
573	else if (!strcasecmp (buf, "worldmapstartx"))
574	{
575	int size = atoi (cp);
576
577	if (size < 0)
578	LOG (llevError, "load_settings: worldmapstartx must be at least " "0, %d is invalid\n", size);
579	else
580	settings.worldmapstartx = size;
581	}
582	else if (!strcasecmp (buf, "worldmapstarty"))
583	{
584	int size = atoi (cp);
585
586	if (size < 0)
587	LOG (llevError, "load_settings: worldmapstarty must be at least " "0, %d is invalid\n", size);
588	else
589	settings.worldmapstarty = size;
590	}
591	else if (!strcasecmp (buf, "worldmaptilesx"))
592	{
593	int size = atoi (cp);
594
595	if (size < 1)
596	LOG (llevError, "load_settings: worldmaptilesx must be greater " "than 1, %d is invalid\n", size);
597	else
598	settings.worldmaptilesx = size;
599	}
600	else if (!strcasecmp (buf, "worldmaptilesy"))
601	{
602	int size = atoi (cp);
603
604	if (size < 1)
605	LOG (llevError, "load_settings: worldmaptilesy must be greater " "than 1, %d is invalid\n", size);
606	else
607	settings.worldmaptilesy = size;
608	}
609	else if (!strcasecmp (buf, "worldmaptilesizex"))
610	{
611	int size = atoi (cp);
612
613	if (size < 1)
614	LOG (llevError, "load_settings: worldmaptilesizex must be " "greater than 1, %d is invalid\n", size);
615	else
616	settings.worldmaptilesizex = size;
617	}
618	else if (!strcasecmp (buf, "worldmaptilesizey"))
619	{
620	int size = atoi (cp);
621
622	if (size < 1)
623	LOG (llevError, "load_settings: worldmaptilesizey must be " "greater than 1, %d is invalid\n", size);
624	else
625	settings.worldmaptilesizey = size;
626	}
627	else if (!strcasecmp (buf, "dynamiclevel"))
628	{
629	int lev = atoi (cp);
630
631	if (lev < 0)
632	LOG (llevError, "load_settings: dynamiclevel must be " "at least 0, %d is invalid\n", lev);
633	else
634	settings.dynamiclevel = lev;
635	}
636	else if (!strcasecmp (buf, "fastclock"))
637	{
638	int lev = atoi (cp);
639
640	if (lev < 0)
641	LOG (llevError, "load_settings: fastclock must be at least 0" ", %d is invalid\n", lev);
642	else
643	settings.fastclock = lev;
644	}
645	else if (!strcasecmp (buf, "not_permadeth"))	79	if (!strcasecmp (buf, "not_permadeth"))
646	{	80	{
647	if (!strcasecmp (cp, "on") || !strcasecmp (cp, "true"))	81	if (!strcasecmp (cp, "on") || !strcasecmp (cp, "true"))
648	{	82	{
649	settings.not_permadeth = TRUE;	83	settings.not_permadeth = TRUE;
650	}	84	}
…		…
728	settings.spell_failure_effects = FALSE;	162	settings.spell_failure_effects = FALSE;
729	}	163	}
730	else	164	else
731	{	165	{
732	LOG (llevError, "load_settings: Unknown value for " "spell_failure_effects: %s\n", cp);	166	LOG (llevError, "load_settings: Unknown value for " "spell_failure_effects: %s\n", cp);
733	}
734	}
735	else if (!strcasecmp (buf, "casting_time"))
736	{
737	if (!strcasecmp (cp, "on") || !strcasecmp (cp, "true"))
738	{
739	settings.casting_time = TRUE;
740	}
741	else if (!strcasecmp (cp, "off") || !strcasecmp (cp, "false"))
742	{
743	settings.casting_time = FALSE;
744	}
745	else
746	{
747	LOG (llevError, "load_settings: Unknown value for " "casting_time: %s\n", cp);
748	}
749	}
750	else if (!strcasecmp (buf, "real_wiz"))
751	{
752	if (!strcasecmp (cp, "on") || !strcasecmp (cp, "true"))
753	{
754	settings.real_wiz = TRUE;
755	}
756	else if (!strcasecmp (cp, "off") || !strcasecmp (cp, "false"))
757	{
758	settings.real_wiz = FALSE;
759	}
760	else
761	{
762	LOG (llevError, "load_settings: Unknown value for " "real_wiz: %s\n", cp);
763	}
764	}
765	else if (!strcasecmp (buf, "explore_mode"))
766	{
767	if (!strcasecmp (cp, "on") || !strcasecmp (cp, "true"))
768	{
769	settings.explore_mode = TRUE;
770	}
771	else if (!strcasecmp (cp, "off") || !strcasecmp (cp, "false"))
772	{
773	settings.explore_mode = FALSE;
774	}
775	else
776	{
777	LOG (llevError, "load_settings: Unknown value for " "explore_mode: %s\n", cp);
778	}	167	}
779	}	168	}
780	else if (!strcasecmp (buf, "spellpoint_level_depend"))	169	else if (!strcasecmp (buf, "spellpoint_level_depend"))
781	{	170	{
782	if (!strcasecmp (cp, "on") || !strcasecmp (cp, "true"))	171	if (!strcasecmp (cp, "on") || !strcasecmp (cp, "true"))
…		…
888	}	277	}
889	else if (!strcasecmp (buf, "set_friendly_fire"))	278	else if (!strcasecmp (buf, "set_friendly_fire"))
890	{	279	{
891	int val = atoi (cp);	280	int val = atoi (cp);
892		281
893	#if COZY_SERVER
894	if (val < 0 || val > 100)	282	if (val < 0 || val > 100)
895	LOG (llevError, "load_settings: set_friendly_fire must be between 0 an 100" ", %d is invalid\n", val);	283	LOG (llevError, "load_settings: set_friendly_fire must be between 0 an 100" ", %d is invalid\n", val);
896	#else
897	if (val < 1 || val > 100)
898	LOG (llevError, "load_settings: set_friendly_fire must be between 1 an 100" ", %d is invalid\n", val);
899	#endif
900	else	284	else
901	settings.set_friendly_fire = val;	285	settings.set_friendly_fire = val;
902	}	286	}
903	else if (!strcasecmp (buf, "armor_max_enchant"))	287	else if (!strcasecmp (buf, "armor_max_enchant"))
904	{	288	{
…		…
957	{	341	{
958	LOG (llevError, "load_settings: unknown value for armor_speed_linear: %s\n", cp);	342	LOG (llevError, "load_settings: unknown value for armor_speed_linear: %s\n", cp);
959	}	343	}
960		344
961	}	345	}
962	else if (!strcasecmp (buf, "no_player_stealing"))
963	{
964	if (!strcasecmp (cp, "on") || !strcasecmp (cp, "true"))
965	{
966	settings.no_player_stealing = TRUE;
967	}
968	else if (!strcasecmp (cp, "off") || !strcasecmp (cp, "false"))
969	{
970	settings.no_player_stealing = FALSE;
971	}
972	else
973	{
974	LOG (llevError, "load_settings: unknown value for no_player_stealing: %s\n", cp);
975	}
976
977	}
978	else if (!strcasecmp (buf, "create_home_portals"))
979	{
980	if (!strcasecmp (cp, "on") || !strcasecmp (cp, "true"))
981	{
982	settings.create_home_portals = TRUE;
983	}
984	else if (!strcasecmp (cp, "off") || !strcasecmp (cp, "false"))
985	{
986	settings.create_home_portals = FALSE;
987	}
988	else
989	{
990	LOG (llevError, "load_settings: Unknown value for create_home_portals: %s\n", cp);
991	}
992
993	}
994	else	346	else
995	{
996	LOG (llevError, "Unknown value in settings file: %s\n", buf);	347	LOG (llevError, "Unknown value in settings file: %s\n", buf);
997	}
998	}	348	}
999		349
1000	close_and_delete (fp, comp);	350	close_and_delete (fp, comp);
1001	}	351	}
1002
1003		352
1004	/*	353	/*
1005	* init() is called only once, when starting the program.	354	* init() is called only once, when starting the program.
1006	*/	355	*/
1007
1008	void	356	void
1009	init (int argc, char **argv)	357	init (int argc, char **argv)
1010	{	358	{
1011	init_done = 0; /* Must be done before init_signal() */	359	init_done = 0; /* Must be done before init_signal() */
1012	logfile = stderr;
1013	parse_args (argc, argv, 1); /* First arg pass - right now it does
1014	* nothing, but in future specifying the
1015	* LibDir in this pass would be reasonable*/
1016		360
		361	init_environ ();
1017	cfperl_init ();	362	cfperl_init ();
1018	init_library (); /* Must be called early */
1019	load_settings (); /* Load the settings file */
1020	init_weather ();
1021	load_materials ();
1022	parse_args (argc, argv, 2);
1023	fprintf (logfile, "Welcome to CrossFire, v%s\n", VERSION);
1024	fprintf (logfile, "Copyright (C) 1994 Mark Wedel.\n");
1025	fprintf (logfile, "Copyright (C) 1992 Frank Tore Johansen.\n");
1026
1027	if (strcmp (settings.dm_mail, "") != 0)
1028	{
1029	fprintf (logfile, "Maintained locally by: %s\n", settings.dm_mail);
1030	fprintf (logfile, "Questions and bugs should be mailed to above address.\n");
1031	}
1032
1033	SRANDOM (time (NULL));
1034
1035	init_startup (); /* Write (C), check shutdown/forbid files */
1036	init_uuid ();
1037	init_signals (); /* Sets up signal interceptions */
1038	init_commands (); /* Sort command tables */
1039	read_map_log (); /* Load up the old temp map files */
1040	init_skills ();
1041
1042	parse_args (argc, argv, 3);
1043
1044	if (settings.daemonmode)
1045	logfile = BecomeDaemon (settings.logfilename[0] == '\0' ? "logfile" : settings.logfilename);
1046
1047	init_beforeplay ();
1048	init_ericserver ();
1049	init_done = 1;	363	init_done = 1;
1050	}	364	}
1051		365
1052	void	366	void
1053	usage (void)	367	usage ()
1054	{	368	{
1055	(void) fprintf (logfile, "Usage: crossfire [-h] [-<flags>]...\n");	369	fprintf (stderr, "Usage: deliantra-server [-h] [-<flags>]...\n");
1056	}	370	}
1057		371
1058	void	372	void
1059	help (void)	373	help ()
1060	{	374	{
1061		375
1062	/* The information in usage is redundant with what is given below, so why call it? */	376	/* The information in usage is redundant with what is given below, so why call it? */
1063		377
1064	/* usage();*/	378	/* usage();*/
…		…
1098	printf (" -m9 Dumps out more alchemy information (formula checking).\n");	412	printf (" -m9 Dumps out more alchemy information (formula checking).\n");
1099	printf (" -mt <name> Dumps out list of treasures for a monster.\n");	413	printf (" -mt <name> Dumps out list of treasures for a monster.\n");
1100	exit (0);	414	exit (0);
1101	}	415	}
1102		416
		417	/* Signal handlers: */
		418
		419	static void
		420	rec_sigabrt (int i)
		421	{
		422	signal (SIGABRT, SIG_DFL);
		423
		424	LOG (llevError, "SIGABRT received.\n");
		425	cleanup ("SIGABRT received", 1);
		426	}
		427
		428	static void
		429	rec_sigsegv (int i)
		430	{
		431	signal (SIGSEGV, SIG_DFL);
		432
		433	LOG (llevError, "SIGSEGV received.\n");
		434	cleanup ("SIGSEGV received", 1);
		435	}
		436
		437	static void
		438	rec_sigquit (int i)
		439	{
		440	signal (SIGQUIT, SIG_IGN);
		441
		442	LOG (llevInfo, "SIGQUIT received\n");
		443	cleanup ("SIGQUIT received", 1);
		444	}
		445
		446	static void
		447	rec_sigbus (int i)
		448	{
		449	signal (SIGBUS, SIG_DFL);
		450
		451	LOG (llevError, "SIGBUS received\n");
		452	cleanup ("SIGBUS received", 1);
		453	}
		454
1103	void	455	void
1104	init_beforeplay (void)	456	reset_signals ()
1105	{	457	{
1106	init_archetypes (); /* If not called before, reads all archetypes from file */	458	signal (SIGABRT, SIG_DFL);
1107	init_artifacts (); /* If not called before, reads all artifacts from file */	459	signal (SIGQUIT, SIG_DFL);
1108	init_spells (); /* If not called before, links archtypes used by spells */	460	signal (SIGSEGV, SIG_DFL);
1109	init_regions (); /* If not called before, reads all regions from file */	461	signal (SIGBUS , SIG_DFL);
1110	init_archetype_pointers (); /* Setup global pointers to archetypes */	462	signal (SIGINT , SIG_DFL);
1111	init_races (); /* overwrite race designations using entries in lib/races file */	463	signal (SIGTERM, SIG_DFL);
1112	init_gods (); /* init linked list of gods from archs */
1113	init_readable (); /* inits useful arrays for readable texts */
1114	init_formulae (); /* If not called before, reads formulae from file */
1115
1116	switch (settings.dumpvalues)
1117	{
1118	case 1:
1119	print_monsters ();
1120	exit (0);
1121	case 2:
1122	dump_abilities ();
1123	exit (0);
1124	case 3:
1125	dump_artifacts ();
1126	exit (0);
1127	case 4:
1128	dump_spells ();
1129	exit (0);
1130	case 5:
1131	exit (0);
1132	case 6:
1133	dump_races ();
1134	exit (0);
1135	case 7:
1136	dump_alchemy ();
1137	exit (0);
1138	case 9:
1139	dump_alchemy_costs ();
1140	exit (0);
1141	case 10:
1142	dump_monster_treasure (settings.dumparg);
1143	exit (0);
1144	}
1145	}	464	}
1146		465
1147	void	466	void
1148	init_startup (void)
1149	{
1150	char buf[MAX_BUF];
1151	FILE *fp;
1152	int comp;
1153
1154	#ifdef SHUTDOWN_FILE
1155	sprintf (buf, "%s/%s", settings.confdir, SHUTDOWN_FILE);
1156	if ((fp = open_and_uncompress (buf, 0, &comp)) != NULL)
1157	{
1158	while (fgets (buf, MAX_BUF - 1, fp) != NULL)
1159	printf ("%s", buf);
1160	close_and_delete (fp, comp);
1161	exit (1);
1162	}
1163	#endif
1164
1165	if (forbid_play ())
1166	{ /* Maybe showing highscore should be allowed? */
1167	LOG (llevError, "CrossFire: Playing not allowed.\n");
1168	exit (-1);
1169	}
1170	}
1171
1172	/*
1173	* compile_info(): activated with the -o flag.
1174	* It writes out information on how Imakefile and config.h was configured
1175	* at compile time.
1176	*/
1177
1178	void
1179	compile_info (void)
1180	{
1181	int i = 0;
1182
1183	printf ("Non-standard include files:\n");
1184	#if !defined (__STRICT_ANSI__) || defined (__sun__)
1185	# if !defined (Mips)
1186	printf ("<stdlib.h>\n");
1187	i = 1;
1188	# endif
1189	# if !defined (MACH) && !defined (sony)
1190	printf ("<malloc.h>\n");
1191	i = 1;
1192	# endif
1193	#endif
1194	#ifndef __STRICT_ANSI__
1195	# ifndef MACH
1196	printf ("<memory.h\n");
1197	i = 1;
1198	# endif
1199	#endif
1200	#ifndef sgi
1201	printf ("<sys/timeb.h>\n");
1202	i = 1;
1203	#endif
1204	if (!i)
1205	printf ("(none)\n");
1206	printf ("Datadir:\t\t%s\n", settings.datadir);
1207	printf ("Localdir:\t\t%s\n", settings.localdir);
1208	#ifdef PERM_FILE
1209	printf ("Perm file:\t<ETC>/%s\n", PERM_FILE);
1210	#endif
1211	#ifdef SHUTDOWN_FILE
1212	printf ("Shutdown file:\t<ETC>/%s\n", SHUTDOWN_FILE);
1213	#endif
1214	printf ("Save player:\t<true>\n");
1215	printf ("Save mode:\t%4.4o\n", SAVE_MODE);
1216	printf ("Playerdir:\t<VAR>/%s\n", settings.playerdir);
1217	printf ("Itemsdir:\t<VAR>/%s\n", settings.uniquedir);
1218	printf ("Tmpdir:\t\t%s\n", settings.tmpdir);
1219	printf ("Map max timeout:\t%d\n", MAP_MAXTIMEOUT);
1220	printf ("Max objects:\t%d\n", MAX_OBJECTS);
1221	#ifdef USE_CALLOC
1222	printf ("Use_calloc:\t<true>\n");
1223	#else
1224	printf ("Use_calloc:\t<false>\n");
1225	#endif
1226
1227	#ifdef X_EDITOR
1228	printf ("Editor:\t\t%s\n", X_EDITOR);
1229	#endif
1230
1231	printf ("Max_time:\t%d\n", MAX_TIME);
1232
1233	execl ("/bin/uname", "uname", "-a", NULL);
1234	LOG (llevError, "Oops, shouldn't have gotten here: execl(/bin/uname) failed: %s\n", strerror (errno));
1235	exit (-1);
1236	}
1237
1238	/* Signal handlers: */
1239
1240	void
1241	rec_sigsegv (int i)
1242	{
1243	LOG (llevError, "SIGSEGV received.\n");
1244	fatal_signal (1, 1);
1245	}
1246
1247	void
1248	rec_sigint (int i)
1249	{
1250	LOG (llevInfo, "SIGINT received.\n");
1251	fatal_signal (0, 1);
1252	}
1253
1254	void
1255	rec_sighup (int i)
1256	{
1257	LOG (llevInfo, "SIGHUP received\n");
1258
1259	if (init_done)
1260	cleanup ();
1261
1262	exit (0);
1263	}
1264
1265	void
1266	rec_sigquit (int i)
1267	{
1268	LOG (llevInfo, "SIGQUIT received\n");
1269	fatal_signal (1, 1);
1270	}
1271
1272	void
1273	rec_sigbus (int i)
1274	{
1275	#ifdef SIGBUS
1276	LOG (llevError, "SIGBUS received\n");
1277	fatal_signal (1, 1);
1278	#endif
1279	}
1280
1281	void
1282	rec_sigterm (int i)
1283	{
1284	LOG (llevInfo, "SIGTERM received\n");
1285	fatal_signal (0, 1);
1286	}
1287
1288	void
1289	fatal_signal (int make_core, int close_sockets)
1290	{
1291	cleanup (make_core);
1292	}
1293
1294	void
1295	init_signals (void)	467	init_signals ()
1296	{	468	{
1297	signal (SIGHUP, rec_sighup);	469	// large stack, but it's important data we want to save, and it is not usually
1298	signal (SIGINT, rec_sigint);	470	// being physically allocated anyways
1299	signal (SIGQUIT, rec_sigquit);	471	const size_t stacksize = 8 * 1024 * 1024 + SIGSTKSZ;
1300	signal (SIGSEGV, rec_sigsegv);
1301	signal (SIGPIPE, SIG_IGN);
1302	#ifdef SIGBUS
1303	signal (SIGBUS, rec_sigbus);
1304	#endif
1305	signal (SIGTERM, rec_sigterm);
1306	}
1307		472
1308	/* init_races() - reads the races file in the lib/ directory, then	473	stack_t ss;
1309	* overwrites old 'race' entries. This routine allow us to quickly	474	ss.ss_sp = malloc (stacksize);
1310	* re-configure the 'alignment' of monsters, objects. Useful for	475	ss.ss_flags = 0;
1311	* putting together lists of creatures, etc that belong to gods.	476	ss.ss_size = stacksize;
1312	*/	477	sigaltstack (&ss, 0);
1313		478
1314	void	479	struct sigaction sa;
1315	init_races (void)
1316	{
1317	FILE *file;
1318	char race[MAX_BUF], fname[MAX_BUF], buf[MAX_BUF], *cp, variable[MAX_BUF];
1319	archetype *mon = NULL;
1320	static int init_done = 0;
1321		480
1322	if (init_done)	481	sigfillset (&sa.sa_mask);
		482	sa.sa_flags = SA_RESTART;
		483
		484	sa.sa_handler = SIG_IGN; sigaction (SIGPIPE, &sa, 0);
		485	sa.sa_handler = rec_sigabrt; sigaction (SIGABRT, &sa, 0);
		486	sa.sa_handler = rec_sigquit; sigaction (SIGQUIT, &sa, 0);
		487	sa.sa_handler = rec_sigbus; sigaction (SIGBUS, &sa, 0);
		488
		489	sa.sa_flags |= SA_ONSTACK;
		490	sa.sa_handler = rec_sigsegv; sigaction (SIGSEGV, &sa, 0);
		491	}
		492
		493	static racelink *
		494	get_racelist ()
		495	{
		496	racelink *list = new racelink;
		497
		498	list->name = 0;
		499	list->nrof = 0;
		500	list->next = 0;
		501	list->member = get_objectlink ();
		502
		503	return list;
		504	}
		505
		506	racelink *
		507	find_racelink (const char *name)
		508	{
		509	if (name)
		510	for (racelink *link = first_race; link; link = link->next)
		511	if (!link->name || !strcmp (name, link->name))
		512	return link;
		513
1323	return;	514	return 0;
1324	init_done = 1;
1325	first_race = 0;
1326
1327	sprintf (fname, "%s/races", settings.datadir);
1328	LOG (llevDebug, "Reading races from %s...", fname);
1329	if (!(file = fopen (fname, "r")))
1330	{
1331	LOG (llevError, "Cannot open races file %s: %s\n", fname, strerror (errno));
1332	return;
1333	}
1334
1335	while (fgets (buf, MAX_BUF, file) != NULL)
1336	{
1337	int set_race = 1, set_list = 1;
1338
1339	if (*buf == '#')
1340	continue;
1341
1342	if ((cp = strchr (buf, '\n')) != NULL)
1343	*cp = '\0';
1344
1345	cp = buf;
1346	while (*cp == ' ' || *cp == '!' || *cp == '@')
1347	{
1348	if (*cp == '!')
1349	set_race = 0;
1350	if (*cp == '@')
1351	set_list = 0;
1352	cp++;
1353	}
1354
1355	if (sscanf (cp, "RACE %s", variable))
1356	{ /* set new race value */
1357	strcpy (race, variable);
1358	}
1359	else
1360	{
1361	char *cp1;
1362
1363	/* Take out beginning spaces */
1364	for (cp1 = cp; *cp1 == ' '; cp1++)
1365	;
1366	/* Remove newline and trailing spaces */
1367	for (cp1 = cp + strlen (cp) - 1; *cp1 == '\n' || *cp1 == ' '; cp1--)
1368	{
1369	*cp1 = '\0';
1370	if (cp == cp1)
1371	break;
1372	}
1373
1374	if (cp[strlen (cp) - 1] == '\n')
1375	cp[strlen (cp) - 1] = '\0';
1376
1377	/* set creature race to race value */
1378	if ((mon = archetype::find (cp)) == NULL)
1379	LOG (llevError, "\nCreature %s in race file lacks archetype", cp);
1380	else
1381	{
1382	if (set_race && (!mon->clone.race || strcmp (mon->clone.race, race)))
1383	{
1384	if (mon->clone.race)
1385	LOG (llevDebug, "\n Resetting race to %s from %s for archetype %s", race, &mon->clone.race, &mon->name);
1386
1387	mon->clone.race = race;
1388	}
1389
1390	/* if the arch is a monster, add it to the race list */
1391	if (set_list && QUERY_FLAG (&mon->clone, FLAG_MONSTER))
1392	add_to_racelist (race, &mon->clone);
1393	}
1394	}
1395	}
1396
1397	fclose (file);
1398	LOG (llevDebug, "done.\n");
1399	}	515	}
1400		516
1401	void	517	static void
1402	dump_races (void)
1403	{
1404	racelink *list;
1405	objectlink *tmp;
1406
1407	for (list = first_race; list; list = list->next)
1408	{
1409	fprintf (stderr, "\nRACE %s:\t", &list->name);
1410	for (tmp = list->member; tmp; tmp = tmp->next)
1411	fprintf (stderr, "%s(%d), ", &tmp->ob->arch->name, tmp->ob->level);
1412	}
1413
1414	fprintf (stderr, "\n");
1415	}
1416
1417	void
1418	add_to_racelist (const char *race_name, object *op)	518	add_to_racelist (const char *race_name, object *op)
1419	{	519	{
1420	racelink *race;	520	racelink *race;
1421		521
1422	if (!op || !race_name)	522	if (!op || !race_name)
…		…
1442		542
1443	race->nrof++;	543	race->nrof++;
1444	race->member->ob = op;	544	race->member->ob = op;
1445	}	545	}
1446		546
1447	racelink *	547	/* init_races() - reads the races file in the lib/ directory, then
1448	get_racelist ()	548	* overwrites old 'race' entries. This routine allow us to quickly
		549	* re-configure the 'alignment' of monsters, objects. Useful for
		550	* putting together lists of creatures, etc that belong to gods.
		551	*/
		552	static void
		553	init_races ()
1449	{	554	{
1450	racelink *list = new racelink;	555	FILE *file;
		556	char race[MAX_BUF], fname[MAX_BUF], buf[MAX_BUF], *cp, variable[MAX_BUF];
		557	archetype *mon = NULL;
		558	static int init_done = 0;
1451		559
1452	list->name = 0;	560	if (init_done)
1453	list->nrof = 0;
1454	list->next = 0;
1455	list->member = get_objectlink ();
1456
1457	return list;
1458	}
1459
1460	racelink *
1461	find_racelink (const char *name)
1462	{
1463	if (name)
1464	for (racelink *link = first_race; link; link = link->next)
1465	if (!link->name || !strcmp (name, link->name))
1466	return link;
1467
1468	return 0;	561	return;
		562	init_done = 1;
		563	first_race = 0;
		564
		565	sprintf (fname, "%s/races", settings.datadir);
		566	LOG (llevDebug, "Reading races from %s...\n", fname);
		567	if (!(file = fopen (fname, "r")))
		568	{
		569	LOG (llevError, "Cannot open races file %s: %s\n", fname, strerror (errno));
		570	return;
		571	}
		572
		573	while (fgets (buf, MAX_BUF, file) != NULL)
		574	{
		575	int set_race = 1, set_list = 1;
		576
		577	if (*buf == '#')
		578	continue;
		579
		580	if ((cp = strchr (buf, '\n')) != NULL)
		581	*cp = '\0';
		582
		583	cp = buf;
		584	while (*cp == ' ' || *cp == '!' || *cp == '@')
		585	{
		586	if (*cp == '!') set_race = 0;
		587	if (*cp == '@') set_list = 0;
		588
		589	cp++;
		590	}
		591
		592	if (sscanf (cp, "RACE %s", variable))
		593	/* set new race value */
		594	strcpy (race, variable);
		595	else
		596	{
		597	char *cp1;
		598
		599	/* Take out beginning spaces */
		600	for (cp1 = cp; *cp1 == ' '; cp1++)
		601	;
		602	/* Remove newline and trailing spaces */
		603	for (cp1 = cp + strlen (cp) - 1; *cp1 == '\n' || *cp1 == ' '; cp1--)
		604	{
		605	*cp1 = '\0';
		606	if (cp == cp1)
		607	break;
		608	}
		609
		610	if (cp[strlen (cp) - 1] == '\n')
		611	cp[strlen (cp) - 1] = '\0';
		612
		613	/* set creature race to race value */
		614	if ((mon = archetype::find (cp)) == NULL)
		615	LOG (llevError, "Creature %s in race file lacks archetype\n", cp);
		616	else
		617	{
		618	if (set_race && (!mon->race || strcmp (&mon->race, race)))
		619	{
		620	if (mon->race)
		621	LOG (llevDebug, "Resetting race to %s from %s for archetype %s\n", race, &mon->race, &mon->archname);
		622
		623	mon->race = race;
		624	}
		625
		626	/* if the arch is a monster, add it to the race list */
		627	if (set_list && QUERY_FLAG (mon, FLAG_MONSTER))
		628	add_to_racelist (race, mon);
		629	}
		630	}
		631	}
		632
		633	fclose (file);
		634	LOG (llevDebug, "done.\n");
1469	}	635	}
		636
		637	void
		638	init_beforeplay ()
		639	{
		640	init_artifacts (); /* If not called before, reads all artifacts from file */
		641	init_races (); /* overwrite race designations using entries in lib/races file */
		642	init_gods (); /* init linked list of gods from archs */
		643	init_readable (); /* inits useful arrays for readable texts */
		644	init_formulae (); /* If not called before, reads formulae from file */
		645	}
		646

Diff Legend

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