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

Comparing deliantra/server/server/main.C (file contents):
Revision 1.54 by root, Sat Dec 23 06:21:02 2006 UTC vs.
Revision 1.92 by root, Tue Mar 6 03:06:00 2007 UTC

…		…
1	/*	1	/*
2	CrossFire, A Multiplayer game for X-windows	2	* CrossFire, A Multiplayer game
3		3	*
		4	* Copyright (C) 2005, 2006, 2007 Marc Lehmann & Crossfire+ Development Team
4	Copyright (C) 2001-2003 Mark Wedel & Crossfire Development Team	5	* Copyright (C) 2001-2003 Mark Wedel & Crossfire Development Team
5	Copyright (C) 1992 Frank Tore Johansen	6	* Copyright (C) 1992 Frank Tore Johansen
6		7	*
7	This program is free software; you can redistribute it and/or modify	8	* This program is free software; you can redistribute it and/or modify
8	it under the terms of the GNU General Public License as published by	9	* it under the terms of the GNU General Public License as published by
9	the Free Software Foundation; either version 2 of the License, or	10	* the Free Software Foundation; either version 2 of the License, or
10	(at your option) any later version.	11	* (at your option) any later version.
11		12	*
12	This program is distributed in the hope that it will be useful,	13	* This program is distributed in the hope that it will be useful,
13	but WITHOUT ANY WARRANTY; without even the implied warranty of	14	* but WITHOUT ANY WARRANTY; without even the implied warranty of
14	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the	15	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15	GNU General Public License for more details.	16	* GNU General Public License for more details.
16		17	*
17	You should have received a copy of the GNU General Public License	18	* You should have received a copy of the GNU General Public License
18	along with this program; if not, write to the Free Software	19	* along with this program; if not, write to the Free Software
19	Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.	20	* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
20		21	*
21	The authors can be reached via e-mail at <crossfire@schmorp.de>	22	* The authors can be reached via e-mail at <crossfire@schmorp.de>
22	*/	23	*/
23		24
24	#include <global.h>	25	#include <global.h>
25	#include <object.h>	26	#include <object.h>
26	#include <tod.h>	27	#include <tod.h>
27		28
28	#ifdef HAVE_DES_H
29	# include <des.h>
30	#else
31	# ifdef HAVE_CRYPT_H
32	# include <crypt.h>
33	# endif
34	#endif
35
36	#include <sproto.h>	29	#include <sproto.h>
37	#include <time.h>	30	#include <time.h>
38		31
39	#include <../random_maps/random_map.h>	32	#include <../random_maps/random_map.h>
40	#include <../random_maps/rproto.h>	33	#include <../random_maps/rproto.h>
45	};	38	};
46		39
47	void	40	void
48	version (object *op)	41	version (object *op)
49	{	42	{
50	if (op != NULL)	43	if (op)
51	clear_win_info (op);	44	clear_win_info (op);
52		45
53	new_draw_info_format (NDI_UNIQUE, 0, op, "This is Crossfire v%s", VERSION);	46	new_draw_info_format (NDI_UNIQUE, 0, op, "This is Crossfire+ v%s", VERSION);
54		47
55	/* If in a socket, don't print out the list of authors. It confuses the
56	* crossclient program.
57	*/
58	if (op == NULL)
59	return;
60	new_draw_info (NDI_UNIQUE, 0, op, "Authors and contributors to this program:");	48	new_draw_info (NDI_UNIQUE, 0, op, "Authors and contributors to this program:");
		49	new_draw_info (NDI_UNIQUE, 0, op, "Marc A. Lehmann <pcg@goof.com>");
		50	new_draw_info (NDI_UNIQUE, 0, op, "Robin Redeker <elmex@x-paste.de>");
		51	new_draw_info (NDI_UNIQUE, 0, op, "Pippijn van Steenhoven <pip88nl@gmail.com>");
		52	new_draw_info (NDI_UNIQUE, 0, op, "");
		53	new_draw_info (NDI_UNIQUE, 0, op, "Authors and contributors to the original Crossfire:");
61	new_draw_info (NDI_UNIQUE, 0, op, "mwedel@sonic.net (Mark Wedel)");	54	new_draw_info (NDI_UNIQUE, 0, op, "Mark Wedel <mwedel@sonic.net>");
62	new_draw_info (NDI_UNIQUE, 0, op, "frankj@ifi.uio.no (Frank Tore Johansen)");	55	new_draw_info (NDI_UNIQUE, 0, op, "Frank Tore Johansen <frankj@ifi.uio.no>");
63	new_draw_info (NDI_UNIQUE, 0, op, "kjetilho@ifi.uio.no (Kjetil Torgrim Homme)");	56	new_draw_info (NDI_UNIQUE, 0, op, "Kjetil Torgrim Homme <kjetilho@ifi.uio.no>");
64	new_draw_info (NDI_UNIQUE, 0, op, "tvangod@ecst.csuchico.edu (Tyler Van Gorder)");	57	new_draw_info (NDI_UNIQUE, 0, op, "Tyler Van Gorder <tvangod@ecst.csuchico.edu>");
65	new_draw_info (NDI_UNIQUE, 0, op, "elmroth@cd.chalmers.se (Tony Elmroth)");	58	new_draw_info (NDI_UNIQUE, 0, op, "Tony Elmroth <elmroth@cd.chalmers.se>");
66	new_draw_info (NDI_UNIQUE, 0, op, "dougal.scott@fcit.monasu.edu.au (Dougal Scott)");	59	new_draw_info (NDI_UNIQUE, 0, op, "Dougal Scott <dougal.scott@fcit.monasu.edu.au>");
67	new_draw_info (NDI_UNIQUE, 0, op, "wchuang@athena.mit.edu (William)");	60	new_draw_info (NDI_UNIQUE, 0, op, "William <wchuang@athena.mit.edu>");
68	new_draw_info (NDI_UNIQUE, 0, op, "ftww@cs.su.oz.au (Geoff Bailey)");	61	new_draw_info (NDI_UNIQUE, 0, op, "Geoff Bailey <ftww@cs.su.oz.au>");
69	new_draw_info (NDI_UNIQUE, 0, op, "jorgens@flipper.pvv.unit.no (Kjetil Wiekhorst Jxrgensen)");	62	new_draw_info (NDI_UNIQUE, 0, op, "Kjetil Wiekhorst Jørgensen <jorgens@flipper.pvv.unit.no>");
70	new_draw_info (NDI_UNIQUE, 0, op, "c.blackwood@rdt.monash.edu.au (Cameron Blackwood)");	63	new_draw_info (NDI_UNIQUE, 0, op, "Cameron Blackwood <c.blackwood@rdt.monash.edu.au>");
71	new_draw_info (NDI_UNIQUE, 0, op, "jtraub+@cmu.edu (Joseph L. Traub)");	64	new_draw_info (NDI_UNIQUE, 0, op, "Joseph L. Traub <jtraub+@cmu.edu>");
72	new_draw_info (NDI_UNIQUE, 0, op, "rgg@aaii.oz.au (Rupert G. Goldie)");	65	new_draw_info (NDI_UNIQUE, 0, op, "Rupert G. Goldie <rgg@aaii.oz.au>");
73	new_draw_info (NDI_UNIQUE, 0, op, "eanders+@cmu.edu (Eric A. Anderson)");	66	new_draw_info (NDI_UNIQUE, 0, op, "Eric A. Anderson <eanders+@cmu.edu>");
74	new_draw_info (NDI_UNIQUE, 0, op, "eneq@Prag.DoCS.UU.SE (Rickard Eneqvist)");	67	new_draw_info (NDI_UNIQUE, 0, op, "Rickard Eneqvist <eneq@Prag.DoCS.UU.SE>");
75	new_draw_info (NDI_UNIQUE, 0, op, "Jarkko.Sonninen@lut.fi (Jarkko Sonninen)");	68	new_draw_info (NDI_UNIQUE, 0, op, "Jarkko Sonninen <Jarkko.Sonninen@lut.fi>");
76	new_draw_info (NDI_UNIQUE, 0, op, "kholland@sunlab.cit.cornell.du (Karl Holland)");	69	new_draw_info (NDI_UNIQUE, 0, op, "Karl Holland <kholland@sunlab.cit.cornell.du>");
77	new_draw_info (NDI_UNIQUE, 0, op, "vick@bern.docs.uu.se (Mikael Lundgren)");	70	new_draw_info (NDI_UNIQUE, 0, op, "Mikael Lundgren <vick@bern.docs.uu.se>");
78	new_draw_info (NDI_UNIQUE, 0, op, "mol@meryl.csd.uu.se (Mikael Olsson)");	71	new_draw_info (NDI_UNIQUE, 0, op, "Mikael Olsson <mol@meryl.csd.uu.se>");
79	new_draw_info (NDI_UNIQUE, 0, op, "Tero.Haatanen@lut.fi (Tero Haatanen)");	72	new_draw_info (NDI_UNIQUE, 0, op, "Tero Haatanen <Tero.Haatanen@lut.fi>");
80	new_draw_info (NDI_UNIQUE, 0, op, "ylitalo@student.docs.uu.se (Lasse Ylitalo)");	73	new_draw_info (NDI_UNIQUE, 0, op, "Lasse Ylitalo <ylitalo@student.docs.uu.se>");
81	new_draw_info (NDI_UNIQUE, 0, op, "anipa@guru.magic.fi (Niilo Neuvo)");	74	new_draw_info (NDI_UNIQUE, 0, op, "Niilo Neuvo <anipa@guru.magic.fi>");
82	new_draw_info (NDI_UNIQUE, 0, op, "mta@modeemi.cs.tut.fi (Markku J{rvinen)");	75	new_draw_info (NDI_UNIQUE, 0, op, "Markku J{rvinen <mta@modeemi.cs.tut.fi>");
83	new_draw_info (NDI_UNIQUE, 0, op, "meunier@inf.enst.fr (Sylvain Meunier)");	76	new_draw_info (NDI_UNIQUE, 0, op, "Sylvain Meunier <meunier@inf.enst.fr>");
84	new_draw_info (NDI_UNIQUE, 0, op, "jfosback@darmok.uoregon.edu (Jason Fosback)");	77	new_draw_info (NDI_UNIQUE, 0, op, "Jason Fosback <jfosback@darmok.uoregon.edu>");
85	new_draw_info (NDI_UNIQUE, 0, op, "cedman@capitalist.princeton.edu (Carl Edman)");	78	new_draw_info (NDI_UNIQUE, 0, op, "Carl Edman <cedman@capitalist.princeton.edu>");
86	new_draw_info (NDI_UNIQUE, 0, op, "henrich@crh.cl.msu.edu (Charles Henrich)");	79	new_draw_info (NDI_UNIQUE, 0, op, "Charles Henrich <henrich@crh.cl.msu.edu>");
87	new_draw_info (NDI_UNIQUE, 0, op, "schmid@fb3-s7.math.tu-berlin.de (Gregor Schmid)");	80	new_draw_info (NDI_UNIQUE, 0, op, "Gregor Schmid <schmid@fb3-s7.math.tu-berlin.de>");
88	new_draw_info (NDI_UNIQUE, 0, op, "quinet@montefiore.ulg.ac.be (Raphael Quinet)");	81	new_draw_info (NDI_UNIQUE, 0, op, "Raphael Quinet <quinet@montefiore.ulg.ac.be>");
89	new_draw_info (NDI_UNIQUE, 0, op, "jam@modeemi.cs.tut.fi (Jari Vanhala)");	82	new_draw_info (NDI_UNIQUE, 0, op, "Jari Vanhala <jam@modeemi.cs.tut.fi>");
90	new_draw_info (NDI_UNIQUE, 0, op, "kivinen@joker.cs.hut.fi (Tero Kivinen)");	83	new_draw_info (NDI_UNIQUE, 0, op, "Tero Kivinen <kivinen@joker.cs.hut.fi>");
91	new_draw_info (NDI_UNIQUE, 0, op, "peterm@soda.berkeley.edu (Peter Mardahl)");	84	new_draw_info (NDI_UNIQUE, 0, op, "Peter Mardahl <peterm@soda.berkeley.edu>");
92	new_draw_info (NDI_UNIQUE, 0, op, "matt@cs.odu.edu (Matthew Zeher)");	85	new_draw_info (NDI_UNIQUE, 0, op, "Matthew Zeher <matt@cs.odu.edu>");
93	new_draw_info (NDI_UNIQUE, 0, op, "srt@sun-dimas.aero.org (Scott R. Turner)");	86	new_draw_info (NDI_UNIQUE, 0, op, "Scott R. Turner <srt@sun-dimas.aero.org>");
94	new_draw_info (NDI_UNIQUE, 0, op, "huma@netcom.com (Ben Fennema)");	87	new_draw_info (NDI_UNIQUE, 0, op, "Ben Fennema <huma@netcom.com>");
95	new_draw_info (NDI_UNIQUE, 0, op, "njw@cs.city.ac.uk (Nick Williams)");	88	new_draw_info (NDI_UNIQUE, 0, op, "Nick Williams <njw@cs.city.ac.uk>");
96	new_draw_info (NDI_UNIQUE, 0, op, "Wacren@Gin.ObsPM.Fr (Laurent Wacrenier)");	89	new_draw_info (NDI_UNIQUE, 0, op, "Laurent Wacrenier <Wacren@Gin.ObsPM.Fr>");
97	new_draw_info (NDI_UNIQUE, 0, op, "thomas@astro.psu.edu (Brian Thomas)");	90	new_draw_info (NDI_UNIQUE, 0, op, "Brian Thomas <thomas@astro.psu.edu>");
98	new_draw_info (NDI_UNIQUE, 0, op, "jsm@axon.ksc.nasa.gov (John Steven Moerk)");	91	new_draw_info (NDI_UNIQUE, 0, op, "John Steven Moerk <jsm@axon.ksc.nasa.gov>");
99	new_draw_info (NDI_UNIQUE, 0, op, "Delbecq David [david.delbecq@mailandnews.com]");	92	new_draw_info (NDI_UNIQUE, 0, op, "Delbecq David <david.delbecq@mailandnews.com>");
100	new_draw_info (NDI_UNIQUE, 0, op, "Chachkoff Yann [yann.chachkoff@mailandnews.com]\n");	93	new_draw_info (NDI_UNIQUE, 0, op, "Chachkoff Yann <yann.chachkoff@mailandnews.com>\n");
		94	new_draw_info (NDI_UNIQUE, 0, op, "");
101	new_draw_info (NDI_UNIQUE, 0, op, "Images and art:");	95	new_draw_info (NDI_UNIQUE, 0, op, "Images and art:");
102	new_draw_info (NDI_UNIQUE, 0, op, "Peter Gardner");	96	new_draw_info (NDI_UNIQUE, 0, op, "Peter Gardner");
103	new_draw_info (NDI_UNIQUE, 0, op, "David Gervais [david_eg@mail.com]");	97	new_draw_info (NDI_UNIQUE, 0, op, "David Gervais <david_eg@mail.com>");
104	new_draw_info (NDI_UNIQUE, 0, op, "Mitsuhiro Itakura [ita@gold.koma.jaeri.go.jp]");	98	new_draw_info (NDI_UNIQUE, 0, op, "Mitsuhiro Itakura <ita@gold.koma.jaeri.go.jp>");
105	new_draw_info (NDI_UNIQUE, 0, op, "Hansjoerg Malthaner [hansjoerg.malthaner@danet.de]");	99	new_draw_info (NDI_UNIQUE, 0, op, "Hansjoerg Malthaner <hansjoerg.malthaner@danet.de>");
106	new_draw_info (NDI_UNIQUE, 0, op, "Mårten Woxberg [maxmc@telia.com]");	100	new_draw_info (NDI_UNIQUE, 0, op, "Mårten Woxberg <maxmc@telia.com>");
		101	new_draw_info (NDI_UNIQUE, 0, op, "");
107	new_draw_info (NDI_UNIQUE, 0, op, "And many more!");	102	new_draw_info (NDI_UNIQUE, 0, op, "And many more!");
108	}
109
110	void
111	info_keys (object *op)
112	{
113	clear_win_info (op);
114	new_draw_info (NDI_UNIQUE, 0, op, "Push `hjklynub' to walk in a direction.");
115	new_draw_info (NDI_UNIQUE, 0, op, "Shift + dir = fire, Ctrl + dir = run");
116	new_draw_info (NDI_UNIQUE, 0, op, "(To fire at yourself, hit `.'");
117	new_draw_info (NDI_UNIQUE, 0, op, "To attack, walk into the monsters.");
118	new_draw_info (NDI_UNIQUE, 0, op, "\" = speak ' = extended command");
119	new_draw_info (NDI_UNIQUE, 0, op, "i = inventory , = get : = look");
120	new_draw_info (NDI_UNIQUE, 0, op, "<> = rotate d = drop ? = help");
121	new_draw_info (NDI_UNIQUE, 0, op, "a = apply A = apply below t = throw");
122	new_draw_info (NDI_UNIQUE, 0, op, "e = examine E = exa below @ = autopick");
123	new_draw_info (NDI_UNIQUE, 0, op, "C = configure s = brace v = version");
124	new_draw_info (NDI_UNIQUE, 0, op, "+- = change range <tab> = browse spells");
125	new_draw_info (NDI_UNIQUE, 0, op, "x = change inventory type");
126	new_draw_info (NDI_UNIQUE, 0, op, "Mouse: L = examine, M = apply, R = drop/get");
127	new_draw_info (NDI_UNIQUE, 0, op, "'help = info about extended commands.");
128	new_draw_info (NDI_UNIQUE, 0, op, "Ctrl-R = refresh Ctrl-C = clear");
129	new_draw_info (NDI_UNIQUE, 0, op, "You can type a number before most commands.");
130	new_draw_info (NDI_UNIQUE, 0, op, "(For instance 3d drops 3 items.)");
131	}
132
133	void
134	start_info (object *op)
135	{
136	char buf[MAX_BUF];
137
138	sprintf (buf, "Welcome to Crossfire v%s!", VERSION);
139	new_draw_info (NDI_UNIQUE, 0, op, buf);
140	new_draw_info (NDI_UNIQUE, 0, op, "Press `?' for help");
141	new_draw_info (NDI_UNIQUE, 0, op, " ");
142	new_draw_info_format (NDI_UNIQUE \| NDI_ALL \| NDI_DK_ORANGE, 5, op, "%s entered the game.", &op->name);
143	}	103	}
144		104
145	/* This is a basic little function to put the player back to his	105	/* This is a basic little function to put the player back to his
146	* savebed. We do some error checking - its possible that the	106	* savebed. We do some error checking - its possible that the
147	* savebed map may no longer exist, so we make sure the player	107	* savebed map may no longer exist, so we make sure the player
148	* goes someplace.	108	* goes someplace.
149	*/	109	*/
150	void	110	void
151	enter_player_savebed (object *op)	111	enter_player_savebed (object *op)
152	{	112	{
153	maptile *oldmap = op->map;
154	object *tmp;
155
156	tmp = object::create ();	113	object *tmp = object::create ();
157
158	EXIT_PATH (tmp) = op->contr->savebed_map;	114	EXIT_PATH (tmp) = op->contr->savebed_map;
159	EXIT_X (tmp) = op->contr->bed_x;	115	EXIT_X (tmp) = op->contr->bed_x;
160	EXIT_Y (tmp) = op->contr->bed_y;	116	EXIT_Y (tmp) = op->contr->bed_y;
161	enter_exit (op, tmp);	117	op->enter_exit (tmp);
162	/* If the player has not changed maps and the name does not match
163	* that of the savebed, his savebed map is gone. Lets go back
164	* to the emergency path. Update what the players savebed is
165	* while we're at it.
166	*/
167	if (oldmap == op->map && strcmp (op->contr->savebed_map, oldmap->path))
168	{
169	LOG (llevDebug, "Player %s savebed location %s is invalid - going to emergency location (%s)\n",
170	settings.emergency_mapname, &op->name, op->contr->savebed_map);
171	strcpy (op->contr->savebed_map, settings.emergency_mapname);
172	op->contr->bed_x = settings.emergency_x;
173	op->contr->bed_y = settings.emergency_y;
174	EXIT_PATH (tmp) = op->contr->savebed_map;
175	EXIT_X (tmp) = op->contr->bed_x;
176	EXIT_Y (tmp) = op->contr->bed_y;
177	enter_exit (op, tmp);
178	}
179
180	tmp->destroy ();	118	tmp->destroy ();
181	}	119	}
182		120
183	/* All this really is is a glorified remove_object that also updates
184	* the counts on the map if needed.
185	*/
186	void
187	leave_map (object *op)
188	{
189	maptile *oldmap = op->map;
190
191	op->remove ();
192
193	if (oldmap)
194	{
195	if (!op->contr->hidden)
196	oldmap->players--;
197
198	if (oldmap->players <= 0)
199	/* can be less than zero due to errors in tracking this */
200	set_map_timeout (oldmap);
201	}
202	}
203
204	/*	121	/*
205	* enter_map(): Moves the player and pets from current map (if any) to	122	* enter_map(): Moves the player and pets from current map (if any) to
206	* new map. map, x, y must be set. map is the map we are moving the	123	* new map. map, x, y must be set. map is the map we are moving the
207	* player to - it could be the map he just came from if the load failed for	124	* player to - it could be the map he just came from if the load failed for
208	* whatever reason. If default map coordinates are to be used, then	125	* whatever reason. If default map coordinates are to be used, then
209	* the function that calls this should figure them out.	126	* the function that calls this should figure them out.
210	*/	127	*/
211	static void	128	void
212	enter_map (object op, maptile newmap, int x, int y)	129	object::enter_map (maptile *newmap, int x, int y)
213	{	130	{
214	maptile *oldmap = op->map;	131	if (destroyed () \|\| !newmap \|\| newmap->in_memory != MAP_IN_MEMORY)
		132	return;
215		133
216	if (out_of_map (newmap, x, y))	134	if (out_of_map (newmap, x, y))
217	{	135	{
218	LOG (llevError, "enter_map: supplied coordinates are not within the map! (%s: %d, %d)\n", newmap->path, x, y);	136	LOG (llevError, "enter_map: supplied coordinates are not within the map! (%s: %d, %d)\n", &newmap->path, x, y);
219	x = MAP_ENTER_X (newmap);	137	x = newmap->enter_x;
220	y = MAP_ENTER_Y (newmap);	138	y = newmap->enter_y;
221	if (out_of_map (newmap, x, y))	139	if (out_of_map (newmap, x, y))
222	{	140	{
223	LOG (llevError, "enter_map: map %s provides invalid default enter location (%d, %d) > (%d, %d)\n",	141	LOG (llevError, "enter_map: map %s provides invalid default enter location (%d, %d) > (%d, %d)\n",
224	newmap->path, x, y, MAP_WIDTH (newmap), MAP_HEIGHT (newmap));	142	&newmap->path, x, y, newmap->width, newmap->height);
225	new_draw_info (NDI_UNIQUE, 0, op, "The exit is closed");	143	new_draw_info (NDI_UNIQUE, 0, this, "The exit is closed");
226	return;	144	return;
227	}	145	}
228	}	146	}
229		147
		148	if (contr && map != newmap && map)
		149	if (INVOKE_MAP (LEAVE, map, ARG_PLAYER (contr)))
		150	return;
		151
		152	// remove, so stupid ob_locked does not trigger a failure
		153	remove ();
		154
230	/* try to find a spot for the player */	155	/* try to find a spot for the player */
231	if (ob_blocked (op, newmap, x, y))	156	if (ob_blocked (this, newmap, x, y))
232	{ /* First choice blocked */	157	{ /* First choice blocked */
233	/* We try to find a spot for the player, starting closest in.	158	/* We try to find a spot for the player, starting closest in.
234	* We could use find_first_free_spot, but that doesn't randomize it at all,	159	* We could use find_first_free_spot, but that doesn't randomize it at all,
235	* So for example, if the north space is free, you would always end up there even	160	* So for example, if the north space is free, you would always end up there even
236	* if other spaces around are available.	161	* if other spaces around are available.
237	* Note that for the second and third calls, we could start at a position other	162	* Note that for the second and third calls, we could start at a position other
238	* than one, but then we could end up on the other side of walls and so forth.	163	* than one, but then we could end up on the other side of walls and so forth.
239	*/	164	*/
240	int i = find_free_spot (op, newmap, x, y, 1, SIZEOFFREE1 + 1);	165	int i = find_free_spot (this, newmap, x, y, 1, SIZEOFFREE1 + 1);
241		166
242	if (i == -1)	167	if (i == -1)
243	{	168	{
244	i = find_free_spot (op, newmap, x, y, 1, SIZEOFFREE2 + 1);	169	i = find_free_spot (this, newmap, x, y, 1, SIZEOFFREE2 + 1);
245	if (i == -1)	170	if (i == -1)
246	i = find_free_spot (op, newmap, x, y, 1, SIZEOFFREE);	171	i = find_free_spot (this, newmap, x, y, 1, SIZEOFFREE);
247	}	172	}
248		173
249	if (i != -1)	174	if (i != -1)
250	{	175	{
251	x += freearr_x[i];	176	x += freearr_x[i];
252	y += freearr_y[i];	177	y += freearr_y[i];
253	}	178	}
254	else	179	else
255	{
256	/* not much we can do in this case. */	180	/* not much we can do in this case. */
257	LOG (llevInfo, "enter_map: Could not find free spot for player - will dump on top of object (%s: %d, %d)\n", newmap->path, x, y);	181	LOG (llevInfo, "enter_map: Could not find free spot for player - will dump on top of object (%s: %d, %d)\n", &newmap->path, x, y);
258	}	182	}
259	} /* end if looking for free spot */
260		183
261	if (op->map)	184	if (contr && map != newmap)
262	if (INVOKE_MAP (LEAVE, op->map, ARG_PLAYER (op->contr)))	185	{
263	return;
264
265	if (INVOKE_PLAYER (MAP_CHANGE, op->contr, ARG_MAP (newmap), ARG_INT (x), ARG_INT (y)))	186	if (INVOKE_PLAYER (MAP_CHANGE, contr, ARG_MAP (newmap), ARG_INT (x), ARG_INT (y)))
266	return;	187	return;
267		188
268	if (INVOKE_MAP (ENTER, newmap, ARG_PLAYER (op->contr), ARG_INT (x), ARG_INT (y)))	189	if (INVOKE_MAP (ENTER, newmap, ARG_PLAYER (contr), ARG_INT (x), ARG_INT (y)))
269	return;	190	return;
		191	}
270		192
271	/* If it is a player login, he has yet to be inserted anyplace.
272	* otherwise, we need to deal with removing the player here.
273	*/
274	op->remove ();
275
276	/* remove_ob clears these so they must be reset after the remove_ob call */
277	op->x = x;	193	this->x = x;
278	op->y = y;	194	this->y = y;
279	op->map = newmap;	195	map = newmap;
280		196
281	insert_ob_in_map (op, op->map, NULL, INS_NO_WALK_ON);	197	insert_ob_in_map (this, map, 0, INS_NO_WALK_ON);
282		198
283	if (!op->contr->hidden)	199	enemy = 0;
284	newmap->players++;
285		200
286	newmap->timeout = 0;
287	op->enemy = NULL;
288
289	if (op->contr)	201	if (contr)
290	{	202	{
291	strcpy (op->contr->maplevel, newmap->path);	203	contr->maplevel = newmap->path;
292	op->contr->count = 0;	204	contr->count = 0;
293	}	205	}
294		206
295	/* Update any golems */	207	/* Update any golems */
296	if (op->type == PLAYER && op->contr->ranges[range_golem] != NULL)	208	if (type == PLAYER && contr->ranges[range_golem])
297	{	209	{
298	int i = find_free_spot (op->contr->ranges[range_golem], newmap,	210	int i = find_free_spot (contr->ranges[range_golem], newmap, x, y, 1, SIZEOFFREE);
299	x, y, 1, SIZEOFFREE);
300		211
301	op->contr->ranges[range_golem]->remove ();
302
303	if (i == -1)	212	if (i < 0)
304	{	213	{
305	remove_friendly_object (op->contr->ranges[range_golem]);
306	op->contr->ranges[range_golem]->destroy ();	214	contr->ranges[range_golem]->destroy ();
307	op->contr->ranges[range_golem] = 0;	215	contr->ranges[range_golem] = 0;
308	}	216	}
309	else	217	else
310	{	218	{
311	for (object *tmp = op->contr->ranges[range_golem]; tmp != NULL; tmp = tmp->more)	219	newmap->insert (contr->ranges[range_golem], x + freearr_x[i], y + freearr_y[i]);
312	{
313	tmp->x = x + freearr_x[i] + (tmp->arch == NULL ? 0 : tmp->arch->clone.x);
314	tmp->y = y + freearr_y[i] + (tmp->arch == NULL ? 0 : tmp->arch->clone.y);
315	tmp->map = newmap;
316	}
317		220
318	insert_ob_in_map (op->contr->ranges[range_golem], newmap, NULL, 0);
319	op->contr->ranges[range_golem]->direction =	221	contr->ranges[range_golem]->direction =
320	find_dir_2 (op->x - op->contr->ranges[range_golem]->x, op->y - op->contr->ranges[range_golem]->y);	222	find_dir_2 (x - contr->ranges[range_golem]->x, y - contr->ranges[range_golem]->y);
321	}	223	}
322	}	224	}
323
324	op->direction = 0;
325		225
326	/* since the players map is already loaded, we don't need to worry	226	/* since the players map is already loaded, we don't need to worry
327	* about pending objects.	227	* about pending objects.
328	*/	228	*/
329	remove_all_pets (newmap);	229	remove_all_pets (newmap);
330
331	/* If the player is changing maps, we need to do some special things
332	* Do this after the player is on the new map - otherwise the force swap of the
333	* old map does not work.
334	*/
335	if (oldmap != newmap)
336	{
337	if (oldmap) /* adjust old map */
338	{
339	oldmap->players--;
340
341	if (oldmap->players <= 0) /* can be less than zero due to errors in tracking this */
342	set_map_timeout (oldmap);
343	}
344	}
345	}
346
347	void
348	set_map_timeout (maptile *oldmap)
349	{
350	#if MAP_MAXTIMEOUT
351	oldmap->timeout = MAP_TIMEOUT (oldmap);
352	/* Do MINTIMEOUT first, so that MAXTIMEOUT is used if that is
353	* lower than the min value.
354	*/
355	# if MAP_MINTIMEOUT
356	if (oldmap->timeout < MAP_MINTIMEOUT)
357	oldmap->timeout = MAP_MINTIMEOUT;
358	# endif
359
360	if (oldmap->timeout > MAP_MAXTIMEOUT)
361	oldmap->timeout = MAP_MAXTIMEOUT;
362
363	#else
364	/* save out the map */
365	swap_map (oldmap);
366	#endif /* MAP_MAXTIMEOUT */
367	}
368
369
370	/* clean_path takes a path and replaces all / with _
371	* We do a strcpy so that we do not change the original string.
372	*/
373	char *
374	clean_path (const char *file)
375	{
376	static char newpath[MAX_BUF], *cp;
377	assign (newpath, file);
378
379	for (cp = newpath; *cp != '\0'; cp++)
380	if (*cp == '/')
381	*cp = '_';
382
383	return newpath;
384	}
385
386
387	/* unclean_path takes a path and replaces all _ with /
388	* This basically undoes clean path.
389	* We do a strcpy so that we do not change the original string.
390	* We are smart enough to start after the last / in case we
391	* are getting passed a string that points to a unique map
392	* path.
393	*/
394	char *
395	unclean_path (const char *src)
396	{
397	static char newpath[MAX_BUF], *cp;
398
399	cp = strrchr (src, '/');
400	assign (newpath, cp ? cp + 1 : src);
401
402	for (cp = newpath; *cp != '\0'; cp++)
403	if (*cp == '_')
404	*cp = '/';
405
406	return newpath;
407	}
408
409
410	/* The player is trying to enter a randomly generated map. In this case, generate the
411	* random map as needed.
412	*/
413
414	static void
415	enter_random_map (object pl, object exit_ob)
416	{
417	maptile *new_map;
418	char newmap_name[HUGE_BUF], *cp;
419	static int reference_number = 0;
420	RMParms rp;
421
422	memset (&rp, 0, sizeof (RMParms));
423	rp.Xsize = -1;
424	rp.Ysize = -1;
425	rp.region = get_region_by_map (exit_ob->map);
426	if (exit_ob->msg)
427	set_random_map_variable (&rp, exit_ob->msg);
428	rp.origin_x = exit_ob->x;
429	rp.origin_y = exit_ob->y;
430	strcpy (rp.origin_map, pl->map->path);
431
432	/* If we have a final_map, use it as a base name to give some clue
433	* as where the player is. Otherwise, use the origin map.
434	*/
435	sprintf (newmap_name, "/random%s+%04d",
436	*rp.final_map ? rp.final_map : rp.origin_map,
437	reference_number++);
438
439	/* now to generate the actual map. */
440	new_map = generate_random_map (newmap_name, &rp);
441
442	/* Update the exit_ob so it now points directly at the newly created
443	* random maps. Not that it is likely to happen, but it does mean that a
444	* exit in a unique map leading to a random map will not work properly.
445	* It also means that if the created random map gets reset before
446	* the exit leading to it, that the exit will no longer work.
447	*/
448	if (new_map)
449	{
450	int x, y;
451
452	x = EXIT_X (exit_ob) = MAP_ENTER_X (new_map);
453	y = EXIT_Y (exit_ob) = MAP_ENTER_Y (new_map);
454	EXIT_PATH (exit_ob) = newmap_name;
455	strcpy (new_map->path, newmap_name);
456	enter_map (pl, new_map, x, y);
457	}
458	}
459
460	/* The player is trying to enter a non-randomly generated template map. In this
461	* case, use a map file for a template
462	*/
463
464	static void
465	enter_fixed_template_map (object pl, object exit_ob)
466	{
467	maptile *new_map;
468	char tmpnum[32], exitpath[HUGE_BUF], resultname[HUGE_BUF], tmpstring[HUGE_BUF], *sourcemap;
469	const char *new_map_name;
470
471	/* Split the exit path string into two parts, one
472	* for where to store the map, and one for were
473	* to generate the map from.
474	*/
475	snprintf (exitpath, sizeof (exitpath), "%s", EXIT_PATH (exit_ob) + 2);
476	sourcemap = strchr (exitpath, '!');
477	if (!sourcemap)
478	{
479	new_draw_info_format (NDI_UNIQUE, 0, pl, "The %s is closed.", &exit_ob->name);
480	/* Should only occur when no source map is set.
481	*/
482	LOG (llevError, "enter_fixed_template_map: Exit %s (%d,%d) on map %s has no source template.\n",
483	&exit_ob->name, exit_ob->x, exit_ob->y, exit_ob->map->path);
484	return;
485	}
486
487	*sourcemap++ = '\0';
488
489	/* If we are not coming from a template map, we can use relative directories
490	* for the map to generate from.
491	*/
492	if (!exit_ob->map->templatemap)
493	sourcemap = path_combine_and_normalize (exit_ob->map->path, sourcemap);
494
495	/* Do replacement of %x, %y, and %n to the x coord of the exit, the y coord
496	* of the exit, and the name of the map the exit is on, respectively.
497	*/
498	sprintf (tmpnum, "%d", exit_ob->x);
499	replace (exitpath, "%x", tmpnum, resultname, sizeof (resultname));
500
501	sprintf (tmpnum, "%d", exit_ob->y);
502	sprintf (tmpstring, "%s", resultname);
503	replace (tmpstring, "%y", tmpnum, resultname, sizeof (resultname));
504
505	sprintf (tmpstring, "%s", resultname);
506	replace (tmpstring, "%n", exit_ob->map->name, resultname, sizeof (resultname));
507
508	/* If we are coming from another template map, use reletive paths unless
509	* indicated otherwise.
510	*/
511	if (exit_ob->map->templatemap && (resultname[0] != '/'))
512	new_map_name = path_combine_and_normalize (exit_ob->map->path, resultname);
513	else
514	new_map_name = create_template_pathname (resultname);
515
516	/* Attempt to load the map, if unable to, then
517	* create the map from the template.
518	*/
519	new_map = ready_map_name (new_map_name, MAP_PLAYER_UNIQUE);
520	if (!new_map)
521	{
522	new_map = load_original_map (create_pathname (sourcemap), MAP_PLAYER_UNIQUE);
523	if (new_map)
524	fix_auto_apply (new_map);
525	}
526
527	if (new_map)
528	{
529	/* set the path of the map to where it should be
530	* so we don't just save over the source map.
531	*/
532	strcpy (new_map->path, new_map_name);
533	new_map->templatemap = 1;
534	enter_map (pl, new_map, EXIT_X (exit_ob), EXIT_Y (exit_ob));
535	}
536	else
537	{
538	new_draw_info_format (NDI_UNIQUE, 0, pl, "The %s is closed.", &exit_ob->name);
539	/* Should only occur when an invalid source map is set.
540	*/
541	LOG (llevDebug, "enter_fixed_template_map: Exit %s (%d,%d) on map %s leads no where.\n",
542	&exit_ob->name, exit_ob->x, exit_ob->y, exit_ob->map->path);
543	}
544	}
545
546	/* The player is trying to enter a randomly generated template map. In this
547	* case, generate the map as needed.
548	*/
549
550	static void
551	enter_random_template_map (object pl, object exit_ob)
552	{
553	maptile *new_map;
554	char tmpnum[32], resultname[HUGE_BUF], tmpstring[HUGE_BUF];
555	const char *new_map_name;
556	RMParms rp;
557
558	/* Do replacement of %x, %y, and %n to the x coord of the exit, the y coord
559	* of the exit, and the name of the map the exit is on, respectively.
560	*/
561	sprintf (tmpnum, "%d", exit_ob->x);
562	replace (EXIT_PATH (exit_ob) + 3, "%x", tmpnum, resultname, sizeof (resultname));
563
564	sprintf (tmpnum, "%d", exit_ob->y);
565	sprintf (tmpstring, "%s", resultname);
566	replace (tmpstring, "%y", tmpnum, resultname, sizeof (resultname));
567
568	sprintf (tmpstring, "%s", resultname);
569	replace (tmpstring, "%n", exit_ob->map->name, resultname, sizeof (resultname));
570
571	/* If we are coming from another template map, use reletive paths unless
572	* indicated otherwise.
573	*/
574	if (exit_ob->map->templatemap && (resultname[0] != '/'))
575	new_map_name = path_combine_and_normalize (exit_ob->map->path, resultname);
576	else
577	new_map_name = create_template_pathname (resultname);
578
579	new_map = ready_map_name (new_map_name, MAP_PLAYER_UNIQUE);
580	if (!new_map)
581	{
582	memset (&rp, 0, sizeof (RMParms));
583	rp.Xsize = -1;
584	rp.Ysize = -1;
585	rp.region = get_region_by_map (exit_ob->map);
586	if (exit_ob->msg)
587	set_random_map_variable (&rp, exit_ob->msg);
588	rp.origin_x = exit_ob->x;
589	rp.origin_y = exit_ob->y;
590	strcpy (rp.origin_map, pl->map->path);
591
592	/* now to generate the actual map. */
593	new_map = generate_random_map (new_map_name, &rp);
594	}
595
596
597	/* Update the exit_ob so it now points directly at the newly created
598	* random maps. Not that it is likely to happen, but it does mean that a
599	* exit in a unique map leading to a random map will not work properly.
600	* It also means that if the created random map gets reset before
601	* the exit leading to it, that the exit will no longer work.
602	*/
603	if (new_map)
604	{
605	int x, y;
606
607	x = EXIT_X (exit_ob) = MAP_ENTER_X (new_map);
608	y = EXIT_Y (exit_ob) = MAP_ENTER_Y (new_map);
609	new_map->templatemap = 1;
610	enter_map (pl, new_map, x, y);
611	}
612	}
613
614
615	/* Code to enter/detect a character entering a unique map.
616	*/
617	static void
618	enter_unique_map (object op, object exit_ob)
619	{
620	char apartment[HUGE_BUF];
621	maptile *newmap;
622
623	if (EXIT_PATH (exit_ob)[0] == '/')
624	{
625	sprintf (apartment, "%s/%s/%s/%s", settings.localdir, settings.playerdir, &op->name, clean_path (EXIT_PATH (exit_ob)));
626	newmap = ready_map_name (apartment, MAP_PLAYER_UNIQUE);
627	if (!newmap)
628	{
629	newmap = load_original_map (create_pathname (EXIT_PATH (exit_ob)), MAP_PLAYER_UNIQUE);
630	if (newmap)
631	fix_auto_apply (newmap);
632	}
633	}
634	else
635	{ /* relative directory */
636	char reldir[HUGE_BUF], tmpc[HUGE_BUF], *cp;
637
638	if (exit_ob->map->unique)
639	{
640
641	strcpy (reldir, unclean_path (exit_ob->map->path));
642
643	/* Need to copy this over, as clean_path only has one static return buffer */
644	strcpy (tmpc, clean_path (reldir));
645	/* Remove final component, if any */
646	if ((cp = strrchr (tmpc, '_')) != NULL)
647	*cp = 0;
648
649	sprintf (apartment, "%s/%s/%s/%s_%s", settings.localdir, settings.playerdir, &op->name, tmpc, clean_path (EXIT_PATH (exit_ob)));
650
651	newmap = ready_map_name (apartment, MAP_PLAYER_UNIQUE);
652	if (!newmap)
653	{
654	newmap = load_original_map (create_pathname (path_combine_and_normalize (reldir, EXIT_PATH (exit_ob))), MAP_PLAYER_UNIQUE);
655	if (newmap)
656	fix_auto_apply (newmap);
657	}
658	}
659	else
660	{
661	/* The exit is unique, but the map we are coming from is not unique. So
662	* use the basic logic - don't need to demangle the path name
663	*/
664	sprintf (apartment, "%s/%s/%s/%s", settings.localdir,
665	settings.playerdir, &op->name, clean_path (path_combine_and_normalize (exit_ob->map->path, EXIT_PATH (exit_ob))));
666	newmap = ready_map_name (apartment, MAP_PLAYER_UNIQUE);
667	if (!newmap)
668	{
669	newmap = ready_map_name (path_combine_and_normalize (exit_ob->map->path, EXIT_PATH (exit_ob)), 0);
670	if (newmap)
671	fix_auto_apply (newmap);
672	}
673	}
674	}
675
676	if (newmap)
677	{
678	strcpy (newmap->path, apartment);
679	newmap->unique = 1;
680	enter_map (op, newmap, EXIT_X (exit_ob), EXIT_Y (exit_ob));
681	}
682	else
683	{
684	new_draw_info_format (NDI_UNIQUE, 0, op, "The %s is closed.", &exit_ob->name);
685	/* Perhaps not critical, but I would think that the unique maps
686	* should be new enough this does not happen. This also creates
687	* a strange situation where some players could perhaps have visited
688	* such a map before it was removed, so they have the private
689	* map, but other players can't get it anymore.
690	*/
691	LOG (llevDebug, "enter_unique_map: Exit %s (%d,%d) on map %s is leads no where.\n",
692	&exit_ob->name, exit_ob->x, exit_ob->y, exit_ob->map->path);
693	}
694
695	}
696
697
698	/* Tries to move 'op' to exit_ob. op is the character or monster that is
699	* using the exit, where exit_ob is the exit object (boat, door, teleporter,
700	* etc.) if exit_ob is null, then op->contr->maplevel contains that map to
701	* move the object to. This is used when loading the player.
702	*
703	* Largely redone by MSW 2001-01-21 - this function was overly complex
704	* and had some obscure bugs.
705	*/
706
707	void
708	enter_exit (object op, object exit_ob)
709	{
710	#define PORTAL_DESTINATION_NAME "Town portal destination" /* this one should really be in a header file */
711	object *tmp;
712
713	/* It may be nice to support other creatures moving across
714	* exits, but right now a lot of the code looks at op->contr,
715	* so that is an RFE.
716	*/
717	if (op->type != PLAYER)
718	return;
719
720	/* First, lets figure out what map the player is going to go to */
721	if (exit_ob)
722	{
723	/* check to see if we make a template map */
724	if (EXIT_PATH (exit_ob) && EXIT_PATH (exit_ob)[1] == '@')
725	{
726	if (EXIT_PATH (exit_ob)[2] == '!')
727	{
728	/* generate a template map randomly */
729	enter_random_template_map (op, exit_ob);
730	}
731	else
732	{
733	/* generate a template map from a fixed template */
734	enter_fixed_template_map (op, exit_ob);
735	}
736	}
737	/* check to see if we make a randomly generated map */
738	else if (EXIT_PATH (exit_ob) && EXIT_PATH (exit_ob)[1] == '!')
739	{
740	enter_random_map (op, exit_ob);
741	}
742	else if (QUERY_FLAG (exit_ob, FLAG_UNIQUE))
743	{
744	enter_unique_map (op, exit_ob);
745	}
746	else
747	{
748	int x = EXIT_X (exit_ob), y = EXIT_Y (exit_ob);
749
750	/* 'Normal' exits that do not do anything special
751	* Simple enough we don't need another routine for it.
752	*/
753	maptile *newmap;
754
755	if (exit_ob->map)
756	{
757	newmap = ready_map_name (path_combine_and_normalize (exit_ob->map->path, EXIT_PATH (exit_ob)), 0);
758	/* Random map was previously generated, but is no longer about. Lets generate a new
759	* map.
760	*/
761	if (!newmap && !strncmp (EXIT_PATH (exit_ob), "/random/", 8))
762	{
763	/* Maps that go down have a message set. However, maps that go
764	* up, don't. If the going home has reset, there isn't much
765	* point generating a random map, because it won't match the maps.
766	*/
767	if (exit_ob->msg)
768	{
769	enter_random_map (op, exit_ob);
770	}
771	else
772	{
773	new_draw_info_format (NDI_UNIQUE, 0, op, "The %s is closed.", &exit_ob->name);
774	return;
775	}
776
777	/* For exits that cause damages (like pits). Don't know if any
778	* random maps use this or not.
779	*/
780	if (exit_ob->stats.dam && op->type == PLAYER)
781	hit_player (op, exit_ob->stats.dam, exit_ob, exit_ob->attacktype, 1);
782	return;
783	}
784	}
785	else
786	{
787	/* For word of recall and other force objects
788	* They contain the full pathname of the map to go back to,
789	* so we don't need to normalize it.
790	* But we do need to see if it is unique or not
791	*/
792	if (!strncmp (EXIT_PATH (exit_ob), settings.localdir, strlen (settings.localdir)))
793	newmap = ready_map_name (EXIT_PATH (exit_ob), MAP_PLAYER_UNIQUE);
794	else
795	newmap = ready_map_name (EXIT_PATH (exit_ob), 0);
796	}
797	if (!newmap)
798	{
799	if (exit_ob->name)
800	new_draw_info_format (NDI_UNIQUE, 0, op, "The %s is closed.", &exit_ob->name);
801	/* don't cry to momma if name is not set - as in tmp objects
802	* used by the savebed code and character creation */
803	return;
804	}
805
806	/* This supports the old behaviour, but it really should not be used.
807	* I will note for example that with this method, it is impossible to
808	* set 0,0 destination coordinates. Really, if we want to support
809	* using the new maps default coordinates, the exit ob should use
810	* something like -1, -1 so it is clear to do that.
811	*/
812	if (x == 0 && y == 0)
813	{
814	x = MAP_ENTER_X (newmap);
815	y = MAP_ENTER_Y (newmap);
816	LOG (llevDebug, "enter_exit: Exit %s (%d,%d) on map %s is 0 destination coordinates\n",
817	&exit_ob->name, exit_ob->x, exit_ob->y, exit_ob->map ? exit_ob->map->path : "<nil>");
818	}
819
820	/* mids 02/13/2002 if exit is damned, update players death & WoR home-position and delete town portal */
821	if (QUERY_FLAG (exit_ob, FLAG_DAMNED))
822	{
823	/* remove an old force with a slaying field == PORTAL_DESTINATION_NAME */
824	for (tmp = op->inv; tmp != NULL; tmp = tmp->below)
825	{
826	if (tmp->type == FORCE && tmp->slaying && !strcmp (tmp->slaying, PORTAL_DESTINATION_NAME))
827	break;
828	}
829	if (tmp)
830	{
831	tmp->remove ();
832	tmp->destroy ();
833	}
834
835	strcpy (op->contr->savebed_map, path_combine_and_normalize (exit_ob->map->path, EXIT_PATH (exit_ob)));
836	op->contr->bed_x = EXIT_X (exit_ob), op->contr->bed_y = EXIT_Y (exit_ob);
837	op->contr->save ();
838	/* LOG(llevDebug,"enter_exit: Taking damned exit %s to (%d,%d) on map %s\n",
839	* exit_ob->name?exit_ob->name:"(none)", exit_ob->x, exit_ob->y,
840	* path_combine_and_normalize(exit_ob->map->path, EXIT_PATH(exit_ob))); */
841	}
842
843	enter_map (op, newmap, x, y);
844	}
845	/* For exits that cause damages (like pits) */
846	if (exit_ob->stats.dam && op->type == PLAYER)
847	hit_player (op, exit_ob->stats.dam, exit_ob, exit_ob->attacktype, 1);
848	}
849	else
850	{
851	int flags = 0;
852	maptile *newmap;
853
854	/* Hypothetically, I guess its possible that a standard map matches
855	* the localdir, but that seems pretty unlikely - unlikely enough that
856	* I'm not going to attempt to try to deal with that possibility.
857	* We use the fact that when a player saves on a unique map, it prepends
858	* the localdir to that name. So its an easy way to see of the map is
859	* unique or not.
860	*/
861	if (!strncmp (op->contr->maplevel, settings.localdir, strlen (settings.localdir)))
862	flags = MAP_PLAYER_UNIQUE;
863
864	/* newmap returns the map (if already loaded), or loads it for
865	* us.
866	*/
867	newmap = ready_map_name (op->contr->maplevel, flags);
868	if (!newmap)
869	{
870	LOG (llevError, "enter_exit: Pathname to map does not exist! (%s)\n", op->contr->maplevel);
871	newmap = ready_map_name (settings.emergency_mapname, 0);
872	op->x = settings.emergency_x;
873	op->y = settings.emergency_y;
874	/* If we can't load the emergency map, something is probably really
875	* screwed up, so bail out now.
876	*/
877	if (!newmap)
878	{
879	LOG (llevError, "enter_exit: could not load emergency map? Fatal error\n");
880	abort ();
881	}
882	}
883
884	enter_map (op, newmap, op->x, op->y);
885	}
886	}	230	}
887		231
888	/* process_players1 and process_players2 do all the player related stuff.	232	/* process_players1 and process_players2 do all the player related stuff.
889	* I moved it out of process events and process_map. This was to some	233	* I moved it out of process events and process_map. This was to some
890	* extent for debugging as well as to get a better idea of the time used	234	* extent for debugging as well as to get a better idea of the time used
…		…
894	*/	238	*/
895	static void	239	static void
896	process_players1 ()	240	process_players1 ()
897	{	241	{
898	int flag;	242	int flag;
		243
899	/* Basically, we keep looping until all the players have done their actions. */	244	/* Basically, we keep looping until all the players have done their actions. */
900	for (flag = 1; flag != 0;)	245	for (flag = 1; flag != 0;)
901	{	246	{
902	flag = 0;	247	flag = 0;
903	for (player plnext, pl = first_player; pl; pl = plnext)	248	for_all_players (pl)
904	{	249	{
905	plnext = pl->next; /* In case a player exits the game in handle_player() */	250	pl->refcnt_chk ();
906		251
907	if (!pl->ob)	252	if (!pl->ob \|\| !pl->ns \|\| !pl->ob->active)
908	continue;	253	continue;
909		254
910	if (pl->ob->speed_left > 0)	255	if (pl->ob->speed_left > 0 && pl->ns)
911	{
912	if (handle_newcs_player (pl->ob))	256	if (handle_newcs_player (pl->ob))
913	flag = 1;	257	flag = 1;
914	} /* end if player has speed left */
915		258
916	/* If the player is not actively playing, don't make a	259	/* If the player is not actively playing, don't make a
917	* backup save - nothing to save anyway. Plus, the	260	* backup save - nothing to save anyway. Plus, the
918	* map may not longer be valid. This can happen when the	261	* map may not longer be valid. This can happen when the
919	* player quits - they exist for purposes of tracking on the map,	262	* player quits - they exist for purposes of tracking on the map,
920	* but don't actually reside on any actual map.	263	* but don't actually reside on any actual map.
921	*/	264	*/
922	if (QUERY_FLAG (pl->ob, FLAG_REMOVED))	265	if (QUERY_FLAG (pl->ob, FLAG_REMOVED))
923	continue;	266	continue;
924
925	#ifdef AUTOSAVE
926	/* check for ST_PLAYING state so that we don't try to save off when
927	* the player is logging in.
928	*/
929	if ((pl->last_save_tick + AUTOSAVE) < (uint32) pticks && pl->ns->state == ST_PLAYING)
930	{
931	pl->ob->contr->save ();
932	pl->last_save_tick = pticks;
933	}
934	#endif
935	} /* end of for loop for all the players */	267	} /* end of for loop for all the players */
936	} /* for flag */	268	} /* for flag */
937		269
938	for (player *pl = first_player; pl; pl = pl->next)	270	for_all_players (pl)
939	{	271	{
		272	if (!pl->ob \|\| !pl->ns \|\| !pl->ob->active)
		273	continue;
		274
940	if (settings.casting_time)	275	if (settings.casting_time)
941	{	276	{
942	if (pl->ob->casting_time > 0)	277	if (pl->ob->casting_time > 0)
943	{	278	{
944	pl->ob->casting_time--;	279	pl->ob->casting_time--;
…		…
956		291
957	static void	292	static void
958	process_players2 ()	293	process_players2 ()
959	{	294	{
960	/* Then check if any players should use weapon-speed instead of speed */	295	/* Then check if any players should use weapon-speed instead of speed */
961	for (player *pl = first_player; pl; pl = pl->next)	296	for_all_players (pl)
962	{	297	{
963	/* The code that did weapon_sp handling here was out of place -	298	/* The code that did weapon_sp handling here was out of place -
964	* this isn't called until after the player has finished there	299	* this isn't called until after the player has finished there
965	* actions, and is thus out of place. All we do here is bounds	300	* actions, and is thus out of place. All we do here is bounds
966	* checking.	301	* checking.
…		…
982	}	317	}
983		318
984	void	319	void
985	process_events ()	320	process_events ()
986	{	321	{
987	object *op;
988
989	static object *marker;
990
991	if (!marker)
992	marker = object::create ();
993
994	process_players1 ();	322	process_players1 ();
995		323
996	marker->active_next = active_objects;	324	for_all_actives (op)
997
998	if (marker->active_next)
999	marker->active_next->active_prev = marker;
1000
1001	marker->active_prev = NULL;
1002	active_objects = marker;
1003
1004	while (marker->active_next)
1005	{	325	{
1006	op = marker->active_next;
1007
1008	/* Move marker forward - swap op and marker */
1009	op->active_prev = marker->active_prev;
1010
1011	if (op->active_prev)
1012	op->active_prev->active_next = op;
1013	else
1014	active_objects = op;
1015
1016	marker->active_next = op->active_next;
1017
1018	if (marker->active_next)
1019	marker->active_next->active_prev = marker;
1020
1021	marker->active_prev = op;
1022	op->active_next = marker;
1023
1024	/* Now process op */	326	/* Now process op */
1025	if (QUERY_FLAG (op, FLAG_FREED))	327	if (QUERY_FLAG (op, FLAG_FREED))
1026	{	328	{
1027	LOG (llevError, "BUG: process_events(): Free object on list\n");	329	LOG (llevError, "BUG: process_events(): Free object on list\n");
1028	op->speed = 0;	330	op->set_speed (0);
1029	update_ob_speed (op);
1030	continue;	331	continue;
1031	}	332	}
1032		333
1033	/* I've seen occasional crashes due to this - the object is removed,	334	/* I've seen occasional crashes due to this - the object is removed,
1034	* and thus the map it points to (last map it was on) may be bogus	335	* and thus the map it points to (last map it was on) may be bogus
…		…
1048	free (dump);	349	free (dump);
1049	op->destroy ();	350	op->destroy ();
1050	continue;	351	continue;
1051	}	352	}
1052		353
1053	if (!op->speed)	354	if (!op->has_active_speed ())
1054	{	355	{
1055	LOG (llevError, "BUG: process_events(): Object %s has no speed, "	356	LOG (llevError, "BUG: process_events(): Object %s has no speed (%f), "
1056	"but is on active list\n", &op->arch->name);	357	"but is on active list\n", op->debug_desc (), op->speed);
1057	update_ob_speed (op);	358	op->set_speed (0);
1058	continue;	359	continue;
1059	}	360	}
1060		361
1061	if (op->map == NULL && op->env == NULL && op->name && op->type != MAP)	362	if (op->map == NULL && op->env == NULL && op->name && op->type != MAP)
1062	{	363	{
1063	LOG (llevError, "BUG: process_events(): Object without map or "	364	LOG (llevError, "BUG: process_events(): Object without map or "
1064	"inventory is on active list: %s (%d)\n", &op->name, op->count);	365	"inventory is on active list: %s (%d)\n", &op->name, op->count);
1065	op->speed = 0;	366	op->set_speed (0);
1066	update_ob_speed (op);
1067	continue;	367	continue;
1068	}	368	}
1069		369
1070	/* Animate the object. Bug or feature that anim_speed	370	/* Animate the object. Bug or feature that anim_speed
1071	* is based on ticks, and not the creatures speed?	371	* is based on ticks, and not the creatures speed?
1072	*/	372	*/
1073	if (op->anim_speed && op->last_anim >= op->anim_speed)	373	if (op->anim_speed && op->last_anim >= op->anim_speed)
1074	{	374	{
1075	if ((op->type == PLAYER))	375	animate_object (op, op->type == PLAYER ? op->facing : op->direction);
1076	animate_object (op, op->facing);
1077	else
1078	animate_object (op, op->direction);
1079		376
1080	op->last_anim = 1;	377	op->last_anim = 1;
1081	}	378	}
1082	else	379	else
1083	op->last_anim++;	380	op->last_anim++;
…		…
1110		407
1111	if (op->speed_left <= 0)	408	if (op->speed_left <= 0)
1112	op->speed_left += FABS (op->speed);	409	op->speed_left += FABS (op->speed);
1113	}	410	}
1114		411
1115	/* Remove marker object from active list */	412	process_players2 ();
1116	if (marker->active_prev != NULL)	413	}
1117	marker->active_prev->active_next = NULL;	414
		415	/* clean up everything before exiting */
		416	void
		417	emergency_save ()
		418	{
		419	LOG (llevDebug, "emergency save begin.\n");
		420
		421	cfperl_emergency_save ();
		422
		423	LOG (llevDebug, "saving book archive.\n");
		424	write_book_archive ();
		425
		426	LOG (llevDebug, "emergency save done.\n");
		427	}
		428
		429	// send all clients some informational text
		430	static void
		431	cleanup_inform (const char *cause, bool make_core)
		432	{
		433	int flags = NDI_UNIQUE \| NDI_ALL \| (make_core ? NDI_RED : NDI_GREEN);
		434
		435	new_draw_info_format (flags, 0, 0, "The server will now shutdown.\n");
		436	new_draw_info_format (flags, 0, 0, "Cause for this shutdown: %s\n", cause);
		437
		438	if (make_core)
		439	new_draw_info_format (flags, 0, 0, "This is considered a crash, but all maps and players have been saved.\n");
1118	else	440	else
1119	active_objects = NULL;	441	new_draw_info_format (flags, 0, 0, "This is considered to be a clean shutdown, and all maps and players will be saved now.\n");
1120		442
1121	process_players2 ();	443	new_draw_info_format (flags, 0, 0, "%s\n", CLEANUP_MESSAGE);
1122	}
1123		444
1124	void	445	flush_sockets ();
1125	clean_tmp_files (void)
1126	{
1127	maptile m, next;
1128
1129	LOG (llevInfo, "Cleaning up...\n");
1130
1131	/* We save the maps - it may not be intuitive why, but if there are unique
1132	* items, we need to save the map so they get saved off. Perhaps we should
1133	* just make a special function that only saves the unique items.
1134	*/
1135	for (m = first_map; m; m = next)
1136	{
1137	next = m->next;
1138
1139	if (m->in_memory == MAP_IN_MEMORY)
1140	{
1141	/* If we want to reuse the temp maps, swap it out (note that will also
1142	* update the log file.
1143	*/
1144
1145	swap_map (m);
1146	}
1147	}
1148
1149	write_todclock (); /* lets just write the clock here */
1150	}	446	}
1151		447
1152	/* clean up everything before exiting */	448	/* clean up everything before exiting */
1153	void	449	void
1154	cleanup (bool make_core)	450	cleanup (const char *cause, bool make_core)
1155	{	451	{
1156	LOG (llevDebug, "Cleanup called.\n");
1157
1158	if (init_done)
1159	{
1160	for (player *pl = first_player; pl; pl = pl->next)
1161	pl->save (1);
1162
1163	for (player *pl = first_player; pl; pl = pl->next)
1164	if (!QUERY_FLAG (pl->ob, FLAG_REMOVED))
1165	leave_map (pl->ob);
1166
1167	clean_tmp_files ();
1168	write_book_archive ();
1169
1170	INVOKE_GLOBAL (CLEANUP);
1171	}
1172
1173	if (make_core)	452	if (make_core)
1174	abort ();	453	fork_abort (cause);
		454
		455	LOG (llevError, "cleanup cause: %s\n", cause);
		456
		457	if (!make_core)
		458	cleanup_inform (cause, make_core);
		459
		460	LOG (llevDebug, "cleanup begin.\n");
		461
		462	if (init_done && !in_cleanup)
		463	{
		464	in_cleanup = true;
		465	emergency_save ();
		466	}
1175	else	467	else
		468	in_cleanup = true;
		469
		470	LOG (llevDebug, "running cleanup handlers.\n");
		471	INVOKE_GLOBAL (CLEANUP);
		472
		473	LOG (llevDebug, "cleanup done.\n");
		474
		475	if (make_core)
		476	{
		477	cleanup_inform (cause, make_core);
		478	cfperl_cleanup (make_core);
		479	_exit (1);
		480	}
		481	else
		482	{
		483	new_draw_info_format (NDI_UNIQUE \| NDI_ALL \| NDI_GREEN, 0, 0, "Maps and players successfully saved, exiting.\n");
		484	new_draw_info_format (NDI_UNIQUE \| NDI_ALL \| NDI_GREEN, 0, 0, "And again: " CLEANUP_MESSAGE "\n");
		485	flush_sockets ();
		486	cfperl_cleanup (make_core);
1176	_exit (0);	487	_exit (0);
1177	}
1178
1179	void
1180	leave (player *pl, int draw_exit)
1181	{
1182	if (pl)
1183	{
1184	if (pl->ob->type != DEAD_OBJECT)
1185	{
1186	/* If a hidden dm dropped connection do not create
1187	* inconsistencies by showing that they have left the game
1188	*/
1189	if (!(QUERY_FLAG (pl->ob, FLAG_WIZ) && pl->ob->contr->hidden)
1190	&& draw_exit)
1191	{
1192	if (pl->ob->map)
1193	{
1194	INVOKE_PLAYER (LOGOUT, pl);
1195	LOG (llevInfo, "LOGOUT: Player named %s from ip %s\n", &pl->ob->name, pl->ns->host);
1196	}
1197
1198	char buf[MAX_BUF];
1199
1200	sprintf (buf, "%s left the game.", &pl->ob->name);
1201	new_draw_info (NDI_UNIQUE \| NDI_ALL \| NDI_DK_ORANGE, 5, 0, buf);
1202	}
1203
1204	if (!QUERY_FLAG (pl->ob, FLAG_REMOVED))
1205	leave_map (pl->ob);
1206
1207	pl->ob->type = DEAD_OBJECT; /* To avoid problems with inventory window */
1208	}
1209
1210	/* We do this so that the socket handling routine can do the final
1211	* cleanup. We also leave that loop to actually handle the freeing
1212	* of the data.
1213	*/
1214	if (pl->ns)
1215	pl->ns->destroy ();
1216
1217	}	488	}
1218	}	489	}
1219		490
1220	int	491	int
1221	forbid_play (void)	492	forbid_play (void)
…		…
1236		507
1237	while (fgets (buf, MAX_BUF, fp))	508	while (fgets (buf, MAX_BUF, fp))
1238	{	509	{
1239	if (buf[0] == '#')	510	if (buf[0] == '#')
1240	continue;	511	continue;
		512
1241	if (!strncmp (buf, "msg", 3))	513	if (!strncmp (buf, "msg", 3))
1242	{	514	{
1243	if (forbit)	515	if (forbit)
1244	while (fgets (buf, MAX_BUF, fp)) /* print message */	516	while (fgets (buf, MAX_BUF, fp)) /* print message */
1245	fputs (buf, logfile);	517	fputs (buf, logfile);
1246	break;	518	break;
1247
1248	}	519	}
1249	else if (sscanf (buf, "%s %d%*c%d\n", day, &start, &stop) != 3)	520	else if (sscanf (buf, "%s %d%*c%d\n", day, &start, &stop) != 3)
1250	{	521	{
1251	LOG (llevDebug, "Warning: Incomplete line in permission file ignored.\n");	522	LOG (llevDebug, "Warning: Incomplete line in permission file ignored.\n");
1252	continue;	523	continue;
…		…
1266	return 0;	537	return 0;
1267	#endif	538	#endif
1268	}	539	}
1269		540
1270	/*	541	/*
1271	* do_specials() is a collection of functions to call from time to time.	542	* do_specials() is a collection of functions to call from time to time.
1272	* Modified 2000-1-14 MSW to use the global pticks count to determine how	543	* Modified 2000-1-14 MSW to use the global pticks count to determine how
1273	* often to do things. This will allow us to spred them out more often.	544	* often to do things. This will allow us to spred them out more often.
1274	* I use prime numbers for the factor count - in that way, it is less likely	545	* I use prime numbers for the factor count - in that way, it is less likely
1275	* these actions will fall on the same tick (compared to say using 500/2500/15000	546	* these actions will fall on the same tick (compared to say using 500/2500/15000
1276	* which would mean on that 15,000 tick count a whole bunch of stuff gets	547	* which would mean on that 15,000 tick count a whole bunch of stuff gets
…		…
1290	tick_the_clock ();	561	tick_the_clock ();
1291		562
1292	if (!(pticks % 7))	563	if (!(pticks % 7))
1293	shstr::gc ();	564	shstr::gc ();
1294		565
1295	if (!(pticks % 79))
1296	flush_old_maps (); /* Clears the tmp-files of maps which have reset */
1297
1298	if (!(pticks % 2503))	566	if (!(pticks % 2503))
1299	fix_weight (); /* Hack to fix weightproblems caused by bugs */	567	fix_weight (); /* Hack to fix weightproblems caused by bugs */
1300		568
1301	if (!(pticks % 5003))	569	if (!(pticks % 5003))
1302	write_book_archive ();	570	write_book_archive ();
…		…
1312	}	580	}
1313		581
1314	void	582	void
1315	server_tick ()	583	server_tick ()
1316	{	584	{
1317	nroferrors = 0;
1318
1319	// first do the user visible stuff	585	// first do the user visible stuff
1320	doeric_server ();	586	doeric_server ();
1321	INVOKE_GLOBAL (CLOCK);	587	INVOKE_GLOBAL (CLOCK);
1322	process_events (); /* "do" something with objects with speed */	588	process_events (); /* "do" something with objects with speed */
1323	flush_sockets ();	589	flush_sockets ();
1324		590
1325	// then do some bookkeeping, should not really be here	591	// then do some bookkeeping, should not really be here
1326	check_active_maps (); /* Removes unused maps after a certain timeout */
1327	do_specials (); /* Routines called from time to time. */	592	do_specials (); /* Routines called from time to time. */
1328	object::free_mortals ();	593	attachable::check_mortals ();
1329		594
1330	++pticks;	595	++pticks;
		596	}
		597
		598	#if 0
		599	// used fro benchmarking (x86/amd64-specific)
		600	typedef unsigned long tval;
		601	typedef unsigned long long stamp64;
		602
		603	extern inline tval
		604	stamp (void)
		605	{
		606	tval tsc;
		607	asm volatile ("rdtsc":"=a" (tsc)::"edx");
		608
		609	return tsc;
		610	}
		611
		612	extern inline tval
		613	measure (tval t)
		614	{
		615	tval tsc;
		616	asm volatile ("rdtsc":"=a" (tsc)::"edx");
		617
		618	if (tsc > t)
		619	return tsc - t;
		620	else
		621	return t - tsc;
1331	}	622	}
1332		623
1333	int	624	int
1334	main (int argc, char **argv)	625	main (int argc, char **argv)
1335	{	626	{
		627	rand_gen rg(0);
		628	tval fastest = 0x7fffffff;
		629	for (int loop = 10000; loop--; )
		630	{
		631	tval s = stamp ();
		632	volatile int i = rg.get_int(25);
		633	fastest = min (fastest, measure (s));
		634	}
		635
		636	//printf ("fastest %d\n", fastest);
		637	for (int i = 0; i < 102410243; ++i)
		638	{
		639	char c = rg.get_int (256);
		640	write (2, &c, 1);
		641	}
		642	}
		643
		644	#else
		645
		646	// normal main
		647	int
		648	main (int argc, char **argv)
		649	{
1336	settings.argc = argc;	650	settings.argc = argc;
1337	settings.argv = argv;	651	settings.argv = argv;
1338		652
1339	init (argc, argv);	653	init (argc, argv);
		654	init_environ ();
1340		655
1341	initPlugins ();	656	initPlugins ();
1342		657
1343	for (;;)	658	for (;;)
1344	cfperl_main ();	659	cfperl_main ();
1345
1346	// unreached
1347	emergency_save (0);
1348	cleanup ();
1349
1350	return 0;
1351	}	660	}
		661	#endif
		662

Diff Legend

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

Comparing deliantra/server/server/main.C (file contents): Revision 1.54 by root, Sat Dec 23 06:21:02 2006 UTC vs. Revision 1.92 by root, Tue Mar 6 03:06:00 2007 UTC

Diff Legend

Comparing deliantra/server/server/main.C (file contents):
Revision 1.54 by root, Sat Dec 23 06:21:02 2006 UTC vs.
Revision 1.92 by root, Tue Mar 6 03:06:00 2007 UTC