server/common/init.C

/*
 * static char *rcsid_init_c =
 *   "$Id: init.C,v 1.2 2006-08-29 08:01:35 root Exp $";
 */

/*
    CrossFire, A Multiplayer game for X-windows

    Copyright (C) 2002 Mark Wedel & Crossfire Development Team
    Copyright (C) 1992 Frank Tore Johansen

    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation; either version 2 of the License, or
    (at your option) any later version.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with this program; if not, write to the Free Software
    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

    The authors can be reached via e-mail at crossfire-devel@real-time.com
*/

#define EXTERN
#define INIT_C
#include <global.h>
#include <object.h>

/* You unforunately need to looking in include/global.h to see what these
 * correspond to.
 */
struct Settings settings = {
LOGFILE,   /* Logfile */
CSPORT,                         /* Client/server port */

/* Debug level */
#ifdef DEBUG
  llevDebug,
#else
  llevInfo,
#endif

0, NULL, 0,    /* dumpvalues, dumparg, daemonmode */
0, /* argc */
NULL, /* argv */
CONFDIR,
DATADIR, 
LOCALDIR,
PLAYERDIR, MAPDIR, ARCHETYPES,REGIONS,TREASURES, 
UNIQUE_DIR, TEMPLATE_DIR,
TMPDIR,
STAT_LOSS_ON_DEATH,
PK_LUCK_PENALTY,
PERMANENT_EXPERIENCE_RATIO,
DEATH_PENALTY_RATIO,
DEATH_PENALTY_LEVEL,
BALANCED_STAT_LOSS,
NOT_PERMADETH,
SIMPLE_EXP,
RESET_LOCATION_TIME,
SET_TITLE,
RESURRECTION,
SEARCH_ITEMS,
SPELL_ENCUMBRANCE,
SPELL_FAILURE_EFFECTS,
CASTING_TIME,
REAL_WIZ,
RECYCLE_TMP_MAPS,
EXPLORE_MODE,
SPELLPOINT_LEVEL_DEPEND,
SET_FRIENDLY_FIRE,
"", /* Who format specifier */
"", /* who wiz format specifier */
MOTD,
"rules",
"news",
"",             /* DM_MAIL */
0,              /* This and the next 3 values are metaserver values */
"",
"",
0,
"",
0,0,0,0,0,0,0,0,  /* worldmap settings*/
EMERGENCY_MAPPATH, EMERGENCY_X, EMERGENCY_Y,
0,
1.0,
/* Armor enchantment stuff */
ARMOR_MAX_ENCHANT,
ARMOR_WEIGHT_REDUCTION,
ARMOR_WEIGHT_LINEAR,
ARMOR_SPEED_IMPROVEMENT,
ARMOR_SPEED_LINEAR,
1, /* no_player_stealing */
1, /* create_home_portals */
};

/* perhaps not the best place for this, but needs to be
 * in some file in the common area so that standalone
 * programs, like the random map generator, can be built.
 */
const char* const spellpathnames[NRSPELLPATHS] = {
 "Protection",
 "Fire",
 "Frost",
 "Electricity",
 "Missiles",
 "Self",
 "Summoning",
 "Abjuration",
 "Restoration",
 "Detonation",
 "Mind",
 "Creation",
 "Teleportation",
 "Information",
 "Transmutation",
 "Transferrence",
 "Turning",
 "Wounding",
 "Death",
 "Light"
};


/* This loads the emergency map information from a
 * .emergency file in the map directory.  Doing this makes
 * it easier to switch between map distributions (don't need
 * to recompile.  Note that there is no reason I see that
 * this could not be re-loaded during play, but it seems
 * like there should be little reason to do that.
 */
