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

Comparing deliantra/server/server/c_wiz.C (file contents):
Revision 1.19 by pippijn, Mon Dec 11 21:06:59 2006 UTC vs.
Revision 1.44 by root, Mon May 28 21:28:36 2007 UTC

…		…
1	/*	1	/*
2	CrossFire, A Multiplayer game for X-windows	2	* This file is part of Crossfire TRT, the Roguelike Realtime MORPG.
3		3	*
		4	* Copyright (©) 2005,2006,2007 Marc Alexander Lehmann / Robin Redeker / the Crossfire TRT team
4	Copyright (C) 2002 Mark Wedel & Crossfire Development Team	5	* Copyright (©) 2002,2007 Mark Wedel & Crossfire Development Team
5	Copyright (C) 1992 Frank Tore Johansen	6	* Copyright (©) 1992,2007 Frank Tore Johansen
6		7	*
7	This program is free software; you can redistribute it and/or modify	8	* Crossfire TRT is free software; you can redistribute it and/or modify it
8	it under the terms of the GNU General Public License as published by	9	* under the terms of the GNU General Public License as published by the Free
9	the Free Software Foundation; either version 2 of the License, or	10	* Software Foundation; either version 2 of the License, or (at your option)
10	(at your option) any later version.	11	* any later version.
11		12	*
12	This program is distributed in the hope that it will be useful,	13	* This program is distributed in the hope that it will be useful, but
13	but WITHOUT ANY WARRANTY; without even the implied warranty of	14	* WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
14	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the	15	* or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
15	GNU General Public License for more details.	16	* for more details.
16		17	*
17	You should have received a copy of the GNU General Public License	18	* You should have received a copy of the GNU General Public License along
18	along with this program; if not, write to the Free Software	19	* with Crossfire TRT; if not, write to the Free Software Foundation, Inc. 51
19	Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.	20	* Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
20		21	*
21	The authors can be reached via e-mail at <crossfire@schmorp.de>	22	* The authors can be reached via e-mail to <crossfire@schmorp.de>
22	*/	23	*/
23		24
24	#include <global.h>	25	#include <global.h>
25	#ifndef __CEXTRACT__
26	# include <sproto.h>	26	#include <sproto.h>
27	#endif
28	#include <spells.h>	27	#include <spells.h>
29	#include <treasure.h>	28	#include <treasure.h>
30	#include <skills.h>	29	#include <skills.h>
31		30
32	/ Defines for DM item stack /	31	/ Defines for DM item stack /
47	* other player, or NULL otherwise.	46	* other player, or NULL otherwise.
48	*/	47	*/
49	static player *	48	static player *
50	get_other_player_from_name (object op, char name)	49	get_other_player_from_name (object op, char name)
51	{	50	{
52	player *pl;
53
54	if (!name)	51	if (!name)
55	return NULL;	52	return NULL;
56		53
57	for (pl = first_player; pl != NULL; pl = pl->next)	54	for_all_players (pl)
58	if (!strncmp (pl->ob->name, name, MAX_NAME))	55	if (!strncmp (pl->ob->name, name, MAX_NAME))
59	break;
60
61	if (pl == NULL)
62	{	56	{
63	new_draw_info (NDI_UNIQUE, 0, op, "No such player.");
64	return NULL;
65	}
66
67	if (pl->ob == op)	57	if (pl->ob == op)
68	{	58	{
69	new_draw_info (NDI_UNIQUE, 0, op, "You can't do that to yourself.");	59	new_draw_info (NDI_UNIQUE, 0, op, "You can't do that to yourself.");
70	return NULL;	60	return NULL;
71	}	61	}
		62
72	if (pl->state != ST_PLAYING)	63	if (pl->ns->state != ST_PLAYING)
73	{	64	{
74	new_draw_info (NDI_UNIQUE, 0, op, "That player is in no state for that right now.");	65	new_draw_info (NDI_UNIQUE, 0, op, "That player is in no state for that right now.");
75	return NULL;	66	return NULL;
		67	}
		68
		69	return pl;
76	}	70	}
		71
		72	new_draw_info (NDI_UNIQUE, 0, op, "No such player.");
77	return pl;	73	return 0;
78	}	74	}
79		75
80	/**	76	/**
81	* Actually hides specified player (obviously a DM).	77	* Actually hides specified player (obviously a DM).
82	* If 'silent_dm' is non zero, other players are informed of DM entering/leaving,	78	* If 'silent_dm' is non zero, other players are informed of DM entering/leaving,
…		…
90	op->contr->hidden = 0;	86	op->contr->hidden = 0;
91	op->invisible = 1;	87	op->invisible = 1;
92	new_draw_info (NDI_UNIQUE, 0, op, "You are no longer hidden from other players");	88	new_draw_info (NDI_UNIQUE, 0, op, "You are no longer hidden from other players");
93	op->map->players++;	89	op->map->players++;
94	new_draw_info_format (NDI_UNIQUE \| NDI_ALL \| NDI_DK_ORANGE, 5, NULL, "%s has entered the game.", &op->name);	90	new_draw_info_format (NDI_UNIQUE \| NDI_ALL \| NDI_DK_ORANGE, 5, NULL, "%s has entered the game.", &op->name);
		91
95	if (!silent_dm)	92	if (!silent_dm)
96	{
97	new_draw_info (NDI_UNIQUE \| NDI_ALL \| NDI_LT_GREEN, 1, NULL, "The Dungeon Master has arrived!");	93	new_draw_info (NDI_UNIQUE \| NDI_ALL \| NDI_LT_GREEN, 1, NULL, "The Dungeon Master has arrived!");
98	}
99	}	94	}
100	else	95	else
101	{	96	{
102	op->contr->hidden = 1;	97	op->contr->hidden = 1;
103	new_draw_info (NDI_UNIQUE, 0, op, "Other players will no longer see you.");	98	new_draw_info (NDI_UNIQUE, 0, op, "Other players will no longer see you.");
104	op->map->players--;	99	op->map->players--;
		100
105	if (!silent_dm)	101	if (!silent_dm)
106	{
107	new_draw_info (NDI_UNIQUE \| NDI_ALL \| NDI_LT_GREEN, 1, NULL, "The Dungeon Master is gone..");	102	new_draw_info (NDI_UNIQUE \| NDI_ALL \| NDI_LT_GREEN, 1, NULL, "The Dungeon Master is gone..");
108	}	103
109	new_draw_info_format (NDI_UNIQUE \| NDI_ALL \| NDI_DK_ORANGE, 5, NULL, "%s leaves the game.", &op->name);	104	new_draw_info_format (NDI_UNIQUE \| NDI_ALL \| NDI_DK_ORANGE, 5, NULL, "%s leaves the game.", &op->name);
110	new_draw_info_format (NDI_UNIQUE \| NDI_ALL \| NDI_DK_ORANGE, 5, NULL, "%s left the game.", &op->name);	105	new_draw_info_format (NDI_UNIQUE \| NDI_ALL \| NDI_DK_ORANGE, 5, NULL, "%s left the game.", &op->name);
111	}	106	}
112	}	107	}
113		108
…		…
177		172
178	become_follower (ob, god);	173	become_follower (ob, god);
179	return 1;	174	return 1;
180	}	175	}
181		176
182	/**	177	// TODO: Rewrite banish in perl and get rid of the following two functions
183	* Add player's IP to ban_file and kick them off the server
184	* I know most people have dynamic IPs but this is more of a short term
185	* solution if they have to get a new IP to play maybe they'll calm down.
186	* This uses the banish_file in the local directory not the ban_file
187	* The action is logged with a ! for easy searching. -tm
188	*/
189	int
190	command_banish (object op, char params)
191	{
192	player *pl;
193	FILE *banishfile;
194	char buf[MAX_BUF];
195	time_t now;
196
197	if (!params)
198	{
199	new_draw_info (NDI_UNIQUE, 0, op, "Usage: banish <player>.");
200	return 1;
201	}
202
203	pl = get_other_player_from_name (op, params);
204	if (!pl)
205	return 1;
206
207	sprintf (buf, "%s/%s", settings.localdir, BANISHFILE);
208
209	if ((banishfile = fopen (buf, "a")) == NULL)
210	{
211	LOG (llevDebug, "Could not find file banish_file.\n");
212	new_draw_info (NDI_UNIQUE, 0, op, "Could not find banish_file.");
213	return 0;
214	}
215
216	now = time (NULL);
217	/*
218	* Record this as a comment - then we don't have to worry about changing
219	* the parsing code.
220	*/
221	fprintf (banishfile, "# %s (%s) banned by %s at %s\n", &pl->ob->name, pl->socket.host, &op->name, ctime (&now));
222	fprintf (banishfile, "*@%s\n", pl->socket.host);
223	fclose (banishfile);
224
225	LOG (llevDebug, "! %s banned %s from IP: %s.\n", &op->name, &pl->ob->name, pl->socket.host);
226	new_draw_info_format (NDI_UNIQUE \| NDI_RED, 0, op, "You banish %s", &pl->ob->name);
227	new_draw_info_format (NDI_UNIQUE \| NDI_ALL \| NDI_RED, 5, op, "%s banishes %s from the land!", &op->name, &pl->ob->name);
228	command_kick (op, (char *) &pl->ob->name);
229	return 1;
230	}
231
232	int	178	int
233	command_kick (object op, char params)	179	command_kick (object op, char params)
234	{	180	{
235	for (player *pl = first_player; pl; pl = pl->next)	181	for_all_players (pl)
236	if ((params == NULL \|\| !strcmp (&pl->ob->name, params)) && !INVOKE_PLAYER (KICK, pl, ARG_STRING (params)))	182	if ((params == NULL \|\| !strcmp (&pl->ob->name, params)) && !INVOKE_PLAYER (KICK, pl, ARG_STRING (params)))
237	{	183	{
238	object *op = pl->ob;	184	object *op = pl->ob;
239		185
240	if (!QUERY_FLAG (op, FLAG_REMOVED) && !QUERY_FLAG (op, FLAG_FREED))	186	if (!QUERY_FLAG (op, FLAG_REMOVED) && !QUERY_FLAG (op, FLAG_FREED))
241	{	187	{
242	new_draw_info_format (NDI_UNIQUE \| NDI_ALL \| NDI_RED, 5, op, "%s is kicked out of the game.", &op->name);	188	new_draw_info_format (NDI_UNIQUE \| NDI_ALL \| NDI_RED, 5, op, "%s is kicked out of the game.", &op->name);
243	strcpy (op->contr->killer, "kicked");	189	strcpy (op->contr->killer, "kicked");
244	}	190	}
245		191
246	pl->socket.status = Ns_Dead;	192	pl->ns->destroy ();
247	}	193	}
248		194
249	return 1;	195	return 1;
250	}	196	}
251		197
		198	//TODO
		199	#if 0
