[ViewVC] Diff of: cvs/deliantra/server/server/c

Comparing deliantra/server/server/c_wiz.C (file contents):
Revision 1.30 by pippijn, Sat Jan 6 14:42:30 2007 UTC vs.
Revision 1.88 by root, Fri Jan 27 22:00:40 2012 UTC

…		…
1	/*	1	/*
2	CrossFire, A Multiplayer game for X-windows	2	* This file is part of Deliantra, the Roguelike Realtime MMORPG.
3		3	*
4	Copyright (C) 2005, 2006, 2007 Marc Lehmann & Crossfire+ Development Team	4	* Copyright (©) 2005,2006,2007,2008,2009,2010,2011,2012 Marc Alexander Lehmann / Robin Redeker / the Deliantra team
5	Copyright (C) 2002 Mark Wedel & Crossfire Development Team	5	* Copyright (©) 2002 Mark Wedel & Crossfire Development Team
6	Copyright (C) 1992 Frank Tore Johansen	6	* Copyright (©) 1992 Frank Tore Johansen
7		7	*
8	This program is free software; you can redistribute it and/or modify	8	* Deliantra is free software: you can redistribute it and/or modify it under
9	it under the terms of the GNU General Public License as published by	9	* the terms of the Affero GNU General Public License as published by the
10	the Free Software Foundation; either version 2 of the License, or	10	* Free Software Foundation, either version 3 of the License, or (at your
11	(at your option) any later version.	11	* option) any later version.
12		12	*
13	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,
14	but WITHOUT ANY WARRANTY; without even the implied warranty of	14	* but WITHOUT ANY WARRANTY; without even the implied warranty of
15	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the	15	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16	GNU General Public License for more details.	16	* GNU General Public License for more details.
17		17	*
18	You should have received a copy of the GNU General Public License	18	* You should have received a copy of the Affero GNU General Public License
19	along with this program; if not, write to the Free Software	19	* and the GNU General Public License along with this program. If not, see
20	Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.	20	* <http://www.gnu.org/licenses/>.
21		21	*
22	The authors can be reached via e-mail at <crossfire@schmorp.de>	22	* The authors can be reached via e-mail to <support@deliantra.net>
23	*/	23	*/
24		24
25	#include <global.h>	25	#include <global.h>
26	#include <sproto.h>	26	#include <sproto.h>
27	#include <spells.h>	27	#include <spells.h>
28	#include <treasure.h>	28	#include <treasure.h>
34	/* Values for 'from' field of get_dm_object */	34	/* Values for 'from' field of get_dm_object */
35	#define STACK_FROM_NONE 0 /* Item was not found */	35	#define STACK_FROM_NONE 0 /* Item was not found */
36	#define STACK_FROM_TOP 1 /* Item is stack top */	36	#define STACK_FROM_TOP 1 /* Item is stack top */
37	#define STACK_FROM_STACK 2 /* Item is somewhere in stack */	37	#define STACK_FROM_STACK 2 /* Item is somewhere in stack */
38	#define STACK_FROM_NUMBER 3 /* Item is a number (may be top) */	38	#define STACK_FROM_NUMBER 3 /* Item is a number (may be top) */
39
40		39
41	/**	40	/**
42	* Enough of the DM functions seem to need this that I broke	41	* Enough of the DM functions seem to need this that I broke
43	* it out to a seperate function. name is the person	42	* it out to a seperate function. name is the person
44	* being saught, rq is who is looking for them. This	43	* being saught, rq is who is looking for them. This
…		…
71		70
72	new_draw_info (NDI_UNIQUE, 0, op, "No such player.");	71	new_draw_info (NDI_UNIQUE, 0, op, "No such player.");
73	return 0;	72	return 0;
74	}	73	}
75		74
		75	static void
		76	dm_stack_pop (player *pl)
		77	{
		78	if (!pl->stack_items \|\| !pl->stack_position)
		79	{
		80	new_draw_info (NDI_UNIQUE, 0, pl->ob, "Empty stack!");
		81	return;
		82	}
		83
		84	pl->stack_position--;
		85	new_draw_info_format (NDI_UNIQUE, 0, pl->ob, "Popped item from stack, %d left.", pl->stack_position);
		86	}
		87
		88	/**
		89	* Get current stack top item for player.
		90	* Returns NULL if no stacked item.
		91	* If stacked item disappeared (freed), remove it.
		92	*
		93	* Ryo, august 2004
		94	*/
		95	static object *
		96	dm_stack_peek (player *pl)
		97	{
		98	object *ob;
		99
		100	if (!pl->stack_position)
		101	{
		102	new_draw_info (NDI_UNIQUE, 0, pl->ob, "Empty stack!");
		103	return NULL;
		104	}
		105
		106	ob = find_object (pl->stack_items[pl->stack_position - 1]);
		107	if (!ob)
		108	{
		109	new_draw_info (NDI_UNIQUE, 0, pl->ob, "Stacked item was removed!");
		110	dm_stack_pop (pl);
		111	return NULL;
		112	}
		113
		114	return ob;
		115	}
		116
		117	/**
		118	* Push specified item on player stack.
		119	* Inform player of position.
		120	* Initializes variables if needed.
		121	*/
		122	void
		123	dm_stack_push (player *pl, tag_t item)
		124	{
		125	if (!pl->stack_items)
		126	{
		127	pl->stack_items = (tag_t ) malloc (sizeof (tag_t) STACK_SIZE);
		128	memset (pl->stack_items, 0, sizeof (tag_t) * STACK_SIZE);
		129	}
		130
		131	if (pl->stack_position == STACK_SIZE)
		132	{
		133	new_draw_info (NDI_UNIQUE, 0, pl->ob, "Item stack full!");
		134	return;
		135	}
		136
		137	pl->stack_items[pl->stack_position] = item;
		138	new_draw_info_format (NDI_UNIQUE, 0, pl->ob, "Item stacked as %d.", pl->stack_position);
		139	pl->stack_position++;
		140	}
		141
		142	/**
		143	* Checks 'params' for object code.
		144	*
		145	* Can be:
		146	* * empty => get current object stack top for player
		147	* * number => get item with that tag, stack it for future use
		148	* * $number => get specified stack item
		149	* * "me" => player himself
		150	*
		151	* At function exit, params points to first non-object char
		152	*
		153	* 'from', if not NULL, contains at exit:
		154	* * STACK_FROM_NONE => object not found
		155	* * STACK_FROM_TOP => top item stack, may be NULL if stack was empty
		156	* * STACK_FROM_STACK => item from somewhere in the stack
		157	* * STACK_FROM_NUMBER => item by number, pushed on stack
		158	*
		159	* Ryo, august 2004
		160	*/
		161	static object *
		162	get_dm_object (player pl, char params, int from)
		163	{
		164	int item_tag, item_position;
		165	object *ob;
		166
		167	if (!pl)
		168	return NULL;
		169
		170	if (!params \|\| !params \|\| *params == '\0')
		171	{
		172	if (from)
		173	*from = STACK_FROM_TOP;
		174	/* No parameter => get stack item */
		175	return dm_stack_peek (pl);
		176	}
		177
		178	/* Let's clean white spaces */
		179	while (**params == ' ')
		180	(*params)++;
		181
		182	/* Next case: number => item tag */
		183	if (sscanf (*params, "%d", &item_tag))
		184	{
		185	/* Move parameter to next item */
		186	while (isdigit (**params))
		187	(*params)++;
		188
		189	/* And skip blanks, too */
		190	while (**params == ' ')
		191	(*params)++;
		192
		193	/* Get item */
		194	ob = find_object (item_tag);
		195	if (!ob)
		196	{
		197	if (from)
		198	*from = STACK_FROM_NONE;
		199	new_draw_info_format (NDI_UNIQUE, 0, pl->ob, "No such item %d!", item_tag);
		200	return NULL;
		201	}
		202
		203	/* Got one, let's push it on stack */
		204	dm_stack_push (pl, item_tag);
		205	if (from)
		206	*from = STACK_FROM_NUMBER;
		207	return ob;
		208	}
		209
		210	/* Next case: $number => stack item */
		211	if (sscanf (*params, "$%d", &item_position))
		212	{
		213	/* Move parameter to next item */
		214	(*params)++;
		215
		216	while (isdigit (**params))
		217	(*params)++;
		218	while (**params == ' ')
		219	(*params)++;
		220
		221	if (item_position >= pl->stack_position)
		222	{
		223	if (from)
		224	*from = STACK_FROM_NONE;
		225	new_draw_info_format (NDI_UNIQUE, 0, pl->ob, "No such stack item %d!", item_position);
		226	return NULL;
		227	}
		228
		229	ob = find_object (pl->stack_items[item_position]);
		230	if (!ob)
		231	{
		232	if (from)
		233	*from = STACK_FROM_NONE;
		234	new_draw_info_format (NDI_UNIQUE, 0, pl->ob, "Stack item %d was removed.", item_position);
		235	return NULL;
		236	}
		237
		238	if (from)
		239	*from = item_position < pl->stack_position - 1 ? STACK_FROM_STACK : STACK_FROM_TOP;
		240	return ob;
		241	}
		242
		243	/* Next case: 'me' => return pl->ob */
		244	if (!strncmp (*params, "me", 2))
		245	{
		246	if (from)
		247	*from = STACK_FROM_NUMBER;
		248	dm_stack_push (pl, pl->ob->count);
		249
		250	/* Skip to next token */
		251	(*params) += 2;
		252	while (**params == ' ')
		253	(*params)++;
		254
		255	return pl->ob;
		256	}
		257
		258	/* Last case: get stack top */
		259	if (from)
		260	*from = STACK_FROM_TOP;
		261	return dm_stack_peek (pl);
		262	}
		263