static void init_emergency_mappath(void)
{
    char filename[MAX_BUF], tmpbuf[MAX_BUF];
    FILE    *fp;
    int online=0;

    /* If this file doesn't exist, not a big deal */
    sprintf(filename,"%s/%s/.emergency",settings.datadir, settings.mapdir);
    if ((fp = fopen(filename, "r"))!=NULL) {
        while (fgets(tmpbuf, MAX_BUF-1, fp)) {
            if (tmpbuf[0] == '#') continue; /* ignore comments */
            
            if (online == 0) {
                tmpbuf[strlen(tmpbuf)-1] = 0;   /* kill newline */
                settings.emergency_mapname = strdup_local(tmpbuf);
            }
            else if (online == 1) {
                settings.emergency_x = atoi(tmpbuf);
            }

            else if (online == 2) {
                settings.emergency_y = atoi(tmpbuf);
            }
            online++;
            if (online>2) break;
        }
        fclose(fp);
        if (online<=2)
            LOG(llevError,"Online read partial data from %s\n", filename);
        LOG(llevDebug,"Emergency mappath reset to %s (%d, %d)\n", settings.emergency_mapname,
            settings.emergency_x, settings.emergency_y);
    }
}
    

/*
 * It is vital that init_library() is called by any functions
 * using this library.
 * If you want to lessen the size of the program using the library,
 * you can replace the call to init_library() with init_globals() and
 * init_function_pointers().  Good idea to also call init_vars and
 * init_hash_table if you are doing any object loading.
 */

void init_library(void) {
    init_environ();
    init_globals();
    init_objects();
    init_vars();
    init_block();
    ReadBmapNames ();
    ReadSmooth();
    init_anim();    /* Must be after we read in the bitmaps */
    init_archetypes();  /* Reads all archetypes from file */
    init_dynamic ();
    init_attackmess();
    init_clocks();
    init_emergency_mappath();
    init_experience();
}


/* init_environ initializes values from the environmental variables.
 * it needs to be called very early, since command line options should
 * overwrite these if specified.
 */
void init_environ(void) {
    char *cp;

    cp=getenv("CROSSFIRE_LIBDIR");
    if (cp) settings.datadir=cp;
    cp=getenv("CROSSFIRE_LOCALDIR");
    if (cp) settings.localdir=cp;
    cp=getenv("CROSSFIRE_PLAYERDIR");
    if (cp) settings.playerdir=cp;
    cp=getenv("CROSSFIRE_MAPDIR");
    if (cp) settings.mapdir=cp;
    cp=getenv("CROSSFIRE_ARCHETYPES");
    if (cp) settings.archetypes=cp;
    cp=getenv("CROSSFIRE_TREASURES");
    if (cp) settings.treasures=cp;
    cp=getenv("CROSSFIRE_UNIQUEDIR");
    if (cp) settings.uniquedir=cp;
    cp=getenv("CROSSFIRE_TEMPLATEDIR");
    if (cp) settings.templatedir=cp;
    cp=getenv("CROSSFIRE_TMPDIR");
    if (cp) settings.tmpdir=cp;
}
    

/*
 * Initialises all global variables.
 * Might use environment-variables as default for some of them.
 */

void init_globals(void) {
    if (settings.logfilename[0] == 0) {
        logfile = stderr;
    }
    else if ((logfile=fopen(settings.logfilename, "a"))==NULL) {
        fprintf(stderr,"Unable to open %s as the logfile - will use stderr instead\n",
                settings.logfilename);
        logfile = stderr;
    }
    else {
        setvbuf(logfile, NULL, _IOLBF, 0);
    }
    exiting = 0;
    first_player=NULL;
    first_friendly_object=NULL;
    first_map=NULL;
    first_treasurelist=NULL;
    first_artifactlist=NULL;
    first_archetype=NULL;
    *first_map_ext_path=0;
    warn_archetypes=0;
    nroftreasures = 0;
    nrofartifacts = 0;
    nrofallowedstr=0;
    ring_arch = NULL;
    amulet_arch = NULL;
    staff_arch = NULL;
    trying_emergency_save = 0;
    num_animations=0;
    animations=NULL;
    animations_allocated=0;
    init_defaults();
}

/*
 * Sets up and initialises the linked list of free and used objects.
 * Allocates a certain chunk of objects and puts them on the free list.
 * Called by init_library();
 */

