ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/server/init.C
(Generate patch)

Comparing deliantra/server/server/init.C (file contents):
Revision 1.3 by root, Tue Aug 29 05:03:55 2006 UTC vs.
Revision 1.73 by root, Wed Nov 4 00:08:44 2009 UTC

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

Diff Legend

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