76	/**	264	/**
77	* Actually hides specified player (obviously a DM).	265	* Actually hides specified player (obviously a DM).
78	* If 'silent_dm' is non zero, other players are informed of DM entering/leaving,	266	* If 'silent_dm' is non zero, other players are informed of DM entering/leaving,
79	* else they just think someone left/entered.	267	* else they just think someone left/entered.
80	*/	268	*/
81	void	269	static void
82	do_wizard_hide (object *op, int silent_dm)	270	do_wizard_hide (object *op, int silent_dm)
83	{	271	{
84	if (op->contr->hidden)	272	if (op->contr->hidden)
85	{	273	{
86	op->contr->hidden = 0;	274	op->contr->hidden = 0;
87	op->invisible = 1;	275	op->invisible = 1;
88	new_draw_info (NDI_UNIQUE, 0, op, "You are no longer hidden from other players");	276	new_draw_info (NDI_UNIQUE, 0, op, "You are no longer hidden from other players");
89	op->map->players++;	277	op->map->players++;
90	new_draw_info_format (NDI_UNIQUE \| NDI_ALL \| NDI_DK_ORANGE, 5, NULL, "%s has entered the game.", &op->name);	278	new_draw_info_format (NDI_UNIQUE \| NDI_ALL \| NDI_DK_ORANGE, 5, NULL, "%s has entered the game.", &op->name);
		279
91	if (!silent_dm)	280	if (!silent_dm)
92	{
93	new_draw_info (NDI_UNIQUE \| NDI_ALL \| NDI_LT_GREEN, 1, NULL, "The Dungeon Master has arrived!");	281	new_draw_info (NDI_UNIQUE \| NDI_ALL \| NDI_LT_GREEN, 1, NULL, "The Dungeon Master has arrived!");
94	}
95	}	282	}
96	else	283	else
97	{	284	{
98	op->contr->hidden = 1;	285	op->contr->hidden = 1;
99	new_draw_info (NDI_UNIQUE, 0, op, "Other players will no longer see you.");	286	new_draw_info (NDI_UNIQUE, 0, op, "Other players will no longer see you.");
100	op->map->players--;	287	op->map->players--;
		288
101	if (!silent_dm)	289	if (!silent_dm)
102	{
103	new_draw_info (NDI_UNIQUE \| NDI_ALL \| NDI_LT_GREEN, 1, NULL, "The Dungeon Master is gone..");	290	new_draw_info (NDI_UNIQUE \| NDI_ALL \| NDI_LT_GREEN, 1, NULL, "The Dungeon Master is gone..");
104	}	291
105	new_draw_info_format (NDI_UNIQUE \| NDI_ALL \| NDI_DK_ORANGE, 5, NULL, "%s leaves the game.", &op->name);	292	new_draw_info_format (NDI_UNIQUE \| NDI_ALL \| NDI_DK_ORANGE, 5, NULL, "%s leaves the game.", &op->name);
106	new_draw_info_format (NDI_UNIQUE \| NDI_ALL \| NDI_DK_ORANGE, 5, NULL, "%s left the game.", &op->name);	293	new_draw_info_format (NDI_UNIQUE \| NDI_ALL \| NDI_DK_ORANGE, 5, NULL, "%s left the game.", &op->name);
107	}	294	}
108	}	295	}
109		296
…		…
169	{	356	{
170	new_draw_info_format (NDI_UNIQUE, 0, op, "No such god %s.", str);	357	new_draw_info_format (NDI_UNIQUE, 0, op, "No such god %s.", str);
171	return 1;	358	return 1;
172	}	359	}
173		360
174	become_follower (ob, god);	361	ob->become_follower (god);
175	return 1;
176	}
177
178	/**
179	* Add player's IP to ban_file and kick them off the server
180	* I know most people have dynamic IPs but this is more of a short term
181	* solution if they have to get a new IP to play maybe they'll calm down.
182	* This uses the banish_file in the local directory not the ban_file
183	* The action is logged with a ! for easy searching. -tm
184	*/
185	int
186	command_banish (object op, char params)
187	{
188	player *pl;
189	FILE *banishfile;
190	char buf[MAX_BUF];
191	time_t now;
192
193	if (!params)
194	{
195	new_draw_info (NDI_UNIQUE, 0, op, "Usage: banish <player>.");
196	return 1;
197	}
198
199	pl = get_other_player_from_name (op, params);
200	if (!pl)
201	return 1;
202
203	sprintf (buf, "%s/%s", settings.localdir, BANISHFILE);
204
205	if ((banishfile = fopen (buf, "a")) == NULL)
206	{
207	LOG (llevDebug, "Could not find file banish_file.\n");
208	new_draw_info (NDI_UNIQUE, 0, op, "Could not find banish_file.");
209	return 0;
210	}
211
212	now = time (NULL);
213	/*
214	* Record this as a comment - then we don't have to worry about changing
215	* the parsing code.
216	*/
217	fprintf (banishfile, "# %s (%s) banned by %s at %s\n", &pl->ob->name, pl->ns->host, &op->name, ctime (&now));
218	fprintf (banishfile, "*@%s\n", pl->ns->host);
219	fclose (banishfile);
220
221	LOG (llevDebug, "! %s banned %s from IP: %s.\n", &op->name, &pl->ob->name, pl->ns->host);
222	new_draw_info_format (NDI_UNIQUE \| NDI_RED, 0, op, "You banish %s", &pl->ob->name);
223	new_draw_info_format (NDI_UNIQUE \| NDI_ALL \| NDI_RED, 5, op, "%s banishes %s from the land!", &op->name, &pl->ob->name);
224	command_kick (op, (char *) &pl->ob->name);
225	return 1;
226	}
227
228	int
229	command_kick (object op, char params)
230	{
231	for_all_players (pl)
232	if ((params == NULL \|\| !strcmp (&pl->ob->name, params)) && !INVOKE_PLAYER (KICK, pl, ARG_STRING (params)))
233	{
234	object *op = pl->ob;
235
236	if (!QUERY_FLAG (op, FLAG_REMOVED) && !QUERY_FLAG (op, FLAG_FREED))
237	{
238	new_draw_info_format (NDI_UNIQUE \| NDI_ALL \| NDI_RED, 5, op, "%s is kicked out of the game.", &op->name);
239	strcpy (op->contr->killer, "kicked");
240	}
241
242	pl->ns->destroy ();
243	}
244
245	return 1;
246	}
247
248	//TODO
249	#if 0
250	int
251	command_save_overlay (object op, char params)
252	{
253	if (!op)
254	return 0;
255
256	if (op != NULL && !QUERY_FLAG (op, FLAG_WIZ))
257	{
258	new_draw_info (NDI_UNIQUE, 0, op, "Sorry, you can't force an overlay save.");
259	return 1;
260	}
261
262	new_save_map (op->map, 2);
263	new_save_map (op->map, 0);
264	new_draw_info (NDI_UNIQUE, 0, op, "Current map has been saved as an" " overlay.");
265
266	ready_map_name (op->map->path, 0);
267
268	return 1;
269	}
270	#endif
271
272	int
273	command_shutdown (object op, char params)
274	{
275	if (op && !QUERY_FLAG (op, FLAG_WIZ))
276	{
277	new_draw_info (NDI_UNIQUE, 0, op, "Sorry, you can't shutdown the server.");
278	return 1;
279	}
280
281	cleanup ("dm initiated shutdown", 0);
282
283	/* not reached */
284	return 1;	362	return 1;
285	}	363	}
286		364
287	int	365	int
288	command_freeze (object op, char params)	366	command_freeze (object op, char params)
…		…
345	/* we have nowhere to send the prisoner.... */	423	/* we have nowhere to send the prisoner.... */
346	new_draw_info (NDI_UNIQUE, 0, op, "can't jail player, there is no map to hold them");	424	new_draw_info (NDI_UNIQUE, 0, op, "can't jail player, there is no map to hold them");
347	return 0;	425	return 0;
348	}	426	}
349		427
350	pl->ob->enter_exit (dummy);	428	pl->ob->player_goto (dummy->slaying, dummy->stats.hp, dummy->stats.sp);//TODO
351	dummy->destroy ();	429	dummy->destroy ();
		430
