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

Comparing deliantra/server/server/c_misc.C (file contents):
Revision 1.6 by root, Mon Sep 4 11:08:00 2006 UTC vs.
Revision 1.55 by pippijn, Fri Mar 2 11:41:15 2007 UTC

1	/*	1	/*
2	* static char *rcsid_c_misc_c =	2	* CrossFire, A Multiplayer game for X-windows
3	* "$Id: c_misc.C,v 1.6 2006/09/04 11:08:00 root Exp $";	3	*
		4	* Copyright (C) 2005, 2006, 2007 Marc Lehmann & Crossfire+ Development Team
		5	* Copyright (C) 2002 Mark Wedel & Crossfire Development Team
		6	* Copyright (C) 1992 Frank Tore Johansen
		7	*
		8	* This program is free software; you can redistribute it and/or modify
		9	* it under the terms of the GNU General Public License as published by
		10	* the Free Software Foundation; either version 2 of the License, or
		11	* (at your option) any later version.
		12	*
		13	* This program is distributed in the hope that it will be useful,
		14	* but WITHOUT ANY WARRANTY; without even the implied warranty of
		15	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
		16	* GNU General Public License for more details.
		17	*
		18	* You should have received a copy of the GNU General Public License
		19	* along with this program; if not, write to the Free Software
		20	* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
		21	*
		22	* The authors can be reached via e-mail at <crossfire@schmorp.de>
4	*/	23	*/
5
6	/*
7	CrossFire, A Multiplayer game for X-windows
8
9	Copyright (C) 2002 Mark Wedel & Crossfire Development Team
10	Copyright (C) 1992 Frank Tore Johansen
11
12	This program is free software; you can redistribute it and/or modify
13	it under the terms of the GNU General Public License as published by
14	the Free Software Foundation; either version 2 of the License, or
15	(at your option) any later version.
16
17	This program is distributed in the hope that it will be useful,
18	but WITHOUT ANY WARRANTY; without even the implied warranty of
19	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
20	GNU General Public License for more details.
21
22	You should have received a copy of the GNU General Public License
23	along with this program; if not, write to the Free Software
24	Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
25
26	The authors can be reached via e-mail at crossfire-devel@real-time.com
27	*/
28		24
29	#include <global.h>	25	#include <global.h>
30	#include <loader.h>	26	#include <loader.h>
31	#ifndef __CEXTRACT__
32	#include <sproto.h>	27	#include <sproto.h>
		28
		29	/* Handles misc. input request - things like hash table, malloc, maps, etc */
		30
		31	int
		32	command_motd (object op, char params)
		33	{
		34	display_motd (op);
		35	return 1;
		36	}
		37
		38	#ifdef DEBUG_MALLOC_LEVEL
		39	int
		40	command_malloc_verify (object op, char parms)
		41	{
		42	extern int malloc_verify (void);
		43
		44	if (!malloc_verify ())
		45	new_draw_info (NDI_UNIQUE, 0, op, "Heap is corrupted.");
		46	else
		47	new_draw_info (NDI_UNIQUE, 0, op, "Heap checks out OK.");
		48	return 1;
		49	}
33	#endif	50	#endif
34		51
35	extern weathermap_t **weathermap;	52	int
36
37	/* Handles misc. input request - things like hash table, malloc, maps,
38	* who, etc.
39	*/
40
41	void map_info(object op, char search) {
42	mapstruct *m;
43	char buf[MAX_BUF], map_path[MAX_BUF];
44	long sec = seconds();
45	new_draw_info_format(NDI_UNIQUE, 0, op,
46	"Current time is: %02ld:%02ld:%02ld.",
47	(sec%86400)/3600,(sec%3600)/60,sec%60);
48	new_draw_info(NDI_UNIQUE, 0,op,"Path Pl PlM IM TO Dif Reset");
49	for(m=first_map;m!=NULL;m=m->next) {
50
51	if ( search && strstr(m->path,search)==NULL ) continue; /* Skip unwanted maps */
52	/* Print out the last 18 characters of the map name... */
53	if (strlen(m->path)<=18) strcpy(map_path, m->path);
54	else strcpy(map_path, m->path + strlen(m->path) - 18);
55	sprintf(buf,"%-18.18s %2d %2d %1d %4d %2d %02d:%02d:%02d",
56	map_path, m->players,players_on_map(m,FALSE),
57	m->in_memory,m->timeout,m->difficulty,
58	(MAP_WHEN_RESET(m)%86400)/3600,(MAP_WHEN_RESET(m)%3600)/60,
59	MAP_WHEN_RESET(m)%60);
60	new_draw_info(NDI_UNIQUE, 0,op,buf);
61	}
62	}
63
64	/* This command dumps the body information for object *op.
65	* it doesn't care what the params are.
66	* This is mostly meant as a debug command.
67	*/
68	int command_body(object op, char params)	53	command_whereabouts (object op, char params)
69	{	54	{
70	int i;	55	//TODO: should obviously not waste space in struct region for this.
71		56	/*
72	/* Too hard to try and make a header that lines everything up, so just	57	* reset the counter on the region, then use it to store the number of
73	* give a description.	58	* players there.
		59	* I don't know how thread-safe this would be, I suspect not very....
74	*/	60	*/
75	new_draw_info(NDI_UNIQUE, 0, op, "The first column is the name of the body location.");	61	for_all_regions (rgn)
76	new_draw_info(NDI_UNIQUE, 0, op, "The second column is how many of those locations your body has.");	62	rgn->counter = 0;
77	new_draw_info(NDI_UNIQUE, 0, op, "The third column is how many slots in that location are available.");	63
78	for (i=0; i<NUM_BODY_LOCATIONS; i++) {	64	for_all_players (pl)
79	/* really debugging - normally body_used should not be set to anything	65	if (pl->ob->map)
80	* if body_info isn't also set.	66	++pl->ob->region ()->counter;
81	*/	67
82	if (op->body_info[i] \|\| op->body_used[i]) {	68	/* we only want to print out by places with a 'longname' field... */
83	new_draw_info_format(NDI_UNIQUE, 0, op,	69	for_all_regions (rgn)
84	"%-30s %5d %5d", body_locations[i].use_name, op->body_info[i], op->body_used[i]);	70	{
		71	if (!rgn->longname && rgn->counter > 0)
85	}	72	{
		73	if (rgn->parent)
		74	{
		75	rgn->parent->counter += rgn->counter;
		76	rgn->counter = 0;
		77	}
		78	else /uh oh, we shouldn't be here. /
		79	LOG (llevError, "command_whereabouts() Region %s with no longname has no parent", &rgn->name);
		80	}
86	}	81	}
87	if (!QUERY_FLAG(op, FLAG_USE_ARMOUR))
88	new_draw_info(NDI_UNIQUE, 0, op, "You are not allowed to wear armor");
89	if (!QUERY_FLAG(op, FLAG_USE_WEAPON))
90	new_draw_info(NDI_UNIQUE, 0, op, "You are not allowed to use weapons");
91		82
		83	new_draw_info_format (NDI_UNIQUE, 0, op, "In the world currently there are:");
		84
		85	for_all_regions (rgn)
		86	if (rgn->counter)
		87	new_draw_info_format (NDI_UNIQUE, 0, op, "%u players %s", rgn->counter, &rgn->longname);
		88
		89	return 1;
		90	}
		91
		92	typedef struct
		93	{
		94	char namebuf[MAX_BUF];
		95	int login_order;
		96	} chars_names;
		97
		98	int
		99	command_time (object op, char params)
		100	{
		101	print_tod (op);
		102	return 1;
		103	}
		104
		105	int
		106	command_weather (object op, char params)
		107	{
		108	#if 0
		109	int wx, wy, temp, sky;
		110	char buf[MAX_BUF];
		111
		112	if (settings.dynamiclevel < 1)
92	return 1;	113	return 1;
93	}
94		114
95		115	if (op->map == NULL)
96	int command_motd(object op, char params)
97	{
98	display_motd(op);
99	return 1;	116	return 1;
100	}
101		117
		118	if (worldmap_to_weathermap (op->x, op->y, &wx, &wy, op->map) != 0)
		119	return 1;
		120
		121	if (QUERY_FLAG (op, FLAG_WIZ))
		122	{
		123	/* dump the weather, Dm style! Yo! */
		124	new_draw_info_format (NDI_UNIQUE, 0, op, "Real temp: %d", real_world_temperature (op->x, op->y, op->map));
		125	new_draw_info_format (NDI_UNIQUE, 0, op, "Base temp: %d", weathermap[wx][wy].temp);
		126	new_draw_info_format (NDI_UNIQUE, 0, op, "Humid: %d", weathermap[wx][wy].humid);
		127	new_draw_info_format (NDI_UNIQUE, 0, op, "Wind: dir=%d speed=%d", weathermap[wx][wy].winddir, weathermap[wx][wy].windspeed);
		128	new_draw_info_format (NDI_UNIQUE, 0, op, "Pressure: %d", weathermap[wx][wy].pressure);
		129	new_draw_info_format (NDI_UNIQUE, 0, op, "Avg Elevation: %d", weathermap[wx][wy].avgelev);
		130	new_draw_info_format (NDI_UNIQUE, 0, op, "Rainfall: %d Water: %d", weathermap[wx][wy].rainfall, weathermap[wx][wy].water);
		131	}
		132
		133	temp = real_world_temperature (op->x, op->y, op->map);
		134	new_draw_info_format (NDI_UNIQUE, 0, op, "It's currently %d degrees " "Centigrade out.", temp);
		135
		136	/* humid */
		137	if (weathermap[wx][wy].humid < 20)
		138	new_draw_info (NDI_UNIQUE, 0, op, "It is very dry.");
		139	else if (weathermap[wx][wy].humid < 40)
		140	new_draw_info (NDI_UNIQUE, 0, op, "It is very comfortable today.");
		141	else if (weathermap[wx][wy].humid < 60)
		142	new_draw_info (NDI_UNIQUE, 0, op, "It is a bit muggy.");
		143	else if (weathermap[wx][wy].humid < 80)
		144	new_draw_info (NDI_UNIQUE, 0, op, "It is muggy.");
		145	else
		146	new_draw_info (NDI_UNIQUE, 0, op, "It is uncomfortably muggy.");
		147
		148	/* wind */
		149	switch (weathermap[wx][wy].winddir)
		150	{
		151	case 1:
		152	sprintf (buf, "north");
		153	break;
		154	case 2:
		155	sprintf (buf, "northeast");
		156	break;
		157	case 3:
		158	sprintf (buf, "east");
		159	break;
		160	case 4:
		161	sprintf (buf, "southeast");
		162	break;
		163	case 5:
		164	sprintf (buf, "south");
		165	break;
		166	case 6:
		167	sprintf (buf, "southwest");
		168	break;
		169	case 7:
		170	sprintf (buf, "west");
		171	break;
		172	case 8:
		173	sprintf (buf, "northwest");
		174	break;
		175	}
		176	if (weathermap[wx][wy].windspeed < 5)
		177	new_draw_info_format (NDI_UNIQUE, 0, op, "There is a mild breeze " "coming from the %s.", buf);
		178	else if (weathermap[wx][wy].windspeed < 10)
		179	new_draw_info_format (NDI_UNIQUE, 0, op, "There is a strong breeze " "coming from the %s.", buf);
		180	else if (weathermap[wx][wy].windspeed < 15)
		181	new_draw_info_format (NDI_UNIQUE, 0, op, "There is a light wind " "coming from the %s.", buf);
		182	else if (weathermap[wx][wy].windspeed < 25)
		183	new_draw_info_format (NDI_UNIQUE, 0, op, "There is a strong wind " "coming from the %s.", buf);
		184	else if (weathermap[wx][wy].windspeed < 35)
		185	new_draw_info_format (NDI_UNIQUE, 0, op, "There is a heavy wind " "coming from the %s.", buf);
		186	else
		187	new_draw_info_format (NDI_UNIQUE, 0, op, "The wind from the %s is " "incredibly strong!", buf);
		188
		189	sky = weathermap[wx][wy].sky;
		190	if (temp <= 0 && sky > SKY_OVERCAST && sky < SKY_FOG)
		191	sky += 10; /let it snow /
		192	switch (sky)
		193	{
		194	case SKY_CLEAR:
		195	new_draw_info (NDI_UNIQUE, 0, op, "There isn''t a cloud in the sky.");
		196	break;
		197	case SKY_LIGHTCLOUD:
		198	new_draw_info (NDI_UNIQUE, 0, op, "There are a few light clouds in the sky.");
		199	break;
		200	case SKY_OVERCAST:
		201	new_draw_info (NDI_UNIQUE, 0, op, "The sky is cloudy and dreary.");
		202	break;
		203	case SKY_LIGHT_RAIN:
		204	new_draw_info (NDI_UNIQUE, 0, op, "It is raining softly.");
		205	break;
		206	case SKY_RAIN:
		207	new_draw_info (NDI_UNIQUE, 0, op, "It is raining.");
		208	break;
		209	case SKY_HEAVY_RAIN:
		210	new_draw_info (NDI_UNIQUE, 0, op, "It is raining heavily.");
		211	break;
		212	case SKY_HURRICANE:
		213	new_draw_info (NDI_UNIQUE, 0, op, "There is a heavy storm! You should go inside!");
		214	break;
		215	case SKY_FOG:
		216	new_draw_info (NDI_UNIQUE, 0, op, "It''s foggy and miserable.");
		217	break;
		218	case SKY_HAIL:
		219	new_draw_info (NDI_UNIQUE, 0, op, "It''s hailing out! Take cover!");
		220	break;
		221	case SKY_LIGHT_SNOW:
		222	new_draw_info (NDI_UNIQUE, 0, op, "Snow is gently falling from the sky.");
		223	break;
		224	case SKY_SNOW:
		225	new_draw_info (NDI_UNIQUE, 0, op, "It''s snowing out.");
		226	break;
		227	case SKY_HEAVY_SNOW:
		228	new_draw_info (NDI_UNIQUE, 0, op, "The snow is falling very heavily now.");
		229	break;
		230	case SKY_BLIZZARD:
		231	new_draw_info (NDI_UNIQUE, 0, op, "A full blown blizzard is in effect. You might want to take cover!");
		232	break;
		233	}
		234	#endif
		235	return 1;
		236	}
		237
		238	int
		239	command_hiscore (object op, char params)
		240	{
		241	display_high_score (op, op == NULL ? 9999 : 50, params);
		242	return 1;
		243	}
		244
		245	int
