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

Comparing deliantra/server/server/main.C (file contents):
Revision 1.60 by root, Wed Dec 27 09:28:02 2006 UTC vs.
Revision 1.100 by root, Mon Apr 30 04:25:30 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 = newmap->enter_x;	137	x = newmap->enter_x;
220	y = newmap->enter_y;	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, newmap->width, newmap->height);	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)
297	{	209	if (object *golem = contr->golem)
298	int i = find_free_spot (op->contr->ranges[range_golem], newmap,
299	x, y, 1, SIZEOFFREE);
300
301	op->contr->ranges[range_golem]->remove ();
302
303	if (i == -1)
304	{	210	{
305	remove_friendly_object (op->contr->ranges[range_golem]);	211	int i = find_free_spot (golem, newmap, x, y, 1, SIZEOFFREE);
306	op->contr->ranges[range_golem]->destroy ();	212
307	op->contr->ranges[range_golem] = 0;	213	if (i < 0)
308	}	214	golem->destroy ();
309	else	215	else
310	{
311	for (object *tmp = op->contr->ranges[range_golem]; tmp != NULL; tmp = tmp->more)
312	{	216	{
313	tmp->x = x + freearr_x[i] + (tmp->arch == NULL ? 0 : tmp->arch->clone.x);	217	newmap->insert (golem, x + freearr_x[i], y + freearr_y[i]);
314	tmp->y = y + freearr_y[i] + (tmp->arch == NULL ? 0 : tmp->arch->clone.y);	218	golem->direction = find_dir_2 (x - golem->x, y - golem->y);
315	tmp->map = newmap;
316	}	219	}
317
318	insert_ob_in_map (op->contr->ranges[range_golem], newmap, NULL, 0);
319	op->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);
321	}	220	}
322	}
323
324	op->direction = 0;
325		221
326	/* since the players map is already loaded, we don't need to worry	222	/* since the players map is already loaded, we don't need to worry
327	* about pending objects.	223	* about pending objects.
328	*/	224	*/
329	remove_all_pets (newmap);	225	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 = oldmap->timeout;
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) = new_map->enter_x;
453	y = EXIT_Y (exit_ob) = new_map->enter_y;
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) = new_map->enter_x;
608	y = EXIT_Y (exit_ob) = new_map->enter_y;
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 = newmap->enter_x;
815	y = newmap->enter_y;
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	}	226	}
887		227
888	/* process_players1 and process_players2 do all the player related stuff.	228	/* 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	229	* 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	230	* extent for debugging as well as to get a better idea of the time used
…		…
893	* is needed after the players have been updated.	233	* is needed after the players have been updated.
894	*/	234	*/
895	static void	235	static void
896	process_players1 ()	236	process_players1 ()
897	{	237	{
898	int flag;
899
900	/* Basically, we keep looping until all the players have done their actions. */	238	/* Basically, we keep looping until all the players have done their actions. */
901	for (flag = 1; flag != 0;)	239	for (int flag = 1; flag != 0;)
902	{	240	{
903	flag = 0;	241	flag = 0;
904	for_all_players (pl)	242	for_all_players (pl)
905	{	243	{
906	pl->refcnt_chk ();	244	pl->refcnt_chk ();
907		245
908	if (!pl->ob \|\| !pl->ns)	246	if (!pl->ob \|\| !pl->ns \|\| !pl->ob->active)
909	continue;	247	continue;
910		248
911	if (pl->ob->speed_left > 0)	249	if (pl->ob->speed_left > 0 && pl->ns)
912	if (handle_newcs_player (pl->ob))	250	if (handle_newcs_player (pl->ob))
913	flag = 1;	251	flag = 1;
914		252
915	/* If the player is not actively playing, don't make a	253	/* If the player is not actively playing, don't make a
916	* backup save - nothing to save anyway. Plus, the	254	* backup save - nothing to save anyway. Plus, the
…		…
918	* player quits - they exist for purposes of tracking on the map,	256	* player quits - they exist for purposes of tracking on the map,
919	* but don't actually reside on any actual map.	257	* but don't actually reside on any actual map.
920	*/	258	*/
921	if (QUERY_FLAG (pl->ob, FLAG_REMOVED))	259	if (QUERY_FLAG (pl->ob, FLAG_REMOVED))
922	continue;	260	continue;
923
924	#ifdef AUTOSAVE
925	/* check for ST_PLAYING state so that we don't try to save off when
926	* the player is logging in.
927	*/
928	if ((pl->last_save_tick + AUTOSAVE) < (uint32) pticks && pl->ns->state == ST_PLAYING)
929	{
930	pl->ob->contr->save ();
931	pl->last_save_tick = pticks;
932	}
933	#endif
934	} /* end of for loop for all the players */	261	} /* end of for loop for all the players */
935	} /* for flag */	262	} /* for flag */
936		263
937	for_all_players (pl)	264	for_all_players (pl)
938	{	265	{
939	if (!pl->ob \|\| !pl->ns)	266	if (!pl->ob \|\| !pl->ns \|\| !pl->ob->active)
940	continue;	267	continue;
941		268
942	if (settings.casting_time)	269	if (settings.casting_time)
943	{	270	{
944	if (pl->ob->casting_time > 0)	271	if (pl->ob->casting_time > 0)
…		…
984	}	311	}
985		312
986	void	313	void
987	process_events ()	314	process_events ()
988	{	315	{
989	object *op;
990
991	static object_ptr marker_;
992
993	if (!marker_)
994	marker_ = object::create ();
995
996	object *marker = marker_;
997
998	process_players1 ();	316	process_players1 ();
999		317
1000	marker->active_next = active_objects;	318	for_all_actives (op)
1001
1002	if (marker->active_next)
1003	marker->active_next->active_prev = marker;
1004
1005	marker->active_prev = 0;
1006	active_objects = marker;
1007
1008	while (marker->active_next)
1009	{	319	{
1010	op = marker->active_next;
1011
1012	/* Move marker forward - swap op and marker */
1013	op->active_prev = marker->active_prev;
1014
1015	if (op->active_prev)
1016	op->active_prev->active_next = op;
1017	else
1018	active_objects = op;
1019
1020	marker->active_next = op->active_next;
1021
1022	if (marker->active_next)
1023	marker->active_next->active_prev = marker;
1024
1025	marker->active_prev = op;
1026	op->active_next = marker;
1027
1028	/* Now process op */	320	/* Now process op */
1029	if (QUERY_FLAG (op, FLAG_FREED))	321	if (QUERY_FLAG (op, FLAG_FREED))
1030	{	322	{
1031	LOG (llevError, "BUG: process_events(): Free object on list\n");	323	LOG (llevError, "BUG: process_events(): Free object on list\n");
1032	op->set_speed (0);	324	op->set_speed (0);
1033	continue;	325	continue;
1034	}	326	}
1035		327
1036	/* I've seen occasional crashes due to this - the object is removed,	328	if (!op->has_active_speed ())
1037	* and thus the map it points to (last map it was on) may be bogus
1038	* The real bug is to try to find out the cause of this - someone
1039	* is probably calling remove_ob without either an insert_ob or
1040	* free_object afterwards, leaving an object dangling. But I'd
1041	* rather log this and continue on instead of crashing.
1042	* Don't remove players - when a player quits, the object is in
1043	* sort of a limbo, of removed, but something we want to keep
1044	* around.
1045	*/
1046	if (QUERY_FLAG (op, FLAG_REMOVED) && op->type != PLAYER && op->map && op->map->in_memory != MAP_IN_MEMORY)
1047	{
1048	LOG (llevError, "BUG: process_events(): Removed object on list\n");
1049	char *dump = dump_object (op);
1050	LOG (llevError, dump);
1051	free (dump);
1052	op->destroy ();
1053	continue;
1054	}	329	{
1055
1056	if (!op->speed)
1057	{
1058	LOG (llevError, "BUG: process_events(): Object %s has no speed, "	330	LOG (llevError, "BUG: process_events(): Object %s has no speed (%f), "
1059	"but is on active list\n", &op->arch->name);	331	"but is on active list\n", op->debug_desc (), op->speed);
1060	op->set_speed (0);	332	op->set_speed (0);
1061	continue;	333	continue;
1062	}	334	}
1063		335
1064	if (op->map == NULL && op->env == NULL && op->name && op->type != MAP)	336	if (op->flag [FLAG_REMOVED])
1065	{	337	{
1066	LOG (llevError, "BUG: process_events(): Object without map or "	338	LOG (llevError, "BUG: process_events(): removed object is on active list: %s\n",
1067	"inventory is on active list: %s (%d)\n", &op->name, op->count);	339	op->debug_desc ());
1068	op->set_speed (0);	340	op->set_speed (0);
1069	continue;	341	continue;
1070	}	342	}
1071		343
1072	/* Animate the object. Bug or feature that anim_speed	344	/* Animate the object. Bug or feature that anim_speed
1073	* is based on ticks, and not the creatures speed?	345	* is based on ticks, and not the creatures speed?
1074	*/	346	*/
1075	if (op->anim_speed && op->last_anim >= op->anim_speed)	347	if (op->anim_speed && op->last_anim >= op->anim_speed)
1076	{	348	{
1077	if ((op->type == PLAYER))	349	animate_object (op, op->type == PLAYER ? op->facing : op->direction);
1078	animate_object (op, op->facing);
1079	else
1080	animate_object (op, op->direction);
1081		350
1082	op->last_anim = 1;	351	op->last_anim = 1;
1083	}	352	}
1084	else	353	else
1085	op->last_anim++;	354	op->last_anim++;
…		…
1112		381
1113	if (op->speed_left <= 0)	382	if (op->speed_left <= 0)
1114	op->speed_left += FABS (op->speed);	383	op->speed_left += FABS (op->speed);
1115	}	384	}
1116		385
1117	/* Remove marker object from active list */	386	process_players2 ();
1118	if (marker->active_prev != NULL)	387	}
1119	marker->active_prev->active_next = NULL;	388
		389	/* clean up everything before exiting */
		390	void
		391	emergency_save ()
		392	{
		393	LOG (llevDebug, "emergency save begin.\n");
		394
		395	cfperl_emergency_save ();
		396
		397	LOG (llevDebug, "saving book archive.\n");
		398	write_book_archive ();
		399
		400	LOG (llevDebug, "emergency save done.\n");
		401	}
		402
		403	// send all clients some informational text
		404	static void
		405	cleanup_inform (const char *cause, bool make_core)
		406	{
		407	int flags = NDI_UNIQUE \| NDI_ALL \| (make_core ? NDI_RED : NDI_GREEN);
		408
		409	new_draw_info_format (flags, 0, 0, "The server will now shutdown.\n");
		410	new_draw_info_format (flags, 0, 0, "Cause for this shutdown: %s\n", cause);
		411
		412	if (make_core)
		413	new_draw_info_format (flags, 0, 0, "This is considered a crash, but all maps and players have been saved.\n");
1120	else	414	else
1121	active_objects = NULL;	415	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");
1122		416
1123	process_players2 ();	417	new_draw_info_format (flags, 0, 0, "%s\n", CLEANUP_MESSAGE);
1124	}
1125		418
1126	void	419	flush_sockets ();
1127	clean_tmp_files (void)
1128	{
1129	maptile m, next;
1130
1131	LOG (llevInfo, "Cleaning up...\n");
1132
1133	/* We save the maps - it may not be intuitive why, but if there are unique
1134	* items, we need to save the map so they get saved off. Perhaps we should
1135	* just make a special function that only saves the unique items.
1136	*/
1137	for_all_maps (m)
1138	if (m->in_memory == MAP_IN_MEMORY)
1139	/* If we want to reuse the temp maps, swap it out (note that will also
1140	* update the log file.
1141	*/
1142	swap_map (m);
1143
1144	write_todclock (); /* lets just write the clock here */
1145	}	420	}
1146		421
1147	/* clean up everything before exiting */	422	/* clean up everything before exiting */
1148	void	423	void
1149	cleanup (bool make_core)	424	cleanup (const char *cause, bool make_core)
1150	{	425	{
1151	LOG (llevDebug, "Cleanup called.\n");
1152
1153	if (init_done)
1154	{
1155	for_all_players (pl)
1156	pl->save (1);
1157
1158	for_all_players (pl)
1159	if (!QUERY_FLAG (pl->ob, FLAG_REMOVED))
1160	leave_map (pl->ob);
1161
1162	clean_tmp_files ();
1163	write_book_archive ();
1164
1165	INVOKE_GLOBAL (CLEANUP);
1166	}
1167
1168	if (make_core)	426	if (make_core)
1169	abort ();	427	fork_abort (cause);
		428
		429	LOG (llevError, "cleanup cause: %s\n", cause);
		430
		431	if (!make_core)
		432	cleanup_inform (cause, make_core);
		433
		434	LOG (llevDebug, "cleanup begin.\n");
		435
		436	if (init_done && !in_cleanup)
		437	{
		438	in_cleanup = true;
		439	emergency_save ();
		440	}
1170	else	441	else
		442	in_cleanup = true;
		443
		444	LOG (llevDebug, "running cleanup handlers.\n");
		445	INVOKE_GLOBAL (CLEANUP);
		446
		447	LOG (llevDebug, "cleanup done.\n");
		448
		449	if (make_core)
		450	{
		451	cleanup_inform (cause, make_core);
		452	cfperl_cleanup (make_core);
		453	_exit (1);
		454	}
		455	else
		456	{
		457	new_draw_info_format (NDI_UNIQUE \| NDI_ALL \| NDI_GREEN, 0, 0, "Maps and players successfully saved, exiting.\n");
		458	new_draw_info_format (NDI_UNIQUE \| NDI_ALL \| NDI_GREEN, 0, 0, "And again: " CLEANUP_MESSAGE "\n");
		459	flush_sockets ();
		460	cfperl_cleanup (make_core);
1171	_exit (0);	461	_exit (0);
1172	}
1173
1174	void
1175	leave (player *pl, int draw_exit)
1176	{
1177	if (pl)
1178	{
1179	if (pl->ob->type != DEAD_OBJECT)
1180	{
1181	/* If a hidden dm dropped connection do not create
1182	* inconsistencies by showing that they have left the game
1183	*/
1184	if (!(QUERY_FLAG (pl->ob, FLAG_WIZ) && pl->ob->contr->hidden)
1185	&& draw_exit)
1186	{
1187	if (pl->ob->map)
1188	{
1189	INVOKE_PLAYER (LOGOUT, pl);
1190	LOG (llevInfo, "LOGOUT: Player named %s from ip %s\n", &pl->ob->name, pl->ns->host);
1191	}
1192
1193	char buf[MAX_BUF];
1194
1195	sprintf (buf, "%s left the game.", &pl->ob->name);
1196	new_draw_info (NDI_UNIQUE \| NDI_ALL \| NDI_DK_ORANGE, 5, 0, buf);
1197	}
1198
1199	if (!QUERY_FLAG (pl->ob, FLAG_REMOVED))
1200	leave_map (pl->ob);
1201
1202	pl->ob->type = DEAD_OBJECT; /* To avoid problems with inventory window */
1203	}
1204
1205	/* We do this so that the socket handling routine can do the final
1206	* cleanup. We also leave that loop to actually handle the freeing
1207	* of the data.
1208	*/
1209	if (pl->ns)
1210	pl->ns->destroy ();
1211
1212	}	462	}
1213	}	463	}
1214		464
1215	int	465	int
1216	forbid_play (void)	466	forbid_play (void)
…		…
1231		481
1232	while (fgets (buf, MAX_BUF, fp))	482	while (fgets (buf, MAX_BUF, fp))
1233	{	483	{
1234	if (buf[0] == '#')	484	if (buf[0] == '#')
1235	continue;	485	continue;
		486
1236	if (!strncmp (buf, "msg", 3))	487	if (!strncmp (buf, "msg", 3))
1237	{	488	{
1238	if (forbit)	489	if (forbit)
1239	while (fgets (buf, MAX_BUF, fp)) /* print message */	490	while (fgets (buf, MAX_BUF, fp)) /* print message */
1240	fputs (buf, logfile);	491	fputs (buf, logfile);
1241	break;	492	break;
1242
1243	}	493	}
1244	else if (sscanf (buf, "%s %d%*c%d\n", day, &start, &stop) != 3)	494	else if (sscanf (buf, "%s %d%*c%d\n", day, &start, &stop) != 3)
1245	{	495	{
1246	LOG (llevDebug, "Warning: Incomplete line in permission file ignored.\n");	496	LOG (llevDebug, "Warning: Incomplete line in permission file ignored.\n");
1247	continue;	497	continue;
…		…
1261	return 0;	511	return 0;
1262	#endif	512	#endif
1263	}	513	}
1264		514
1265	/*	515	/*
1266	* do_specials() is a collection of functions to call from time to time.	516	* do_specials() is a collection of functions to call from time to time.
1267	* Modified 2000-1-14 MSW to use the global pticks count to determine how	517	* Modified 2000-1-14 MSW to use the global pticks count to determine how
1268	* often to do things. This will allow us to spred them out more often.	518	* often to do things. This will allow us to spred them out more often.
1269	* I use prime numbers for the factor count - in that way, it is less likely	519	* I use prime numbers for the factor count - in that way, it is less likely
1270	* these actions will fall on the same tick (compared to say using 500/2500/15000	520	* these actions will fall on the same tick (compared to say using 500/2500/15000
1271	* which would mean on that 15,000 tick count a whole bunch of stuff gets	521	* which would mean on that 15,000 tick count a whole bunch of stuff gets
…		…
1273	* done on the same tick, but that will happen very infrequently	523	* done on the same tick, but that will happen very infrequently
1274	*	524	*
1275	* I also think this code makes it easier to see how often we really are	525	* I also think this code makes it easier to see how often we really are
1276	* doing the various things.	526	* doing the various things.
1277	*/	527	*/
1278
1279	extern unsigned long todtick;
1280
1281	void	528	void
1282	do_specials (void)	529	do_specials (void)
1283	{	530	{
1284	if (!(pticks % PTICKS_PER_CLOCK))	531	if (!(pticks % TICKS_PER_HOUR))
1285	tick_the_clock ();	532	adjust_daylight ();
1286		533
1287	if (!(pticks % 7))	534	if (!(pticks % 7))
1288	shstr::gc ();	535	shstr::gc ();
1289		536
1290	if (!(pticks % 79))
1291	flush_old_maps (); /* Clears the tmp-files of maps which have reset */
1292
1293	if (!(pticks % 2503))	537	if (!(pticks % 2503))
1294	fix_weight (); /* Hack to fix weightproblems caused by bugs */	538	fix_weight (); /* Hack to fix weightproblems caused by bugs */
1295		539
1296	if (!(pticks % 5003))	540	if (!(pticks % 5003))
1297	write_book_archive ();	541	write_book_archive ();
…		…
1307	}	551	}
1308		552
1309	void	553	void
1310	server_tick ()	554	server_tick ()
1311	{	555	{
1312	nroferrors = 0;
1313
1314	// first do the user visible stuff	556	// first do the user visible stuff
1315	doeric_server ();	557	doeric_server ();
1316	INVOKE_GLOBAL (CLOCK);	558	INVOKE_GLOBAL (CLOCK);
1317	process_events (); /* "do" something with objects with speed */	559	process_events (); /* "do" something with objects with speed */
1318	flush_sockets ();	560	flush_sockets ();
1319		561
1320	// then do some bookkeeping, should not really be here	562	// then do some bookkeeping, should not really be here
1321	check_active_maps (); /* Removes unused maps after a certain timeout */
1322	do_specials (); /* Routines called from time to time. */	563	do_specials (); /* Routines called from time to time. */
1323	attachable::check_mortals ();	564	attachable::check_mortals ();
1324		565
1325	++pticks;	566	++pticks;
1326	}	567	}
1327		568
		569	#if 0
		570	// used fro benchmarking (x86/amd64-specific)
		571	typedef unsigned long tval;
		572	typedef unsigned long long stamp64;
		573
		574	extern inline tval
		575	stamp (void)
		576	{
		577	tval tsc;
		578	asm volatile ("rdtsc":"=a" (tsc)::"edx");
		579
		580	return tsc;
		581	}
		582
		583	extern inline tval
		584	measure (tval t)
		585	{
		586	tval tsc;
		587	asm volatile ("rdtsc":"=a" (tsc)::"edx");
		588
		589	if (tsc > t)
		590	return tsc - t;
		591	else
		592	return t - tsc;
		593	}
		594
1328	int	595	int
1329	main (int argc, char **argv)	596	main (int argc, char **argv)
1330	{	597	{
		598	rand_gen rg(0);
		599	tval fastest = 0x7fffffff;
		600	for (int loop = 10000; loop--; )
		601	{
		602	tval s = stamp ();
		603	volatile int i = rg.get_int(25);
		604	fastest = min (fastest, measure (s));
		605	}
		606
		607	//printf ("fastest %d\n", fastest);
		608	for (int i = 0; i < 102410243; ++i)
		609	{
		610	char c = rg.get_int (256);
		611	write (2, &c, 1);
		612	}
		613	}
		614
		615	#else
		616
		617	// normal main
		618	int
		619	main (int argc, char **argv)
		620	{
1331	settings.argc = argc;	621	settings.argc = argc;
1332	settings.argv = argv;	622	settings.argv = argv;
1333		623
1334	init (argc, argv);	624	init (argc, argv);
1335		625
1336	initPlugins ();	626	initPlugins ();
1337		627
1338	for (;;)	628	for (;;)
1339	cfperl_main ();	629	cfperl_main ();
1340
1341	// unreached
1342	emergency_save (0);
1343	cleanup ();
1344
1345	return 0;
1346	}	630	}
		631	#endif
		632

Diff Legend

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

Comparing deliantra/server/server/main.C (file contents): Revision 1.60 by root, Wed Dec 27 09:28:02 2006 UTC vs. Revision 1.100 by root, Mon Apr 30 04:25:30 2007 UTC

Diff Legend

Comparing deliantra/server/server/main.C (file contents):
Revision 1.60 by root, Wed Dec 27 09:28:02 2006 UTC vs.
Revision 1.100 by root, Mon Apr 30 04:25:30 2007 UTC