352	new_draw_info (NDI_UNIQUE, 0, pl->ob, "You have been arrested.");	431	new_draw_info (NDI_UNIQUE, 0, pl->ob, "You have been arrested.");
353	new_draw_info (NDI_UNIQUE, 0, op, "OK.");	432	new_draw_info (NDI_UNIQUE, 0, op, "OK.");
354	LOG (llevInfo, "Player %s arrested by %s\n", &pl->ob->name, &op->name);	433	LOG (llevInfo, "Player %s arrested by %s\n", &pl->ob->name, &op->name);
355	return 1;	434	return 1;
356	}	435	}
357		436
358	int	437	int
359	command_summon (object op, char params)	438	command_summon (object op, char params)
360	{	439	{
361	int i;	440	int i;
362	object *dummy;
363	player *pl;	441	player *pl;
364		442
365	if (!op)	443	if (!op)
366	return 0;	444	return 0;
367		445
…		…
373		451
374	pl = get_other_player_from_name (op, params);	452	pl = get_other_player_from_name (op, params);
375	if (!pl)	453	if (!pl)
376	return 1;	454	return 1;
377		455
378	i = find_free_spot (op, op->map, op->x, op->y, 1, 9);	456	maptile *m = op->map;
		457	sint16 nx = op->x;
		458	sint16 ny = op->y;
		459
		460	i = find_free_spot (op, m, nx, ny, 1, SIZEOFFREE1+1);
379	if (i == -1)	461	if (i == -1)
380	{	462	{
381	new_draw_info (NDI_UNIQUE, 0, op, "Can not find a free spot to place summoned player.");	463	new_draw_info (NDI_UNIQUE, 0, op, "Can not find a free spot to place summoned player.");
382	return 1;	464	return 1;
383	}	465	}
384		466
385	dummy = object::create ();	467	nx += freearr_x [i];
386	EXIT_PATH (dummy) = op->map->path;	468	ny += freearr_y [i];
387	EXIT_X (dummy) = op->x + freearr_x[i];	469
388	EXIT_Y (dummy) = op->y + freearr_y[i];	470	if (!xy_normalise (m, nx, ny))
389	pl->ob->enter_exit (dummy);	471	{
390	dummy->destroy ();	472	new_draw_info (NDI_UNIQUE, 0, op, "Can not find a free spot to place summoned player.");
		473	return 1;
		474	}
		475
		476	pl->ob->player_goto (m->path, nx, ny);
391	new_draw_info (NDI_UNIQUE, 0, pl->ob, "You are summoned.");	477	new_draw_info (NDI_UNIQUE, 0, pl->ob, "You are summoned.");
392	new_draw_info (NDI_UNIQUE, 0, op, "OK.");	478	new_draw_info (NDI_UNIQUE, 0, op, "OK.");
393		479
394	return 1;
395	}
396
397	/**
398	* Teleport next to target player.
399	*/
400
401	/* mids 01/16/2002 */
402	int
403	command_teleport (object op, char params)
404	{
405	int i;
406	object *dummy;
407	player *pl;
408
409	if (!op)
410	return 0;
411
412	if (params == NULL)
413	{
414	new_draw_info (NDI_UNIQUE, 0, op, "Usage: teleport <player>.");
415	return 1;
416	}
417
418	pl = get_other_player_from_name (op, params);
419	if (!pl)
420	return 1;
421
422	i = find_free_spot (pl->ob, pl->ob->map, pl->ob->x, pl->ob->y, 1, 9);
423	if (i == -1)
424	{
425	new_draw_info (NDI_UNIQUE, 0, op, "Can not find a free spot to teleport to.");
426	return 1;
427	}
428
429	dummy = object::create ();
430	EXIT_PATH (dummy) = pl->ob->map->path;
431	EXIT_X (dummy) = pl->ob->x + freearr_x[i];
432	EXIT_Y (dummy) = pl->ob->y + freearr_y[i];
433	op->enter_exit (dummy);
434	dummy->destroy ();
435	if (!op->contr->hidden)
436	new_draw_info (NDI_UNIQUE, 0, pl->ob, "You see a portal open.");
437	new_draw_info (NDI_UNIQUE, 0, op, "OK.");
438	return 1;	480	return 1;
439	}	481	}
440		482
441	/**	483	/**
442	* This function is a real mess, because we're stucking getting	484	* This function is a real mess, because we're stucking getting
…		…
456	int	498	int
457	command_create (object op, char params)	499	command_create (object op, char params)
458	{	500	{
459	object *tmp = NULL;	501	object *tmp = NULL;
460	int nrof, i, magic, set_magic = 0, set_nrof = 0, gotquote, gotspace;	502	int nrof, i, magic, set_magic = 0, set_nrof = 0, gotquote, gotspace;
461	char buf[MAX_BUF], cp, bp = buf, bp2, bp3, bp4, endline;	503	char buf[MAX_BUF], cp, bp = buf, bp2, bp3, *endline;
462	archetype at, at_spell = NULL;	504	archetype at, at_spell = NULL;
463	artifact *art = NULL;	505	artifact *art = NULL;
464		506
465	if (!op)	507	if (!op)
466	return 0;	508	return 0;
…		…
532	* we also set up spell_name which is only	574	* we also set up spell_name which is only
533	* the first word.	575	* the first word.
534	*/	576	*/
535		577
536	at_spell = archetype::find (cp);	578	at_spell = archetype::find (cp);
537	if (!at_spell \|\| at_spell->clone.type != SPELL)	579	if (!at_spell \|\| at_spell->type != SPELL)
538	at_spell = find_archetype_by_object_name (cp);	580	at_spell = find_archetype_by_object_name (cp);
539	if (!at_spell \|\| at_spell->clone.type != SPELL)	581	if (!at_spell \|\| at_spell->type != SPELL)
540	{	582	{
541	strcpy (spell_name, cp);	583	assign (spell_name, cp);
542	fsp = strchr (spell_name, ' ');	584	fsp = strchr (spell_name, ' ');
543	if (fsp)	585	if (fsp)
544	{	586	{
545	*fsp = 0;	587	*fsp = 0;
546	fsp++;	588	fsp++;
547	at_spell = archetype::find (spell_name);	589	at_spell = archetype::find (spell_name);
548		590
549	/* Got a spell, update the first string pointer */	591	/* Got a spell, update the first string pointer */
550	if (at_spell && at_spell->clone.type == SPELL)	592	if (at_spell && at_spell->type == SPELL)
551	bp2 = cp + strlen (spell_name) + 1;	593	bp2 = cp + strlen (spell_name) + 1;
552	else	594	else
553	at_spell = NULL;	595	at_spell = NULL;
554	}	596	}
555	}	597	}
…		…
557	/* OK - we didn't find a spell - presume the 'of'	599	/* OK - we didn't find a spell - presume the 'of'
558	* in this case means its an artifact.	600	* in this case means its an artifact.
559	*/	601	*/
560	if (!at_spell)	602	if (!at_spell)
561	{	603	{
562	if (find_artifactlist (at->clone.type) == NULL)	604	if (find_artifactlist (at->type) == NULL)
563	new_draw_info_format (NDI_UNIQUE, 0, op, "No artifact list for type %d\n", at->clone.type);	605	new_draw_info_format (NDI_UNIQUE, 0, op, "No artifact list for type %d\n", at->type);
564	else	606	else
565	{	607	{
566	art = find_artifactlist (at->clone.type)->items;	608	art = find_artifactlist (at->type)->items;
567		609
568	do	610	while (art)
569	{	611	{
570	if (!strcmp (art->item->name, cp))	612	if (!strcmp (&art->item->name, cp))
571	break;	613	break;
		614
572	art = art->next;	615	art = art->next;
573	}	616	}
574	while (art != NULL);
575		617
576	if (!art)	618	if (!art)
577	new_draw_info_format (NDI_UNIQUE, 0, op, "No such artifact ([%d] of %s)", at->clone.type, cp);	619	new_draw_info_format (NDI_UNIQUE, 0, op, "No such artifact ([%d] of %s)", at->type, cp);
578	}	620	}
579		621
580	LOG (llevDebug, "%s creates: (%d) (%d) (%s) of (%s)\n", &op->name, set_nrof ? nrof : 0, set_magic ? magic : 0, bp, cp);	622	LOG (llevDebug, "%s creates: (%d) (%d) (%s) of (%s)\n", &op->name, set_nrof ? nrof : 0, set_magic ? magic : 0, bp, cp);
581	}	623	}
582	} /* if cp */	624	} /* if cp */
583		625
584	if ((at->clone.type == ROD \|\| at->clone.type == WAND \|\| at->clone.type == SCROLL \|\|	626	if ((at->type == ROD \|\| at->type == WAND \|\| at->type == SCROLL \|\|
585	at->clone.type == HORN \|\| at->clone.type == SPELLBOOK) && !at_spell)	627	at->type == HORN \|\| at->type == SPELLBOOK) && !at_spell)
586	{	628	{
587	new_draw_info_format (NDI_UNIQUE, 0, op, "Unable to find spell %s for object that needs it, or it is of wrong type", cp);	629	new_draw_info_format (NDI_UNIQUE, 0, op, "Unable to find spell %s for object that needs it, or it is of wrong type", cp);
588	return 1;	630	return 1;
589	}	631	}
590		632
591	/*	633	/*
592	* Rather than have two different blocks with a lot of similar code,	634	* Rather than have two different blocks with a lot of similar code,
593	* just create one object, do all the processing, and then determine	635	* just create one object, do all the processing, and then determine
594	* if that one object should be inserted or if we need to make copies.	636	* if that one object should be inserted or if we need to make copies.
595	*/	637	*/
596	tmp = arch_to_object (at);	638	tmp = at->instance ();
597
598	if (settings.real_wiz == FALSE)
599	SET_FLAG (tmp, FLAG_WAS_WIZ);
600		639
601	if (set_magic)	640	if (set_magic)
602	set_abs_magic (tmp, magic);	641	set_abs_magic (tmp, magic);
603		642
604	if (art)	643	if (art)
605	give_artifact_abilities (tmp, art->item);	644	give_artifact_abilities (tmp, art->item);
606		645
607	if (need_identify (tmp))	646	if (tmp->need_identify ())
608	{	647	{
609	SET_FLAG (tmp, FLAG_IDENTIFIED);	648	tmp->set_flag (FLAG_IDENTIFIED);
610	CLEAR_FLAG (tmp, FLAG_KNOWN_MAGICAL);	649	tmp->clr_flag (FLAG_KNOWN_MAGICAL);
611	}	650	}
612		651
613	/*	652	/*
614	* This entire block here tries to find variable pairings,	653	* This entire block here tries to find variable pairings,
615	* eg, 'hp 4' or the like. The mess here is that values	654	* eg, 'hp 4' or the like. The mess here is that values
…		…
617	* is we want to find two spaces, but if we got a quote,	656	* is we want to find two spaces, but if we got a quote,
618	* any spaces there don't count.	657	* any spaces there don't count.
619	*/	658	*/
620	while (*bp2 && bp2 <= endline)	659	while (*bp2 && bp2 <= endline)
621	{	660	{
622	bp4 = NULL;
623	gotspace = 0;	661	gotspace = 0;
624	gotquote = 0;	662	gotquote = 0;
625		663
626	/* find the first quote */	664	/* find the first quote */
627	for (bp3 = bp2; *bp3 && gotspace < 2 && gotquote < 2; bp3++)	665	for (bp3 = bp2; *bp3 && gotspace < 2 && gotquote < 2; bp3++)
…		…
684	new_draw_info_format (NDI_UNIQUE, 0, op, "(%s#%d)->%s", &tmp->name, tmp->count, bp2);	722	new_draw_info_format (NDI_UNIQUE, 0, op, "(%s#%d)->%s", &tmp->name, tmp->count, bp2);
685		723
686	bp2 = bp3 + 1;	724	bp2 = bp3 + 1;
687	}	725	}
688		726
689	if (at->clone.nrof)	727	if (at->nrof)
690	{	728	{
691	if (at_spell)	729	if (at_spell)
692	insert_ob_in_ob (arch_to_object (at_spell), tmp);	730	tmp->insert (at_spell->instance ());
693		731
694	tmp->x = op->x;	732	tmp->x = op->x;
695	tmp->y = op->y;	733	tmp->y = op->y;
		734	tmp->map = op->map;
696		735
697	if (set_nrof)	736	if (set_nrof)
698	tmp->nrof = nrof;	737	tmp->nrof = nrof;
699		738
700	tmp->map = op->map;	739	op->insert (tmp);
701
702	tmp = insert_ob_in_ob (tmp, op);
703	esrv_send_item (op, tmp);
704		740
705	/* Let's put this created item on stack so dm can access it easily. */	741	/* Let's put this created item on stack so dm can access it easily. */
706	dm_stack_push (op->contr, tmp->count);	742	dm_stack_push (op->contr, tmp->count);
707		743
708	return 1;	744	return 1;
709	}	745	}
710	else	746	else
711	{	747	{
712	for (i = 0; i < (set_nrof ? nrof : 1); i++)	748	for (i = 0; i < (set_nrof ? nrof : 1); i++)
713	{	749	{
714	archetype *atmp;
715	object prev = 0, head = 0;	750	object prev = 0, head = 0;
716		751
717	for (atmp = at; atmp; atmp = atmp->more)	752	for (archetype atmp = at; atmp; atmp = (archetype )atmp->more)
718	{	753	{
719	object *dup = arch_to_object (atmp);	754	object *dup = atmp->instance ();
720		755
721	if (at_spell)	756	if (at_spell)
722	insert_ob_in_ob (arch_to_object (at_spell), dup);	757	insert_ob_in_ob (at_spell->instance (), dup);
723		758
724	/*	759	/*
725	* The head is what contains all the important bits,	760	* The head is what contains all the important bits,
726	* so just copying it over should be fine.	761	* so just copying it over should be fine.
727	*/	762	*/
…		…
729	{	764	{
730	head = dup;	765	head = dup;
731	tmp->copy_to (dup);	766	tmp->copy_to (dup);
732	}	767	}
733		768
734	if (settings.real_wiz == FALSE)
735	SET_FLAG (dup, FLAG_WAS_WIZ);
736
737	dup->x = op->x + dup->arch->clone.x;	769	dup->x = op->x + dup->arch->x;
738	dup->y = op->y + dup->arch->clone.y;	770	dup->y = op->y + dup->arch->y;
739	dup->map = op->map;	771	dup->map = op->map;
740		772
741	if (head != dup)	773	if (head != dup)
742	{	774	{
743	dup->head = head;	775	dup->head = head;
…		…
745	}	777	}
746		778
747	prev = dup;	779	prev = dup;
748	}	780	}
749		781
750	if (QUERY_FLAG (head, FLAG_ALIVE))	782	if (head->flag [FLAG_ALIVE])
751	{	783	{
752	object *check = head;	784	object *check = head;
753	int size_x = 0;	785	int size_x = 0;
754	int size_y = 0;	786	int size_y = 0;
755		787
756	while (check)	788	while (check)
757	{	789	{
758	size_x = MAX (size_x, check->arch->clone.x);	790	size_x = max (size_x, check->arch->x);
759	size_y = MAX (size_y, check->arch->clone.y);	791	size_y = max (size_y, check->arch->y);
760	check = check->more;	792	check = check->more;
761	}	793	}
762		794
763	if (out_of_map (op->map, head->x + size_x, head->y + size_y))	795	if (out_of_map (op->map, head->x + size_x, head->y + size_y))
764	{	796	{
…		…
790	/* Wonder if we really want to push all of these, but since	822	/* Wonder if we really want to push all of these, but since
791	* things like rods have nrof 0, we want to cover those.	823	* things like rods have nrof 0, we want to cover those.
792	*/	824	*/
793	dm_stack_push (op->contr, head->count);	825	dm_stack_push (op->contr, head->count);
794		826
795	if (at->clone.randomitems != NULL && !at_spell)	827	if (at->randomitems && !at_spell)
796	create_treasure (at->clone.randomitems, head, GT_APPLY, op->map->difficulty, 0);	828	create_treasure (at->randomitems, head, GT_APPLY, op->map->difficulty, 0);
797
798	esrv_send_item (op, head);
799	}	829	}
800		830
801	/* free the one we used to copy */	831	/* free the one we used to copy */
802	tmp->destroy ();	832	tmp->destroy ();
803	}	833	}
…		…
810	*/	840	*/
811		841
812	int	842	int
813	command_inventory (object op, char params)	843	command_inventory (object op, char params)
814	{	844	{
		845	int i;
815	object *tmp;	846	object *tmp;
816	int i;
817		847
818	if (!params)	848	if (!params \|\| !sscanf (params, "%d", &i) \|\| !(tmp = find_object (i)))
819	{	849	{
820	inventory (op, NULL);	850	op->contr->failmsg ("Inventory of what object (nr)?");
821	return 0;	851	return 1;
822	}
823
824	if (!sscanf (params, "%d", &i) \|\| (tmp = find_object (i)) == NULL)
825	{	852	}
826	new_draw_info (NDI_UNIQUE, 0, op, "Inventory of what object (nr)?");
827	return 1;
828	}
829		853
830	inventory (op, tmp);	854	op->contr->infobox (MSG_CHANNEL ("examine"), tmp->query_inventory (op));
		855
831	return 1;	856	return 1;
832	}	857	}
833		858
834	/* just show player's their skills for now. Dm's can	859	/* just show player's their skills for now. Dm's can
835	* already see skills w/ inventory command - b.t.	860	* already see skills w/ inventory command - b.t.
…		…
853		878
854	char *dump = dump_object (tmp);	879	char *dump = dump_object (tmp);
855	new_draw_info (NDI_UNIQUE, 0, op, dump);	880	new_draw_info (NDI_UNIQUE, 0, op, dump);
856	free (dump);	881	free (dump);
857		882
858	if (QUERY_FLAG (tmp, FLAG_OBJ_ORIGINAL))	883	if (tmp->flag [FLAG_OBJ_ORIGINAL])
859	new_draw_info (NDI_UNIQUE, 0, op, "Object is marked original");	884	new_draw_info (NDI_UNIQUE, 0, op, "Object is marked original");
860		885
861	return 1;
862	}
863
864	/**
865	* When DM is possessing a monster, flip aggression on and off, to allow
866	* better motion.
867	*/
868	int
869	command_mon_aggr (object op, char params)
870	{
871	if (op->enemy \|\| !QUERY_FLAG (op, FLAG_UNAGGRESSIVE))
872	{
873	op->enemy = NULL;
874	SET_FLAG (op, FLAG_UNAGGRESSIVE);
875	new_draw_info (NDI_UNIQUE, 0, op, "Aggression turned OFF");
876	}
877	else
878	{
879	CLEAR_FLAG (op, FLAG_FRIENDLY);
880	CLEAR_FLAG (op, FLAG_UNAGGRESSIVE);
881	new_draw_info (NDI_UNIQUE, 0, op, "Aggression turned ON");
882	}
883
884	return 1;
885	}
886
887	/** DM can possess a monster. Basically, this tricks the client into thinking
888	* a given monster, is actually the player it controls. This allows a DM
889	* to inhabit a monster's body, and run around the game with it.
890	* This function is severely broken - it has tons of hardcoded values,
891	*/
892	int
893	command_possess (object op, char params)
894	{
895	object victim, curinv, *nextinv;
896	player *pl;
897	int i;
898	char buf[MAX_BUF];
899
900	victim = NULL;
901	if (params != NULL)
902	{
903	if (sscanf (params, "%d", &i))
904	victim = find_object (i);
905	else if (sscanf (params, "%s", buf))
906	victim = find_object_name (buf);
907	}
908	if (victim == NULL)
909	{
910	new_draw_info (NDI_UNIQUE, 0, op, "Patch what object (nr)?");
911	return 1;
912	}
913
914	if (victim == op)
915	{
916	new_draw_info (NDI_UNIQUE, 0, op, "As insane as you are, I cannot " "allow you to possess yourself.");
917	return 1;
918	}
919
920	/* clear out the old inventory */
921	curinv = op->inv;
922	while (curinv != NULL)
923	{
924	nextinv = curinv->below;
925	esrv_del_item (op->contr, curinv->count);
926	curinv = nextinv;
927	}
928
929	/* make the switch */
930	pl = op->contr;
931	victim->contr = pl;
932	pl->ob = victim;
933	victim->type = PLAYER;
934	SET_FLAG (victim, FLAG_WIZ);
935
936	/* send the inventory to the client */
937	curinv = victim->inv;
938	while (curinv != NULL)
939	{
940	nextinv = curinv->below;
941	esrv_send_item (victim, curinv);
942	curinv = nextinv;
943	}
944	/* basic patchup */
945	/* The use of hard coded values is terrible. Note
946	* that really, to be fair, this shouldn't get changed at
947	* all - if you are possessing a kobold, you should have the
948	* same limitations. As it is, as more body locations are added,
949	* this will give this player more locations than perhaps
950	* they should be allowed.
951	*/
952	for (i = 0; i < NUM_BODY_LOCATIONS; i++)
953	if (i == 1 \|\| i == 6 \|\| i == 8 \|\| i == 9)
954	victim->body_info[i] = 2;
955	else
956	victim->body_info[i] = 1;
957
958	esrv_new_player (pl, 80); /* just pick a wieght, we don't care */
959	esrv_send_inventory (victim, victim);
960
961	victim->update_stats ();
962
963	do_some_living (victim);
964	return 1;	886	return 1;
965	}	887	}
966		888
967	int	889	int
968	command_patch (object op, char params)	890	command_patch (object op, char params)
…		…
983	return 1;	905	return 1;
984	}	906	}
985		907
986	if ((arg2 = strchr (arg, ' ')))	908	if ((arg2 = strchr (arg, ' ')))
987	arg2++;	909	arg2++;
988	if (settings.real_wiz == FALSE)	910
989	SET_FLAG (tmp, FLAG_WAS_WIZ); /* To avoid cheating */
990	if (set_variable (tmp, arg) == -1)	911	if (set_variable (tmp, arg) == -1)
991	new_draw_info_format (NDI_UNIQUE, 0, op, "Unknown variable %s", arg);	912	new_draw_info_format (NDI_UNIQUE, 0, op, "Unknown variable %s", arg);
992	else	913	else
993	{
994	new_draw_info_format (NDI_UNIQUE, 0, op, "(%s#%d)->%s=%s", &tmp->name, tmp->count, arg, arg2);	914	new_draw_info_format (NDI_UNIQUE, 0, op, "(%s#%d)->%s=%s", &tmp->name, tmp->count, arg, arg2);
995	}
996		915
997	return 1;	916	return 1;
998	}	917	}
999		918
1000	int	919	int
…		…
1014	{	933	{
1015	new_draw_info (NDI_UNIQUE, 0, op, "Unable to remove a player!");	934	new_draw_info (NDI_UNIQUE, 0, op, "Unable to remove a player!");
1016	return 1;	935	return 1;
1017	}	936	}
1018		937
1019	if (QUERY_FLAG (tmp, FLAG_REMOVED))	938	if (tmp->flag [FLAG_REMOVED])
1020	{	939	{
1021	new_draw_info_format (NDI_UNIQUE, 0, op, "%s is already removed!", query_name (tmp));	940	new_draw_info_format (NDI_UNIQUE, 0, op, "%s is already removed!", query_name (tmp));
1022	return 1;	941	return 1;
1023	}	942	}
1024		943
…		…
1049		968
1050	if (from != STACK_FROM_STACK)	969	if (from != STACK_FROM_STACK)
1051	/* Item is either stack top, or is a number thus is now stack top, let's remove it */	970	/* Item is either stack top, or is a number thus is now stack top, let's remove it */
1052	dm_stack_pop (op->contr);	971	dm_stack_pop (op->contr);
1053		972
1054	if (!QUERY_FLAG (tmp, FLAG_REMOVED))
1055	{
1056	new_draw_info (NDI_UNIQUE, 0, op, "Warning, item wasn't removed.");
1057	tmp->remove ();
1058	}
1059
1060	if (tmp->head)	973	if (tmp->head)
1061	tmp = tmp->head;	974	tmp = tmp->head;
1062		975
1063	tmp->destroy ();	976	tmp->destroy ();
1064	return 1;	977	return 1;
…		…
1069	*/	982	*/
1070	int	983	int
1071	command_addexp (object op, char params)	984	command_addexp (object op, char params)
1072	{	985	{
1073	char buf[MAX_BUF], skill[MAX_BUF];	986	char buf[MAX_BUF], skill[MAX_BUF];
1074	int i, q;	987	int q;
		988	long long i; // use sint64 and finally provide format specifiers for sint64 etc. via configure
1075	object *skillob = NULL;	989	object *skillob = NULL;
1076		990
1077	skill[0] = '\0';	991	skill[0] = '\0';
1078	if ((params == NULL) \|\| (strlen (params) > MAX_BUF) \|\| ((q = sscanf (params, "%s %d %s", buf, &i, skill)) < 2))	992	if ((params == NULL) \|\| (strlen (params) > MAX_BUF) \|\| ((q = sscanf (params, "%s %lld %[^\n]", buf, &i, skill)) < 2))
1079	{	993	{
1080	new_draw_info (NDI_UNIQUE, 0, op, "Usage: addexp <who> <how much> [<skill>].");	994	new_draw_info (NDI_UNIQUE, 0, op, "Usage: addexp <who> <how much> [<skill>].");
1081	return 1;	995	return 1;
1082	}	996	}
1083		997
…		…
1101		1015
1102	pl->ob->stats.exp += i;	1016	pl->ob->stats.exp += i;
1103	calc_perm_exp (pl->ob);	1017	calc_perm_exp (pl->ob);
1104	player_lvl_adj (pl->ob, NULL);	1018	player_lvl_adj (pl->ob, NULL);
1105		1019
1106	if (settings.real_wiz == FALSE)
1107	SET_FLAG (pl->ob, FLAG_WAS_WIZ);
1108
1109	return 1;	1020	return 1;
1110	}	1021	}
1111		1022
1112	new_draw_info (NDI_UNIQUE, 0, op, "No such player.");	1023	new_draw_info (NDI_UNIQUE, 0, op, "No such player.");
1113	return 1;	1024	return 1;
…		…
1133	new_draw_info (NDI_UNIQUE, 0, op, "Who?");	1044	new_draw_info (NDI_UNIQUE, 0, op, "Who?");
1134	return 1;	1045	return 1;
1135	}	1046	}
1136		1047
1137	for_all_players (pl)	1048	for_all_players (pl)
1138	if (!strcmp (pl->ob->name, thing))	1049	if (!strcmp (&pl->ob->name, thing))
1139	{	1050	{
1140	sprintf (buf, "Str : %-2d H.P. : %-4d MAX : %d", pl->ob->stats.Str, pl->ob->stats.hp, pl->ob->stats.maxhp);	1051	sprintf (buf, "Str : %-2d H.P. : %-4d MAX : %d", pl->ob->stats.Str, pl->ob->stats.hp, pl->ob->stats.maxhp);
1141	new_draw_info (NDI_UNIQUE, 0, op, buf);	1052	new_draw_info (NDI_UNIQUE, 0, op, buf);
1142	sprintf (buf, "Dex : %-2d S.P. : %-4d MAX : %d", pl->ob->stats.Dex, pl->ob->stats.sp, pl->ob->stats.maxsp);	1053	sprintf (buf, "Dex : %-2d S.P. : %-4d MAX : %d", pl->ob->stats.Dex, pl->ob->stats.sp, pl->ob->stats.maxsp);
1143	new_draw_info (NDI_UNIQUE, 0, op, buf);	1054	new_draw_info (NDI_UNIQUE, 0, op, buf);
…		…
1161	int	1072	int
1162	command_abil (object op, char params)	1073	command_abil (object op, char params)
1163	{	1074	{
1164	char thing[20], thing2[20];	1075	char thing[20], thing2[20];
1165	int iii;	1076	int iii;
1166	player *pl;
1167	char buf[MAX_BUF];	1077	char buf[MAX_BUF];
1168		1078
1169	iii = 0;	1079	iii = 0;
1170	thing[0] = '\0';	1080	thing[0] = '\0';
1171	thing2[0] = '\0';	1081	thing2[0] = '\0';
…		…
1187	return 1;	1097	return 1;
1188	}	1098	}
1189		1099
1190	for_all_players (pl)	1100	for_all_players (pl)
1191	{	1101	{
1192	if (!strcmp (pl->ob->name, thing))	1102	if (!strcmp (&pl->ob->name, thing))
1193	{	1103	{
1194	if (settings.real_wiz == FALSE)
1195	SET_FLAG (pl->ob, FLAG_WAS_WIZ);
1196	if (!strcmp ("str", thing2))
1197	pl->ob->stats.Str = iii, pl->orig_stats.Str = iii;	1104	if (!strcmp ("str", thing2)) pl->ob->stats.Str = iii, pl->orig_stats.Str = iii;
1198	if (!strcmp ("dex", thing2))
1199	pl->ob->stats.Dex = iii, pl->orig_stats.Dex = iii;	1105	if (!strcmp ("dex", thing2)) pl->ob->stats.Dex = iii, pl->orig_stats.Dex = iii;
1200	if (!strcmp ("con", thing2))
1201	pl->ob->stats.Con = iii, pl->orig_stats.Con = iii;	1106	if (!strcmp ("con", thing2)) pl->ob->stats.Con = iii, pl->orig_stats.Con = iii;
1202	if (!strcmp ("wis", thing2))
1203	pl->ob->stats.Wis = iii, pl->orig_stats.Wis = iii;	1107	if (!strcmp ("wis", thing2)) pl->ob->stats.Wis = iii, pl->orig_stats.Wis = iii;
1204	if (!strcmp ("cha", thing2))
1205	pl->ob->stats.Cha = iii, pl->orig_stats.Cha = iii;	1108	if (!strcmp ("cha", thing2)) pl->ob->stats.Cha = iii, pl->orig_stats.Cha = iii;
1206	if (!strcmp ("int", thing2))
1207	pl->ob->stats.Int = iii, pl->orig_stats.Int = iii;	1109	if (!strcmp ("int", thing2)) pl->ob->stats.Int = iii, pl->orig_stats.Int = iii;
1208	if (!strcmp ("pow", thing2))
1209	pl->ob->stats.Pow = iii, pl->orig_stats.Pow = iii;	1110	if (!strcmp ("pow", thing2)) pl->ob->stats.Pow = iii, pl->orig_stats.Pow = iii;
		1111
1210	sprintf (buf, "%s has been altered.", &pl->ob->name);	1112	sprintf (buf, "%s has been altered.", &pl->ob->name);
1211	new_draw_info (NDI_UNIQUE, 0, op, buf);	1113	new_draw_info (NDI_UNIQUE, 0, op, buf);
1212	pl->ob->update_stats ();	1114	pl->ob->update_stats ();
1213	return 1;	1115	return 1;
1214	}	1116	}
…		…
1218	return 1;	1120	return 1;
1219	}	1121	}
1220		1122
1221	int	1123	int
1222	command_nowiz (object op, char params)	1124	command_nowiz (object op, char params)
1223	{ /* 'noadm' is alias */	1125	{ /* 'nodm' is alias */
1224	CLEAR_FLAG (op, FLAG_WIZ);	1126	op->clr_flag (FLAG_WIZ);
1225	CLEAR_FLAG (op, FLAG_WIZPASS);	1127	op->clr_flag (FLAG_WIZPASS);
1226	CLEAR_FLAG (op, FLAG_WIZCAST);	1128	op->clr_flag (FLAG_WIZCAST);
		1129	op->clr_flag (FLAG_WIZLOOK);
		1130	op->contr->do_los = 1;
1227		1131
1228	if (settings.real_wiz == TRUE)
1229	CLEAR_FLAG (op, FLAG_WAS_WIZ);
1230	if (op->contr->hidden)	1132	if (op->contr->hidden)
1231	{	1133	{
1232	new_draw_info (NDI_UNIQUE, 0, op, "You are no longer hidden from other players");	1134	new_draw_info (NDI_UNIQUE, 0, op, "You are no longer hidden from other players");
1233	op->map->players++;	1135	op->map->players++;
1234	new_draw_info_format (NDI_UNIQUE \| NDI_ALL \| NDI_DK_ORANGE, 5, NULL, "%s has entered the game.", &op->name);	1136	new_draw_info_format (NDI_UNIQUE \| NDI_ALL \| NDI_DK_ORANGE, 5, NULL, "%s has entered the game.", &op->name);
1235	op->contr->hidden = 0;	1137	op->contr->hidden = 0;
1236	op->invisible = 1;	1138	op->invisible = 1;
1237	}	1139	}
1238	else	1140	else
1239	new_draw_info (NDI_UNIQUE \| NDI_ALL \| NDI_LT_GREEN, 1, NULL, "The Dungeon Master is gone..");	1141	new_draw_info (NDI_UNIQUE \| NDI_ALL \| NDI_LT_GREEN, 1, NULL, "The Dungeon Master is gone..");
		1142
1240	return 1;	1143	return 1;
1241	}	1144	}
1242		1145
1243	/**	1146	/**
1244	* object *op is trying to become dm.	1147	* object *op is trying to become dm.
…		…
1281	}	1184	}
1282	fclose (dmfile);	1185	fclose (dmfile);
1283	return (0);	1186	return (0);
1284	}	1187	}
1285		1188
1286	int	1189	static int
1287	do_wizard_dm (object op, char params, int silent)	1190	do_wizard_dm (object op, char params, int silent)
1288	{	1191	{
1289	if (!op->contr)	1192	if (!op->contr)
1290	return 0;	1193	return 0;
1291		1194
1292	if (QUERY_FLAG (op, FLAG_WIZ))	1195	if (op->flag [FLAG_WIZ])
1293	{	1196	{
1294	new_draw_info (NDI_UNIQUE, 0, op, "You are already the Dungeon Master!");	1197	new_draw_info (NDI_UNIQUE, 0, op, "You are already the Dungeon Master!");
1295	return 0;	1198	return 0;
1296	}	1199	}
1297		1200
1298	if (checkdm (op, op->name, (params ? params : "*"), op->contr->ns->host))	1201	if (checkdm (op, op->name, (params ? params : "*"), op->contr->ns->host))
1299	{	1202	{
1300	SET_FLAG (op, FLAG_WIZ);	1203	op->set_flag (FLAG_WIZ);
1301	SET_FLAG (op, FLAG_WAS_WIZ);	1204	op->set_flag (FLAG_WIZPASS);
1302	SET_FLAG (op, FLAG_WIZPASS);	1205	op->set_flag (FLAG_WIZCAST);
1303	SET_FLAG (op, FLAG_WIZCAST);	1206	op->set_flag (FLAG_WIZLOOK);
		1207	op->contr->do_los = 1;
		1208
1304	new_draw_info (NDI_UNIQUE, 0, op, "Ok, you are the Dungeon Master!");	1209	new_draw_info (NDI_UNIQUE, 0, op, "Ok, you are the Dungeon Master!");
1305	/*
1306	* Remove setting flying here - that won't work, because next
1307	* fix_player() is called that will get cleared - proper solution
1308	* is probably something like a wiz_force which gives that and any
1309	* other desired abilities.
1310	*/
1311	clear_los (op);
1312	op->contr->write_buf[0] = '\0';	1210	op->contr->write_buf[0] = '\0';
1313		1211
1314	if (!silent)	1212	if (!silent)
1315	new_draw_info (NDI_UNIQUE \| NDI_ALL \| NDI_LT_GREEN, 1, NULL, "The Dungeon Master has arrived!");	1213	new_draw_info (NDI_UNIQUE \| NDI_ALL \| NDI_LT_GREEN, 1, NULL, "The Dungeon Master has arrived!");
1316		1214
…		…
1343	command_invisible (object op, char params)	1241	command_invisible (object op, char params)
1344	{	1242	{
1345	if (op)	1243	if (op)
1346	{	1244	{
1347	op->invisible += 100;	1245	op->invisible += 100;
1348	update_object (op, UP_OBJ_FACE);	1246	update_object (op, UP_OBJ_CHANGE);
1349	new_draw_info (NDI_UNIQUE, 0, op, "You turn invisible.");	1247	new_draw_info (NDI_UNIQUE, 0, op, "You turn invisible.");
1350	}	1248	}
1351		1249
1352	return 0;	1250	return 0;
1353	}	1251	}
…		…
1356	* Returns spell object (from archetypes) by name.	1254	* Returns spell object (from archetypes) by name.
1357	* Returns NULL if 0 or more than one spell matches.	1255	* Returns NULL if 0 or more than one spell matches.
1358	* Used for wizard's learn spell/prayer.	1256	* Used for wizard's learn spell/prayer.
1359	*	1257	*
1360	* op is the player issuing the command.	1258	* op is the player issuing the command.
1361	*
1362	* Ignores archetypes "spelldirect_xxx" since these archetypes are not used
1363	* anymore (but may still be present in some player's inventories and thus
1364	* cannot be removed). We have to ignore them here since they have the same
1365	* name than other "spell_xxx" archetypes and would always conflict.
1366	*/	1259	*/
1367	static object *	1260	static object *
1368	get_spell_by_name (object op, const char spell_name)	1261	get_spell_by_name (object *op, shstr_cmp spell_name)
1369	{	1262	{
1370	archetype *ar;
1371	archetype *found;
1372	int conflict_found;
1373	size_t spell_name_length;
1374
1375	/* First check for full name matches. */	1263	/* First check for full name matches. */
1376	conflict_found = 0;	1264	int conflict_found = 0;
1377	found = NULL;	1265	archetype *found = 0;
1378	for (ar = first_archetype; ar != NULL; ar = ar->next)	1266
		1267	for_all_archetypes (at)
1379	{	1268	{
1380	if (ar->clone.type != SPELL)	1269	if (at->type != SPELL)
1381	continue;	1270	continue;
1382		1271
1383	if (strncmp (ar->name, "spelldirect_", 12) == 0)	1272	if (at->object::name != spell_name)
1384	continue;	1273	continue;
1385		1274
1386	if (strcmp (ar->clone.name, spell_name) != 0)
1387	continue;
1388
1389	if (found != NULL)	1275	if (found)
1390	{	1276	{
1391	if (!conflict_found)	1277	if (!conflict_found)
1392	{	1278	{
1393	conflict_found = 1;	1279	conflict_found = 1;
1394	new_draw_info_format (NDI_UNIQUE, 0, op, "More than one archetype matches the spell name %s:", spell_name);	1280	new_draw_info_format (NDI_UNIQUE, 0, op, "More than one archetype matches the spell name %s:", &spell_name);
1395	new_draw_info_format (NDI_UNIQUE, 0, op, "- %s", &found->name);	1281	new_draw_info_format (NDI_UNIQUE, 0, op, "- %s", &found->archname);
1396	}	1282	}
		1283
1397	new_draw_info_format (NDI_UNIQUE, 0, op, "- %s", &ar->name);	1284	new_draw_info_format (NDI_UNIQUE, 0, op, "- %s", &at->archname);
1398	continue;	1285	return 0;
1399	}	1286	}
1400		1287
1401	found = ar;	1288	found = at;
1402	}	1289	}
1403
1404	/* No match if more more than one archetype matches. */
1405	if (conflict_found)
1406	return NULL;
1407		1290
1408	/* Return if exactly one archetype matches. */	1291	/* Return if exactly one archetype matches. */
1409	if (found != NULL)	1292	if (found)
1410	return arch_to_object (found);	1293	return found->instance ();
1411
1412	/* No full match found: now check for partial matches. */
1413	spell_name_length = strlen (spell_name);
1414	conflict_found = 0;
1415	found = NULL;
1416	for (ar = first_archetype; ar != NULL; ar = ar->next)
1417	{
1418	if (ar->clone.type != SPELL)
1419	continue;
1420
1421	if (strncmp (ar->name, "spelldirect_", 12) == 0)
1422	continue;
1423
1424	if (strncmp (ar->clone.name, spell_name, spell_name_length) != 0)
1425	continue;
1426
1427	if (found != NULL)
1428	{
1429	if (!conflict_found)
1430	{
1431	conflict_found = 1;
1432	new_draw_info_format (NDI_UNIQUE, 0, op, "More than one spell matches %s:", spell_name);
1433	new_draw_info_format (NDI_UNIQUE, 0, op, "- %s", &found->clone.name);
1434	}
1435	new_draw_info_format (NDI_UNIQUE, 0, op, "- %s", &ar->clone.name);
1436	continue;
1437	}
1438
1439	found = ar;
1440	}
1441
1442	/* No match if more more than one archetype matches. */
1443	if (conflict_found)
1444	return NULL;
1445
1446	/* Return if exactly one archetype matches. */
1447	if (found != NULL)
1448	return arch_to_object (found);
1449		1294
1450	/* No spell found: just print an error message. */	1295	/* No spell found: just print an error message. */
1451	new_draw_info_format (NDI_UNIQUE, 0, op, "The spell %s does not exist.", spell_name);	1296	new_draw_info_format (NDI_UNIQUE, 0, op, "The spell does not exist.");
		1297
1452	return NULL;	1298	return 0;
1453	}	1299	}
1454		1300
1455	static int	1301	static int
1456	command_learn_spell_or_prayer (object op, char params, int special_prayer)	1302	command_learn_spell_or_prayer (object op, char params, int special_prayer)
1457	{	1303	{
…		…
1509	new_draw_info_format (NDI_UNIQUE, 0, op, "You do not know the spell %s.", params);	1355	new_draw_info_format (NDI_UNIQUE, 0, op, "You do not know the spell %s.", params);
1510	return 0;	1356	return 0;
1511	}	1357	}
1512		1358
1513	do_forget_spell (op, spell->name);	1359	do_forget_spell (op, spell->name);
1514	return 1;
1515	}
1516
1517	/**
1518	* Lists all plugins currently loaded with their IDs and full names.
1519	*/
1520	int
1521	command_listplugins (object op, char params)
1522	{
1523	plugins_display_list (op);
1524	return 1;
1525	}
1526
1527	/**
1528	* Loads the given plugin. The DM specifies the name of the library to load (no
1529	* pathname is needed). Do not ever attempt to load the same plugin more than
1530	* once at a time, or bad things could happen.
1531	*/
1532	int
1533	command_loadplugin (object op, char params)
1534	{
1535	char buf[MAX_BUF];
1536
1537	if (params == NULL)
1538	{
1539	new_draw_info (NDI_UNIQUE, 0, op, "Load which plugin?");
1540	return 1;
1541	}
1542
1543	strcpy (buf, LIBDIR);
1544	strcat (buf, "/plugins/");
1545	strcat (buf, params);
1546	LOG (llevDebug, "Requested plugin file is %s\n", buf);
1547	if (plugins_init_plugin (buf) == 0)
1548	new_draw_info (NDI_UNIQUE, 0, op, "Plugin successfully loaded.");
1549	else
1550	new_draw_info (NDI_UNIQUE, 0, op, "Could not load plugin.");
1551	return 1;
1552	}
1553
1554	/**
1555	* Unloads the given plugin. The DM specified the ID of the library to unload.
1556	* Note that some things may behave strangely if the correct plugins are not
1557	* loaded.
1558	*/
1559	int
1560	command_unloadplugin (object op, char params)
1561	{
1562	if (params == NULL)
1563	{
1564	new_draw_info (NDI_UNIQUE, 0, op, "Remove which plugin?");
1565	return 1;
1566	}
1567
1568	if (plugins_remove_plugin (params) == 0)
1569	new_draw_info (NDI_UNIQUE, 0, op, "Plugin successfully removed.");
1570	else
1571	new_draw_info (NDI_UNIQUE, 0, op, "Could not remove plugin.");
1572	return 1;	1360	return 1;
1573	}	1361	}
1574		1362
1575	/**	1363	/**
1576	* A players wants to become DM and hide.	1364	* A players wants to become DM and hide.
…		…
1584	return 0;	1372	return 0;
1585		1373
1586	do_wizard_hide (op, 1);	1374	do_wizard_hide (op, 1);
1587		1375
1588	return 1;	1376	return 1;
1589	}
1590
1591	void
1592	dm_stack_pop (player *pl)
1593	{
1594	if (!pl->stack_items \|\| !pl->stack_position)
1595	{
1596	new_draw_info (NDI_UNIQUE, 0, pl->ob, "Empty stack!");
1597	return;
1598	}
1599
1600	pl->stack_position--;
1601	new_draw_info_format (NDI_UNIQUE, 0, pl->ob, "Popped item from stack, %d left.", pl->stack_position);
1602	}
1603
1604	/**
1605	* Get current stack top item for player.
1606	* Returns NULL if no stacked item.
1607	* If stacked item disappeared (freed), remove it.
1608	*
1609	* Ryo, august 2004
1610	*/
1611	object *
1612	dm_stack_peek (player *pl)
1613	{
1614	object *ob;
1615
1616	if (!pl->stack_position)
1617	{
1618	new_draw_info (NDI_UNIQUE, 0, pl->ob, "Empty stack!");
1619	return NULL;
1620	}
1621
1622	ob = find_object (pl->stack_items[pl->stack_position - 1]);
1623	if (!ob)
1624	{
1625	new_draw_info (NDI_UNIQUE, 0, pl->ob, "Stacked item was removed!");
1626	dm_stack_pop (pl);
1627	return NULL;
1628	}
1629
1630	return ob;
1631	}
1632
1633	/**
1634	* Push specified item on player stack.
1635	* Inform player of position.
1636	* Initializes variables if needed.
1637	*/
1638	void
1639	dm_stack_push (player *pl, tag_t item)
1640	{
1641	if (!pl->stack_items)
1642	{
1643	pl->stack_items = (tag_t ) malloc (sizeof (tag_t) STACK_SIZE);
1644	memset (pl->stack_items, 0, sizeof (tag_t) * STACK_SIZE);
1645	}
1646
1647	if (pl->stack_position == STACK_SIZE)
1648	{
1649	new_draw_info (NDI_UNIQUE, 0, pl->ob, "Item stack full!");
1650	return;
1651	}
1652
1653	pl->stack_items[pl->stack_position] = item;
1654	new_draw_info_format (NDI_UNIQUE, 0, pl->ob, "Item stacked as %d.", pl->stack_position);
1655	pl->stack_position++;
1656	}
1657
1658	/**
1659	* Checks 'params' for object code.
1660	*
1661	* Can be:
1662	* * empty => get current object stack top for player
1663	* * number => get item with that tag, stack it for future use
1664	* * $number => get specified stack item
1665	* * "me" => player himself
1666	*
1667	* At function exit, params points to first non-object char
1668	*
1669	* 'from', if not NULL, contains at exit:
1670	* * STACK_FROM_NONE => object not found
1671	* * STACK_FROM_TOP => top item stack, may be NULL if stack was empty
1672	* * STACK_FROM_STACK => item from somewhere in the stack
1673	* * STACK_FROM_NUMBER => item by number, pushed on stack
1674	*
1675	* Ryo, august 2004
1676	*/
1677	object *
1678	get_dm_object (player pl, char params, int from)
1679	{
1680	int item_tag, item_position;
1681	object *ob;
1682
1683	if (!pl)
1684	return NULL;
1685
1686	if (!params \|\| !params \|\| *params == '\0')
1687	{
1688	if (from)
1689	*from = STACK_FROM_TOP;
1690	/* No parameter => get stack item */
1691	return dm_stack_peek (pl);
1692	}
1693
1694	/* Let's clean white spaces */
1695	while (**params == ' ')
1696	(*params)++;
1697
1698	/* Next case: number => item tag */
1699	if (sscanf (*params, "%d", &item_tag))
1700	{
1701	/* Move parameter to next item */
1702	while (isdigit (**params))
1703	(*params)++;
1704
1705	/* And skip blanks, too */
1706	while (**params == ' ')
1707	(*params)++;
1708
1709	/* Get item */
1710	ob = find_object (item_tag);
1711	if (!ob)
1712	{
1713	if (from)
1714	*from = STACK_FROM_NONE;
1715	new_draw_info_format (NDI_UNIQUE, 0, pl->ob, "No such item %d!", item_tag);
1716	return NULL;
1717	}
1718
1719	/* Got one, let's push it on stack */
1720	dm_stack_push (pl, item_tag);
1721	if (from)
1722	*from = STACK_FROM_NUMBER;
1723	return ob;
1724	}
1725
1726	/* Next case: $number => stack item */
1727	if (sscanf (*params, "$%d", &item_position))
1728	{
1729	/* Move parameter to next item */
1730	(*params)++;
1731
1732	while (isdigit (**params))
1733	(*params)++;
1734	while (**params == ' ')
1735	(*params)++;
1736
1737	if (item_position >= pl->stack_position)
1738	{
1739	if (from)
1740	*from = STACK_FROM_NONE;
1741	new_draw_info_format (NDI_UNIQUE, 0, pl->ob, "No such stack item %d!", item_position);
1742	return NULL;
1743	}
1744
1745	ob = find_object (pl->stack_items[item_position]);
1746	if (!ob)
1747	{
1748	if (from)
1749	*from = STACK_FROM_NONE;
1750	new_draw_info_format (NDI_UNIQUE, 0, pl->ob, "Stack item %d was removed.", item_position);
1751	return NULL;
1752	}
1753
1754	if (from)
1755	*from = item_position < pl->stack_position - 1 ? STACK_FROM_STACK : STACK_FROM_TOP;
1756	return ob;
1757	}
1758
1759	/* Next case: 'me' => return pl->ob */
1760	if (!strncmp (*params, "me", 2))
1761	{
1762	if (from)
1763	*from = STACK_FROM_NUMBER;
1764	dm_stack_push (pl, pl->ob->count);
1765
1766	/* Skip to next token */
1767	(*params) += 2;
1768	while (**params == ' ')
1769	(*params)++;
1770
1771	return pl->ob;
1772	}
1773
1774	/* Last case: get stack top */
1775	if (from)
1776	*from = STACK_FROM_TOP;
1777	return dm_stack_peek (pl);
1778	}	1377	}
1779		1378
1780	/**	1379	/**
1781	* Pop the stack top.	1380	* Pop the stack top.
1782	*/	1381	*/
…		…
1842	}	1441	}
1843		1442
1844	int	1443	int
1845	command_insert_into (object op, char params)	1444	command_insert_into (object op, char params)
1846	{	1445	{
1847	object left, right, *inserted;	1446	object left, right;
1848	int left_from, right_from;	1447	int left_from, right_from;
1849		1448
1850	left = get_dm_object (op->contr, &params, &left_from);	1449	left = get_dm_object (op->contr, &params, &left_from);
1851	if (!left)	1450	if (!left)
1852	{	1451	{
…		…
1895	{	1494	{
1896	new_draw_info (NDI_UNIQUE, 0, op, "Can't insert a player into something!");	1495	new_draw_info (NDI_UNIQUE, 0, op, "Can't insert a player into something!");
1897	return 0;	1496	return 0;
1898	}	1497	}
1899		1498
1900	if (!QUERY_FLAG (right, FLAG_REMOVED))	1499	if (!right->flag [FLAG_REMOVED])
1901	right->remove ();	1500	right->remove ();
		1501
1902	inserted = insert_ob_in_ob (right, left);	1502	object *inserted = insert_ob_in_ob (right, left);
1903	if (left->type == PLAYER)
1904	if (inserted == right)
1905	esrv_send_item (left, right);
1906	else
1907	esrv_update_item (UPD_WEIGHT \| UPD_NAME \| UPD_NROF, left, inserted);
1908		1503
1909	new_draw_info_format (NDI_UNIQUE, 0, op, "Inserted %s in %s", query_name (inserted), query_name (left));	1504	new_draw_info_format (NDI_UNIQUE, 0, op, "Inserted %s in %s", query_name (inserted), query_name (left));
1910		1505
1911	return 0;	1506	return 0;
1912		1507

Diff Legend

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

Comparing deliantra/server/server/c_wiz.C (file contents): Revision 1.30 by pippijn, Sat Jan 6 14:42:30 2007 UTC vs. Revision 1.88 by root, Fri Jan 27 22:00:40 2012 UTC

Diff Legend

Comparing deliantra/server/server/c_wiz.C (file contents):
Revision 1.30 by pippijn, Sat Jan 6 14:42:30 2007 UTC vs.
Revision 1.88 by root, Fri Jan 27 22:00:40 2012 UTC