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

Comparing deliantra/server/server/c_wiz.C (file contents):
Revision 1.32 by pippijn, Mon Jan 15 21:06:20 2007 UTC vs.
Revision 1.77 by root, Sat Nov 7 18:30:06 2009 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 Marc Alexander Lehmann / Robin Redeker / the Deliantra team
5	* Copyright (C) 2002 Mark Wedel & Crossfire Development Team	5	* Copyright (©) 2002,2007 Mark Wedel & Crossfire Development Team
6	* Copyright (C) 1992 Frank Tore Johansen	6	* Copyright (©) 1992,2007 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>
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
…		…
173		360
174	become_follower (ob, god);	361	become_follower (ob, god);
175	return 1;	362	return 1;
176	}	363	}
177		364
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;
285	}
286
287	int	365	int
288	command_freeze (object op, char params)	366	command_freeze (object op, char params)
289	{	367	{
290	int ticks;	368	int ticks;
291	player *pl;	369	player *pl;
…		…
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	}
…		…
380	{	459	{
381	new_draw_info (NDI_UNIQUE, 0, op, "Can not find a free spot to place summoned player.");	460	new_draw_info (NDI_UNIQUE, 0, op, "Can not find a free spot to place summoned player.");
382	return 1;	461	return 1;
383	}	462	}
384		463
385	dummy = object::create ();	464	pl->ob->player_goto (op->map->path, op->x + freearr_x[i], op->y + freearr_y[i]);
386	EXIT_PATH (dummy) = op->map->path;
387	EXIT_X (dummy) = op->x + freearr_x[i];
388	EXIT_Y (dummy) = op->y + freearr_y[i];
389	pl->ob->enter_exit (dummy);
390	dummy->destroy ();
391	new_draw_info (NDI_UNIQUE, 0, pl->ob, "You are summoned.");	465	new_draw_info (NDI_UNIQUE, 0, pl->ob, "You are summoned.");
392	new_draw_info (NDI_UNIQUE, 0, op, "OK.");	466	new_draw_info (NDI_UNIQUE, 0, op, "OK.");
393		467
394	return 1;	468	return 1;
395	}	469	}
…		…
488	* we also set up spell_name which is only	562	* we also set up spell_name which is only
489	* the first word.	563	* the first word.
490	*/	564	*/
491		565
492	at_spell = archetype::find (cp);	566	at_spell = archetype::find (cp);
493	if (!at_spell \|\| at_spell->clone.type != SPELL)	567	if (!at_spell \|\| at_spell->type != SPELL)
494	at_spell = find_archetype_by_object_name (cp);	568	at_spell = find_archetype_by_object_name (cp);
495	if (!at_spell \|\| at_spell->clone.type != SPELL)	569	if (!at_spell \|\| at_spell->type != SPELL)
496	{	570	{
497	strcpy (spell_name, cp);	571	assign (spell_name, cp);
498	fsp = strchr (spell_name, ' ');	572	fsp = strchr (spell_name, ' ');
499	if (fsp)	573	if (fsp)
500	{	574	{
501	*fsp = 0;	575	*fsp = 0;
502	fsp++;	576	fsp++;
503	at_spell = archetype::find (spell_name);	577	at_spell = archetype::find (spell_name);
504		578
505	/* Got a spell, update the first string pointer */	579	/* Got a spell, update the first string pointer */
506	if (at_spell && at_spell->clone.type == SPELL)	580	if (at_spell && at_spell->type == SPELL)
507	bp2 = cp + strlen (spell_name) + 1;	581	bp2 = cp + strlen (spell_name) + 1;
508	else	582	else
509	at_spell = NULL;	583	at_spell = NULL;
510	}	584	}
511	}	585	}
…		…
513	/* OK - we didn't find a spell - presume the 'of'	587	/* OK - we didn't find a spell - presume the 'of'
514	* in this case means its an artifact.	588	* in this case means its an artifact.
515	*/	589	*/
516	if (!at_spell)	590	if (!at_spell)
517	{	591	{
518	if (find_artifactlist (at->clone.type) == NULL)	592	if (find_artifactlist (at->type) == NULL)
519	new_draw_info_format (NDI_UNIQUE, 0, op, "No artifact list for type %d\n", at->clone.type);	593	new_draw_info_format (NDI_UNIQUE, 0, op, "No artifact list for type %d\n", at->type);
520	else	594	else
521	{	595	{
522	art = find_artifactlist (at->clone.type)->items;	596	art = find_artifactlist (at->type)->items;
523		597
524	do	598	while (art)
525	{	599	{
526	if (!strcmp (art->item->name, cp))	600	if (!strcmp (&art->item->name, cp))
527	break;	601	break;
		602
528	art = art->next;	603	art = art->next;
529	}	604	}
530	while (art != NULL);
531		605
532	if (!art)	606	if (!art)
533	new_draw_info_format (NDI_UNIQUE, 0, op, "No such artifact ([%d] of %s)", at->clone.type, cp);	607	new_draw_info_format (NDI_UNIQUE, 0, op, "No such artifact ([%d] of %s)", at->type, cp);
534	}	608	}
535		609
536	LOG (llevDebug, "%s creates: (%d) (%d) (%s) of (%s)\n", &op->name, set_nrof ? nrof : 0, set_magic ? magic : 0, bp, cp);	610	LOG (llevDebug, "%s creates: (%d) (%d) (%s) of (%s)\n", &op->name, set_nrof ? nrof : 0, set_magic ? magic : 0, bp, cp);
537	}	611	}
538	} /* if cp */	612	} /* if cp */
539		613
540	if ((at->clone.type == ROD \|\| at->clone.type == WAND \|\| at->clone.type == SCROLL \|\|	614	if ((at->type == ROD \|\| at->type == WAND \|\| at->type == SCROLL \|\|
541	at->clone.type == HORN \|\| at->clone.type == SPELLBOOK) && !at_spell)	615	at->type == HORN \|\| at->type == SPELLBOOK) && !at_spell)
542	{	616	{
543	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);	617	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);
544	return 1;	618	return 1;
545	}	619	}
546		620
…		…
548	* Rather than have two different blocks with a lot of similar code,	622	* Rather than have two different blocks with a lot of similar code,
549	* just create one object, do all the processing, and then determine	623	* just create one object, do all the processing, and then determine
550	* if that one object should be inserted or if we need to make copies.	624	* if that one object should be inserted or if we need to make copies.
551	*/	625	*/
552	tmp = arch_to_object (at);	626	tmp = arch_to_object (at);
553
554	if (settings.real_wiz == FALSE)
555	SET_FLAG (tmp, FLAG_WAS_WIZ);
556		627
557	if (set_magic)	628	if (set_magic)
558	set_abs_magic (tmp, magic);	629	set_abs_magic (tmp, magic);
559		630
560	if (art)	631	if (art)
…		…
640	new_draw_info_format (NDI_UNIQUE, 0, op, "(%s#%d)->%s", &tmp->name, tmp->count, bp2);	711	new_draw_info_format (NDI_UNIQUE, 0, op, "(%s#%d)->%s", &tmp->name, tmp->count, bp2);
641		712
642	bp2 = bp3 + 1;	713	bp2 = bp3 + 1;
643	}	714	}
644		715
645	if (at->clone.nrof)	716	if (at->nrof)
646	{	717	{
647	if (at_spell)	718	if (at_spell)
648	insert_ob_in_ob (arch_to_object (at_spell), tmp);	719	tmp->insert (arch_to_object (at_spell));
649		720
650	tmp->x = op->x;	721	tmp->x = op->x;
651	tmp->y = op->y;	722	tmp->y = op->y;
		723	tmp->map = op->map;
652		724
653	if (set_nrof)	725	if (set_nrof)
654	tmp->nrof = nrof;	726	tmp->nrof = nrof;
655		727
656	tmp->map = op->map;	728	op->insert (tmp);
657
658	tmp = insert_ob_in_ob (tmp, op);
659	esrv_send_item (op, tmp);
660		729
661	/* Let's put this created item on stack so dm can access it easily. */	730	/* Let's put this created item on stack so dm can access it easily. */
662	dm_stack_push (op->contr, tmp->count);	731	dm_stack_push (op->contr, tmp->count);
663		732
664	return 1;	733	return 1;
665	}	734	}
666	else	735	else
667	{	736	{
668	for (i = 0; i < (set_nrof ? nrof : 1); i++)	737	for (i = 0; i < (set_nrof ? nrof : 1); i++)
669	{	738	{
670	archetype *atmp;
671	object prev = 0, head = 0;	739	object prev = 0, head = 0;
672		740
673	for (atmp = at; atmp; atmp = atmp->more)	741	for (archetype atmp = at; atmp; atmp = (archetype )atmp->more)
674	{	742	{
675	object *dup = arch_to_object (atmp);	743	object *dup = arch_to_object (atmp);
676		744
677	if (at_spell)	745	if (at_spell)
678	insert_ob_in_ob (arch_to_object (at_spell), dup);	746	insert_ob_in_ob (arch_to_object (at_spell), dup);
…		…
685	{	753	{
686	head = dup;	754	head = dup;
687	tmp->copy_to (dup);	755	tmp->copy_to (dup);
688	}	756	}
689		757
690	if (settings.real_wiz == FALSE)
691	SET_FLAG (dup, FLAG_WAS_WIZ);
692
693	dup->x = op->x + dup->arch->clone.x;	758	dup->x = op->x + dup->arch->x;
694	dup->y = op->y + dup->arch->clone.y;	759	dup->y = op->y + dup->arch->y;
695	dup->map = op->map;	760	dup->map = op->map;
696		761
697	if (head != dup)	762	if (head != dup)
698	{	763	{
699	dup->head = head;	764	dup->head = head;
…		…
709	int size_x = 0;	774	int size_x = 0;
710	int size_y = 0;	775	int size_y = 0;
711		776
712	while (check)	777	while (check)
713	{	778	{
714	size_x = MAX (size_x, check->arch->clone.x);	779	size_x = max (size_x, check->arch->x);
715	size_y = MAX (size_y, check->arch->clone.y);	780	size_y = max (size_y, check->arch->y);
716	check = check->more;	781	check = check->more;
717	}	782	}
718		783
719	if (out_of_map (op->map, head->x + size_x, head->y + size_y))	784	if (out_of_map (op->map, head->x + size_x, head->y + size_y))
720	{	785	{
…		…
746	/* Wonder if we really want to push all of these, but since	811	/* Wonder if we really want to push all of these, but since
747	* things like rods have nrof 0, we want to cover those.	812	* things like rods have nrof 0, we want to cover those.
748	*/	813	*/
749	dm_stack_push (op->contr, head->count);	814	dm_stack_push (op->contr, head->count);
750		815
751	if (at->clone.randomitems != NULL && !at_spell)	816	if (at->randomitems && !at_spell)
752	create_treasure (at->clone.randomitems, head, GT_APPLY, op->map->difficulty, 0);	817	create_treasure (at->randomitems, head, GT_APPLY, op->map->difficulty, 0);
753
754	esrv_send_item (op, head);
755	}	818	}
756		819
757	/* free the one we used to copy */	820	/* free the one we used to copy */
758	tmp->destroy ();	821	tmp->destroy ();
759	}	822	}
…		…
766	*/	829	*/
767		830
768	int	831	int
769	command_inventory (object op, char params)	832	command_inventory (object op, char params)
770	{	833	{
		834	int i;
771	object *tmp;	835	object *tmp;
772	int i;
773		836
774	if (!params)	837	if (!params \|\| !sscanf (params, "%d", &i) \|\| !(tmp = find_object (i)))
775	{	838	{
776	inventory (op, NULL);	839	op->contr->failmsg ("Inventory of what object (nr)?");
777	return 0;	840	return 1;
778	}
779
780	if (!sscanf (params, "%d", &i) \|\| (tmp = find_object (i)) == NULL)
781	{	841	}
782	new_draw_info (NDI_UNIQUE, 0, op, "Inventory of what object (nr)?");
783	return 1;
784	}
785		842
786	inventory (op, tmp);	843	op->contr->infobox (MSG_CHANNEL ("examine"), tmp->query_inventory (op));
		844
787	return 1;	845	return 1;
788	}	846	}
789		847
790	/* just show player's their skills for now. Dm's can	848	/* just show player's their skills for now. Dm's can
791	* already see skills w/ inventory command - b.t.	849	* already see skills w/ inventory command - b.t.
…		…
812	free (dump);	870	free (dump);
813		871
814	if (QUERY_FLAG (tmp, FLAG_OBJ_ORIGINAL))	872	if (QUERY_FLAG (tmp, FLAG_OBJ_ORIGINAL))
815	new_draw_info (NDI_UNIQUE, 0, op, "Object is marked original");	873	new_draw_info (NDI_UNIQUE, 0, op, "Object is marked original");
816		874
817	return 1;
818	}
819
820	/**
821	* When DM is possessing a monster, flip aggression on and off, to allow
822	* better motion.
823	*/
824	int
825	command_mon_aggr (object op, char params)
826	{
827	if (op->enemy \|\| !QUERY_FLAG (op, FLAG_UNAGGRESSIVE))
828	{
829	op->enemy = NULL;
830	SET_FLAG (op, FLAG_UNAGGRESSIVE);
831	new_draw_info (NDI_UNIQUE, 0, op, "Aggression turned OFF");
832	}
833	else
834	{
835	CLEAR_FLAG (op, FLAG_FRIENDLY);
836	CLEAR_FLAG (op, FLAG_UNAGGRESSIVE);
837	new_draw_info (NDI_UNIQUE, 0, op, "Aggression turned ON");
838	}
839
840	return 1;
841	}
842
843	/** DM can possess a monster. Basically, this tricks the client into thinking
844	* a given monster, is actually the player it controls. This allows a DM
845	* to inhabit a monster's body, and run around the game with it.
846	* This function is severely broken - it has tons of hardcoded values,
847	*/
848	int
849	command_possess (object op, char params)
850	{
851	object victim, curinv, *nextinv;
852	player *pl;
853	int i;
854	char buf[MAX_BUF];
855
856	victim = NULL;
857	if (params != NULL)
858	{
859	if (sscanf (params, "%d", &i))
860	victim = find_object (i);
861	else if (sscanf (params, "%s", buf))
862	victim = find_object_name (buf);
863	}
864	if (victim == NULL)
865	{
866	new_draw_info (NDI_UNIQUE, 0, op, "Patch what object (nr)?");
867	return 1;
868	}
869
870	if (victim == op)
871	{
872	new_draw_info (NDI_UNIQUE, 0, op, "As insane as you are, I cannot " "allow you to possess yourself.");
873	return 1;
874	}
875
876	/* clear out the old inventory */
877	curinv = op->inv;
878	while (curinv != NULL)
879	{
880	nextinv = curinv->below;
881	esrv_del_item (op->contr, curinv->count);
882	curinv = nextinv;
883	}
884
885	/* make the switch */
886	pl = op->contr;
887	victim->contr = pl;
888	pl->ob = victim;
889	victim->type = PLAYER;
890	SET_FLAG (victim, FLAG_WIZ);
891
892	/* send the inventory to the client */
893	curinv = victim->inv;
894	while (curinv != NULL)
895	{
896	nextinv = curinv->below;
897	esrv_send_item (victim, curinv);
898	curinv = nextinv;
899	}
900	/* basic patchup */
901	/* The use of hard coded values is terrible. Note
902	* that really, to be fair, this shouldn't get changed at
903	* all - if you are possessing a kobold, you should have the
904	* same limitations. As it is, as more body locations are added,
905	* this will give this player more locations than perhaps
906	* they should be allowed.
907	*/
908	for (i = 0; i < NUM_BODY_LOCATIONS; i++)
909	if (i == 1 \|\| i == 6 \|\| i == 8 \|\| i == 9)
910	victim->body_info[i] = 2;
911	else
912	victim->body_info[i] = 1;
913
914	esrv_new_player (pl, 80); /* just pick a wieght, we don't care */
915	esrv_send_inventory (victim, victim);
916
917	victim->update_stats ();
918
919	do_some_living (victim);
920	return 1;	875	return 1;
921	}	876	}
922		877
923	int	878	int
924	command_patch (object op, char params)	879	command_patch (object op, char params)
…		…
939	return 1;	894	return 1;
940	}	895	}
941		896
942	if ((arg2 = strchr (arg, ' ')))	897	if ((arg2 = strchr (arg, ' ')))
943	arg2++;	898	arg2++;
944	if (settings.real_wiz == FALSE)	899
945	SET_FLAG (tmp, FLAG_WAS_WIZ); /* To avoid cheating */
946	if (set_variable (tmp, arg) == -1)	900	if (set_variable (tmp, arg) == -1)
947	new_draw_info_format (NDI_UNIQUE, 0, op, "Unknown variable %s", arg);	901	new_draw_info_format (NDI_UNIQUE, 0, op, "Unknown variable %s", arg);
948	else	902	else
949	{
950	new_draw_info_format (NDI_UNIQUE, 0, op, "(%s#%d)->%s=%s", &tmp->name, tmp->count, arg, arg2);	903	new_draw_info_format (NDI_UNIQUE, 0, op, "(%s#%d)->%s=%s", &tmp->name, tmp->count, arg, arg2);
951	}
952		904
953	return 1;	905	return 1;
954	}	906	}
955		907
956	int	908	int
…		…
1005		957
1006	if (from != STACK_FROM_STACK)	958	if (from != STACK_FROM_STACK)
1007	/* Item is either stack top, or is a number thus is now stack top, let's remove it */	959	/* Item is either stack top, or is a number thus is now stack top, let's remove it */
1008	dm_stack_pop (op->contr);	960	dm_stack_pop (op->contr);
1009		961
1010	if (!QUERY_FLAG (tmp, FLAG_REMOVED))
1011	{
1012	new_draw_info (NDI_UNIQUE, 0, op, "Warning, item wasn't removed.");
1013	tmp->remove ();
1014	}
1015
1016	if (tmp->head)	962	if (tmp->head)
1017	tmp = tmp->head;	963	tmp = tmp->head;
1018		964
1019	tmp->destroy ();	965	tmp->destroy ();
1020	return 1;	966	return 1;
…		…
1025	*/	971	*/
1026	int	972	int
1027	command_addexp (object op, char params)	973	command_addexp (object op, char params)
1028	{	974	{
1029	char buf[MAX_BUF], skill[MAX_BUF];	975	char buf[MAX_BUF], skill[MAX_BUF];
1030	int i, q;	976	int q;
		977	long long i; // use sint64 and finally provide format specifiers for sint64 etc. via configure
1031	object *skillob = NULL;	978	object *skillob = NULL;
1032		979
1033	skill[0] = '\0';	980	skill[0] = '\0';
1034	if ((params == NULL) \|\| (strlen (params) > MAX_BUF) \|\| ((q = sscanf (params, "%s %d %s", buf, &i, skill)) < 2))	981	if ((params == NULL) \|\| (strlen (params) > MAX_BUF) \|\| ((q = sscanf (params, "%s %lld %[^\n]", buf, &i, skill)) < 2))
1035	{	982	{
1036	new_draw_info (NDI_UNIQUE, 0, op, "Usage: addexp <who> <how much> [<skill>].");	983	new_draw_info (NDI_UNIQUE, 0, op, "Usage: addexp <who> <how much> [<skill>].");
1037	return 1;	984	return 1;
1038	}	985	}
1039		986
…		…
1057		1004
1058	pl->ob->stats.exp += i;	1005	pl->ob->stats.exp += i;
1059	calc_perm_exp (pl->ob);	1006	calc_perm_exp (pl->ob);
1060	player_lvl_adj (pl->ob, NULL);	1007	player_lvl_adj (pl->ob, NULL);
1061		1008
1062	if (settings.real_wiz == FALSE)
1063	SET_FLAG (pl->ob, FLAG_WAS_WIZ);
1064
1065	return 1;	1009	return 1;
1066	}	1010	}
1067		1011
1068	new_draw_info (NDI_UNIQUE, 0, op, "No such player.");	1012	new_draw_info (NDI_UNIQUE, 0, op, "No such player.");
1069	return 1;	1013	return 1;
…		…
1089	new_draw_info (NDI_UNIQUE, 0, op, "Who?");	1033	new_draw_info (NDI_UNIQUE, 0, op, "Who?");
1090	return 1;	1034	return 1;
1091	}	1035	}
1092		1036
1093	for_all_players (pl)	1037	for_all_players (pl)
1094	if (!strcmp (pl->ob->name, thing))	1038	if (!strcmp (&pl->ob->name, thing))
1095	{	1039	{
1096	sprintf (buf, "Str : %-2d H.P. : %-4d MAX : %d", pl->ob->stats.Str, pl->ob->stats.hp, pl->ob->stats.maxhp);	1040	sprintf (buf, "Str : %-2d H.P. : %-4d MAX : %d", pl->ob->stats.Str, pl->ob->stats.hp, pl->ob->stats.maxhp);
1097	new_draw_info (NDI_UNIQUE, 0, op, buf);	1041	new_draw_info (NDI_UNIQUE, 0, op, buf);
1098	sprintf (buf, "Dex : %-2d S.P. : %-4d MAX : %d", pl->ob->stats.Dex, pl->ob->stats.sp, pl->ob->stats.maxsp);	1042	sprintf (buf, "Dex : %-2d S.P. : %-4d MAX : %d", pl->ob->stats.Dex, pl->ob->stats.sp, pl->ob->stats.maxsp);
1099	new_draw_info (NDI_UNIQUE, 0, op, buf);	1043	new_draw_info (NDI_UNIQUE, 0, op, buf);
…		…
1117	int	1061	int
1118	command_abil (object op, char params)	1062	command_abil (object op, char params)
1119	{	1063	{
1120	char thing[20], thing2[20];	1064	char thing[20], thing2[20];
1121	int iii;	1065	int iii;
1122	player *pl;
1123	char buf[MAX_BUF];	1066	char buf[MAX_BUF];
1124		1067
1125	iii = 0;	1068	iii = 0;
1126	thing[0] = '\0';	1069	thing[0] = '\0';
1127	thing2[0] = '\0';	1070	thing2[0] = '\0';
…		…
1143	return 1;	1086	return 1;
1144	}	1087	}
1145		1088
1146	for_all_players (pl)	1089	for_all_players (pl)
1147	{	1090	{
1148	if (!strcmp (pl->ob->name, thing))	1091	if (!strcmp (&pl->ob->name, thing))
1149	{	1092	{
1150	if (settings.real_wiz == FALSE)
1151	SET_FLAG (pl->ob, FLAG_WAS_WIZ);
1152	if (!strcmp ("str", thing2))
1153	pl->ob->stats.Str = iii, pl->orig_stats.Str = iii;	1093	if (!strcmp ("str", thing2)) pl->ob->stats.Str = iii, pl->orig_stats.Str = iii;
1154	if (!strcmp ("dex", thing2))
1155	pl->ob->stats.Dex = iii, pl->orig_stats.Dex = iii;	1094	if (!strcmp ("dex", thing2)) pl->ob->stats.Dex = iii, pl->orig_stats.Dex = iii;
1156	if (!strcmp ("con", thing2))
1157	pl->ob->stats.Con = iii, pl->orig_stats.Con = iii;	1095	if (!strcmp ("con", thing2)) pl->ob->stats.Con = iii, pl->orig_stats.Con = iii;
1158	if (!strcmp ("wis", thing2))
1159	pl->ob->stats.Wis = iii, pl->orig_stats.Wis = iii;	1096	if (!strcmp ("wis", thing2)) pl->ob->stats.Wis = iii, pl->orig_stats.Wis = iii;
1160	if (!strcmp ("cha", thing2))
1161	pl->ob->stats.Cha = iii, pl->orig_stats.Cha = iii;	1097	if (!strcmp ("cha", thing2)) pl->ob->stats.Cha = iii, pl->orig_stats.Cha = iii;
1162	if (!strcmp ("int", thing2))
1163	pl->ob->stats.Int = iii, pl->orig_stats.Int = iii;	1098	if (!strcmp ("int", thing2)) pl->ob->stats.Int = iii, pl->orig_stats.Int = iii;
1164	if (!strcmp ("pow", thing2))
1165	pl->ob->stats.Pow = iii, pl->orig_stats.Pow = iii;	1099	if (!strcmp ("pow", thing2)) pl->ob->stats.Pow = iii, pl->orig_stats.Pow = iii;
		1100
1166	sprintf (buf, "%s has been altered.", &pl->ob->name);	1101	sprintf (buf, "%s has been altered.", &pl->ob->name);
1167	new_draw_info (NDI_UNIQUE, 0, op, buf);	1102	new_draw_info (NDI_UNIQUE, 0, op, buf);
1168	pl->ob->update_stats ();	1103	pl->ob->update_stats ();
1169	return 1;	1104	return 1;
1170	}	1105	}
…		…
1174	return 1;	1109	return 1;
1175	}	1110	}
1176		1111
1177	int	1112	int
1178	command_nowiz (object op, char params)	1113	command_nowiz (object op, char params)
1179	{ /* 'noadm' is alias */	1114	{ /* 'nodm' is alias */
1180	CLEAR_FLAG (op, FLAG_WIZ);	1115	CLEAR_FLAG (op, FLAG_WIZ);
1181	CLEAR_FLAG (op, FLAG_WIZPASS);	1116	CLEAR_FLAG (op, FLAG_WIZPASS);
1182	CLEAR_FLAG (op, FLAG_WIZCAST);	1117	CLEAR_FLAG (op, FLAG_WIZCAST);
1183
1184	if (settings.real_wiz == TRUE)
1185	CLEAR_FLAG (op, FLAG_WAS_WIZ);	1118	CLEAR_FLAG (op, FLAG_WIZLOOK);
		1119	op->contr->do_los = 1;
		1120
1186	if (op->contr->hidden)	1121	if (op->contr->hidden)
1187	{	1122	{
1188	new_draw_info (NDI_UNIQUE, 0, op, "You are no longer hidden from other players");	1123	new_draw_info (NDI_UNIQUE, 0, op, "You are no longer hidden from other players");
1189	op->map->players++;	1124	op->map->players++;
1190	new_draw_info_format (NDI_UNIQUE \| NDI_ALL \| NDI_DK_ORANGE, 5, NULL, "%s has entered the game.", &op->name);	1125	new_draw_info_format (NDI_UNIQUE \| NDI_ALL \| NDI_DK_ORANGE, 5, NULL, "%s has entered the game.", &op->name);
1191	op->contr->hidden = 0;	1126	op->contr->hidden = 0;
1192	op->invisible = 1;	1127	op->invisible = 1;
1193	}	1128	}
1194	else	1129	else
1195	new_draw_info (NDI_UNIQUE \| NDI_ALL \| NDI_LT_GREEN, 1, NULL, "The Dungeon Master is gone..");	1130	new_draw_info (NDI_UNIQUE \| NDI_ALL \| NDI_LT_GREEN, 1, NULL, "The Dungeon Master is gone..");
		1131
1196	return 1;	1132	return 1;
1197	}	1133	}
1198		1134
1199	/**	1135	/**
1200	* object *op is trying to become dm.	1136	* object *op is trying to become dm.
…		…
1237	}	1173	}
1238	fclose (dmfile);	1174	fclose (dmfile);
1239	return (0);	1175	return (0);
1240	}	1176	}
1241		1177
1242	int	1178	static int
1243	do_wizard_dm (object op, char params, int silent)	1179	do_wizard_dm (object op, char params, int silent)
1244	{	1180	{
1245	if (!op->contr)	1181	if (!op->contr)
1246	return 0;	1182	return 0;
1247		1183
…		…
1252	}	1188	}
1253		1189
1254	if (checkdm (op, op->name, (params ? params : "*"), op->contr->ns->host))	1190	if (checkdm (op, op->name, (params ? params : "*"), op->contr->ns->host))
1255	{	1191	{
1256	SET_FLAG (op, FLAG_WIZ);	1192	SET_FLAG (op, FLAG_WIZ);
1257	SET_FLAG (op, FLAG_WAS_WIZ);
1258	SET_FLAG (op, FLAG_WIZPASS);	1193	SET_FLAG (op, FLAG_WIZPASS);
1259	SET_FLAG (op, FLAG_WIZCAST);	1194	SET_FLAG (op, FLAG_WIZCAST);
		1195	SET_FLAG (op, FLAG_WIZLOOK);
		1196	op->contr->do_los = 1;
		1197
1260	new_draw_info (NDI_UNIQUE, 0, op, "Ok, you are the Dungeon Master!");	1198	new_draw_info (NDI_UNIQUE, 0, op, "Ok, you are the Dungeon Master!");
1261	/*
1262	* Remove setting flying here - that won't work, because next
1263	* fix_player() is called that will get cleared - proper solution
1264	* is probably something like a wiz_force which gives that and any
1265	* other desired abilities.
1266	*/
1267	clear_los (op);
1268	op->contr->write_buf[0] = '\0';	1199	op->contr->write_buf[0] = '\0';
1269		1200
1270	if (!silent)	1201	if (!silent)
1271	new_draw_info (NDI_UNIQUE \| NDI_ALL \| NDI_LT_GREEN, 1, NULL, "The Dungeon Master has arrived!");	1202	new_draw_info (NDI_UNIQUE \| NDI_ALL \| NDI_LT_GREEN, 1, NULL, "The Dungeon Master has arrived!");
1272		1203
…		…
1299	command_invisible (object op, char params)	1230	command_invisible (object op, char params)
1300	{	1231	{
1301	if (op)	1232	if (op)
1302	{	1233	{
1303	op->invisible += 100;	1234	op->invisible += 100;
1304	update_object (op, UP_OBJ_FACE);	1235	update_object (op, UP_OBJ_CHANGE);
1305	new_draw_info (NDI_UNIQUE, 0, op, "You turn invisible.");	1236	new_draw_info (NDI_UNIQUE, 0, op, "You turn invisible.");
1306	}	1237	}
1307		1238
1308	return 0;	1239	return 0;
1309	}	1240	}
…		…
1312	* Returns spell object (from archetypes) by name.	1243	* Returns spell object (from archetypes) by name.
1313	* Returns NULL if 0 or more than one spell matches.	1244	* Returns NULL if 0 or more than one spell matches.
1314	* Used for wizard's learn spell/prayer.	1245	* Used for wizard's learn spell/prayer.
1315	*	1246	*
1316	* op is the player issuing the command.	1247	* op is the player issuing the command.
1317	*
1318	* Ignores archetypes "spelldirect_xxx" since these archetypes are not used
1319	* anymore (but may still be present in some player's inventories and thus
1320	* cannot be removed). We have to ignore them here since they have the same
1321	* name than other "spell_xxx" archetypes and would always conflict.
1322	*/	1248	*/
1323	static object *	1249	static object *
1324	get_spell_by_name (object op, const char spell_name)	1250	get_spell_by_name (object *op, shstr_cmp spell_name)
1325	{	1251	{
1326	archetype *ar;	1252	/* First check for full name matches. */
		1253	int conflict_found = 0;
1327	archetype *found;	1254	archetype *found;
1328	int conflict_found;	1255	for_all_archetypes (at)
1329	size_t spell_name_length;
1330
1331	/* First check for full name matches. */
1332	conflict_found = 0;
1333	found = NULL;
1334	for (ar = first_archetype; ar != NULL; ar = ar->next)
1335	{	1256	{
1336	if (ar->clone.type != SPELL)	1257	if (at->type != SPELL)
1337	continue;	1258	continue;
1338		1259
1339	if (strncmp (ar->name, "spelldirect_", 12) == 0)	1260	if (at->object::name != spell_name)
1340	continue;	1261	continue;
1341		1262
1342	if (strcmp (ar->clone.name, spell_name) != 0)
1343	continue;
1344
1345	if (found != NULL)	1263	if (found)
1346	{	1264	{
1347	if (!conflict_found)	1265	if (!conflict_found)
1348	{	1266	{
1349	conflict_found = 1;	1267	conflict_found = 1;
1350	new_draw_info_format (NDI_UNIQUE, 0, op, "More than one archetype matches the spell name %s:", spell_name);	1268	new_draw_info_format (NDI_UNIQUE, 0, op, "More than one archetype matches the spell name %s:", &spell_name);
1351	new_draw_info_format (NDI_UNIQUE, 0, op, "- %s", &found->name);	1269	new_draw_info_format (NDI_UNIQUE, 0, op, "- %s", &found->archname);
1352	}	1270	}
		1271
1353	new_draw_info_format (NDI_UNIQUE, 0, op, "- %s", &ar->name);	1272	new_draw_info_format (NDI_UNIQUE, 0, op, "- %s", &at->archname);
1354	continue;	1273	return 0;
1355	}	1274	}
1356		1275
1357	found = ar;	1276	found = at;
1358	}	1277	}
1359
1360	/* No match if more more than one archetype matches. */
1361	if (conflict_found)
1362	return NULL;
1363		1278
1364	/* Return if exactly one archetype matches. */	1279	/* Return if exactly one archetype matches. */
1365	if (found != NULL)	1280	if (found)
1366	return arch_to_object (found);	1281	return arch_to_object (found);
1367		1282
1368	/* No full match found: now check for partial matches. */
1369	spell_name_length = strlen (spell_name);
1370	conflict_found = 0;
1371	found = NULL;
1372	for (ar = first_archetype; ar != NULL; ar = ar->next)
1373	{
1374	if (ar->clone.type != SPELL)
1375	continue;
1376
1377	if (strncmp (ar->name, "spelldirect_", 12) == 0)
1378	continue;
1379
1380	if (strncmp (ar->clone.name, spell_name, spell_name_length) != 0)
1381	continue;
1382
1383	if (found != NULL)
1384	{
1385	if (!conflict_found)
1386	{
1387	conflict_found = 1;
1388	new_draw_info_format (NDI_UNIQUE, 0, op, "More than one spell matches %s:", spell_name);
1389	new_draw_info_format (NDI_UNIQUE, 0, op, "- %s", &found->clone.name);
1390	}
1391	new_draw_info_format (NDI_UNIQUE, 0, op, "- %s", &ar->clone.name);
1392	continue;
1393	}
1394
1395	found = ar;
1396	}
1397
1398	/* No match if more more than one archetype matches. */
1399	if (conflict_found)
1400	return NULL;
1401
1402	/* Return if exactly one archetype matches. */
1403	if (found != NULL)
1404	return arch_to_object (found);
1405
1406	/* No spell found: just print an error message. */	1283	/* No spell found: just print an error message. */
1407	new_draw_info_format (NDI_UNIQUE, 0, op, "The spell %s does not exist.", spell_name);	1284	new_draw_info_format (NDI_UNIQUE, 0, op, "The spell does not exist.");
		1285
1408	return NULL;	1286	return 0;
1409	}	1287	}
1410		1288
1411	static int	1289	static int
1412	command_learn_spell_or_prayer (object op, char params, int special_prayer)	1290	command_learn_spell_or_prayer (object op, char params, int special_prayer)
1413	{	1291	{
…		…
1465	new_draw_info_format (NDI_UNIQUE, 0, op, "You do not know the spell %s.", params);	1343	new_draw_info_format (NDI_UNIQUE, 0, op, "You do not know the spell %s.", params);
1466	return 0;	1344	return 0;
1467	}	1345	}
1468		1346
1469	do_forget_spell (op, spell->name);	1347	do_forget_spell (op, spell->name);
1470	return 1;
1471	}
1472
1473	/**
1474	* Lists all plugins currently loaded with their IDs and full names.
1475	*/
1476	int
1477	command_listplugins (object op, char params)
1478	{
1479	plugins_display_list (op);
1480	return 1;
1481	}
1482
1483	/**
1484	* Loads the given plugin. The DM specifies the name of the library to load (no
1485	* pathname is needed). Do not ever attempt to load the same plugin more than
1486	* once at a time, or bad things could happen.
1487	*/
1488	int
1489	command_loadplugin (object op, char params)
1490	{
1491	char buf[MAX_BUF];
1492
1493	if (params == NULL)
1494	{
1495	new_draw_info (NDI_UNIQUE, 0, op, "Load which plugin?");
1496	return 1;
1497	}
1498
1499	strcpy (buf, LIBDIR);
1500	strcat (buf, "/plugins/");
1501	strcat (buf, params);
1502	LOG (llevDebug, "Requested plugin file is %s\n", buf);
1503	if (plugins_init_plugin (buf) == 0)
1504	new_draw_info (NDI_UNIQUE, 0, op, "Plugin successfully loaded.");
1505	else
1506	new_draw_info (NDI_UNIQUE, 0, op, "Could not load plugin.");
1507	return 1;
1508	}
1509
1510	/**
1511	* Unloads the given plugin. The DM specified the ID of the library to unload.
1512	* Note that some things may behave strangely if the correct plugins are not
1513	* loaded.
1514	*/
1515	int
1516	command_unloadplugin (object op, char params)
1517	{
1518	if (params == NULL)
1519	{
1520	new_draw_info (NDI_UNIQUE, 0, op, "Remove which plugin?");
1521	return 1;
1522	}
1523
1524	if (plugins_remove_plugin (params) == 0)
1525	new_draw_info (NDI_UNIQUE, 0, op, "Plugin successfully removed.");
1526	else
1527	new_draw_info (NDI_UNIQUE, 0, op, "Could not remove plugin.");
1528	return 1;	1348	return 1;
1529	}	1349	}
1530		1350
1531	/**	1351	/**
1532	* A players wants to become DM and hide.	1352	* A players wants to become DM and hide.
…		…
1540	return 0;	1360	return 0;
1541		1361
1542	do_wizard_hide (op, 1);	1362	do_wizard_hide (op, 1);
1543		1363
1544	return 1;	1364	return 1;
1545	}
1546
1547	void
1548	dm_stack_pop (player *pl)
1549	{
1550	if (!pl->stack_items \|\| !pl->stack_position)
1551	{
1552	new_draw_info (NDI_UNIQUE, 0, pl->ob, "Empty stack!");
1553	return;
1554	}
1555
1556	pl->stack_position--;
1557	new_draw_info_format (NDI_UNIQUE, 0, pl->ob, "Popped item from stack, %d left.", pl->stack_position);
1558	}
1559
1560	/**
1561	* Get current stack top item for player.
1562	* Returns NULL if no stacked item.
1563	* If stacked item disappeared (freed), remove it.
1564	*
1565	* Ryo, august 2004
1566	*/
1567	object *
1568	dm_stack_peek (player *pl)
1569	{
1570	object *ob;
1571
1572	if (!pl->stack_position)
1573	{
1574	new_draw_info (NDI_UNIQUE, 0, pl->ob, "Empty stack!");
1575	return NULL;
1576	}
1577
1578	ob = find_object (pl->stack_items[pl->stack_position - 1]);
1579	if (!ob)
1580	{
1581	new_draw_info (NDI_UNIQUE, 0, pl->ob, "Stacked item was removed!");
1582	dm_stack_pop (pl);
1583	return NULL;
1584	}
1585
1586	return ob;
1587	}
1588
1589	/**
1590	* Push specified item on player stack.
1591	* Inform player of position.
1592	* Initializes variables if needed.
1593	*/
1594	void
1595	dm_stack_push (player *pl, tag_t item)
1596	{
1597	if (!pl->stack_items)
1598	{
1599	pl->stack_items = (tag_t ) malloc (sizeof (tag_t) STACK_SIZE);
1600	memset (pl->stack_items, 0, sizeof (tag_t) * STACK_SIZE);
1601	}
1602
1603	if (pl->stack_position == STACK_SIZE)
1604	{
1605	new_draw_info (NDI_UNIQUE, 0, pl->ob, "Item stack full!");
1606	return;
1607	}
1608
1609	pl->stack_items[pl->stack_position] = item;
1610	new_draw_info_format (NDI_UNIQUE, 0, pl->ob, "Item stacked as %d.", pl->stack_position);
1611	pl->stack_position++;
1612	}
1613
1614	/**
1615	* Checks 'params' for object code.
1616	*
1617	* Can be:
1618	* * empty => get current object stack top for player
1619	* * number => get item with that tag, stack it for future use
1620	* * $number => get specified stack item
1621	* * "me" => player himself
1622	*
1623	* At function exit, params points to first non-object char
1624	*
1625	* 'from', if not NULL, contains at exit:
1626	* * STACK_FROM_NONE => object not found
1627	* * STACK_FROM_TOP => top item stack, may be NULL if stack was empty
1628	* * STACK_FROM_STACK => item from somewhere in the stack
1629	* * STACK_FROM_NUMBER => item by number, pushed on stack
1630	*
1631	* Ryo, august 2004
1632	*/
1633	object *
1634	get_dm_object (player pl, char params, int from)
1635	{
1636	int item_tag, item_position;
1637	object *ob;
1638
1639	if (!pl)
1640	return NULL;
1641
1642	if (!params \|\| !params \|\| *params == '\0')
1643	{
1644	if (from)
1645	*from = STACK_FROM_TOP;
1646	/* No parameter => get stack item */
1647	return dm_stack_peek (pl);
1648	}
1649
1650	/* Let's clean white spaces */
1651	while (**params == ' ')
1652	(*params)++;
1653
1654	/* Next case: number => item tag */
1655	if (sscanf (*params, "%d", &item_tag))
1656	{
1657	/* Move parameter to next item */
1658	while (isdigit (**params))
1659	(*params)++;
1660
1661	/* And skip blanks, too */
1662	while (**params == ' ')
1663	(*params)++;
1664
1665	/* Get item */
1666	ob = find_object (item_tag);
1667	if (!ob)
1668	{
1669	if (from)
1670	*from = STACK_FROM_NONE;
1671	new_draw_info_format (NDI_UNIQUE, 0, pl->ob, "No such item %d!", item_tag);
1672	return NULL;
1673	}
1674
1675	/* Got one, let's push it on stack */
1676	dm_stack_push (pl, item_tag);
1677	if (from)
1678	*from = STACK_FROM_NUMBER;
1679	return ob;
1680	}
1681
1682	/* Next case: $number => stack item */
1683	if (sscanf (*params, "$%d", &item_position))
1684	{
1685	/* Move parameter to next item */
1686	(*params)++;
1687
1688	while (isdigit (**params))
1689	(*params)++;
1690	while (**params == ' ')
1691	(*params)++;
1692
1693	if (item_position >= pl->stack_position)
1694	{
1695	if (from)
1696	*from = STACK_FROM_NONE;
1697	new_draw_info_format (NDI_UNIQUE, 0, pl->ob, "No such stack item %d!", item_position);
1698	return NULL;
1699	}
1700
1701	ob = find_object (pl->stack_items[item_position]);
1702	if (!ob)
1703	{
1704	if (from)
1705	*from = STACK_FROM_NONE;
1706	new_draw_info_format (NDI_UNIQUE, 0, pl->ob, "Stack item %d was removed.", item_position);
1707	return NULL;
1708	}
1709
1710	if (from)
1711	*from = item_position < pl->stack_position - 1 ? STACK_FROM_STACK : STACK_FROM_TOP;
1712	return ob;
1713	}
1714
1715	/* Next case: 'me' => return pl->ob */
1716	if (!strncmp (*params, "me", 2))
1717	{
1718	if (from)
1719	*from = STACK_FROM_NUMBER;
1720	dm_stack_push (pl, pl->ob->count);
1721
1722	/* Skip to next token */
1723	(*params) += 2;
1724	while (**params == ' ')
1725	(*params)++;
1726
1727	return pl->ob;
1728	}
1729
1730	/* Last case: get stack top */
1731	if (from)
1732	*from = STACK_FROM_TOP;
1733	return dm_stack_peek (pl);
1734	}	1365	}
1735		1366
1736	/**	1367	/**
1737	* Pop the stack top.	1368	* Pop the stack top.
1738	*/	1369	*/
…		…
1798	}	1429	}
1799		1430
1800	int	1431	int
1801	command_insert_into (object op, char params)	1432	command_insert_into (object op, char params)
1802	{	1433	{
1803	object left, right, *inserted;	1434	object left, right;
1804	int left_from, right_from;	1435	int left_from, right_from;
1805		1436
1806	left = get_dm_object (op->contr, &params, &left_from);	1437	left = get_dm_object (op->contr, &params, &left_from);
1807	if (!left)	1438	if (!left)
1808	{	1439	{
…		…
1853	return 0;	1484	return 0;
1854	}	1485	}
1855		1486
1856	if (!QUERY_FLAG (right, FLAG_REMOVED))	1487	if (!QUERY_FLAG (right, FLAG_REMOVED))
1857	right->remove ();	1488	right->remove ();
		1489
1858	inserted = insert_ob_in_ob (right, left);	1490	object *inserted = insert_ob_in_ob (right, left);
1859	if (left->type == PLAYER)
1860	if (inserted == right)
1861	esrv_send_item (left, right);
1862	else
1863	esrv_update_item (UPD_WEIGHT \| UPD_NAME \| UPD_NROF, left, inserted);
1864		1491
1865	new_draw_info_format (NDI_UNIQUE, 0, op, "Inserted %s in %s", query_name (inserted), query_name (left));	1492	new_draw_info_format (NDI_UNIQUE, 0, op, "Inserted %s in %s", query_name (inserted), query_name (left));
1866		1493
1867	return 0;	1494	return 0;
1868		1495

Diff Legend

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

Comparing deliantra/server/server/c_wiz.C (file contents): Revision 1.32 by pippijn, Mon Jan 15 21:06:20 2007 UTC vs. Revision 1.77 by root, Sat Nov 7 18:30:06 2009 UTC

Diff Legend

Comparing deliantra/server/server/c_wiz.C (file contents):
Revision 1.32 by pippijn, Mon Jan 15 21:06:20 2007 UTC vs.
Revision 1.77 by root, Sat Nov 7 18:30:06 2009 UTC