void init_objects(void) {
  int i;
/* Initialize all objects: */
  objects=NULL;
  active_objects = NULL;

#ifdef MEMORY_DEBUG
  free_objects=NULL;
#else
  free_objects=objarray;
  objarray[0].prev=NULL,
  objarray[0].next= &objarray[1],
  SET_FLAG(&objarray[0], FLAG_REMOVED);
  SET_FLAG(&objarray[0], FLAG_FREED);
  for(i=1;i<STARTMAX-1;i++) {
    objarray[i].next= &objarray[i+1];
    objarray[i].prev= &objarray[i-1];
    SET_FLAG(&objarray[i], FLAG_REMOVED);
    SET_FLAG(&objarray[i], FLAG_FREED);
  }
  objarray[STARTMAX-1].next=NULL;
  objarray[STARTMAX-1].prev= &objarray[STARTMAX-2];
  SET_FLAG(&objarray[STARTMAX-1], FLAG_REMOVED);
  SET_FLAG(&objarray[STARTMAX-1], FLAG_FREED);
#endif
}

/*
 * Initialises global variables which can be changed by options.
 * Called by init_library().
 */

void init_defaults(void) {
  editor=0;
  nroferrors=0;
}


void init_dynamic (void) {
    archetype *at = first_archetype;
    while (at) {
        if (at->clone.type == MAP) {
            if (at->clone.race) {
                strcpy (first_map_ext_path, at->clone.race);
            }
            if (EXIT_PATH (&at->clone)) {
                strcpy (first_map_path, EXIT_PATH (&at->clone));
                return;
            }
        }
        at = at->next;
    }
    LOG(llevDebug,"You Need a archetype called 'map' and it have to contain start map\n");
    exit (-1);
}

unsigned long todtick;

/*
 * Write out the current time to the file so time does not
 * reset every time the server reboots.
 */

void write_todclock(void)
{
    char filename[MAX_BUF];
    FILE *fp;

    sprintf(filename, "%s/clockdata", settings.localdir);
    if ((fp = fopen(filename, "w")) == NULL) {
        LOG(llevError, "Cannot open %s for writing\n", filename);
        return;
    }
    fprintf(fp, "%lu", todtick);
    fclose(fp);
}

/*
 * Initializes the gametime and TOD counters
 * Called by init_library().
 */

void init_clocks(void)
{
    char filename[MAX_BUF];
    FILE *fp;
    static int has_been_done=0;

    if (has_been_done)
        return;
    else
        has_been_done = 1;

    sprintf(filename, "%s/clockdata", settings.localdir);
    LOG(llevDebug, "Reading clockdata from %s...", filename);
    if ((fp = fopen(filename, "r")) == NULL) {
        LOG(llevError, "Can't open %s.\n", filename);
        todtick = 0;
        write_todclock();
        return;
    }
    fscanf(fp, "%lu", &todtick);
    LOG(llevDebug, "todtick=%lu\n", todtick);
    fclose(fp);
}

/*
 * Initializes the attack messages.
 * Called by init_library().
 */

//attackmess_t attack_mess[NROFATTACKMESS][MAXATTACKMESS];