102	int command_bug(object op, char params)	246	command_debug (object op, char params)
103	{	247	{
		248	int i;
104	char buf[MAX_BUF];	249	char buf[MAX_BUF];
105		250
106	if (params == NULL) {	251	if (params == NULL \|\| !sscanf (params, "%d", &i))
		252	{
		253	sprintf (buf, "Global debug level is %d.", settings.debug);
107	new_draw_info(NDI_UNIQUE, 0,op,"what bugs?");	254	new_draw_info (NDI_UNIQUE, 0, op, buf);
108	return 1;	255	return 1;
109	}	256	}
110	strcpy(buf,op->name);
111	strcat(buf," bug-reports: ");
112	strncat(buf,++params,MAX_BUF - strlen(buf) );
113	buf[MAX_BUF - 1] = '\0';
114	bug_report(buf);
115	LOG(llevError,"%s\n",buf);
116	new_draw_info(NDI_ALL \| NDI_UNIQUE, 1, NULL, buf);
117	new_draw_info(NDI_UNIQUE, 0,op, "OK, thanks!");
118	return 1;
119	}
120
121	/*
122	* Pretty much identical to current map_info, but on a bigger scale
123	* This function returns the name of the players current region, and
124	* a description of it. It is there merely for flavour text.
125	*/
126	void current_region_info(object *op) {
127	/*
128	* Ok I /suppose/ I should write a seperate function for this, but it isn't
129	* going to be /that/ slow, and won't get called much
130	*/
131	region *r = get_region_by_name(get_name_of_region_for_map(op->map));
132
133	if (!r)
134	return;
135	/* This should only be possible if regions are not operating on this server. */
136
137	new_draw_info_format(NDI_UNIQUE, 0,op,
138	"You are in %s. \n %s", get_region_longname(r), get_region_msg(r));
139	}
140
141	void current_map_info(object *op) {
142	mapstruct *m = op->map;
143
144	if (!m)
145	return;
146
147	new_draw_info_format(NDI_UNIQUE, 0,op,
148	"%s (%s) in %s", m->name, m->path, get_name_of_region_for_map(m));
149
150	if (QUERY_FLAG(op,FLAG_WIZ)) {
151	new_draw_info_format(NDI_UNIQUE, 0, op,
152	"players:%d difficulty:%d size:%dx%d start:%dx%d timeout %ld",
153	m->players, m->difficulty,
154	MAP_WIDTH(m), MAP_HEIGHT(m),
155	MAP_ENTER_X(m), MAP_ENTER_Y(m),
156	MAP_TIMEOUT(m));
157
158	}
159	if (m->msg)
160	new_draw_info(NDI_UNIQUE, NDI_NAVY, op, m->msg);
161	}
162
163	#ifdef DEBUG_MALLOC_LEVEL
164	int command_malloc_verify(object op, char parms)
165	{
166	extern int malloc_verify(void);
167
168	if (!malloc_verify())
169	new_draw_info(NDI_UNIQUE, 0,op,"Heap is corrupted.");
170	else
171	new_draw_info(NDI_UNIQUE, 0,op,"Heap checks out OK.");
172	return 1;
173	}
174	#endif
175
176	int command_whereabouts(object op, char params) {
177
178	region *reg;
179	player *pl;
180
181	/*
182	* reset the counter on the region, then use it to store the number of
183	* players there.
184	* I don't know how thread-safe this would be, I suspect not very....
185	*/
186	for (reg=first_region;reg!=NULL;reg=reg->next) {
187	reg->counter=0;
188	}
189	for (pl=first_player;pl!=NULL;pl=pl->next)
190	if (pl->ob->map!=NULL)
191	get_region_by_map(pl->ob->map)->counter++;
192
193	/* we only want to print out by places with a 'longname' field...*/
194	for (reg=first_region;reg!=NULL;reg=reg->next) {
195	if (reg->longname==NULL && reg->counter>0) {
196	if(reg->parent !=NULL) {
197	reg->parent->counter+=reg->counter;
198	reg->counter=0;
199	}
200	else /uh oh, we shouldn't be here. /
201	LOG(llevError,"command_whereabouts() Region %s with no longname has no parent", reg->name);
202	}
203	}
204	new_draw_info_format(NDI_UNIQUE, 0,op,
205	"In the world currently there are:");
206	for (reg=first_region;reg!=NULL;reg=reg->next)
207	if(reg->counter>0)
208	new_draw_info_format(NDI_UNIQUE, 0,op,
209	"%u players in %s", reg->counter, get_region_longname(reg));
210	return 1;
211	}
212
213	typedef struct
214	{
215	char namebuf[MAX_BUF];
216	int login_order;
217	} chars_names;
218
219	/local functon for qsort comparison/
220	static int name_cmp (const chars_names c1, const chars_names c2)
221	{
222	return strcasecmp (c1->namebuf, c2->namebuf);
223	}
224
225	int command_who (object op, char params) {
226	player *pl;
227	uint16 i;
228	region *reg;
229	char* format;
230	int num_players = 0;
231	int num_wiz = 0;
232	int num_afk = 0;
233	chars_names *chars = NULL;
234
235	/*
236	* The who formats are defined in config to be blank. They should have been
237	* overridden by the settings file, if there are no entries however, it will
238	* have stayed blank. Since this probably isn't what is wanted, we will check if
239	* new formats have been specified, and if not we will use the old defaults.
240	*/
241	if (!strcmp(settings.who_format,""))
242	strcpy(settings.who_format, "%N_%T%t%h%d%n[%m]");
243	if (!strcmp(settings.who_wiz_format,""))
244	strcpy(settings.who_wiz_format, "%N_%T%t%h%d%nLevel %l [%m](@%i)(%c)");
245	if (op == NULL \|\| QUERY_FLAG(op, FLAG_WIZ))
246	format=settings.who_wiz_format;
247	else
248	format=settings.who_format;
249
250	reg=get_region_from_string(params);
251
252	for (pl=first_player;pl!=NULL;pl=pl->next) {
253	if (pl->ob->map == NULL)
254	continue;
255	if (pl->hidden && !QUERY_FLAG(op, FLAG_WIZ)) continue;
256
257	if(!region_is_child_of_region(get_region_by_map(pl->ob->map),reg)) continue;
258
259	if (pl->state==ST_PLAYING \|\| pl->state==ST_GET_PARTY_PASSWORD) {
260
261	num_players++;
262	chars = (chars_names ) realloc(chars, num_playerssizeof(chars_names));
263	if (chars == NULL) {
264	new_draw_info(NDI_UNIQUE, 0, op, "who failed - out of memory!");
265	return 0;
266	}
267	sprintf(chars[num_players-1].namebuf, "%s", &pl->ob->name);
268	chars[num_players-1].login_order = num_players;
269	/Check for WIZ's & AFK's/
270	if (QUERY_FLAG(pl->ob,FLAG_WIZ))
271	num_wiz++;
272	if (QUERY_FLAG(pl->ob,FLAG_AFK))
273	num_afk++;
274	}
275	}
276	if (first_player != (player *) NULL) {
277	if (reg == NULL)
278	new_draw_info_format(NDI_UNIQUE, 0, op, "Total Players (%d) -- WIZ(%d) AFK(%d)",
279	num_players, num_wiz, num_afk);
280	else if (reg->longname == NULL)
281	new_draw_info_format(NDI_UNIQUE, 0, op, "Total Players in %s (%d) -- WIZ(%d) AFK(%d)",
282	reg->name, num_players, num_wiz, num_afk);
283	else
284	new_draw_info_format(NDI_UNIQUE, 0, op, "Total Players in %s (%d) -- WIZ(%d) AFK(%d)",
285	reg->longname, num_players, num_wiz, num_afk);
286	}
287	qsort (chars, num_players, sizeof(chars_names), (int ()(const void , const void *))name_cmp);
288	for (i=0;i<num_players;i++)
289	display_who_entry(op, find_player(chars[i].namebuf), format);
290	free(chars);
291	return 1;
292	}
293
294	/* Display a line of 'who' to op, about pl, using the formatting specified by format */
295	void display_who_entry(object op, player pl, const char *format) {
296	char tmpbuf[MAX_BUF];
297	char outbuf[MAX_BUF];
298	size_t i;
299	outbuf[0]='\0'; /* we strcat to this, so reset it here. */
300	if (pl==NULL) {
301	LOG(llevError,"display_who_entry(): I was passed a null player");
302	return;
303	}
304	for (i=0;i<=strlen(format);i++) {
305	if (format[i]=='%') {
306	i++;
307	get_who_escape_code_value(tmpbuf,format[i],pl);
308	strcat(outbuf, tmpbuf);
309	}
310	else if (format[i]=='_')
311	strcat(outbuf," "); /* allow '_' to be used in place of spaces */
312	else {
313	sprintf(tmpbuf,"%c",format[i]);
314	strcat(outbuf,tmpbuf);
315	}
316	}
317	new_draw_info(NDI_UNIQUE, 0, op, outbuf);
318	}
319
320	/* Returns the value of the escape code used in the who format specifier
321	* the values are:
322	* N Name of character
323	* t title of character
324	* T the optional "the " sequence value (depend if player has own_title or not)
325	* c count
326	* n newline
327	* h [Hostile] if character is hostile, nothing otherwise
328	* d [WIZ] if character is a dm, nothing otherwise
329	* a [AFK] if character is afk, nothing otherwise
330	* l the level of the character
331	* m the map path the character is currently on
332	* M the map name of the map the character is currently on
333	* r the region name (eg scorn, wolfsburg)
334	* R the regional title (eg The Kingdom of Scorn, The Port of Wolfsburg)
335	* i player's ip adress
336	* % a literal %
337	* _ a literal underscore
338	*/
339
340	void get_who_escape_code_value(char return_val, const char letter, player pl) {
341
342	switch (letter) {
343	case 'N' : strcpy(return_val, pl->ob->name);
344	break;
345	case 't' : strcpy(return_val,(pl->own_title[0]=='\0'?pl->title:pl->own_title));
346	break;
347	case 'T' : if (pl->own_title[0]=='\0')
348	strcpy(return_val,"the ");
349	else
350	*return_val='\0';
351	break;
352	case 'c' : sprintf(return_val,"%d",pl->ob->count);
353	break;
354	case 'n' : strcpy(return_val, "\n");
355	break;
356	case 'h' : strcpy(return_val,pl->peaceful?"":" [Hostile]");
357	break;
358	case 'l' : sprintf(return_val,"%d",pl->ob->level);
359	break;
360	case 'd' : strcpy(return_val,(QUERY_FLAG(pl->ob,FLAG_WIZ)?" [WIZ]":""));
361	break;
362	case 'a' : strcpy(return_val,(QUERY_FLAG(pl->ob,FLAG_AFK)?" [AFK]":""));
363	break;
364	case 'm' : strcpy(return_val,pl->ob->map->path);
365	break;
366	case 'M' : strcpy(return_val,pl->ob->map->name?pl->ob->map->name:"Untitled");
367	break;
368	case 'r' : strcpy(return_val,get_name_of_region_for_map(pl->ob->map));
369	break;
370	case 'R' : strcpy(return_val,get_region_longname(get_region_by_map(pl->ob->map)));
371	break;
372	case 'i' : strcpy(return_val,pl->socket.host);
373	break;
374	case '%' : strcpy(return_val, "%");
375	break;
376	case '_' : strcpy(return_val, "_");
377	break;
378	}
379
380	}
381
382
383	int command_afk (object op, char params)
384	{
385	if QUERY_FLAG(op,FLAG_AFK) {
386	CLEAR_FLAG(op,FLAG_AFK);
387	new_draw_info(NDI_UNIQUE, 0, op, "You are no longer AFK");
388	}
389	else
390	{
391	SET_FLAG(op,FLAG_AFK);
392	new_draw_info(NDI_UNIQUE, 0, op, "You are now AFK");
393	}
394	return 1;
395	}
396
397	int command_mapinfo (object op, char params)
398	{
399	current_map_info(op);
400	return 1;
401	}
402
403	int command_whereami (object op, char params)
404	{
405	current_region_info(op);
406	return 1;
407	}
408
409	int command_maps (object op, char params)
410	{
411	map_info(op,params);
412	return 1;
413	}
414
415	int command_time (object op, char params)
416	{
417	print_tod (op);
418	return 1;
419	}
420
421	int command_weather (object op, char params)
422	{
423	int wx, wy, temp, sky;
424	char buf[MAX_BUF];
425
426	if (settings.dynamiclevel < 1)
427	return 1;
428
429	if (op->map == NULL)
430	return 1;
431
432	if (worldmap_to_weathermap(op->x, op->y, &wx, &wy, op->map) != 0)
433	return 1;
434
435	if (QUERY_FLAG(op, FLAG_WIZ)) {
436	/* dump the weather, Dm style! Yo! */
437	new_draw_info_format(NDI_UNIQUE, 0, op, "Real temp: %d",
438	real_world_temperature(op->x, op->y, op->map));
439	new_draw_info_format(NDI_UNIQUE, 0, op, "Base temp: %d",
440	weathermap[wx][wy].temp);
441	new_draw_info_format(NDI_UNIQUE, 0, op, "Humid: %d",
442	weathermap[wx][wy].humid);
443	new_draw_info_format(NDI_UNIQUE, 0, op, "Wind: dir=%d speed=%d",
444	weathermap[wx][wy].winddir, weathermap[wx][wy].windspeed);
445	new_draw_info_format(NDI_UNIQUE, 0, op, "Pressure: %d",
446	weathermap[wx][wy].pressure);
447	new_draw_info_format(NDI_UNIQUE, 0, op, "Avg Elevation: %d",
448	weathermap[wx][wy].avgelev);
449	new_draw_info_format(NDI_UNIQUE, 0, op, "Rainfall: %d Water: %d",
450	weathermap[wx][wy].rainfall, weathermap[wx][wy].water);
451	}
452
453	temp = real_world_temperature(op->x, op->y, op->map);
454	new_draw_info_format(NDI_UNIQUE, 0, op, "It's currently %d degrees "
455	"Centigrade out.", temp);
456
457	/* humid */
458	if (weathermap[wx][wy].humid < 20)
459	new_draw_info(NDI_UNIQUE, 0, op, "It is very dry.");
460	else if (weathermap[wx][wy].humid < 40)
461	new_draw_info(NDI_UNIQUE, 0, op, "It is very comfortable today.");
462	else if (weathermap[wx][wy].humid < 60)
463	new_draw_info(NDI_UNIQUE, 0, op, "It is a bit muggy.");
464	else if (weathermap[wx][wy].humid < 80)
465	new_draw_info(NDI_UNIQUE, 0, op, "It is muggy.");
466	else
467	new_draw_info(NDI_UNIQUE, 0, op, "It is uncomfortably muggy.");
468
469	/* wind */
470	switch (weathermap[wx][wy].winddir) {
471	case 1: sprintf(buf, "north"); break;
472	case 2: sprintf(buf, "northeast"); break;
473	case 3: sprintf(buf, "east"); break;
474	case 4: sprintf(buf, "southeast"); break;
475	case 5: sprintf(buf, "south"); break;
476	case 6: sprintf(buf, "southwest"); break;
477	case 7: sprintf(buf, "west"); break;
478	case 8: sprintf(buf, "northwest"); break;
479	}
480	if (weathermap[wx][wy].windspeed < 5)
481	new_draw_info_format(NDI_UNIQUE, 0, op, "There is a mild breeze "
482	"coming from the %s.", buf);
483	else if (weathermap[wx][wy].windspeed < 10)
484	new_draw_info_format(NDI_UNIQUE, 0, op, "There is a strong breeze "
485	"coming from the %s.", buf);
486	else if (weathermap[wx][wy].windspeed < 15)
487	new_draw_info_format(NDI_UNIQUE, 0, op, "There is a light wind "
488	"coming from the %s.", buf);
489	else if (weathermap[wx][wy].windspeed < 25)
490	new_draw_info_format(NDI_UNIQUE, 0, op, "There is a strong wind "
491	"coming from the %s.", buf);
492	else if (weathermap[wx][wy].windspeed < 35)
493	new_draw_info_format(NDI_UNIQUE, 0, op, "There is a heavy wind "
494	"coming from the %s.", buf);
495	else
496	new_draw_info_format(NDI_UNIQUE, 0, op, "The wind from the %s is "
497	"incredibly strong!", buf);
498
499	sky = weathermap[wx][wy].sky;
500	if (temp <= 0 && sky > SKY_OVERCAST && sky < SKY_FOG)
501	sky += 10; /let it snow/
502	switch (sky) {
503	case SKY_CLEAR: new_draw_info(NDI_UNIQUE, 0, op, "There isn''t a cloud in the sky."); break;
504	case SKY_LIGHTCLOUD: new_draw_info(NDI_UNIQUE, 0, op, "There are a few light clouds in the sky."); break;
505	case SKY_OVERCAST: new_draw_info(NDI_UNIQUE, 0, op, "The sky is cloudy and dreary."); break;
506	case SKY_LIGHT_RAIN: new_draw_info(NDI_UNIQUE, 0, op, "It is raining softly."); break;
507	case SKY_RAIN: new_draw_info(NDI_UNIQUE, 0, op, "It is raining."); break;
508	case SKY_HEAVY_RAIN: new_draw_info(NDI_UNIQUE, 0, op, "It is raining heavily."); break;
509	case SKY_HURRICANE: new_draw_info(NDI_UNIQUE, 0, op, "There is a heavy storm! You should go inside!"); break;
510	case SKY_FOG: new_draw_info(NDI_UNIQUE, 0, op, "It''s foggy and miserable."); break;
511	case SKY_HAIL: new_draw_info(NDI_UNIQUE, 0, op, "It''s hailing out! Take cover!"); break;
512	case SKY_LIGHT_SNOW: new_draw_info(NDI_UNIQUE, 0, op, "Snow is gently falling from the sky."); break;
513	case SKY_SNOW: new_draw_info(NDI_UNIQUE, 0, op, "It''s snowing out."); break;
514	case SKY_HEAVY_SNOW: new_draw_info(NDI_UNIQUE, 0, op, "The snow is falling very heavily now."); break;
515	case SKY_BLIZZARD: new_draw_info(NDI_UNIQUE, 0, op, "A full blown blizzard is in effect. You might want to take cover!"); break;
516	}
517	return 1;
518	}
519
520	int command_archs (object op, char params)
521	{
522	arch_info(op);
523	return 1;
524	}
525
526	int command_hiscore (object op, char params)
527	{
528	display_high_score(op,op==NULL?9999:50, params);
529	return 1;
530	}
531
532	int command_debug (object op, char params)
533	{
534	int i;
535	char buf[MAX_BUF];
536	if(params==NULL \|\| !sscanf(params, "%d", &i)) {
537	sprintf(buf,"Global debug level is %d.",settings.debug);
538	new_draw_info(NDI_UNIQUE, 0,op,buf);
539	return 1;
540	}
541	if(op != NULL && !QUERY_FLAG(op, FLAG_WIZ)) {
542	new_draw_info(NDI_UNIQUE, 0,op,"Privileged command.");
543	return 1;
544	}
545	settings.debug = (enum LogLevel) FABS(i);	257	settings.debug = (enum LogLevel) FABS (i);
546	sprintf(buf,"Set debug level to %d.", i);	258	sprintf (buf, "Set debug level to %d.", i);
547	new_draw_info(NDI_UNIQUE, 0,op,buf);	259	new_draw_info (NDI_UNIQUE, 0, op, buf);
548	return 1;	260	return 1;
549	}	261	}
550		262
551		263
552	/*	264	/*
553	* Those dumps should be just one dump with good parser	265	* Those dumps should be just one dump with good parser
554	*/	266	*/
555		267
		268	int
