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

Comparing deliantra/server/server/c_misc.C (file contents):
Revision 1.30 by root, Mon Dec 25 14:54:44 2006 UTC vs.
Revision 1.44 by root, Thu Feb 15 04:04:22 2007 UTC

…		…
1	/*	1	/*
2	CrossFire, A Multiplayer game for X-windows	2	* CrossFire, A Multiplayer game for X-windows
3		3	*
		4	* Copyright (C) 2005, 2006, 2007 Marc Lehmann & Crossfire+ Development Team
4	Copyright (C) 2002 Mark Wedel & Crossfire Development Team	5	* Copyright (C) 2002 Mark Wedel & Crossfire Development Team
5	Copyright (C) 1992 Frank Tore Johansen	6	* Copyright (C) 1992 Frank Tore Johansen
6		7	*
7	This program is free software; you can redistribute it and/or modify	8	* This program is free software; you can redistribute it and/or modify
8	it under the terms of the GNU General Public License as published by	9	* it under the terms of the GNU General Public License as published by
9	the Free Software Foundation; either version 2 of the License, or	10	* the Free Software Foundation; either version 2 of the License, or
10	(at your option) any later version.	11	* (at your option) any later version.
11		12	*
12	This program is distributed in the hope that it will be useful,	13	* This program is distributed in the hope that it will be useful,
13	but WITHOUT ANY WARRANTY; without even the implied warranty of	14	* but WITHOUT ANY WARRANTY; without even the implied warranty of
14	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the	15	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15	GNU General Public License for more details.	16	* GNU General Public License for more details.
16		17	*
17	You should have received a copy of the GNU General Public License	18	* You should have received a copy of the GNU General Public License
18	along with this program; if not, write to the Free Software	19	* along with this program; if not, write to the Free Software
19	Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.	20	* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
20		21	*
21	The authors can be reached via e-mail at <crossfire@schmorp.de>	22	* The authors can be reached via e-mail at <crossfire@schmorp.de>
22	*/	23	*/
23		24
24	#include <global.h>	25	#include <global.h>
25	#include <loader.h>	26	#include <loader.h>
26	#include <sproto.h>	27	#include <sproto.h>
27		28
28	#include <dirent.h>
29
30	extern weathermap_t **weathermap;
31
32	/* Handles misc. input request - things like hash table, malloc, maps,	29	/* Handles misc. input request - things like hash table, malloc, maps,
33	* who, etc.	30	* who, etc.
34	*/	31	*/
35
36	void
37	map_info (object op, char search)
38	{
39	maptile *m;
40	char buf[MAX_BUF], map_path[MAX_BUF];
41	long sec = time (0);
42
43	new_draw_info_format (NDI_UNIQUE, 0, op, "Current time is: %02ld:%02ld:%02ld.", (sec % 86400) / 3600, (sec % 3600) / 60, sec % 60);
44	new_draw_info (NDI_UNIQUE, 0, op, "Path Pl PlM IM TO Dif Reset");
45	for (m = first_map; m != NULL; m = m->next)
46	{
47
48	if (search && strstr (m->path, search) == NULL)
49	continue; /* Skip unwanted maps */
50	/* Print out the last 18 characters of the map name... */
51	if (strlen (m->path) <= 18)
52	strcpy (map_path, m->path);
53	else
54	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	(m->reset_time % 86400) / 3600, (m->reset_time % 3600) / 60, m->reset_time % 60);
59	new_draw_info (NDI_UNIQUE, 0, op, buf);
60	}
61	}
62		32
63	/* This command dumps the body information for object *op.	33	/* This command dumps the body information for object *op.
64	* it doesn't care what the params are.	34	* it doesn't care what the params are.
65	* This is mostly meant as a debug command.	35	* This is mostly meant as a debug command.
66	*/	36	*/
109	if (params == NULL)	79	if (params == NULL)
110	{	80	{
111	new_draw_info (NDI_UNIQUE, 0, op, "what bugs?");	81	new_draw_info (NDI_UNIQUE, 0, op, "what bugs?");
112	return 1;	82	return 1;
113	}	83	}
114	strcpy (buf, op->name);	84	assign (buf, op->name);
115	strcat (buf, " bug-reports: ");	85	strcat (buf, " bug-reports: ");
116	strncat (buf, ++params, MAX_BUF - strlen (buf));	86	strncat (buf, ++params, MAX_BUF - strlen (buf));
117	buf[MAX_BUF - 1] = '\0';	87	buf[MAX_BUF - 1] = '\0';
118	bug_report (buf);	88	bug_report (buf);
119	LOG (llevError, "%s\n", buf);	89	LOG (llevError, "%s\n", buf);
…		…
128	* a description of it. It is there merely for flavour text.	98	* a description of it. It is there merely for flavour text.
129	*/	99	*/
130	void	100	void
131	current_region_info (object *op)	101	current_region_info (object *op)
132	{	102	{
133	/*	103	if (region *reg = op->region ())
134	* Ok I /suppose/ I should write a seperate function for this, but it isn't
135	* going to be /that/ slow, and won't get called much
136	*/
137	region *r = get_region_by_name (get_name_of_region_for_map (op->map));
138
139	if (!r)
140	return;
141	/* This should only be possible if regions are not operating on this server. */
142
143	new_draw_info_format (NDI_UNIQUE, 0, op, "You are in %s. \n %s", get_region_longname (r), get_region_msg (r));	104	new_draw_info_format (NDI_UNIQUE, 0, op, "You are %s.\n%s", &reg->longname, &reg->msg);
144	}	105	}
145		106
146	void	107	void
147	current_map_info (object *op)	108	current_map_info (object *op)
148	{	109	{
149	maptile *m = op->map;	110	maptile *m = op->map;
150		111
151	if (!m)	112	if (!m)
152	return;	113	return;
153		114
154	new_draw_info_format (NDI_UNIQUE, 0, op, "%s (%s) in %s", m->name, m->path, get_name_of_region_for_map (m));	115	new_draw_info_format (NDI_UNIQUE, 0, op, "%s (%s) %s", &m->name, &m->path, &op->region ()->longname);
155		116
156	if (QUERY_FLAG (op, FLAG_WIZ))	117	if (QUERY_FLAG (op, FLAG_WIZ))
157	{
158	new_draw_info_format (NDI_UNIQUE, 0, op,	118	new_draw_info_format (NDI_UNIQUE, 0, op,
159	"players:%d difficulty:%d size:%dx%d start:%dx%d timeout %ld",	119	"players:%d difficulty:%d size:%dx%d start:%dx%d timeout %ld",
160	m->players, m->difficulty, m->width, m->height, m->enter_x, m->enter_y, m->timeout);	120	m->players, m->difficulty, m->width, m->height, m->enter_x, m->enter_y, m->timeout);
161		121
162	}
163	if (m->msg)	122	if (m->msg)
164	new_draw_info (NDI_UNIQUE, NDI_NAVY, op, m->msg);	123	new_draw_info (NDI_UNIQUE, NDI_NAVY, op, m->msg);
165	}	124	}
166		125
167	#ifdef DEBUG_MALLOC_LEVEL	126	#ifdef DEBUG_MALLOC_LEVEL
…		…
179	#endif	138	#endif
180		139
181	int	140	int
182	command_whereabouts (object op, char params)	141	command_whereabouts (object op, char params)
183	{	142	{
184		143	//TODO: should obviously not waste space in struct region for this.
185	region *reg;
186	player *pl;
187
188	/*	144	/*
189	* reset the counter on the region, then use it to store the number of	145	* reset the counter on the region, then use it to store the number of
190	* players there.	146	* players there.
191	* I don't know how thread-safe this would be, I suspect not very....	147	* I don't know how thread-safe this would be, I suspect not very....
192	*/	148	*/
193	for (reg = first_region; reg != NULL; reg = reg->next)	149	for_all_regions (rgn)
194	{
195	reg->counter = 0;	150	rgn->counter = 0;
196	}	151
197	for_all_players (pl)	152	for_all_players (pl)
198	if (pl->ob->map != NULL)	153	if (pl->ob->map)
199	get_region_by_map (pl->ob->map)->counter++;	154	++pl->ob->region ()->counter;
200		155
201	/* we only want to print out by places with a 'longname' field... */	156	/* we only want to print out by places with a 'longname' field... */
202	for (reg = first_region; reg != NULL; reg = reg->next)	157	for_all_regions (rgn)
203	{	158	{
204	if (reg->longname == NULL && reg->counter > 0)	159	if (!rgn->longname && rgn->counter > 0)
205	{	160	{
206	if (reg->parent != NULL)	161	if (rgn->parent)
207	{	162	{
208	reg->parent->counter += reg->counter;	163	rgn->parent->counter += rgn->counter;
209	reg->counter = 0;	164	rgn->counter = 0;
210	}	165	}
211	else /uh oh, we shouldn't be here. /	166	else /uh oh, we shouldn't be here. /
212	LOG (llevError, "command_whereabouts() Region %s with no longname has no parent", reg->name);	167	LOG (llevError, "command_whereabouts() Region %s with no longname has no parent", &rgn->name);
213	}	168	}
214	}	169	}
		170
215	new_draw_info_format (NDI_UNIQUE, 0, op, "In the world currently there are:");	171	new_draw_info_format (NDI_UNIQUE, 0, op, "In the world currently there are:");
216	for (reg = first_region; reg != NULL; reg = reg->next)	172
		173	for_all_regions (rgn)
217	if (reg->counter > 0)	174	if (rgn->counter)
218	new_draw_info_format (NDI_UNIQUE, 0, op, "%u players in %s", reg->counter, get_region_longname (reg));	175	new_draw_info_format (NDI_UNIQUE, 0, op, "%u players %s", rgn->counter, &rgn->longname);
		176
219	return 1;	177	return 1;
220	}	178	}
221		179
222	typedef struct	180	typedef struct
223	{	181	{
…		…
249	current_region_info (op);	207	current_region_info (op);
250	return 1;	208	return 1;
251	}	209	}
252		210
253	int	211	int
254	command_maps (object op, char params)
255	{
256	map_info (op, params);
257	return 1;
258	}
259
260	int
261	command_time (object op, char params)	212	command_time (object op, char params)
262	{	213	{
263	print_tod (op);	214	print_tod (op);
264	return 1;	215	return 1;
265	}	216	}
266		217
267	int	218	int
268	command_weather (object op, char params)	219	command_weather (object op, char params)
269	{	220	{
		221	#if 0
270	int wx, wy, temp, sky;	222	int wx, wy, temp, sky;
271	char buf[MAX_BUF];	223	char buf[MAX_BUF];
272		224
273	if (settings.dynamiclevel < 1)	225	if (settings.dynamiclevel < 1)
274	return 1;	226	return 1;
…		…
390	break;	342	break;
391	case SKY_BLIZZARD:	343	case SKY_BLIZZARD:
392	new_draw_info (NDI_UNIQUE, 0, op, "A full blown blizzard is in effect. You might want to take cover!");	344	new_draw_info (NDI_UNIQUE, 0, op, "A full blown blizzard is in effect. You might want to take cover!");
393	break;	345	break;
394	}	346	}
395	return 1;	347	#endif
396	}
397
398	int
399	command_archs (object op, char params)
400	{
401	arch_info (op);
402	return 1;	348	return 1;
403	}	349	}
404		350
405	int	351	int
406	command_hiscore (object op, char params)	352	command_hiscore (object op, char params)
…		…
457	dump_friendly_objects ();	403	dump_friendly_objects ();
458	return 0;	404	return 0;
459	}	405	}
460		406
461	int	407	int
462	command_dumpmap (object op, char params)
463	{
464	if (op)
465	dump_map (op->map);
466	return 0;
467	}
468
469	int
470	command_dumpallmaps (object op, char params)
471	{
472	dump_all_maps ();
473	return 0;
474	}
475
476	int
477	command_printlos (object op, char params)	408	command_printlos (object op, char params)
478	{	409	{
479	if (op)	410	if (op)
480	print_los (op);	411	print_los (op);
481	return 0;	412	return 0;
…		…
486	command_version (object op, char params)	417	command_version (object op, char params)
487	{	418	{
488	version (op);	419	version (op);
489	return 0;	420	return 0;
490	}	421	}
491
492		422
493	#ifndef BUG_LOG	423	#ifndef BUG_LOG
494	# define BUG_LOG "bug_log"	424	# define BUG_LOG "bug_log"
495	#endif	425	#endif
496	void	426	void
…		…
609	op->update_stats ();	539	op->update_stats ();
610	return 1;	540	return 1;
611	}	541	}
612		542
613	int	543	int
614	command_players (object op, char paramss)
615	{
616	char buf[MAX_BUF];
617	char *t;
618	DIR *Dir;
619
620	sprintf (buf, "%s/%s/", settings.localdir, settings.playerdir);
621	t = buf + strlen (buf);
622	if ((Dir = opendir (buf)) != NULL)
623	{
624	const struct dirent *Entry;
625
626	while ((Entry = readdir (Dir)))
627	{
628	/* skip '.' , '..' */
629	if (!((Entry->d_name[0] == '.' && Entry->d_name[1] == '\0') \|\|
630	(Entry->d_name[0] == '.' && Entry->d_name[1] == '.' && Entry->d_name[2] == '\0')))
631	{
632	struct stat Stat;
633
634	strcpy (t, Entry->d_name);
635	if (stat (buf, &Stat) == 0)
636	{
637	/* This was not posix compatible
638	* if ((Stat.st_mode & S_IFMT)==S_IFDIR) {
639	*/
640	if (S_ISDIR (Stat.st_mode))
641	{
642	char buf2[MAX_BUF];
643	struct tm *tm = localtime (&Stat.st_mtime);
644
645	sprintf (buf2, "%s\t%04d %02d %02d %02d %02d %02d",
646	Entry->d_name, 1900 + tm->tm_year, 1 + tm->tm_mon, tm->tm_mday, tm->tm_hour, tm->tm_min, tm->tm_sec);
647	new_draw_info (NDI_UNIQUE, 0, op, buf2);
648	}
649	}
650	}
651	}
652	}
653	closedir (Dir);
654	return 0;
655	}
656
657
658
659	int
660	command_logs (object op, char params)	544	command_logs (object op, char params)
661	{	545	{
662	new_draw_info (NDI_UNIQUE, 0, op, "Nobody is currently logging kills.");	546	new_draw_info (NDI_UNIQUE, 0, op, "Nobody is currently logging kills.");
663		547
664	return 1;	548	return 1;
…		…
685	else	569	else
686	{	570	{
687	new_draw_info_format (NDI_UNIQUE, 0, op, "applymode: Unknown options %s, valid options are nochoice, never, always", params);	571	new_draw_info_format (NDI_UNIQUE, 0, op, "applymode: Unknown options %s, valid options are nochoice, never, always", params);
688	return 0;	572	return 0;
689	}	573	}
		574
690	new_draw_info_format (NDI_UNIQUE, 0, op, "Applymode %s set to %s",	575	new_draw_info_format (NDI_UNIQUE, 0, op, "Applymode %s set to %s",
691	(unapply == op->contr->unapply ? "" : " now"), types[op->contr->unapply]);	576	(unapply == op->contr->unapply ? "" : " now"), types[op->contr->unapply]);
692	return 1;	577	return 1;
693	}	578	}
694		579
…		…
716	found++;	601	found++;
717	op->contr->bowtype = (bowtype_t) i;	602	op->contr->bowtype = (bowtype_t) i;
718	break;	603	break;
719	}	604	}
720	}	605	}
		606