252	int	200	int
253	command_save_overlay (object op, char params)	201	command_save_overlay (object op, char params)
254	{	202	{
255	if (!op)	203	if (!op)
256	return 0;	204	return 0;
…		…
267		215
268	ready_map_name (op->map->path, 0);	216	ready_map_name (op->map->path, 0);
269		217
270	return 1;	218	return 1;
271	}	219	}
272		220	#endif
273	int
274	command_shutdown (object op, char params)
275	{
276	if (op != NULL && !QUERY_FLAG (op, FLAG_WIZ))
277	{
278	new_draw_info (NDI_UNIQUE, 0, op, "Sorry, you can't shutdown the server.");
279	return 1;
280	}
281
282	cleanup ();
283	/* not reached */
284	return 1;
285	}
286		221
287	int	222	int
288	command_freeze (object op, char params)	223	command_freeze (object op, char params)
289	{	224	{
290	int ticks;	225	int ticks;
…		…
326	object *dummy;	261	object *dummy;
327	player *pl;	262	player *pl;
328		263
329	if (!op)	264	if (!op)
330	return 0;	265	return 0;
		266
331	if (params == NULL)	267	if (params == NULL)
332	{	268	{
333	new_draw_info (NDI_UNIQUE, 0, op, "Usage: arrest <player>.");	269	new_draw_info (NDI_UNIQUE, 0, op, "Usage: arrest <player>.");
334	return 1;	270	return 1;
335	}	271	}
		272
336	pl = get_other_player_from_name (op, params);	273	pl = get_other_player_from_name (op, params);
337	if (!pl)	274	if (!pl)
338	return 1;	275	return 1;
		276
339	dummy = get_jail_exit (pl->ob);	277	dummy = get_jail_exit (pl->ob);
340	if (!dummy)	278	if (!dummy)
341	{	279	{
342	/* we have nowhere to send the prisoner.... */	280	/* we have nowhere to send the prisoner.... */
343	new_draw_info (NDI_UNIQUE, 0, op, "can't jail player, there is no map to hold them");	281	new_draw_info (NDI_UNIQUE, 0, op, "can't jail player, there is no map to hold them");
344	return 0;	282	return 0;
345	}	283	}
346	enter_exit (pl->ob, dummy);	284
347	free_object (dummy);	285	pl->ob->enter_exit (dummy);
		286	dummy->destroy ();
348	new_draw_info (NDI_UNIQUE, 0, pl->ob, "You have been arrested.");	287	new_draw_info (NDI_UNIQUE, 0, pl->ob, "You have been arrested.");
349	new_draw_info (NDI_UNIQUE, 0, op, "OK.");	288	new_draw_info (NDI_UNIQUE, 0, op, "OK.");
350	LOG (llevInfo, "Player %s arrested by %s\n", &pl->ob->name, &op->name);	289	LOG (llevInfo, "Player %s arrested by %s\n", &pl->ob->name, &op->name);
351	return 1;	290	return 1;
352	}	291	}
…		…
376	{	315	{
377	new_draw_info (NDI_UNIQUE, 0, op, "Can not find a free spot to place summoned player.");	316	new_draw_info (NDI_UNIQUE, 0, op, "Can not find a free spot to place summoned player.");
378	return 1;	317	return 1;
379	}	318	}
380		319
381	dummy = get_object ();	320	dummy = object::create ();
382	EXIT_PATH (dummy) = op->map->path;	321	EXIT_PATH (dummy) = op->map->path;
383	EXIT_X (dummy) = op->x + freearr_x[i];	322	EXIT_X (dummy) = op->x + freearr_x[i];
384	EXIT_Y (dummy) = op->y + freearr_y[i];	323	EXIT_Y (dummy) = op->y + freearr_y[i];
385	enter_exit (pl->ob, dummy);	324	pl->ob->enter_exit (dummy);
386	free_object (dummy);	325	dummy->destroy ();
387	new_draw_info (NDI_UNIQUE, 0, pl->ob, "You are summoned.");	326	new_draw_info (NDI_UNIQUE, 0, pl->ob, "You are summoned.");
388	new_draw_info (NDI_UNIQUE, 0, op, "OK.");	327	new_draw_info (NDI_UNIQUE, 0, op, "OK.");
389		328
390	return 1;
391	}
392
393	/**
394	* Teleport next to target player.
395	*/
396
397	/* mids 01/16/2002 */
398	int
399	command_teleport (object op, char params)
400	{
401	int i;
402	object *dummy;
403	player *pl;
404
405	if (!op)
406	return 0;
407
408	if (params == NULL)
409	{
410	new_draw_info (NDI_UNIQUE, 0, op, "Usage: teleport <player>.");
411	return 1;
412	}
413
414	pl = get_other_player_from_name (op, params);
415	if (!pl)
416	return 1;
417
418	i = find_free_spot (pl->ob, pl->ob->map, pl->ob->x, pl->ob->y, 1, 9);
419	if (i == -1)
420	{
421	new_draw_info (NDI_UNIQUE, 0, op, "Can not find a free spot to teleport to.");
422	return 1;
423	}
424
425	dummy = get_object ();
426	EXIT_PATH (dummy) = pl->ob->map->path;
427	EXIT_X (dummy) = pl->ob->x + freearr_x[i];
428	EXIT_Y (dummy) = pl->ob->y + freearr_y[i];
429	enter_exit (op, dummy);
430	free_object (dummy);
431	if (!op->contr->hidden)
432	new_draw_info (NDI_UNIQUE, 0, pl->ob, "You see a portal open.");
433	new_draw_info (NDI_UNIQUE, 0, op, "OK.");
434	return 1;	329	return 1;
435	}	330	}
436		331
437	/**	332	/**
438	* This function is a real mess, because we're stucking getting	333	* This function is a real mess, because we're stucking getting
…		…
532	at_spell = archetype::find (cp);	427	at_spell = archetype::find (cp);
533	if (!at_spell \|\| at_spell->clone.type != SPELL)	428	if (!at_spell \|\| at_spell->clone.type != SPELL)
534	at_spell = find_archetype_by_object_name (cp);	429	at_spell = find_archetype_by_object_name (cp);
535	if (!at_spell \|\| at_spell->clone.type != SPELL)	430	if (!at_spell \|\| at_spell->clone.type != SPELL)
536	{	431	{
537	strcpy (spell_name, cp);	432	assign (spell_name, cp);
538	fsp = strchr (spell_name, ' ');	433	fsp = strchr (spell_name, ' ');
539	if (fsp)	434	if (fsp)
540	{	435	{
541	*fsp = 0;	436	*fsp = 0;
542	fsp++;	437	fsp++;
…		…
559	new_draw_info_format (NDI_UNIQUE, 0, op, "No artifact list for type %d\n", at->clone.type);	454	new_draw_info_format (NDI_UNIQUE, 0, op, "No artifact list for type %d\n", at->clone.type);
560	else	455	else
561	{	456	{
562	art = find_artifactlist (at->clone.type)->items;	457	art = find_artifactlist (at->clone.type)->items;
563		458
564	do	459	while (art)
565	{	460	{
566	if (!strcmp (art->item->name, cp))	461	if (!strcmp (art->item->name, cp))
567	break;	462	break;
		463
568	art = art->next;	464	art = art->next;
569	}	465	}
570	while (art != NULL);
571		466
572	if (!art)	467	if (!art)
573	new_draw_info_format (NDI_UNIQUE, 0, op, "No such artifact ([%d] of %s)", at->clone.type, cp);	468	new_draw_info_format (NDI_UNIQUE, 0, op, "No such artifact ([%d] of %s)", at->clone.type, cp);
574	}	469	}
575		470
…		…
588	* Rather than have two different blocks with a lot of similar code,	483	* Rather than have two different blocks with a lot of similar code,
589	* just create one object, do all the processing, and then determine	484	* just create one object, do all the processing, and then determine
590	* if that one object should be inserted or if we need to make copies.	485	* if that one object should be inserted or if we need to make copies.
591	*/	486	*/
592	tmp = arch_to_object (at);	487	tmp = arch_to_object (at);
593
594	if (settings.real_wiz == FALSE)
595	SET_FLAG (tmp, FLAG_WAS_WIZ);
596		488
597	if (set_magic)	489	if (set_magic)
598	set_abs_magic (tmp, magic);	490	set_abs_magic (tmp, magic);
599		491
600	if (art)	492	if (art)
…		…
722	* so just copying it over should be fine.	614	* so just copying it over should be fine.
723	*/	615	*/
724	if (!head)	616	if (!head)
725	{	617	{
726	head = dup;	618	head = dup;
727	copy_object (tmp, dup);	619	tmp->copy_to (dup);
728	}	620	}
729
730	if (settings.real_wiz == FALSE)
731	SET_FLAG (dup, FLAG_WAS_WIZ);
732		621
733	dup->x = op->x + dup->arch->clone.x;	622	dup->x = op->x + dup->arch->clone.x;
734	dup->y = op->y + dup->arch->clone.y;	623	dup->y = op->y + dup->arch->clone.y;
735	dup->map = op->map;	624	dup->map = op->map;
736		625
…		…
759	if (out_of_map (op->map, head->x + size_x, head->y + size_y))	648	if (out_of_map (op->map, head->x + size_x, head->y + size_y))
760	{	649	{
761	if (head->x < size_x \|\| head->y < size_y)	650	if (head->x < size_x \|\| head->y < size_y)
762	{	651	{
763	dm_stack_pop (op->contr);	652	dm_stack_pop (op->contr);
764	free_object (head);	653	head->destroy ();
765	new_draw_info (NDI_UNIQUE, 0, op, "Object too big to insert in map, or wrong position.");	654	new_draw_info (NDI_UNIQUE, 0, op, "Object too big to insert in map, or wrong position.");
766	free_object (tmp);	655	tmp->destroy ();
767	return 1;	656	return 1;
768	}	657	}
769		658
770	check = head;	659	check = head;
771		660
…		…
793		682
794	esrv_send_item (op, head);	683	esrv_send_item (op, head);
795	}	684	}
796		685
797	/* free the one we used to copy */	686	/* free the one we used to copy */
798	free_object (tmp);	687	tmp->destroy ();
799	}	688	}
800		689
801	return 1;	690	return 1;
802	}	691	}
803		692
…		…
852	free (dump);	741	free (dump);
853		742
854	if (QUERY_FLAG (tmp, FLAG_OBJ_ORIGINAL))	743	if (QUERY_FLAG (tmp, FLAG_OBJ_ORIGINAL))
855	new_draw_info (NDI_UNIQUE, 0, op, "Object is marked original");	744	new_draw_info (NDI_UNIQUE, 0, op, "Object is marked original");
856		745
857	return 1;
858	}
859
860	/**
861	* When DM is possessing a monster, flip aggression on and off, to allow
862	* better motion.
863	*/
864	int
865	command_mon_aggr (object op, char params)
866	{
867	if (op->enemy \|\| !QUERY_FLAG (op, FLAG_UNAGGRESSIVE))
868	{
869	op->enemy = NULL;
870	SET_FLAG (op, FLAG_UNAGGRESSIVE);
871	new_draw_info (NDI_UNIQUE, 0, op, "Aggression turned OFF");
872	}
873	else
874	{
875	CLEAR_FLAG (op, FLAG_FRIENDLY);
876	CLEAR_FLAG (op, FLAG_UNAGGRESSIVE);
877	new_draw_info (NDI_UNIQUE, 0, op, "Aggression turned ON");
878	}
879
880	return 1;
881	}
882
883	/** DM can possess a monster. Basically, this tricks the client into thinking
884	* a given monster, is actually the player it controls. This allows a DM
885	* to inhabit a monster's body, and run around the game with it.
886	* This function is severely broken - it has tons of hardcoded values,
887	*/
888	int
889	command_possess (object op, char params)
890	{
891	object victim, curinv, *nextinv;
892	player *pl;
893	int i;
894	char buf[MAX_BUF];
895
896	victim = NULL;
897	if (params != NULL)
898	{
899	if (sscanf (params, "%d", &i))
900	victim = find_object (i);
901	else if (sscanf (params, "%s", buf))
902	victim = find_object_name (buf);
903	}
904	if (victim == NULL)
905	{
906	new_draw_info (NDI_UNIQUE, 0, op, "Patch what object (nr)?");
907	return 1;
908	}
909
910	if (victim == op)
911	{
912	new_draw_info (NDI_UNIQUE, 0, op, "As insane as you are, I cannot " "allow you to possess yourself.");
913	return 1;
914	}
915
916	/* clear out the old inventory */
917	curinv = op->inv;
918	while (curinv != NULL)
919	{
920	nextinv = curinv->below;
921	esrv_del_item (op->contr, curinv->count);
922	curinv = nextinv;
923	}
924
925	/* make the switch */
926	pl = op->contr;
927	victim->contr = pl;
928	pl->ob = victim;
929	victim->type = PLAYER;
930	SET_FLAG (victim, FLAG_WIZ);
931
932	/* send the inventory to the client */
933	curinv = victim->inv;
934	while (curinv != NULL)
935	{
936	nextinv = curinv->below;
937	esrv_send_item (victim, curinv);
938	curinv = nextinv;
939	}
940	/* basic patchup */
941	/* The use of hard coded values is terrible. Note
942	* that really, to be fair, this shouldn't get changed at
943	* all - if you are possessing a kobold, you should have the
944	* same limitations. As it is, as more body locations are added,
945	* this will give this player more locations than perhaps
946	* they should be allowed.
947	*/
948	for (i = 0; i < NUM_BODY_LOCATIONS; i++)
949	if (i == 1 \|\| i == 6 \|\| i == 8 \|\| i == 9)
950	victim->body_info[i] = 2;
951	else
952	victim->body_info[i] = 1;
953
954	esrv_new_player (pl, 80); /* just pick a wieght, we don't care */
955	esrv_send_inventory (victim, victim);
956
957	fix_player (victim);
958
959	do_some_living (victim);
960	return 1;	746	return 1;
961	}	747	}
962		748
963	int	749	int
964	command_patch (object op, char params)	750	command_patch (object op, char params)
…		…
979	return 1;	765	return 1;
980	}	766	}
981		767
982	if ((arg2 = strchr (arg, ' ')))	768	if ((arg2 = strchr (arg, ' ')))
983	arg2++;	769	arg2++;
984	if (settings.real_wiz == FALSE)	770
985	SET_FLAG (tmp, FLAG_WAS_WIZ); /* To avoid cheating */
986	if (set_variable (tmp, arg) == -1)	771	if (set_variable (tmp, arg) == -1)
987	new_draw_info_format (NDI_UNIQUE, 0, op, "Unknown variable %s", arg);	772	new_draw_info_format (NDI_UNIQUE, 0, op, "Unknown variable %s", arg);
988	else	773	else
989	{
990	new_draw_info_format (NDI_UNIQUE, 0, op, "(%s#%d)->%s=%s", &tmp->name, tmp->count, arg, arg2);	774	new_draw_info_format (NDI_UNIQUE, 0, op, "(%s#%d)->%s=%s", &tmp->name, tmp->count, arg, arg2);
991	}
992		775
993	return 1;	776	return 1;
994	}	777	}
995		778
996	int	779	int
…		…
1023	dm_stack_pop (op->contr);	806	dm_stack_pop (op->contr);
1024		807
1025	/* Always work on the head - otherwise object will get in odd state */	808	/* Always work on the head - otherwise object will get in odd state */
1026	if (tmp->head)	809	if (tmp->head)
1027	tmp = tmp->head;	810	tmp = tmp->head;
1028	remove_ob (tmp);	811	tmp->remove ();
1029	return 1;	812	return 1;
1030	}	813	}
1031		814
1032	int	815	int
1033	command_free (object op, char params)	816	command_free (object op, char params)
…		…
1045		828
1046	if (from != STACK_FROM_STACK)	829	if (from != STACK_FROM_STACK)
1047	/* Item is either stack top, or is a number thus is now stack top, let's remove it */	830	/* Item is either stack top, or is a number thus is now stack top, let's remove it */
1048	dm_stack_pop (op->contr);	831	dm_stack_pop (op->contr);
1049		832
1050	if (!QUERY_FLAG (tmp, FLAG_REMOVED))
1051	{
1052	new_draw_info (NDI_UNIQUE, 0, op, "Warning, item wasn't removed.");
1053	remove_ob (tmp);
1054	}
1055
1056	if (tmp->head)	833	if (tmp->head)
1057	tmp = tmp->head;	834	tmp = tmp->head;
1058	free_object (tmp);	835
		836	tmp->destroy ();