556	int command_dumpbelow (object op, char params)	269	command_dumpbelow (object op, char params)
557	{	270	{
558	if (op && op->below) {	271	if (op && op->below)
		272	{
559	dump_object(op->below);	273	char *dump = dump_object (op->below);
560	new_draw_info(NDI_UNIQUE, 0,op,errmsg);	274	new_draw_info (NDI_UNIQUE, 0, op, dump);
		275	free (dump);
561	/* Let's push that item on the dm's stack */	276	/* Let's push that item on the dm's stack */
562	dm_stack_push( op->contr, op->below->count );	277	dm_stack_push (op->contr, op->below->count);
563	}	278	}
564	return 0;	279	return 0;
565	}	280	}
566		281
		282	int
		283	command_dumpfriendlyobjects (object op, char params)
		284	{
		285	dump_friendly_objects ();
		286	return 0;
		287	}
		288
		289	int
567	int command_wizpass (object op, char params)	290	command_printlos (object op, char params)
568	{	291	{
569	int i;
570
571	if (!op)	292	if (op)
		293	print_los (op);
572	return 0;	294	return 0;
		295	}
573		296
574	if (!params)	297
575	i = (QUERY_FLAG(op, FLAG_WIZPASS)) ? 0 : 1;	298	int
		299	command_version (object op, char params)
		300	{
		301	version (op);
		302	return 0;
		303	}
		304
		305	#ifndef BUG_LOG
		306	# define BUG_LOG "bug_log"
		307	#endif
		308	void
		309	bug_report (const char *reportstring)
		310	{
		311	FILE *fp;
		312
		313	if ((fp = fopen (BUG_LOG, "a")) != NULL)
		314	{
		315	fprintf (fp, "%s\n", reportstring);
		316	fclose (fp);
		317	}
576	else	318	else
577	i =onoff_value(params);	319	{
578
579	if (i) {
580	new_draw_info(NDI_UNIQUE, 0,op, "You will now walk through walls.\n");
581	SET_FLAG(op, FLAG_WIZPASS);
582	} else {
583	new_draw_info(NDI_UNIQUE, 0,op, "You will now be stopped by walls.\n");
584	CLEAR_FLAG(op, FLAG_WIZPASS);
585	}
586	return 0;
587	}
588
589	int command_wizcast (object op, char params)
590	{
591	int i;
592
593	if (!op)
594	return 0;
595
596	if (!params)
597	i = (QUERY_FLAG(op, FLAG_WIZCAST)) ? 0 : 1;
598	else
599	i = onoff_value(params);
600
601	if (i) {
602	new_draw_info(NDI_UNIQUE, 0, op, "You can now cast spells anywhere.");
603	SET_FLAG(op, FLAG_WIZCAST);
604	} else {
605	new_draw_info(NDI_UNIQUE, 0, op, "You now cannot cast spells in no-magic areas.");
606	CLEAR_FLAG(op, FLAG_WIZCAST);
607	}
608	return 0;
609	}
610
611	int command_dumpallobjects (object op, char params)
612	{
613	dump_all_objects();
614	return 0;
615	}
616
617	int command_dumpfriendlyobjects (object op, char params)
618	{
619	dump_friendly_objects();
620	return 0;
621	}
622
623	int command_dumpallarchetypes (object op, char params)
624	{
625	dump_all_archetypes();
626	return 0;
627	}
628
629	int command_dumpmap (object op, char params)
630	{
631	if(op)
632	dump_map(op->map);
633	return 0;
634	}
635
636	int command_dumpallmaps (object op, char params)
637	{
638	dump_all_maps();
639	return 0;
640	}
641
642	int command_printlos (object op, char params)
643	{
644	if (op)
645	print_los(op);
646	return 0;
647	}
648
649
650	int command_version (object op, char params)
651	{
652	version(op);
653	return 0;
654	}
655
656
657	#ifndef BUG_LOG
658	#define BUG_LOG "bug_log"
659	#endif
660	void bug_report(const char * reportstring){
661	FILE * fp;
662	if((fp = fopen( BUG_LOG , "a")) != NULL){
663	fprintf(fp,"%s\n", reportstring);
664	fclose(fp);
665	} else {
666	LOG(llevError, "Cannot write bugs file %s: %s\n", BUG_LOG, strerror(errno));	320	LOG (llevError, "Cannot write bugs file %s: %s\n", BUG_LOG, strerror (errno));
667	}	321	}
668	}
669
670	int command_output_sync(object op, char params)
671	{
672	int val;
673
674	if (!params) {
675	new_draw_info_format(NDI_UNIQUE, 0, op,
676	"Output sync time is presently %d", op->contr->outputs_sync);
677	return 1;
678	}
679	val=atoi(params);
680	if (val>0) {
681	op->contr->outputs_sync = val;
682	new_draw_info_format(NDI_UNIQUE, 0, op,
683	"Output sync time now set to %d", op->contr->outputs_sync);
684	}
685	else
686	new_draw_info(NDI_UNIQUE, 0, op,"Invalid value for output_sync.");
687
688	return 1;
689	}
690
691	int command_output_count(object op, char params)
692	{
693	int val;
694
695	if (!params) {
696	new_draw_info_format(NDI_UNIQUE, 0, op,
697	"Output count is presently %d", op->contr->outputs_count);
698	return 1;
699	}
700	val=atoi(params);
701	if (val>0) {
702	op->contr->outputs_count = val;
703	new_draw_info_format(NDI_UNIQUE, 0, op,
704	"Output count now set to %d", op->contr->outputs_count);
705	}
706	else
707	new_draw_info(NDI_UNIQUE, 0, op,"Invalid value for output_count.");
708
709	return 1;
710	}
711
712	int command_listen (object op, char params)
713	{
714	int i;
715
716	if(params==NULL \|\| !sscanf(params, "%d", &i)) {
717	new_draw_info_format(NDI_UNIQUE, 0, op,
718	"Set listen to what (presently %d)?", op->contr->listening);
719	return 1;
720	}
721	op->contr->listening=(char) i;
722	new_draw_info_format(NDI_UNIQUE, 0, op,
723	"Your verbose level is now %d.",i);
724	return 1;
725	}	322	}
726		323
727	/* Prints out some useful information for the character. Everything we print	324	/* Prints out some useful information for the character. Everything we print
728	* out can be determined by the docs, so we aren't revealing anything extra -	325	* out can be determined by the docs, so we aren't revealing anything extra -
729	* rather, we are making it convenient to find the values. params have	326	* rather, we are making it convenient to find the values. params have
730	* no meaning here.	327	* no meaning here.
731	*/	328	*/
		329	int