721	if (!found)	607	if (!found)
722	{	608	{
723	sprintf (buf, "bowmode: Unknown options %s, valid options are:", params);	609	sprintf (buf, "bowmode: Unknown options %s, valid options are:", params);
724	for (i = 0; i <= bow_bestarrow; i++)	610	for (i = 0; i <= bow_bestarrow; i++)
725	{	611	{
…		…
731	strcat (buf, ".");	617	strcat (buf, ".");
732	}	618	}
733	new_draw_info_format (NDI_UNIQUE, 0, op, buf);	619	new_draw_info_format (NDI_UNIQUE, 0, op, buf);
734	return 0;	620	return 0;
735	}	621	}
		622
736	new_draw_info_format (NDI_UNIQUE, 0, op, "bowmode %s set to %s", (oldtype == op->contr->bowtype ? "" : "now"), types[op->contr->bowtype]);	623	new_draw_info_format (NDI_UNIQUE, 0, op, "bowmode %s set to %s", (oldtype == op->contr->bowtype ? "" : "now"), types[op->contr->bowtype]);
737	return 1;	624	return 1;
738	}	625	}
739		626
740	int	627	int
…		…
1131	return 0;	1018	return 0;
1132	}	1019	}
1133	}	1020	}
1134		1021
1135	int	1022	int
1136	command_quit (object op, char params)
1137	{
1138	new_draw_info (NDI_UNIQUE, 0, op,
1139	"Quitting will delete your character PERMANENTLY. If you are sure you want to do this, then use the quit_character command instead of quit.");
1140	return 1;
1141	}
1142
1143	int
1144	command_real_quit (object op, char params)
1145	{
1146	send_query (op->contr->ns, CS_QUERY_SINGLECHAR, "Quitting will delete your character.\nAre you sure you want to quit (y/n):");
1147
1148	op->contr->ns->state = ST_CONFIRM_QUIT;
1149	return 1;
1150	}
1151
1152	/*
1153	* don't allow people to exit explore mode. It otherwise becomes
1154	* really easy to abuse this.
1155	*/
1156	int
1157	command_explore (object op, char params)
1158	{
1159	if (settings.explore_mode == FALSE)
1160	return 1;
1161	/*
1162	* I guess this is the best way to see if we are solo or not. Actually,
1163	* are there any cases when first_player->next==NULL and we are not solo?
1164	*/
1165	if ((first_player != op->contr) \|\| (first_player->next != NULL))
1166	{
1167	new_draw_info (NDI_UNIQUE, 0, op, "You can not enter explore mode if you are in a party");
1168	}
1169	else if (op->contr->explore)
1170	new_draw_info (NDI_UNIQUE, 0, op, "There is no return from explore mode");
1171	else
1172	{
1173	op->contr->explore = 1;
1174	new_draw_info (NDI_UNIQUE, 0, op, "You are now in explore mode");
1175	}
1176	return 1;
1177	}
1178
1179	int
1180	command_sound (object op, char params)	1023	command_sound (object op, char params)
1181	{	1024	{
1182	if (op->contr->ns->sound)	1025	if (op->contr->ns->sound)
1183	{	1026	{
1184	op->contr->ns->sound = 0;	1027	op->contr->ns->sound = 0;
…		…
1189	op->contr->ns->sound = 1;	1032	op->contr->ns->sound = 1;
1190	new_draw_info (NDI_UNIQUE, 0, op, "The sounds are enabled.");	1033	new_draw_info (NDI_UNIQUE, 0, op, "The sounds are enabled.");
1191	}	1034	}
1192		1035
1193	return 1;	1036	return 1;
1194	}
1195
1196	int
1197	explore_mode (void)
1198	{
1199	player *pl;
1200
1201	if (settings.explore_mode == TRUE)
1202	{
1203	for (pl = first_player; pl != (player *) NULL; pl = pl->next)
1204	if (pl->explore)
1205	return 1;
1206	}
1207	return 0;
1208	}	1037	}
1209		1038
1210	int	1039	int
1211	command_title (object op, char params)	1040	command_title (object op, char params)
1212	{	1041	{
…		…
1252	strcpy (op->contr->own_title, params);	1081	strcpy (op->contr->own_title, params);
1253	return 1;	1082	return 1;
1254	}	1083	}
1255		1084
1256	int	1085	int
1257	command_save (object op, char params)
1258	{
1259	if (!op->stats.exp)
1260	new_draw_info (NDI_UNIQUE, 0, op, "You don't deserve to save yet.");
1261	else
1262	{
1263	op->contr->save ();
1264	new_draw_info (NDI_UNIQUE, 0, op, "You have been saved.");
1265	}
1266
1267	return 1;
1268	}
1269
1270	int
1271	command_peaceful (object op, char params)	1086	command_peaceful (object op, char params)
1272	{	1087	{
1273	new_draw_info (NDI_UNIQUE, 0, op,	1088	new_draw_info (NDI_UNIQUE, 0, op,
1274	"You cannot change your peaceful setting with this command."	1089	"You cannot change your peaceful setting with this command."
1275	" Please speak to the priest in the temple of Gorokh"	1090	" Please speak to the priest in the temple of Gorokh"
…		…
1314	new_draw_info (NDI_UNIQUE, 0, op, "You are braced.");	1129	new_draw_info (NDI_UNIQUE, 0, op, "You are braced.");
1315	else	1130	else
1316	new_draw_info (NDI_UNIQUE, 0, op, "Not braced.");	1131	new_draw_info (NDI_UNIQUE, 0, op, "Not braced.");
1317		1132
1318	op->update_stats ();	1133	op->update_stats ();
1319	return 0;
1320	}
1321
1322	int
1323	command_style_map_info (object op, char params)
1324	{
1325	extern maptile *styles;
1326	maptile *mp;
1327	int maps_used = 0, mapmem = 0, objects_used = 0, x, y;
1328	object *tmp;
1329
1330	for (mp = styles; mp != NULL; mp = mp->next)
1331	{
1332	maps_used++;
1333	mapmem += mp->width * mp->height * (sizeof (object *) + sizeof (mapspace)) + sizeof (maptile);
1334	for (x = 0; x < mp->width; x++)
1335	{
1336	for (y = 0; y < mp->height; y++)
1337	{
1338	for (tmp = GET_MAP_OB (mp, x, y); tmp != NULL; tmp = tmp->above)
1339	objects_used++;
1340	}
1341	}
1342	}
1343	new_draw_info_format (NDI_UNIQUE, 0, op, "Style maps loaded: %d", maps_used);
1344	new_draw_info (NDI_UNIQUE, 0, op, "Memory used, not");
1345	new_draw_info_format (NDI_UNIQUE, 0, op, "including objects: %d", mapmem);
1346	new_draw_info_format (NDI_UNIQUE, 0, op, "Style objects: %d", objects_used);
1347	new_draw_info_format (NDI_UNIQUE, 0, op, "Mem for objects: %d", objects_used * sizeof (object));
1348	return 0;	1134	return 0;
1349	}	1135	}
1350		1136
1351	int	1137	int
1352	command_kill_pets (object op, char params)	1138	command_kill_pets (object op, char params)

Diff Legend

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

Comparing deliantra/server/server/c_misc.C (file contents): Revision 1.30 by root, Mon Dec 25 14:54:44 2006 UTC vs. Revision 1.44 by root, Thu Feb 15 04:04:22 2007 UTC

Diff Legend

Comparing deliantra/server/server/c_misc.C (file contents):
Revision 1.30 by root, Mon Dec 25 14:54:44 2006 UTC vs.
Revision 1.44 by root, Thu Feb 15 04:04:22 2007 UTC