void init_attackmess(void){
    char buf[MAX_BUF];
    char filename[MAX_BUF];
    char *cp, *p;
    FILE *fp;
    static int has_been_done=0;
    int mess, level, comp;
    int mode=0, total=0;

    if (has_been_done)
        return;
    else
        has_been_done = 1;

    sprintf(filename, "%s/attackmess", settings.datadir);
    LOG(llevDebug, "Reading attack messages from %s...", filename);
    if ((fp = open_and_uncompress(filename, 0, &comp)) == NULL) {
        LOG(llevError, "Can't open %s.\n", filename);
        return;
    }

    level = 0;
    while (fgets(buf, MAX_BUF, fp)!=NULL) {
        if (*buf=='#') continue;
        if((cp=strchr(buf,'\n'))!=NULL)
            *cp='\0';
        cp=buf;
        while(*cp==' ') /* Skip blanks */
            cp++;

        if (strncmp(cp, "TYPE:", 5)==0) {
            p = strtok(buf, ":");
            p = strtok(NULL, ":");
            if (mode == 1) {
                attack_mess[mess][level].level = -1;
                attack_mess[mess][level].buf1 = NULL;
                attack_mess[mess][level].buf2 = NULL;
                attack_mess[mess][level].buf3 = NULL;
            }
            level = 0;
            mess = atoi(p);
            mode = 1;
            continue;
        }
        if (mode==1) {
            p = strtok(buf, "=");
            attack_mess[mess][level].level = atoi(buf);
            p = strtok(NULL, "=");
            if (p != NULL)
                attack_mess[mess][level].buf1 = strdup_local(p);
            else
              attack_mess[mess][level].buf1 = strdup_local("");
            mode = 2;
            continue;
        } else if (mode==2) {
            p = strtok(buf, "=");
            attack_mess[mess][level].level = atoi(buf);
            p = strtok(NULL, "=");
            if (p != NULL)
                attack_mess[mess][level].buf2 = strdup_local(p);
            else
                attack_mess[mess][level].buf2 = strdup_local("");
            mode = 3;
            continue;
        } else if (mode==3) {
            p = strtok(buf, "=");
            attack_mess[mess][level].level = atoi(buf);
            p = strtok(NULL, "=");
            if (p != NULL)
                attack_mess[mess][level].buf3 = strdup_local(p);
            else
                attack_mess[mess][level].buf3 = strdup_local("");
            mode = 1;
            level++;
            total++;
            continue;
        }
    }
    LOG(llevDebug, "got %d messages in %d categories.\n", total, mess+1);
    close_and_delete(fp, comp);
}
Revision:	1.3
Committed:	Sun Sep 3 00:18:39 2006 UTC (17 years, 8 months ago) by root
Content type:	text/plain
Branch:	MAIN
Changes since 1.2:	+1 -3 lines
Log Message:	THIS CODE WILL NOT COMPILE use the STABLE tag instead. - major changes in object lifetime and memory management - replaced manual refcounting by shstr class - removed quest system - many optimisations - major changes
#	Content
1	/*
2	* static char *rcsid_init_c =
3	* "$Id: init.C,v 1.2 2006-08-29 08:01:35 root Exp $";
4	*/
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
29	#define EXTERN
30	#define INIT_C
31	#include <global.h>
32	#include <object.h>
33
34	/* You unforunately need to looking in include/global.h to see what these
35	* correspond to.
36	*/
37	struct Settings settings = {
38	LOGFILE, /* Logfile */
39	CSPORT, /* Client/server port */
40
41	/* Debug level */
42	#ifdef DEBUG
43	llevDebug,
44	#else
45	llevInfo,
46	#endif
47
48	0, NULL, 0, /* dumpvalues, dumparg, daemonmode */
49	0, /* argc */
50	NULL, /* argv */
51	CONFDIR,
52	DATADIR,
53	LOCALDIR,
54	PLAYERDIR, MAPDIR, ARCHETYPES,REGIONS,TREASURES,
55	UNIQUE_DIR, TEMPLATE_DIR,
56	TMPDIR,
57	STAT_LOSS_ON_DEATH,
58	PK_LUCK_PENALTY,
59	PERMANENT_EXPERIENCE_RATIO,
60	DEATH_PENALTY_RATIO,
61	DEATH_PENALTY_LEVEL,
62	BALANCED_STAT_LOSS,
63	NOT_PERMADETH,
64	SIMPLE_EXP,
65	RESET_LOCATION_TIME,
66	SET_TITLE,
67	RESURRECTION,
68	SEARCH_ITEMS,
69	SPELL_ENCUMBRANCE,
70	SPELL_FAILURE_EFFECTS,
71	CASTING_TIME,
72	REAL_WIZ,
73	RECYCLE_TMP_MAPS,
74	EXPLORE_MODE,
75	SPELLPOINT_LEVEL_DEPEND,
76	SET_FRIENDLY_FIRE,
77	"", /* Who format specifier */
78	"", /* who wiz format specifier */
79	MOTD,
80	"rules",
81	"news",
82	"", /* DM_MAIL */
83	0, /* This and the next 3 values are metaserver values */
84	"",
85	"",
86	0,
87	"",
88	0,0,0,0,0,0,0,0, /* worldmap settings*/
89	EMERGENCY_MAPPATH, EMERGENCY_X, EMERGENCY_Y,
90	0,
91	1.0,
92	/* Armor enchantment stuff */
93	ARMOR_MAX_ENCHANT,
94	ARMOR_WEIGHT_REDUCTION,
95	ARMOR_WEIGHT_LINEAR,
96	ARMOR_SPEED_IMPROVEMENT,
97	ARMOR_SPEED_LINEAR,
98	1, /* no_player_stealing */
99	1, /* create_home_portals */
100	};
101
102	/* perhaps not the best place for this, but needs to be
103	* in some file in the common area so that standalone
104	* programs, like the random map generator, can be built.
105	*/
106	const char* const spellpathnames[NRSPELLPATHS] = {
107	"Protection",
108	"Fire",
109	"Frost",
110	"Electricity",
111	"Missiles",
112	"Self",
113	"Summoning",
114	"Abjuration",
115	"Restoration",
116	"Detonation",
117	"Mind",
118	"Creation",
119	"Teleportation",
120	"Information",
121	"Transmutation",
122	"Transferrence",
123	"Turning",
124	"Wounding",
125	"Death",
126	"Light"
127	};
128
129
130	/* This loads the emergency map information from a
131	* .emergency file in the map directory. Doing this makes
132	* it easier to switch between map distributions (don't need
133	* to recompile. Note that there is no reason I see that
134	* this could not be re-loaded during play, but it seems
135	* like there should be little reason to do that.
136	*/
137	static void init_emergency_mappath(void)
138	{
139	char filename[MAX_BUF], tmpbuf[MAX_BUF];
140	FILE *fp;
141	int online=0;
142
143	/* If this file doesn't exist, not a big deal */
144	sprintf(filename,"%s/%s/.emergency",settings.datadir, settings.mapdir);
145	if ((fp = fopen(filename, "r"))!=NULL) {
146	while (fgets(tmpbuf, MAX_BUF-1, fp)) {
147	if (tmpbuf[0] == '#') continue; /* ignore comments */
148
149	if (online == 0) {
150	tmpbuf[strlen(tmpbuf)-1] = 0; /* kill newline */
151	settings.emergency_mapname = strdup_local(tmpbuf);
152	}
153	else if (online == 1) {
154	settings.emergency_x = atoi(tmpbuf);
155	}
156
157	else if (online == 2) {
158	settings.emergency_y = atoi(tmpbuf);
159	}
160	online++;
161	if (online>2) break;
162	}
163	fclose(fp);
164	if (online<=2)
165	LOG(llevError,"Online read partial data from %s\n", filename);
166	LOG(llevDebug,"Emergency mappath reset to %s (%d, %d)\n", settings.emergency_mapname,
167	settings.emergency_x, settings.emergency_y);
168	}
169	}
170
171
172	/*
173	* It is vital that init_library() is called by any functions
174	* using this library.
175	* If you want to lessen the size of the program using the library,
176	* you can replace the call to init_library() with init_globals() and
177	* init_function_pointers(). Good idea to also call init_vars and
178	* init_hash_table if you are doing any object loading.
179	*/
180
181	void init_library(void) {
182	init_environ();
183	init_globals();
184	init_objects();
185	init_vars();
186	init_block();
187	ReadBmapNames ();
188	ReadSmooth();
189	init_anim(); /* Must be after we read in the bitmaps */
190	init_archetypes(); /* Reads all archetypes from file */
191	init_dynamic ();
192	init_attackmess();
193	init_clocks();
194	init_emergency_mappath();
195	init_experience();
196	}
197
198
199	/* init_environ initializes values from the environmental variables.
200	* it needs to be called very early, since command line options should
201	* overwrite these if specified.
202	*/
203	void init_environ(void) {
204	char *cp;
205
206	cp=getenv("CROSSFIRE_LIBDIR");
207	if (cp) settings.datadir=cp;
208	cp=getenv("CROSSFIRE_LOCALDIR");
209	if (cp) settings.localdir=cp;
210	cp=getenv("CROSSFIRE_PLAYERDIR");
211	if (cp) settings.playerdir=cp;
212	cp=getenv("CROSSFIRE_MAPDIR");
213	if (cp) settings.mapdir=cp;
214	cp=getenv("CROSSFIRE_ARCHETYPES");
215	if (cp) settings.archetypes=cp;
216	cp=getenv("CROSSFIRE_TREASURES");
217	if (cp) settings.treasures=cp;
218	cp=getenv("CROSSFIRE_UNIQUEDIR");
219	if (cp) settings.uniquedir=cp;
220	cp=getenv("CROSSFIRE_TEMPLATEDIR");
221	if (cp) settings.templatedir=cp;
222	cp=getenv("CROSSFIRE_TMPDIR");
223	if (cp) settings.tmpdir=cp;
224	}
225
226
227	/*
228	* Initialises all global variables.
229	* Might use environment-variables as default for some of them.
230	*/
231
232	void init_globals(void) {
233	if (settings.logfilename[0] == 0) {
234	logfile = stderr;
235	}
236	else if ((logfile=fopen(settings.logfilename, "a"))==NULL) {
237	fprintf(stderr,"Unable to open %s as the logfile - will use stderr instead\n",
238	settings.logfilename);
239	logfile = stderr;
240	}
241	else {
242	setvbuf(logfile, NULL, _IOLBF, 0);
243	}
244	exiting = 0;
245	first_player=NULL;
246	first_friendly_object=NULL;
247	first_map=NULL;
248	first_treasurelist=NULL;
249	first_artifactlist=NULL;
250	first_archetype=NULL;
251	*first_map_ext_path=0;
252	warn_archetypes=0;
253	nroftreasures = 0;
254	nrofartifacts = 0;
255	nrofallowedstr=0;
256	ring_arch = NULL;
257	amulet_arch = NULL;
258	staff_arch = NULL;
259	trying_emergency_save = 0;
260	num_animations=0;
261	animations=NULL;
262	animations_allocated=0;
263	init_defaults();
264	}
265
266	/*
267	* Sets up and initialises the linked list of free and used objects.
268	* Allocates a certain chunk of objects and puts them on the free list.
269	* Called by init_library();
270	*/
271
272	void init_objects(void) {
273	int i;
274	/* Initialize all objects: */
275	objects=NULL;
276	active_objects = NULL;
277
278	#ifdef MEMORY_DEBUG
279	free_objects=NULL;
280	#else
281	free_objects=objarray;
282	objarray[0].prev=NULL,
283	objarray[0].next= &objarray[1],
284	SET_FLAG(&objarray[0], FLAG_REMOVED);
285	SET_FLAG(&objarray[0], FLAG_FREED);
286	for(i=1;i<STARTMAX-1;i++) {
287	objarray[i].next= &objarray[i+1];
288	objarray[i].prev= &objarray[i-1];
289	SET_FLAG(&objarray[i], FLAG_REMOVED);
290	SET_FLAG(&objarray[i], FLAG_FREED);
291	}
292	objarray[STARTMAX-1].next=NULL;
293	objarray[STARTMAX-1].prev= &objarray[STARTMAX-2];
294	SET_FLAG(&objarray[STARTMAX-1], FLAG_REMOVED);
295	SET_FLAG(&objarray[STARTMAX-1], FLAG_FREED);
296	#endif
297	}
298
299	/*
300	* Initialises global variables which can be changed by options.
301	* Called by init_library().
302	*/
303
304	void init_defaults(void) {
305	editor=0;
306	nroferrors=0;
307	}
308
309
310	void init_dynamic (void) {
311	archetype *at = first_archetype;
312	while (at) {
313	if (at->clone.type == MAP) {
314	if (at->clone.race) {
315	strcpy (first_map_ext_path, at->clone.race);
316	}
317	if (EXIT_PATH (&at->clone)) {
318	strcpy (first_map_path, EXIT_PATH (&at->clone));
319	return;
320	}
321	}
322	at = at->next;
323	}
324	LOG(llevDebug,"You Need a archetype called 'map' and it have to contain start map\n");
325	exit (-1);
326	}
327
328	unsigned long todtick;
329
330	/*
331	* Write out the current time to the file so time does not
332	* reset every time the server reboots.
333	*/
334
335	void write_todclock(void)
336	{
337	char filename[MAX_BUF];
338	FILE *fp;
339
340	sprintf(filename, "%s/clockdata", settings.localdir);
341	if ((fp = fopen(filename, "w")) == NULL) {
342	LOG(llevError, "Cannot open %s for writing\n", filename);
343	return;
344	}
345	fprintf(fp, "%lu", todtick);
346	fclose(fp);
347	}
348
349	/*
350	* Initializes the gametime and TOD counters
351	* Called by init_library().
352	*/
353
354	void init_clocks(void)
355	{
356	char filename[MAX_BUF];
357	FILE *fp;
358	static int has_been_done=0;
359
360	if (has_been_done)
361	return;
362	else
363	has_been_done = 1;
364
365	sprintf(filename, "%s/clockdata", settings.localdir);
366	LOG(llevDebug, "Reading clockdata from %s...", filename);
367	if ((fp = fopen(filename, "r")) == NULL) {
368	LOG(llevError, "Can't open %s.\n", filename);
369	todtick = 0;
370	write_todclock();
371	return;
372	}
373	fscanf(fp, "%lu", &todtick);
374	LOG(llevDebug, "todtick=%lu\n", todtick);
375	fclose(fp);
376	}
377
378	/*
379	* Initializes the attack messages.
380	* Called by init_library().
381	*/
382
383	//attackmess_t attack_mess[NROFATTACKMESS][MAXATTACKMESS];
384
385	void init_attackmess(void){
386	char buf[MAX_BUF];
387	char filename[MAX_BUF];
388	char cp, p;
389	FILE *fp;
390	static int has_been_done=0;
391	int mess, level, comp;
392	int mode=0, total=0;
393
394	if (has_been_done)
395	return;
396	else
397	has_been_done = 1;
398
399	sprintf(filename, "%s/attackmess", settings.datadir);
400	LOG(llevDebug, "Reading attack messages from %s...", filename);
401	if ((fp = open_and_uncompress(filename, 0, &comp)) == NULL) {
402	LOG(llevError, "Can't open %s.\n", filename);
403	return;
404	}
405
406	level = 0;
407	while (fgets(buf, MAX_BUF, fp)!=NULL) {
408	if (*buf=='#') continue;
409	if((cp=strchr(buf,'\n'))!=NULL)
410	*cp='\0';
411	cp=buf;
412	while(cp==' ') / Skip blanks */
413	cp++;
414
415	if (strncmp(cp, "TYPE:", 5)==0) {
416	p = strtok(buf, ":");
417	p = strtok(NULL, ":");
418	if (mode == 1) {
419	attack_mess[mess][level].level = -1;
420	attack_mess[mess][level].buf1 = NULL;
421	attack_mess[mess][level].buf2 = NULL;
422	attack_mess[mess][level].buf3 = NULL;
423	}
424	level = 0;
425	mess = atoi(p);
426	mode = 1;
427	continue;
428	}
429	if (mode==1) {
430	p = strtok(buf, "=");
431	attack_mess[mess][level].level = atoi(buf);
432	p = strtok(NULL, "=");
433	if (p != NULL)
434	attack_mess[mess][level].buf1 = strdup_local(p);
435	else
436	attack_mess[mess][level].buf1 = strdup_local("");
437	mode = 2;
438	continue;
439	} else if (mode==2) {
440	p = strtok(buf, "=");
441	attack_mess[mess][level].level = atoi(buf);
442	p = strtok(NULL, "=");
443	if (p != NULL)
444	attack_mess[mess][level].buf2 = strdup_local(p);
445	else
446	attack_mess[mess][level].buf2 = strdup_local("");
447	mode = 3;
448	continue;
449	} else if (mode==3) {
450	p = strtok(buf, "=");
451	attack_mess[mess][level].level = atoi(buf);
452	p = strtok(NULL, "=");
453	if (p != NULL)
454	attack_mess[mess][level].buf3 = strdup_local(p);
455	else
456	attack_mess[mess][level].buf3 = strdup_local("");
457	mode = 1;
458	level++;
459	total++;
460	continue;
461	}
462	}
463	LOG(llevDebug, "got %d messages in %d categories.\n", total, mess+1);
464	close_and_delete(fp, comp);
465	}