732	int command_statistics(object pl, char params)	330	command_statistics (object pl, char params)
733	{	331	{
734	if (!pl->contr) return 1;	332	if (!pl->contr)
735	#ifndef WIN32
736	new_draw_info_format(NDI_UNIQUE, 0, pl," Experience: %lld",pl->stats.exp);
737	new_draw_info_format(NDI_UNIQUE, 0, pl," Next Level: %lld",level_exp(pl->level+1, pl->expmul));
738	#else
739	new_draw_info_format(NDI_UNIQUE, 0, pl," Experience: %I64d",pl->stats.exp);
740	new_draw_info_format(NDI_UNIQUE, 0, pl," Next Level: %I64d",level_exp(pl->level+1, pl->expmul));
741	#endif
742	new_draw_info(NDI_UNIQUE, 0, pl, "\nStat Nat/Real/Max");
743
744	new_draw_info_format(NDI_UNIQUE, 0, pl, "Str %2d/ %3d/%3d",
745	pl->contr->orig_stats.Str, pl->stats.Str, 20+pl->arch->clone.stats.Str);
746	new_draw_info_format(NDI_UNIQUE, 0, pl, "Dex %2d/ %3d/%3d",
747	pl->contr->orig_stats.Dex, pl->stats.Dex, 20+pl->arch->clone.stats.Dex);
748	new_draw_info_format(NDI_UNIQUE, 0, pl, "Con %2d/ %3d/%3d",
749	pl->contr->orig_stats.Con, pl->stats.Con, 20+pl->arch->clone.stats.Con);
750	new_draw_info_format(NDI_UNIQUE, 0, pl, "Int %2d/ %3d/%3d",
751	pl->contr->orig_stats.Int, pl->stats.Int, 20+pl->arch->clone.stats.Int);
752	new_draw_info_format(NDI_UNIQUE, 0, pl, "Wis %2d/ %3d/%3d",
753	pl->contr->orig_stats.Wis, pl->stats.Wis, 20+pl->arch->clone.stats.Wis);
754	new_draw_info_format(NDI_UNIQUE, 0, pl, "Pow %2d/ %3d/%3d",
755	pl->contr->orig_stats.Pow, pl->stats.Pow, 20+pl->arch->clone.stats.Pow);
756	new_draw_info_format(NDI_UNIQUE, 0, pl, "Cha %2d/ %3d/%3d",
757	pl->contr->orig_stats.Cha, pl->stats.Cha, 20+pl->arch->clone.stats.Cha);
758	new_draw_info_format(NDI_UNIQUE, 0, pl, "\nAttack Mode: %s",pl->contr->peaceful? "Peaceful":"Hostile");
759
760	/* Can't think of anything else to print right now */
761	return 0;
762	}
763
764	int command_fix_me(object op, char params)
765	{
766	sum_weight(op);
767	fix_player(op);
768	return 1;	333	return 1;
769	}	334	new_draw_info_format (NDI_UNIQUE, 0, pl, " Experience: %" PRId64, pl->stats.exp);
		335	new_draw_info_format (NDI_UNIQUE, 0, pl, " Next Level: %" PRId64, level_exp (pl->level + 1, pl->expmul));
		336	new_draw_info (NDI_UNIQUE, 0, pl, "\nStat Nat/Real/Max");
770		337
		338	new_draw_info_format (NDI_UNIQUE, 0, pl, "Str %2d/ %3d/%3d",
		339	pl->contr->orig_stats.Str, pl->stats.Str, 20 + pl->arch->clone.stats.Str);
		340	new_draw_info_format (NDI_UNIQUE, 0, pl, "Dex %2d/ %3d/%3d",
		341	pl->contr->orig_stats.Dex, pl->stats.Dex, 20 + pl->arch->clone.stats.Dex);
		342	new_draw_info_format (NDI_UNIQUE, 0, pl, "Con %2d/ %3d/%3d",
		343	pl->contr->orig_stats.Con, pl->stats.Con, 20 + pl->arch->clone.stats.Con);
		344	new_draw_info_format (NDI_UNIQUE, 0, pl, "Int %2d/ %3d/%3d",
		345	pl->contr->orig_stats.Int, pl->stats.Int, 20 + pl->arch->clone.stats.Int);
		346	new_draw_info_format (NDI_UNIQUE, 0, pl, "Wis %2d/ %3d/%3d",
		347	pl->contr->orig_stats.Wis, pl->stats.Wis, 20 + pl->arch->clone.stats.Wis);
		348	new_draw_info_format (NDI_UNIQUE, 0, pl, "Pow %2d/ %3d/%3d",
		349	pl->contr->orig_stats.Pow, pl->stats.Pow, 20 + pl->arch->clone.stats.Pow);
		350	new_draw_info_format (NDI_UNIQUE, 0, pl, "Cha %2d/ %3d/%3d",
		351	pl->contr->orig_stats.Cha, pl->stats.Cha, 20 + pl->arch->clone.stats.Cha);
		352	new_draw_info_format (NDI_UNIQUE, 0, pl, "\nAttack Mode: %s", pl->contr->peaceful ? "Peaceful" : "Hostile");
		353
		354	/* Can't think of anything else to print right now */
		355	return 0;
		356	}
		357
		358	int
		359	command_fix_me (object op, char params)
		360	{
		361	sum_weight (op);
		362	op->update_stats ();
		363	new_draw_info (NDI_UNIQUE, 0, op, "Your character was fixed.");
		364
		365	return 1;
		366	}
		367
		368	int
