[ViewVC] Diff of: cvs/deliantra/server/server/init.C

Comparing deliantra/server/server/init.C (file contents):
Revision 1.63 by root, Sun Apr 20 00:44:13 2008 UTC vs.
Revision 1.88 by root, Sat Nov 17 23:40:04 2018 UTC

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

Diff Legend

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

Comparing deliantra/server/server/init.C (file contents): Revision 1.63 by root, Sun Apr 20 00:44:13 2008 UTC vs. Revision 1.88 by root, Sat Nov 17 23:40:04 2018 UTC

Diff Legend

Comparing deliantra/server/server/init.C (file contents):
Revision 1.63 by root, Sun Apr 20 00:44:13 2008 UTC vs.
Revision 1.88 by root, Sat Nov 17 23:40:04 2018 UTC