1059	return 1;	837	return 1;
1060	}	838	}
1061		839
1062	/**	840	/**
1063	* This adds exp to a player. We now allow adding to a specific skill.	841	* This adds exp to a player. We now allow adding to a specific skill.
…		…
1066	command_addexp (object op, char params)	844	command_addexp (object op, char params)
1067	{	845	{
1068	char buf[MAX_BUF], skill[MAX_BUF];	846	char buf[MAX_BUF], skill[MAX_BUF];
1069	int i, q;	847	int i, q;
1070	object *skillob = NULL;	848	object *skillob = NULL;
1071	player *pl;
1072		849
1073	skill[0] = '\0';	850	skill[0] = '\0';
1074	if ((params == NULL) \|\| (strlen (params) > MAX_BUF) \|\| ((q = sscanf (params, "%s %d %s", buf, &i, skill)) < 2))	851	if ((params == NULL) \|\| (strlen (params) > MAX_BUF) \|\| ((q = sscanf (params, "%s %d %s", buf, &i, skill)) < 2))
1075	{	852	{
1076	new_draw_info (NDI_UNIQUE, 0, op, "Usage: addexp <who> <how much> [<skill>].");	853	new_draw_info (NDI_UNIQUE, 0, op, "Usage: addexp <who> <how much> [<skill>].");
1077	return 1;	854	return 1;
1078	}	855	}
1079		856
1080	for (pl = first_player; pl != NULL; pl = pl->next)	857	for_all_players (pl)
1081	if (!strncmp (pl->ob->name, buf, MAX_NAME))	858	if (!strncmp (pl->ob->name, buf, MAX_NAME))
1082	break;
1083
1084	if (pl == NULL)
1085	{	859	{
1086	new_draw_info (NDI_UNIQUE, 0, op, "No such player.");
1087	return 1;
1088	}
1089
1090	if (q >= 3)	860	if (q >= 3)
1091	{	861	{
1092	skillob = find_skill_by_name (pl->ob, skill);	862	skillob = find_skill_by_name (pl->ob, skill);
1093	if (!skillob)	863	if (!skillob)
1094	{	864	{
1095	new_draw_info_format (NDI_UNIQUE, 0, op, "Unable to find skill %s in %s", skill, buf);	865	new_draw_info_format (NDI_UNIQUE, 0, op, "Unable to find skill %s in %s", skill, buf);
		866	return 1;
		867	}
		868
		869	i = check_exp_adjust (skillob, i);
		870	skillob->stats.exp += i;
		871	calc_perm_exp (skillob);
		872	player_lvl_adj (pl->ob, skillob);
		873	}
		874
		875	pl->ob->stats.exp += i;
		876	calc_perm_exp (pl->ob);
		877	player_lvl_adj (pl->ob, NULL);
		878
1096	return 1;	879	return 1;
1097	}	880	}
1098		881
1099	i = check_exp_adjust (skillob, i);	882	new_draw_info (NDI_UNIQUE, 0, op, "No such player.");
1100	skillob->stats.exp += i;
1101	calc_perm_exp (skillob);
1102	player_lvl_adj (pl->ob, skillob);
1103	}
1104
1105	pl->ob->stats.exp += i;
1106	calc_perm_exp (pl->ob);
1107	player_lvl_adj (pl->ob, NULL);
1108
1109	if (settings.real_wiz == FALSE)
1110	SET_FLAG (pl->ob, FLAG_WAS_WIZ);
1111	return 1;	883	return 1;
1112	}	884	}
1113		885
1114	/**************************************************************************/	886	/**************************************************************************/
1115		887
…		…
1121		893
1122	int	894	int
1123	command_stats (object op, char params)	895	command_stats (object op, char params)
1124	{	896	{
1125	char thing[20];	897	char thing[20];
1126	player *pl;
1127	char buf[MAX_BUF];	898	char buf[MAX_BUF];
1128		899
1129	thing[0] = '\0';	900	thing[0] = '\0';
1130	if (params == NULL \|\| !sscanf (params, "%s", thing) \|\| thing == NULL)	901	if (params == NULL \|\| !sscanf (params, "%s", thing) \|\| thing == NULL)
1131	{	902	{
1132	new_draw_info (NDI_UNIQUE, 0, op, "Who?");	903	new_draw_info (NDI_UNIQUE, 0, op, "Who?");
1133	return 1;	904	return 1;
1134	}	905	}
1135		906
1136	for (pl = first_player; pl != NULL; pl = pl->next)	907	for_all_players (pl)
1137	if (!strcmp (pl->ob->name, thing))	908	if (!strcmp (pl->ob->name, thing))
1138	{	909	{
1139	sprintf (buf, "Str : %-2d H.P. : %-4d MAX : %d", pl->ob->stats.Str, pl->ob->stats.hp, pl->ob->stats.maxhp);	910	sprintf (buf, "Str : %-2d H.P. : %-4d MAX : %d", pl->ob->stats.Str, pl->ob->stats.hp, pl->ob->stats.maxhp);
1140	new_draw_info (NDI_UNIQUE, 0, op, buf);	911	new_draw_info (NDI_UNIQUE, 0, op, buf);
1141	sprintf (buf, "Dex : %-2d S.P. : %-4d MAX : %d", pl->ob->stats.Dex, pl->ob->stats.sp, pl->ob->stats.maxsp);	912	sprintf (buf, "Dex : %-2d S.P. : %-4d MAX : %d", pl->ob->stats.Dex, pl->ob->stats.sp, pl->ob->stats.maxsp);
1142	new_draw_info (NDI_UNIQUE, 0, op, buf);	913	new_draw_info (NDI_UNIQUE, 0, op, buf);
1143	sprintf (buf, "Con : %-2d AC : %-4d WC : %d", pl->ob->stats.Con, pl->ob->stats.ac, pl->ob->stats.wc);	914	sprintf (buf, "Con : %-2d AC : %-4d WC : %d", pl->ob->stats.Con, pl->ob->stats.ac, pl->ob->stats.wc);
1144	new_draw_info (NDI_UNIQUE, 0, op, buf);	915	new_draw_info (NDI_UNIQUE, 0, op, buf);
1145	sprintf (buf, "Int : %-2d Damage : %d", pl->ob->stats.Int, pl->ob->stats.dam);	916	sprintf (buf, "Int : %-2d Damage : %d", pl->ob->stats.Int, pl->ob->stats.dam);
1146	new_draw_info (NDI_UNIQUE, 0, op, buf);	917	new_draw_info (NDI_UNIQUE, 0, op, buf);
1147	sprintf (buf, "Wis : %-2d EXP : %" I64_PFd, pl->ob->stats.Wis, (long long) pl->ob->stats.exp);	918	sprintf (buf, "Wis : %-2d EXP : %" PRId64, pl->ob->stats.Wis, pl->ob->stats.exp);
1148	new_draw_info (NDI_UNIQUE, 0, op, buf);	919	new_draw_info (NDI_UNIQUE, 0, op, buf);
1149	sprintf (buf, "Pow : %-2d Grace : %d", pl->ob->stats.Pow, pl->ob->stats.grace);	920	sprintf (buf, "Pow : %-2d Grace : %d", pl->ob->stats.Pow, pl->ob->stats.grace);
1150	new_draw_info (NDI_UNIQUE, 0, op, buf);	921	new_draw_info (NDI_UNIQUE, 0, op, buf);
1151	sprintf (buf, "Cha : %-2d Food : %d", pl->ob->stats.Cha, pl->ob->stats.food);	922	sprintf (buf, "Cha : %-2d Food : %d", pl->ob->stats.Cha, pl->ob->stats.food);
1152	new_draw_info (NDI_UNIQUE, 0, op, buf);	923	new_draw_info (NDI_UNIQUE, 0, op, buf);
1153	break;	924	return 1;
1154	}	925	}
1155	if (pl == NULL)	926
1156	new_draw_info (NDI_UNIQUE, 0, op, "No such player.");	927	new_draw_info (NDI_UNIQUE, 0, op, "No such player.");
1157	return 1;	928	return 1;
1158	}	929	}
1159		930
1160	int	931	int
1161	command_abil (object op, char params)	932	command_abil (object op, char params)
1162	{	933	{
1163	char thing[20], thing2[20];	934	char thing[20], thing2[20];
1164	int iii;	935	int iii;
1165	player *pl;
1166	char buf[MAX_BUF];	936	char buf[MAX_BUF];
1167		937
1168	iii = 0;	938	iii = 0;
1169	thing[0] = '\0';	939	thing[0] = '\0';
1170	thing2[0] = '\0';	940	thing2[0] = '\0';
…		…
1184	{	954	{
1185	new_draw_info (NDI_UNIQUE, 0, op, "Illegal range of stat.\n");	955	new_draw_info (NDI_UNIQUE, 0, op, "Illegal range of stat.\n");
1186	return 1;	956	return 1;
1187	}	957	}
1188		958
1189	for (pl = first_player; pl != NULL; pl = pl->next)	959	for_all_players (pl)
1190	{	960	{
1191	if (!strcmp (pl->ob->name, thing))	961	if (!strcmp (pl->ob->name, thing))
1192	{	962	{
1193	if (settings.real_wiz == FALSE)
1194	SET_FLAG (pl->ob, FLAG_WAS_WIZ);
1195	if (!strcmp ("str", thing2))
1196	pl->ob->stats.Str = iii, pl->orig_stats.Str = iii;	963	if (!strcmp ("str", thing2)) pl->ob->stats.Str = iii, pl->orig_stats.Str = iii;
1197	if (!strcmp ("dex", thing2))
1198	pl->ob->stats.Dex = iii, pl->orig_stats.Dex = iii;	964	if (!strcmp ("dex", thing2)) pl->ob->stats.Dex = iii, pl->orig_stats.Dex = iii;
1199	if (!strcmp ("con", thing2))
1200	pl->ob->stats.Con = iii, pl->orig_stats.Con = iii;	965	if (!strcmp ("con", thing2)) pl->ob->stats.Con = iii, pl->orig_stats.Con = iii;
1201	if (!strcmp ("wis", thing2))
1202	pl->ob->stats.Wis = iii, pl->orig_stats.Wis = iii;	966	if (!strcmp ("wis", thing2)) pl->ob->stats.Wis = iii, pl->orig_stats.Wis = iii;
1203	if (!strcmp ("cha", thing2))
1204	pl->ob->stats.Cha = iii, pl->orig_stats.Cha = iii;	967	if (!strcmp ("cha", thing2)) pl->ob->stats.Cha = iii, pl->orig_stats.Cha = iii;
1205	if (!strcmp ("int", thing2))
1206	pl->ob->stats.Int = iii, pl->orig_stats.Int = iii;	968	if (!strcmp ("int", thing2)) pl->ob->stats.Int = iii, pl->orig_stats.Int = iii;
1207	if (!strcmp ("pow", thing2))
1208	pl->ob->stats.Pow = iii, pl->orig_stats.Pow = iii;	969	if (!strcmp ("pow", thing2)) pl->ob->stats.Pow = iii, pl->orig_stats.Pow = iii;
		970
1209	sprintf (buf, "%s has been altered.", &pl->ob->name);	971	sprintf (buf, "%s has been altered.", &pl->ob->name);
1210	new_draw_info (NDI_UNIQUE, 0, op, buf);	972	new_draw_info (NDI_UNIQUE, 0, op, buf);
1211	fix_player (pl->ob);	973	pl->ob->update_stats ();
1212	return 1;	974	return 1;
1213	}	975	}
1214	}	976	}
1215		977
1216	new_draw_info (NDI_UNIQUE, 0, op, "No such player.");	978	new_draw_info (NDI_UNIQUE, 0, op, "No such player.");
1217	return 1;	979	return 1;
1218	}	980	}
1219		981
1220	int	982	int
1221	command_reset (object op, char params)
1222	{
1223	maptile *m;
1224	object dummy = NULL, tmp = NULL;
1225
1226	if (params == NULL)
1227	{
1228	new_draw_info (NDI_UNIQUE, 0, op, "Reset what map [name]?");
1229	return 1;
1230	}
1231
1232	if (strcmp (params, ".") == 0)
1233	params = op->map->path;
1234
1235	m = has_been_loaded (params);
1236	if (m == NULL)
1237	{
1238	new_draw_info (NDI_UNIQUE, 0, op, "No such map.");
1239	return 1;
1240	}
1241
1242	if (m->in_memory != MAP_SWAPPED)
1243	{
1244	if (m->in_memory != MAP_IN_MEMORY)
1245	{
1246	LOG (llevError, "Tried to swap out map which was not in memory.\n");
1247	return 0;
1248	}
1249
1250	/*
1251	* Only attempt to remove the player that is doing the reset, and not other
1252	* players or wiz's.
1253	*/
1254	if (op->map == m)
1255	{
1256	dummy = get_object ();
1257	dummy->map = NULL;
1258	EXIT_X (dummy) = op->x;
1259	EXIT_Y (dummy) = op->y;
1260	EXIT_PATH (dummy) = op->map->path;
1261	remove_ob (op);
1262	op->map = NULL;
1263	tmp = op;
1264	}
1265	swap_map (m);
1266	}
1267
1268	if (m->in_memory == MAP_SWAPPED)
1269	{
1270	LOG (llevDebug, "Resetting map %s.\n", m->path);
1271
1272	/* setting this effectively causes an immediate reload */
1273	m->reset_time = 1;
1274	flush_old_maps ();
1275	new_draw_info (NDI_UNIQUE, 0, op, "OK.");
1276	if (tmp)
1277	{
1278	enter_exit (tmp, dummy);
1279	free_object (dummy);
1280	}
1281	return 1;
1282	}
1283	else
1284	{
1285	player *pl;
1286	int playercount = 0;
1287
1288	/* Need to re-insert player if swap failed for some reason */
1289	if (tmp)
1290	{
1291	insert_ob_in_map (op, m, NULL, 0);
1292	free_object (dummy);
1293	}
1294
1295	new_draw_info (NDI_UNIQUE, 0, op, "Reset failed, couldn't swap map, the following players are on it:");
1296	for (pl = first_player; pl != NULL; pl = pl->next)
1297	{
1298	if (pl->ob->map == m && pl->ob != op)
1299	{
1300	new_draw_info_format (NDI_UNIQUE, 0, op, "%s", &pl->ob->name);
1301	playercount++;
1302	}
1303	}
1304	if (!playercount)
1305	new_draw_info (NDI_UNIQUE, 0, op, "hmm, I don't see any other players on this map, something else is the problem.");
1306	return 1;
1307	}
1308	}
1309
1310	int
1311	command_nowiz (object op, char params)	983	command_nowiz (object op, char params)
1312	{ /* 'noadm' is alias */	984	{ /* 'nodm' is alias */
1313	CLEAR_FLAG (op, FLAG_WIZ);	985	CLEAR_FLAG (op, FLAG_WIZ);
1314	CLEAR_FLAG (op, FLAG_WIZPASS);	986	CLEAR_FLAG (op, FLAG_WIZPASS);
1315	CLEAR_FLAG (op, FLAG_WIZCAST);	987	CLEAR_FLAG (op, FLAG_WIZCAST);
1316		988
1317	if (settings.real_wiz == TRUE)
1318	CLEAR_FLAG (op, FLAG_WAS_WIZ);
1319	if (op->contr->hidden)	989	if (op->contr->hidden)
1320	{	990	{
1321	new_draw_info (NDI_UNIQUE, 0, op, "You are no longer hidden from other players");	991	new_draw_info (NDI_UNIQUE, 0, op, "You are no longer hidden from other players");
1322	op->map->players++;	992	op->map->players++;
1323	new_draw_info_format (NDI_UNIQUE \| NDI_ALL \| NDI_DK_ORANGE, 5, NULL, "%s has entered the game.", &op->name);	993	new_draw_info_format (NDI_UNIQUE \| NDI_ALL \| NDI_DK_ORANGE, 5, NULL, "%s has entered the game.", &op->name);
…		…
1382	{	1052	{
1383	new_draw_info (NDI_UNIQUE, 0, op, "You are already the Dungeon Master!");	1053	new_draw_info (NDI_UNIQUE, 0, op, "You are already the Dungeon Master!");
1384	return 0;	1054	return 0;
1385	}	1055	}
1386		1056
1387	if (checkdm (op, op->name, (params ? params : "*"), op->contr->socket.host))	1057	if (checkdm (op, op->name, (params ? params : "*"), op->contr->ns->host))
1388	{	1058	{
1389	SET_FLAG (op, FLAG_WIZ);	1059	SET_FLAG (op, FLAG_WIZ);
1390	SET_FLAG (op, FLAG_WAS_WIZ);
1391	SET_FLAG (op, FLAG_WIZPASS);	1060	SET_FLAG (op, FLAG_WIZPASS);
1392	SET_FLAG (op, FLAG_WIZCAST);	1061	SET_FLAG (op, FLAG_WIZCAST);
		1062
1393	new_draw_info (NDI_UNIQUE, 0, op, "Ok, you are the Dungeon Master!");	1063	new_draw_info (NDI_UNIQUE, 0, op, "Ok, you are the Dungeon Master!");
1394	/*	1064	/*
1395	* Remove setting flying here - that won't work, because next	1065	* Remove setting flying here - that won't work, because next
1396	* fix_player() is called that will get cleared - proper solution	1066	* fix_player() is called that will get cleared - proper solution
1397	* is probably something like a wiz_force which gives that and any	1067	* is probably something like a wiz_force which gives that and any
…		…
1432	command_invisible (object op, char params)	1102	command_invisible (object op, char params)
1433	{	1103	{
1434	if (op)	1104	if (op)
1435	{	1105	{
1436	op->invisible += 100;	1106	op->invisible += 100;
1437	update_object (op, UP_OBJ_FACE);	1107	update_object (op, UP_OBJ_CHANGE);
1438	new_draw_info (NDI_UNIQUE, 0, op, "You turn invisible.");	1108	new_draw_info (NDI_UNIQUE, 0, op, "You turn invisible.");
1439	}	1109	}
1440		1110
1441	return 0;	1111	return 0;
1442	}	1112	}
…		…
1563	new_draw_info_format (NDI_UNIQUE, 0, op, "You already know the spell %s.", &tmp->name);	1233	new_draw_info_format (NDI_UNIQUE, 0, op, "You already know the spell %s.", &tmp->name);
1564	return 0;	1234	return 0;
1565	}	1235	}
1566		1236
1567	do_learn_spell (op, tmp, special_prayer);	1237	do_learn_spell (op, tmp, special_prayer);
1568	free_object (tmp);	1238	tmp->destroy ();
1569	return 1;	1239	return 1;
1570	}	1240	}
1571		1241
1572	int	1242	int
1573	command_learn_spell (object op, char params)	1243	command_learn_spell (object op, char params)
…		…
1985	new_draw_info (NDI_UNIQUE, 0, op, "Can't insert a player into something!");	1655	new_draw_info (NDI_UNIQUE, 0, op, "Can't insert a player into something!");
1986	return 0;	1656	return 0;
1987	}	1657	}
1988		1658
1989	if (!QUERY_FLAG (right, FLAG_REMOVED))	1659	if (!QUERY_FLAG (right, FLAG_REMOVED))
1990	remove_ob (right);	1660	right->remove ();
1991	inserted = insert_ob_in_ob (right, left);	1661	inserted = insert_ob_in_ob (right, left);
1992	if (left->type == PLAYER)	1662	if (left->type == PLAYER)
1993	if (inserted == right)	1663	if (inserted == right)
1994	esrv_send_item (left, right);	1664	esrv_send_item (left, right);
1995	else	1665	else

Diff Legend

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

Comparing deliantra/server/server/c_wiz.C (file contents): Revision 1.19 by pippijn, Mon Dec 11 21:06:59 2006 UTC vs. Revision 1.44 by root, Mon May 28 21:28:36 2007 UTC

Diff Legend

Comparing deliantra/server/server/c_wiz.C (file contents):
Revision 1.19 by pippijn, Mon Dec 11 21:06:59 2006 UTC vs.
Revision 1.44 by root, Mon May 28 21:28:36 2007 UTC