771	int command_players(object op, char paramss)	369	command_logs (object op, char params)
772	{	370	{
		371	new_draw_info (NDI_UNIQUE, 0, op, "Nobody is currently logging kills.");
		372
		373	return 1;
		374	}
		375
		376	int
		377	command_bowmode (object op, char params)
		378	{
		379	bowtype_t oldtype = op->contr->bowtype;
		380	static const char *const types[] = { "normal", "threewide", "spreadshot", "firenorth",
		381	"firene", "fireeast", "firese", "firesouth",
		382	"firesw", "firewest", "firenw", "bestarrow"
		383	};
773	char buf[MAX_BUF];	384	char buf[MAX_BUF];
774	char *t;	385	int i, found;
775	DIR *Dir;
776
777	sprintf(buf,"%s/%s/",settings.localdir,settings.playerdir);
778	t=buf+strlen(buf);
779	if ((Dir=opendir(buf))!=NULL) {
780	const struct dirent *Entry;
781		386
782	while ((Entry=readdir(Dir))!=NULL) {	387	if (!params)
783	/* skip '.' , '..' */	388	{
784	if (!((Entry->d_name[0]=='.' && Entry->d_name[1]=='\0') \|\|	389	new_draw_info_format (NDI_UNIQUE, 0, op, "bowmode is set to %s", types[op->contr->bowtype]);
785	(Entry->d_name[0]=='.' && Entry->d_name[1]=='.' && Entry->d_name[2]=='\0')))	390	return 1;
		391	}
		392
		393	for (i = 0, found = 0; i <= bow_bestarrow; i++)
		394	{
		395	if (!strcmp (params, types[i]))
		396	{
		397	found++;
		398	op->contr->bowtype = (bowtype_t) i;
		399	break;
		400	}
		401	}
		402
		403	if (!found)
		404	{
		405	sprintf (buf, "bowmode: Unknown options %s, valid options are:", params);
		406	for (i = 0; i <= bow_bestarrow; i++)
		407	{
		408	strcat (buf, " ");
		409	strcat (buf, types[i]);
		410	if (i < bow_nw)
		411	strcat (buf, ",");
		412	else
		413	strcat (buf, ".");
		414	}
		415	new_draw_info_format (NDI_UNIQUE, 0, op, buf);
		416	return 0;
		417	}
		418
		419	new_draw_info_format (NDI_UNIQUE, 0, op, "bowmode %s set to %s", (oldtype == op->contr->bowtype ? "" : "now"), types[op->contr->bowtype]);
		420	return 1;
		421	}
		422
		423	int
		424	command_showpets (object op, char params)
		425	{
		426	objectlink obl, next;
		427	int counter = 0, target = 0;
		428	int have_shown_pet = 0;
		429
		430	if (params != NULL)
		431	target = atoi (params);
		432	for (obl = first_friendly_object; obl != NULL; obl = next)
		433	{
		434	object *ob = obl->ob;
		435
		436	next = obl->next;
		437	if (ob->owner == op)
		438	{
		439	if (target == 0)
786	{	440	{
787	struct stat Stat;	441	if (counter == 0)
788		442	new_draw_info (NDI_UNIQUE, 0, op, "Pets:");
789	strcpy(t,Entry->d_name);	443	new_draw_info_format (NDI_UNIQUE, 0, op, "%d %s - level %d", ++counter, &ob->name, ob->level);
790	if (stat(buf,&Stat)==0) {
791	/* This was not posix compatible
792	* if ((Stat.st_mode & S_IFMT)==S_IFDIR) {
793	*/	444	}
794	if (S_ISDIR(Stat.st_mode)){	445	else if (!have_shown_pet && ++counter == target)
795	char buf2[MAX_BUF];	446	{
796	struct tm *tm=localtime(&Stat.st_mtime);	447	new_draw_info_format (NDI_UNIQUE, 0, op, "level %d %s", ob->level, &ob->name);
797	sprintf(buf2,"%s\t%04d %02d %02d %02d %02d %02d",	448	new_draw_info_format (NDI_UNIQUE, 0, op, "%d/%d HP, %d/%d SP", ob->stats.hp, ob->stats.maxhp, ob->stats.sp, ob->stats.maxsp);
798	Entry->d_name,	449	/* this is not a nice way to do this, it should be made to be more like the statistics command */
799	1900+tm->tm_year,	450	new_draw_info_format (NDI_UNIQUE, 0, op, "Str %d", ob->stats.Str);
800	1+tm->tm_mon,	451	new_draw_info_format (NDI_UNIQUE, 0, op, "Dex %d", ob->stats.Dex);
801	tm->tm_mday,	452	new_draw_info_format (NDI_UNIQUE, 0, op, "Con %d", ob->stats.Con);
802	tm->tm_hour,	453	new_draw_info_format (NDI_UNIQUE, 0, op, "Int %d", ob->stats.Int);
803	tm->tm_min,	454	new_draw_info_format (NDI_UNIQUE, 0, op, "Wis %d", ob->stats.Wis);
804	tm->tm_sec);	455	new_draw_info_format (NDI_UNIQUE, 0, op, "Cha %d", ob->stats.Cha);
805	new_draw_info(NDI_UNIQUE, 0, op, buf2);	456	new_draw_info_format (NDI_UNIQUE, 0, op, "Pow %d", ob->stats.Pow);
		457	new_draw_info_format (NDI_UNIQUE, 0, op, "wc %d damage %d ac %d ", ob->stats.wc, ob->stats.dam, ob->stats.ac);
		458	have_shown_pet = 1;
		459	}
		460	}
		461	}
		462	if (counter == 0)
		463	new_draw_info (NDI_UNIQUE, 0, op, "you have no pets.");
		464	else if (target != 0 && have_shown_pet == 0)
		465	new_draw_info (NDI_UNIQUE, 0, op, "no such pet.");
		466	return 0;
		467	}
		468
		469	int
		470	command_resistances (object op, char params)
		471	{
		472	int i;
		473
		474	if (!op)
		475	return 0;
		476
		477	for (i = 0; i < NROFATTACKS; i++)
		478	{
		479	if (i == ATNR_INTERNAL)
		480	continue;
		481
		482	new_draw_info_format (NDI_UNIQUE, 0, op, "%-20s %+5d", attacktype_desc[i], op->resist[i]);
		483	}
		484
		485	/* If dragon player, let's display natural resistances */
		486	if (is_dragon_pl (op))
		487	{
		488	int attack;
		489	object *tmp;
		490
		491	for (tmp = op->inv; tmp != NULL; tmp = tmp->below)
		492	{
		493	if ((tmp->type == FORCE) && (strcmp (tmp->arch->name, "dragon_skin_force") == 0))
		494	{
		495	new_draw_info (NDI_UNIQUE, 0, op, "\nNatural skin resistances:");
		496	for (attack = 0; attack < NROFATTACKS; attack++)
		497	{
		498	if (atnr_is_dragon_enabled (attack))
		499	{
		500	new_draw_info_format (NDI_UNIQUE, 0, op, "%s: %d", change_resist_msg[attack], tmp->resist[attack]);
806	}	501	}
807	}	502	}
		503	break;
808	}	504	}
809	}	505	}
810	}	506	}
811	closedir(Dir);	507
812	return 0;	508	return 0;
813	}	509	}
814		510
815
816
817	int command_logs (object op, char params)
818	{
819	int i;
820	int first;
821
822	first=1;
823	for(i=2; i<socket_info.allocated_sockets; i++) {
824	if (init_sockets[i].old_mode == Old_Listen) {
825	if (first) {
826	new_draw_info(NDI_UNIQUE,0,op,"Kill-logs are sent to:");
827	first=0;
828	}
829	new_draw_info_format(NDI_UNIQUE, 0, op, "%s: %s",
830	init_sockets[i].host,init_sockets[i].comment);
831	}
832	}
833	if (first) {
834	new_draw_info(NDI_UNIQUE,0,op,"Nobody is currently logging kills.");
835	}
836	return 1;
837	}
838
839	int command_applymode(object op, char params)
840	{
841	unapplymode unapply = op->contr->unapply;
842	static const char* const types[]={"nochoice", "never", "always"};
843
844	if (!params) {
845	new_draw_info_format(NDI_UNIQUE, 0, op, "applymode is set to %s",
846	types[op->contr->unapply]);
847	return 1;
848	}
849
850	if (!strcmp(params,"nochoice"))
851	op->contr->unapply=unapply_nochoice;
852	else if (!strcmp(params,"never"))
853	op->contr->unapply=unapply_never;
854	else if (!strcmp(params,"always"))
855	op->contr->unapply=unapply_always;
856	else {
857	new_draw_info_format(NDI_UNIQUE, 0, op,
858	"applymode: Unknown options %s, valid options are nochoice, never, always",
859	params);
860	return 0;
861	}
862	new_draw_info_format(NDI_UNIQUE, 0, op, "Applymode %s set to %s",
863	(unapply==op->contr->unapply?"":" now"),
864	types[op->contr->unapply]);
865	return 1;
866	}
867
868	int command_bowmode(object op, char params)
869	{
870	bowtype_t oldtype=op->contr->bowtype;
871	static const char* const types[] =
872	{"normal", "threewide", "spreadshot", "firenorth",
873	"firene", "fireeast", "firese", "firesouth",
874	"firesw", "firewest", "firenw", "bestarrow"};
875	char buf[MAX_BUF];
876	int i, found;
877
878	if (!params) {
879	new_draw_info_format(NDI_UNIQUE, 0, op, "bowmode is set to %s",
880	types[op->contr->bowtype]);
881	return 1;
882	}
883
884	for (i=0,found=0; i<=bow_bestarrow; i++) {
885	if (!strcmp(params, types[i])) {
886	found++;
887	op->contr->bowtype= (bowtype_t) i;
888	break;
889	}
890	}
891	if (!found) {
892	sprintf(buf, "bowmode: Unknown options %s, valid options are:", params);
893	for (i=0; i<=bow_bestarrow; i++) {
894	strcat(buf, " ");
895	strcat(buf, types[i]);
896	if (i < bow_nw)
897	strcat(buf, ",");
898	else
899	strcat(buf, ".");
900	}
901	new_draw_info_format(NDI_UNIQUE, 0, op, buf);
902	return 0;
903	}
904	new_draw_info_format(NDI_UNIQUE, 0, op, "bowmode %s set to %s",
905	(oldtype==op->contr->bowtype?"":"now"),
906	types[op->contr->bowtype]);
907	return 1;
908	}
909
910	int command_petmode(object op, char params)
911	{
912	petmode_t oldtype=op->contr->petmode;
913	static const char* const types[]={"normal", "sad", "defend", "arena"};
914
915	if (!params) {
916	new_draw_info_format(NDI_UNIQUE, 0, op, "petmode is set to %s",
917	types[op->contr->petmode]);
918	return 1;
919	}
920
921	if (!strcmp(params,"normal"))
922	op->contr->petmode=pet_normal;
923	else if (!strcmp(params,"sad"))
924	op->contr->petmode=pet_sad;
925	else if (!strcmp(params,"defend"))
926	op->contr->petmode=pet_defend;
927	else if (!strcmp(params,"arena"))
928	op->contr->petmode=pet_arena;
929	else {
930	new_draw_info_format(NDI_UNIQUE, 0, op,
931	"petmode: Unknown options %s, valid options are normal,"
932	"sad (seek and destroy), defend, arena", params);
933	return 0;
934	}
935	new_draw_info_format(NDI_UNIQUE, 0, op, "petmode %s set to %s",
936	(oldtype==op->contr->petmode?"":"now"),
937	types[op->contr->petmode]);
938	return 1;
939	}
940
941	int command_showpets(object op, char params)
942	{
943	objectlink obl, next;
944	int counter=0, target=0;
945	int have_shown_pet=0;
946	if (params !=NULL) target= atoi(params);
947	for (obl = first_friendly_object; obl != NULL; obl = next) {
948	object *ob = obl->ob;
949	next = obl->next;
950	if (get_owner(ob) == op) {
951	if (target ==0) {
952	if (counter==0)
953	new_draw_info(NDI_UNIQUE, 0, op, "Pets:");
954	new_draw_info_format(NDI_UNIQUE, 0, op, "%d %s - level %d", ++counter, &ob->name, ob->level );
955	}
956	else if (!have_shown_pet && ++counter==target) {
957	new_draw_info_format(NDI_UNIQUE, 0, op, "level %d %s", ob->level, &ob->name);
958	new_draw_info_format(NDI_UNIQUE, 0, op, "%d/%d HP, %d/%d SP",
959	ob->stats.hp, ob->stats.maxhp, ob->stats.sp, ob->stats.maxsp);
960	/* this is not a nice way to do this, it should be made to be more like the statistics command */
961	new_draw_info_format(NDI_UNIQUE, 0, op, "Str %d", ob->stats.Str);
962	new_draw_info_format(NDI_UNIQUE, 0, op, "Dex %d", ob->stats.Dex);
963	new_draw_info_format(NDI_UNIQUE, 0, op, "Con %d", ob->stats.Con);
964	new_draw_info_format(NDI_UNIQUE, 0, op, "Int %d", ob->stats.Int);
965	new_draw_info_format(NDI_UNIQUE, 0, op, "Wis %d", ob->stats.Wis);
966	new_draw_info_format(NDI_UNIQUE, 0, op, "Cha %d", ob->stats.Cha);
967	new_draw_info_format(NDI_UNIQUE, 0, op, "Pow %d", ob->stats.Pow);
968	new_draw_info_format(NDI_UNIQUE, 0, op, "wc %d damage %d ac %d ",
969	ob->stats.wc, ob->stats.dam, ob->stats.ac);
970	have_shown_pet=1;
971	}
972	}
973	}
974	if (counter == 0)
975	new_draw_info(NDI_UNIQUE, 0, op, "you have no pets.");
976	else if (target !=0 && have_shown_pet==0)
977	new_draw_info(NDI_UNIQUE, 0, op, "no such pet.");
978	return 0;
979	}
980
981	int command_usekeys(object op, char params)
982	{
983	usekeytype oldtype=op->contr->usekeys;
984	static const char* const types[]={"inventory", "keyrings", "containers"};
985
986	if (!params) {
987	new_draw_info_format(NDI_UNIQUE, 0, op, "usekeys is set to %s",
988	types[op->contr->usekeys]);
989	return 1;
990	}
991
992	if (!strcmp(params,"inventory"))
993	op->contr->usekeys=key_inventory;
994	else if (!strcmp(params,"keyrings"))
995	op->contr->usekeys=keyrings;
996	else if (!strcmp(params,"containers"))
997	op->contr->usekeys=containers;
998	else {
999	new_draw_info_format(NDI_UNIQUE, 0, op,
1000	"usekeys: Unknown options %s, valid options are inventory, keyrings, containers",
1001	params);
1002	return 0;
1003	}
1004	new_draw_info_format(NDI_UNIQUE, 0, op, "usekeys %s set to %s",
1005	(oldtype==op->contr->usekeys?"":"now"),
1006	types[op->contr->usekeys]);
1007	return 1;
1008	}
1009
1010	int command_resistances(object op, char params)
1011	{
1012	int i;
1013	if (!op)
1014	return 0;
1015
1016	for (i=0; i<NROFATTACKS; i++) {
1017	if (i==ATNR_INTERNAL) continue;
1018
1019	new_draw_info_format(NDI_UNIQUE, 0, op, "%-20s %+5d",
1020	attacktype_desc[i], op->resist[i]);
1021	}
1022
1023	/* If dragon player, let's display natural resistances */
1024	if ( is_dragon_pl( op ) )
1025	{
1026	int attack;
1027	object* tmp;
1028	for ( tmp = op->inv; tmp != NULL; tmp = tmp->below )
1029	{
1030	if ( ( tmp->type == FORCE ) && ( strcmp( tmp->arch->name, "dragon_skin_force" )== 0 ) )
1031	{
1032	new_draw_info( NDI_UNIQUE, 0, op, "\nNatural skin resistances:" );
1033	for ( attack = 0; attack < NROFATTACKS; attack++ )
1034	{
1035	if ( atnr_is_dragon_enabled( attack ) )
1036	{
1037	new_draw_info_format( NDI_UNIQUE, 0, op, "%s: %d", change_resist_msg[ attack ], tmp->resist[ attack ] );
1038	}
1039	}
1040	break;
1041	}
1042	}
1043	}
1044
1045	return 0;
1046	}
1047	/*	511	/*
1048	* Actual commands.	512	* Actual commands.
1049	* Those should be in small separate files (c_object.c, c_wiz.c, cmove.c,...)	513	* Those should be in small separate files (c_object.c, c_wiz.c, cmove.c,...)
1050	*/	514	*/
1051		515
1052		516
		517	static void
1053	static void help_topics(object *op, int what)	518	help_topics (object *op, int what)
1054	{	519	{
1055	DIR *dirp;	520	DIR *dirp;
1056	struct dirent *de;	521	struct dirent *de;
1057	char filename[MAX_BUF], line[80];	522	char filename[MAX_BUF], line[80];
1058	int namelen, linelen=0;	523	int namelen, linelen = 0;
1059		524
1060	switch (what) {	525	switch (what)
		526	{
1061	case 1:	527	case 1:
1062	sprintf(filename, "%s/wizhelp", settings.datadir);	528	sprintf (filename, "%s/wizhelp", settings.datadir);
1063	new_draw_info(NDI_UNIQUE, 0,op, " Wiz commands:");	529	new_draw_info (NDI_UNIQUE, 0, op, " Wiz commands:");
1064	break;	530	break;
1065	case 3:	531	case 3:
1066	sprintf(filename, "%s/mischelp", settings.datadir);	532	sprintf (filename, "%s/mischelp", settings.datadir);
1067	new_draw_info(NDI_UNIQUE, 0,op, " Misc help:");	533	new_draw_info (NDI_UNIQUE, 0, op, " Misc help:");
1068	break;	534	break;
1069	default:	535	default:
1070	sprintf(filename, "%s/help", settings.datadir);	536	sprintf (filename, "%s/help", settings.datadir);
1071	new_draw_info(NDI_UNIQUE, 0,op, " Commands:");	537	new_draw_info (NDI_UNIQUE, 0, op, " Commands:");
1072	break;	538	break;
1073	}	539	}
		540
1074	if (!(dirp=opendir(filename)))	541	if (!(dirp = opendir (filename)))
1075	return;	542	return;
1076		543
1077	line[0] ='\0';	544	line[0] = '\0';
1078	for (de = readdir(dirp); de; de = readdir(dirp)) {	545	while ((de = readdir (dirp)))
1079	namelen = NAMLEN(de);	546	{
1080	if (namelen <= 2 && *de->d_name == '.' &&	547	namelen = strlen (de->d_name);
1081	(namelen == 1 \|\| de->d_name[1] == '.' ) )	548	if (namelen <= 2 && *de->d_name == '.' && (namelen == 1 \|\| de->d_name[1] == '.'))
1082	continue;	549	continue;
1083	linelen +=namelen+1;	550	linelen += namelen + 1;
1084	if (linelen > 42) {	551	if (linelen > 42)
		552	{
1085	new_draw_info(NDI_UNIQUE, 0,op, line);	553	new_draw_info (NDI_UNIQUE, 0, op, line);
1086	sprintf(line, " %s", de->d_name);	554	sprintf (line, " %s", de->d_name);
1087	linelen =namelen+1;	555	linelen = namelen + 1;
1088	continue;	556	continue;
1089	}	557	}
1090	strcat(line, " ");	558	strcat (line, " ");
1091	strcat(line, de->d_name);	559	strcat (line, de->d_name);
1092	}	560	}
1093	new_draw_info(NDI_UNIQUE, 0,op, line);	561	new_draw_info (NDI_UNIQUE, 0, op, line);
1094	closedir(dirp);	562	closedir (dirp);
1095	}	563	}
1096		564
		565	static void
1097	static void show_commands(object *op, int what)	566	show_commands (object *op, int what)
1098	{	567	{
1099	char line[80];	568	char line[80];
1100	int i, size, namelen, linelen=0;	569	int i, size, namelen, linelen = 0;
1101	CommArray_s *ap;	570	CommArray_s *ap;
1102	extern CommArray_s Commands[], WizCommands[];	571	extern CommArray_s Commands[], WizCommands[];
1103	extern const int CommandsSize, WizCommandsSize;	572	extern const int CommandsSize, WizCommandsSize;
1104		573
1105	switch (what) {	574	switch (what)
		575	{
1106	case 1:	576	case 1:
1107	ap =WizCommands;	577	ap = WizCommands;
1108	size =WizCommandsSize;	578	size = WizCommandsSize;
1109	new_draw_info(NDI_UNIQUE, 0,op, " Wiz commands:");	579	new_draw_info (NDI_UNIQUE, 0, op, " Wiz commands:");
1110	break;	580	break;
1111	case 2:	581	case 2:
1112	ap= CommunicationCommands;	582	ap = CommunicationCommands;
1113	size= CommunicationCommandSize;	583	size = CommunicationCommandSize;
1114	new_draw_info(NDI_UNIQUE, 0, op, " Communication commands:");	584	new_draw_info (NDI_UNIQUE, 0, op, " Communication commands:");
1115	break;	585	break;
1116	default:	586	default:
1117	ap =Commands;	587	ap = Commands;
1118	size =CommandsSize;	588	size = CommandsSize;
1119	new_draw_info(NDI_UNIQUE, 0,op, " Commands:");	589	new_draw_info (NDI_UNIQUE, 0, op, " Commands:");
1120	break;	590	break;
1121	}	591	}
1122		592
1123	line[0] ='\0';	593	line[0] = '\0';
1124	for (i=0; i<size; i++) {	594	for (i = 0; i < size; i++)
		595	{
1125	namelen = strlen(ap[i].name);	596	namelen = strlen (ap[i].name);
1126	linelen +=namelen+1;	597	linelen += namelen + 1;
1127	if (linelen > 42) {	598	if (linelen > 42)
		599	{
1128	new_draw_info(NDI_UNIQUE, 0,op, line);	600	new_draw_info (NDI_UNIQUE, 0, op, line);
1129	sprintf(line, " %s", ap[i].name);	601	sprintf (line, " %s", ap[i].name);
1130	linelen =namelen+1;	602	linelen = namelen + 1;
1131	continue;	603	continue;
1132	}	604	}
1133	strcat(line, " ");	605	strcat (line, " ");
1134	strcat(line, ap[i].name);	606	strcat (line, ap[i].name);
1135	}	607	}
1136	new_draw_info(NDI_UNIQUE, 0,op, line);	608	new_draw_info (NDI_UNIQUE, 0, op, line);
1137	}	609	}
1138		610
1139		611
		612	int
1140	int command_help (object op, char params)	613	command_help (object op, char params)
1141	{	614	{
1142	struct stat st;	615	struct stat st;
1143	FILE *fp;	616	FILE *fp;
1144	char filename[MAX_BUF], line[MAX_BUF];	617	char filename[MAX_BUF], line[MAX_BUF];
1145	int len;	618	int len;
1146		619
1147	if(op != NULL)	620	if (op != NULL)
1148	clear_win_info(op);	621	clear_win_info (op);
1149		622
1150	/*	623	/*
1151	* Main help page?	624	* Main help page?
1152	*/	625	*/
1153	if (!params) {	626	if (!params)
		627	{
1154	sprintf(filename, "%s/def_help", settings.datadir);	628	sprintf (filename, "%s/def_help", settings.datadir);
1155	if ((fp=fopen(filename, "r")) == NULL) {	629	if ((fp = fopen (filename, "r")) == NULL)
		630	{
1156	LOG(llevError, "Cannot open help file %s: %s\n", filename, strerror(errno));	631	LOG (llevError, "Cannot open help file %s: %s\n", filename, strerror (errno));
		632	return 0;
		633	}
		634	while (fgets (line, MAX_BUF, fp))
		635	{
		636	line[MAX_BUF - 1] = '\0';
		637	len = strlen (line) - 1;
		638	if (line[len] == '\n')
		639	line[len] = '\0';
		640	new_draw_info (NDI_UNIQUE, 0, op, line);
		641	}
		642	fclose (fp);
1157	return 0;	643	return 0;
1158	}	644	}
1159	while (fgets(line, MAX_BUF, fp)) {
1160	line[MAX_BUF-1] ='\0';
1161	len =strlen(line)-1;
1162	if (line[len] == '\n')
1163	line[len] ='\0';
1164	new_draw_info(NDI_UNIQUE, 0,op, line);
1165	}
1166	fclose(fp);
1167	return 0;
1168	}
1169		645
1170	/*	646	/*
1171	* Topics list	647	* Topics list
1172	*/	648	*/
1173	if (!strcmp(params, "topics")) {	649	if (!strcmp (params, "topics"))
		650	{
1174	help_topics(op, 3);	651	help_topics (op, 3);
1175	help_topics(op, 0);	652	help_topics (op, 0);
1176	if (QUERY_FLAG(op, FLAG_WIZ))	653	if (QUERY_FLAG (op, FLAG_WIZ))
1177	help_topics(op, 1);	654	help_topics (op, 1);
1178	return 0;	655	return 0;
1179	}	656	}
1180		657
1181	/*	658	/*
1182	* Commands list	659	* Commands list
1183	*/	660	*/
1184	if (!strcmp(params, "commands")) {	661	if (!strcmp (params, "commands"))
		662	{
1185	show_commands(op, 0);	663	show_commands (op, 0);
1186	show_commands(op, 2); /* show comm commands */	664	show_commands (op, 2); /* show comm commands */
1187	if (QUERY_FLAG(op, FLAG_WIZ))	665	if (QUERY_FLAG (op, FLAG_WIZ))
1188	show_commands(op, 1);	666	show_commands (op, 1);
1189	return 0;	667	return 0;
1190	}	668	}
1191		669
1192	/*	670	/*
1193	* User wants info about command	671	* User wants info about command
1194	*/	672	*/
1195	if (strchr(params, '.') \|\| strchr(params, ' ') \|\| strchr(params, '/')) {	673	if (strchr (params, '.') \|\| strchr (params, ' ') \|\| strchr (params, '/'))
		674	{
1196	sprintf(line, "Illegal characters in '%s'", params);	675	sprintf (line, "Illegal characters in '%s'", params);
1197	new_draw_info(NDI_UNIQUE, 0,op, line);	676	new_draw_info (NDI_UNIQUE, 0, op, line);
1198	return 0;	677	return 0;
1199	}	678	}
1200		679
1201	sprintf(filename, "%s/mischelp/%s", settings.datadir, params);	680	sprintf (filename, "%s/mischelp/%s", settings.datadir, params);
1202	if (stat(filename, &st) \|\| !S_ISREG(st.st_mode)) {	681	if (stat (filename, &st) \|\| !S_ISREG (st.st_mode))
		682	{
1203	if (op) {	683	if (op)
1204	sprintf(filename, "%s/help/%s", settings.datadir, params);	684	{
1205	if (stat(filename, &st) \|\| !S_ISREG(st.st_mode)) {
1206	if (QUERY_FLAG(op, FLAG_WIZ)) {
1207	sprintf(filename, "%s/wizhelp/%s", settings.datadir, params);	685	sprintf (filename, "%s/help/%s", settings.datadir, params);
1208	if (stat(filename, &st) \|\| !S_ISREG(st.st_mode))	686	if (stat (filename, &st) \|\| !S_ISREG (st.st_mode))
		687	{
		688	if (QUERY_FLAG (op, FLAG_WIZ))
		689	{
		690	sprintf (filename, "%s/wizhelp/%s", settings.datadir, params);
		691	if (stat (filename, &st) \|\| !S_ISREG (st.st_mode))
		692	goto nohelp;
		693	}
		694	else
1209	goto nohelp;	695	goto nohelp;
1210	} else	696	}
1211	goto nohelp;
1212	}	697	}
1213	}	698	}
1214	}
1215		699
1216	/*	700	/*
1217	* Found that. Just cat it to screen.	701	* Found that. Just cat it to screen.
1218	*/	702	*/
1219	if ((fp=fopen(filename, "r")) == NULL) {	703	if ((fp = fopen (filename, "r")) == NULL)
		704	{
1220	LOG(llevError, "Cannot open help file %s: %s\n", filename, strerror(errno));	705	LOG (llevError, "Cannot open help file %s: %s\n", filename, strerror (errno));
1221	return 0;	706	return 0;
1222	}	707	}
1223	sprintf(line, "Help about '%s'", params);	708	sprintf (line, "Help about '%s'", params);
1224	new_draw_info(NDI_UNIQUE, 0,op, line);	709	new_draw_info (NDI_UNIQUE, 0, op, line);
1225	while (fgets(line, MAX_BUF, fp)) {	710	while (fgets (line, MAX_BUF, fp))
		711	{
1226	line[MAX_BUF-1] ='\0';	712	line[MAX_BUF - 1] = '\0';
1227	len =strlen(line)-1;	713	len = strlen (line) - 1;
1228	if (line[len] == '\n')	714	if (line[len] == '\n')
1229	line[len] ='\0';	715	line[len] = '\0';
1230	new_draw_info(NDI_UNIQUE, 0,op, line);	716	new_draw_info (NDI_UNIQUE, 0, op, line);
1231	}	717	}
1232	fclose(fp);	718	fclose (fp);
1233	return 0;	719	return 0;
1234		720
1235	/*	721	/*
1236	* No_help -escape	722	* No_help -escape
1237	*/	723	*/
1238	nohelp:	724	nohelp:
1239	sprintf(line, "No help available on '%s'", params);	725	sprintf (line, "No help available on '%s'", params);
1240	new_draw_info(NDI_UNIQUE, 0,op, line);	726	new_draw_info (NDI_UNIQUE, 0, op, line);
1241	return 0;	727	return 0;
1242	}	728	}
1243		729
1244		730
		731	int
1245	int onoff_value(const char *line)	732	onoff_value (const char *line)
1246	{	733	{
1247	int i;	734	int i;
1248		735
1249	if (sscanf(line, "%d", &i))	736	if (sscanf (line, "%d", &i))
1250	return (i != 0);	737	return (i != 0);
1251	switch (line[0]) {	738	switch (line[0])
		739	{
1252	case 'o':	740	case 'o':
1253	switch (line[1]) {	741	switch (line[1])
1254	case 'n': return 1; /* on */	742	{
1255	default: return 0; /* o[ff] */	743	case 'n':
1256	}	744	return 1; /* on */
1257	case 'y': /* y[es] */	745	default:
1258	case 'k': /* k[ylla] */	746	return 0; /* o[ff] */
		747	}
		748	case 'y': /* y[es] */
		749	case 'k': /* k[ylla] */
1259	case 's':	750	case 's':
1260	case 'd':	751	case 'd':
1261	return 1;
1262	case 'n': /* n[o] */
1263	case 'e': /* e[i] */
1264	case 'u':
1265	default:
1266	return 0;
1267	}
1268	}
1269
1270	int command_quit (object op, char params)
1271	{
1272	new_draw_info(NDI_UNIQUE, 0, op, "Quitting will delete your character PERMANENTLY. If you are sure you want to do this, then use the quit_character command instead of quit.");
1273	return 1;
1274	}
1275
1276	int command_real_quit (object op, char params)
1277	{
1278	send_query(&op->contr->socket,CS_QUERY_SINGLECHAR,
1279	"Quitting will delete your character.\nAre you sure you want to quit (y/n):");
1280
1281	op->contr->state = ST_CONFIRM_QUIT;
1282	return 1;
1283	}
1284
1285	/*
1286	* don't allow people to exit explore mode. It otherwise becomes
1287	* really easy to abuse this.
1288	*/
1289	int command_explore (object op, char params)
1290	{
1291	if (settings.explore_mode == FALSE)
1292	return 1;	752	return 1;
1293	/*	753	case 'n': /* n[o] */
1294	* I guess this is the best way to see if we are solo or not. Actually,	754	case 'e': /* e[i] */
1295	* are there any cases when first_player->next==NULL and we are not solo?	755	case 'u':
1296	*/	756	default:
1297	if ((first_player!=op->contr) \|\| (first_player->next!=NULL)) {
1298	new_draw_info(NDI_UNIQUE, 0,op,"You can not enter explore mode if you are in a party");
1299	} else if (op->contr->explore)
1300	new_draw_info(NDI_UNIQUE, 0,op, "There is no return from explore mode");
1301	else {
1302	op->contr->explore=1;
1303	new_draw_info(NDI_UNIQUE, 0,op, "You are now in explore mode");
1304	}
1305	return 1;
1306	}
1307
1308	int command_sound (object op, char params)
1309	{
1310	if (op->contr->socket.sound) {
1311	op->contr->socket.sound=0;
1312	new_draw_info(NDI_UNIQUE, 0,op, "Silence is golden...");
1313	}
1314	else {
1315	op->contr->socket.sound=1;
1316	new_draw_info(NDI_UNIQUE, 0,op, "The sounds are enabled.");
1317	}
1318	return 1;
1319	}
1320
1321	/* Perhaps these should be in player.c, but that file is
1322	* already a bit big.
1323	*/
1324
1325	void receive_player_name(object *op,char k) {
1326
1327	if(!check_name(op->contr,op->contr->write_buf+1)) {
1328	get_name(op);
1329	return;	757	return 0;
1330	}
1331	op->name = op->contr->write_buf + 1;
1332	op->name_pl = op->contr->write_buf + 1;
1333	new_draw_info(NDI_UNIQUE, 0,op,op->contr->write_buf);
1334	op->contr->name_changed=1;
1335	get_password(op);
1336	}
1337
1338	void receive_player_password(object *op,char k) {
1339
1340	unsigned int pwd_len=strlen(op->contr->write_buf);
1341	if(pwd_len<=1\|\|pwd_len>17) {
1342	get_name(op);
1343	return;
1344	}	758	}
1345	new_draw_info(NDI_UNIQUE, 0,op," "); /* To hide the password better */
1346
1347	if (checkbanned(op->name, op->contr->socket.host)) {
1348	LOG(llevInfo, "Banned player tried to add: [%s@%s]\n", &op->name, op->contr->socket.host);
1349	new_draw_info(NDI_UNIQUE\|NDI_RED, 0, op, "You are not allowed to play.");
1350	get_name(op);
1351	return;
1352	}
1353
1354	if(op->contr->state==ST_CONFIRM_PASSWORD) {
1355	if(!check_password(op->contr->write_buf+1,op->contr->password)) {
1356	new_draw_info(NDI_UNIQUE, 0,op,"The passwords did not match.");
1357	get_name(op);
1358	return;
1359	}
1360	clear_win_info(op);
1361	display_motd(op);
1362	new_draw_info(NDI_UNIQUE, 0,op," ");
1363	new_draw_info(NDI_UNIQUE, 0,op,"Welcome, Brave New Warrior!");
1364	new_draw_info(NDI_UNIQUE, 0,op," ");
1365	Roll_Again(op);
1366	op->contr->state=ST_ROLL_STAT;
1367	return;
1368	}
1369	strcpy(op->contr->password,crypt_string(op->contr->write_buf+1,NULL));
1370	op->contr->state=ST_ROLL_STAT;
1371	check_login(op);
1372	return;
1373	}	759	}
1374		760
1375		761	int
1376	int explore_mode(void) {
1377	player *pl;
1378
1379	if (settings.explore_mode == TRUE) {
1380	for (pl = first_player; pl != (player *) NULL; pl = pl->next)
1381	if (pl->explore)
1382	return 1;
1383	}
1384	return 0;
1385	}
1386
1387
1388	int command_title (object op, char params)	762	command_title (object op, char params)
1389	{	763	{
1390	char buf[MAX_BUF];	764	char buf[MAX_BUF];
1391		765
1392	if (settings.set_title == FALSE) {	766	if (settings.set_title == FALSE)
		767	{
1393	new_draw_info(NDI_UNIQUE, 0, op, "You cannot change your title.");	768	new_draw_info (NDI_UNIQUE, 0, op, "You cannot change your title.");
1394	return 1;	769	return 1;
1395	}	770	}
1396		771
1397	/* dragon players cannot change titles */	772	/* dragon players cannot change titles */
1398	if (is_dragon_pl(op)) {	773	if (is_dragon_pl (op))
		774	{
1399	new_draw_info(NDI_UNIQUE, 0, op, "Dragons cannot change titles.");	775	new_draw_info (NDI_UNIQUE, 0, op, "Dragons cannot change titles.");
1400	return 1;	776	return 1;
1401	}
1402		777	}
		778
1403	if(params == NULL) {	779	if (params == NULL)
		780	{
1404	if(op->contr->own_title[0]=='\0')	781	if (op->contr->own_title[0] == '\0')
1405	sprintf(buf,"Your title is '%s'.", op->contr->title);	782	sprintf (buf, "Your title is '%s'.", op->contr->title);
1406	else	783	else
1407	sprintf(buf,"Your title is '%s'.", op->contr->own_title);	784	sprintf (buf, "Your title is '%s'.", op->contr->own_title);
1408	new_draw_info(NDI_UNIQUE, 0,op,buf);	785	new_draw_info (NDI_UNIQUE, 0, op, buf);
1409	return 1;	786	return 1;
1410	}	787	}
1411	if(strcmp(params, "clear")==0 \|\| strcmp(params, "default")==0) {	788	if (strcmp (params, "clear") == 0 \|\| strcmp (params, "default") == 0)
		789	{
1412	if(op->contr->own_title[0]=='\0')	790	if (op->contr->own_title[0] == '\0')
1413	new_draw_info(NDI_UNIQUE, 0,op,"Your title is the default title.");	791	new_draw_info (NDI_UNIQUE, 0, op, "Your title is the default title.");
1414	else	792	else
1415	new_draw_info(NDI_UNIQUE, 0,op,"Title set to default.");	793	new_draw_info (NDI_UNIQUE, 0, op, "Title set to default.");
1416	op->contr->own_title[0]='\0';	794	op->contr->own_title[0] = '\0';
1417	return 1;	795	return 1;
1418	}	796	}
1419		797
1420	if((int)strlen(params) >= MAX_NAME) {	798	if ((int) strlen (params) >= MAX_NAME)
		799	{
1421	new_draw_info(NDI_UNIQUE, 0,op,"Title too long.");	800	new_draw_info (NDI_UNIQUE, 0, op, "Title too long.");
1422	return 1;	801	return 1;
1423	}	802	}
1424	strcpy(op->contr->own_title, params);	803	strcpy (op->contr->own_title, params);
1425	return 1;	804	return 1;
1426	}	805	}
1427		806
		807	int
1428	int command_save (object op, char params)	808	command_kill_pets (object op, char params)
1429	{	809	{
1430	// if (get_map_flags(op->map, NULL, op->x, op->y, NULL, NULL) & P_NO_CLERIC) {	810	objectlink obl, next;
1431	// new_draw_info(NDI_UNIQUE, 0, op, "You can not save on unholy ground");	811	int counter = 0, removecount = 0;
1432	// } else	812
1433	if (!op->stats.exp) {	813	if (params == NULL)
1434	new_draw_info(NDI_UNIQUE, 0, op, "You don't deserve to save yet.");	814	{
1435	} else {	815	terminate_all_pets (op);
1436	if(save_player(op,1))
1437	new_draw_info(NDI_UNIQUE, 0,op,"You have been saved.");	816	new_draw_info (NDI_UNIQUE, 0, op, "Your pets have been killed.");
1438	else
1439	new_draw_info(NDI_UNIQUE, 0,op,"SAVE FAILED!");
1440	}	817	}
1441	return 1;
1442	}
1443
1444
1445	int command_peaceful (object op, char params)
1446	{
1447	new_draw_info(NDI_UNIQUE, 0, op,
1448	"You cannot change your peaceful setting with this command."
1449	" Please speak to the priest in the temple of Gorokh"
1450	" if you want to become hostile or in temple of Valriel"
1451	" if you want to become peaceful again."
1452	);
1453
1454	/*
1455	if((op->contr->peaceful=!op->contr->peaceful))
1456	new_draw_info(NDI_UNIQUE, 0,op,"You will not attack other players.");
1457	else	818	else
1458	new_draw_info(NDI_UNIQUE, 0,op,"You will attack other players.");
1459	*/
1460	return 1;
1461	}
1462
1463
1464
1465	int command_wimpy (object op, char params)
1466	{
1467	int i;
1468	char buf[MAX_BUF];
1469
1470	if (params==NULL \|\| !sscanf(params, "%d", &i)) {
1471	sprintf(buf, "Your current wimpy level is %d.", op->run_away);
1472	new_draw_info(NDI_UNIQUE, 0,op, buf);
1473	return 1;
1474	}	819	{
1475	sprintf(buf, "Your new wimpy level is %d.", i);
1476	new_draw_info(NDI_UNIQUE, 0,op, buf);
1477	op->run_away = i;
1478	return 1;
1479	}
1480
1481
1482	int command_brace (object op, char params)
1483	{
1484	if (!params)
1485	op->contr->braced =!op->contr->braced;
1486	else
1487	op->contr->braced =onoff_value(params);
1488
1489	if(op->contr->braced)
1490	new_draw_info(NDI_UNIQUE, 0,op, "You are braced.");
1491	else
1492	new_draw_info(NDI_UNIQUE, 0,op, "Not braced.");
1493
1494	fix_player(op);
1495	return 0;
1496	}
1497
1498	int command_style_map_info(object op, char params)
1499	{
1500	extern mapstruct *styles;
1501	mapstruct *mp;
1502	int maps_used=0, mapmem=0, objects_used=0, x,y;
1503	object *tmp;
1504
1505	for (mp = styles; mp!=NULL; mp=mp->next) {
1506	maps_used++;
1507	mapmem += MAP_WIDTH(mp)MAP_HEIGHT(mp)(sizeof(object *)+sizeof(MapSpace)) + sizeof(mapstruct);
1508	for (x=0; x<MAP_WIDTH(mp); x++) {
1509	for (y=0; y<MAP_HEIGHT(mp); y++) {
1510	for (tmp=get_map_ob(mp, x, y); tmp!=NULL; tmp=tmp->above)
1511	objects_used++;
1512	}
1513	}
1514	}
1515	new_draw_info_format(NDI_UNIQUE, 0, op, "Style maps loaded: %d", maps_used);
1516	new_draw_info(NDI_UNIQUE, 0, op, "Memory used, not");
1517	new_draw_info_format(NDI_UNIQUE, 0, op, "including objects: %d", mapmem);
1518	new_draw_info_format(NDI_UNIQUE, 0, op, "Style objects: %d", objects_used);
1519	new_draw_info_format(NDI_UNIQUE, 0, op, "Mem for objects: %d", objects_used * sizeof(object));
1520	return 0;
1521	}
1522
1523	int command_kill_pets(object op, char params)
1524	{
1525	objectlink obl, next;
1526	int counter=0, removecount=0;
1527	if (params == NULL) {
1528	terminate_all_pets(op);
1529	new_draw_info(NDI_UNIQUE, 0, op, "Your pets have been killed.");
1530	}
1531	else {
1532	int target = atoi(params);	820	int target = atoi (params);
		821
1533	for(obl = first_friendly_object; obl != NULL; obl = next) {	822	for (obl = first_friendly_object; obl != NULL; obl = next)
		823	{
1534	object *ob = obl->ob;	824	object *ob = obl->ob;
		825
1535	next = obl->next;	826	next = obl->next;
1536	if (get_owner(ob) == op)	827	if (ob->owner == op)
1537	if (++counter==target \|\| (target==0 && !strcasecmp(ob->name, params))) {	828	if (++counter == target \|\| (target == 0 && !strcasecmp (ob->name, params)))
1538	if (!QUERY_FLAG(ob, FLAG_REMOVED))	829	{
1539	remove_ob(ob);	830	ob->destroy ();
1540	remove_friendly_object(ob);
1541	free_object(ob);
1542	removecount++;	831	removecount++;
1543	}	832	}
1544	}	833	}
1545	if (removecount!=0)	834	if (removecount != 0)
1546	new_draw_info_format(NDI_UNIQUE, 0, op, "killed %d pets.\n", removecount);	835	new_draw_info_format (NDI_UNIQUE, 0, op, "killed %d pets.\n", removecount);
1547	else	836	else
1548	new_draw_info(NDI_UNIQUE, 0, op, "Couldn't find any suitable pets to kill.\n");	837	new_draw_info (NDI_UNIQUE, 0, op, "Couldn't find any suitable pets to kill.\n");
1549	}	838	}
1550	return 0;	839	return 0;
1551	}	840	}
1552

Diff Legend

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

Comparing deliantra/server/server/c_misc.C (file contents): Revision 1.6 by root, Mon Sep 4 11:08:00 2006 UTC vs. Revision 1.55 by pippijn, Fri Mar 2 11:41:15 2007 UTC

Diff Legend

Comparing deliantra/server/server/c_misc.C (file contents):
Revision 1.6 by root, Mon Sep 4 11:08:00 2006 UTC vs.
Revision 1.55 by pippijn, Fri Mar 2 11:41:15 2007 UTC