ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/server/c_misc.C
(Generate patch)

Comparing deliantra/server/server/c_misc.C (file contents):
Revision 1.62 by root, Sun Jul 1 05:00:19 2007 UTC vs.
Revision 1.76 by root, Thu Oct 15 21:40:42 2009 UTC

1/* 1/*
2 * This file is part of Crossfire TRT, the Roguelike Realtime MORPG. 2 * This file is part of Deliantra, the Roguelike Realtime MMORPG.
3 * 3 *
4 * Copyright (©) 2005,2006,2007 Marc Alexander Lehmann / Robin Redeker / the Crossfire TRT team 4 * Copyright (©) 2005,2006,2007,2008 Marc Alexander Lehmann / Robin Redeker / the Deliantra team
5 * Copyright (©) 2002,2007 Mark Wedel & Crossfire Development Team 5 * Copyright (©) 2002,2007 Mark Wedel & Crossfire Development Team
6 * Copyright (©) 1992,2007 Frank Tore Johansen 6 * Copyright (©) 1992,2007 Frank Tore Johansen
7 * 7 *
8 * Crossfire TRT is free software: you can redistribute it and/or modify 8 * Deliantra is free software: you can redistribute it and/or modify it under
9 * it under the terms of the GNU General Public License as published by 9 * the terms of the Affero GNU General Public License as published by the
10 * the Free Software Foundation, either version 3 of the License, or 10 * Free Software Foundation, either version 3 of the License, or (at your
11 * (at your option) any later version. 11 * option) any later version.
12 * 12 *
13 * This program is distributed in the hope that it will be useful, 13 * This program is distributed in the hope that it will be useful,
14 * but WITHOUT ANY WARRANTY; without even the implied warranty of 14 * but WITHOUT ANY WARRANTY; without even the implied warranty of
15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 * GNU General Public License for more details. 16 * GNU General Public License for more details.
17 * 17 *
18 * You should have received a copy of the GNU General Public License 18 * You should have received a copy of the Affero GNU General Public License
19 * along with this program. If not, see <http://www.gnu.org/licenses/>. 19 * and the GNU General Public License along with this program. If not, see
20 * <http://www.gnu.org/licenses/>.
20 * 21 *
21 * The authors can be reached via e-mail to <crossfire@schmorp.de> 22 * The authors can be reached via e-mail to <support@deliantra.net>
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/* Handles misc. input request - things like hash table, malloc, maps, etc */ 29/* Handles misc. input request - things like hash table, malloc, maps, etc */
29 30
30int
31command_motd (object *op, char *params)
32{
33 display_motd (op);
34 return 1;
35}
36
37#ifdef DEBUG_MALLOC_LEVEL
38int
39command_malloc_verify (object *op, char *parms)
40{
41 extern int malloc_verify (void);
42
43 if (!malloc_verify ())
44 new_draw_info (NDI_UNIQUE, 0, op, "Heap is corrupted.");
45 else
46 new_draw_info (NDI_UNIQUE, 0, op, "Heap checks out OK.");
47 return 1;
48}
49#endif
50
51int
52command_whereabouts (object *op, char *params)
53{
54 //TODO: should obviously not waste space in struct region for this.
55 /*
56 * reset the counter on the region, then use it to store the number of
57 * players there.
58 * I don't know how thread-safe this would be, I suspect not very....
59 */
60 for_all_regions (rgn)
61 rgn->counter = 0;
62
63 for_all_players (pl)
64 if (pl->ob->map)
65 ++pl->ob->region ()->counter;
66
67 /* we only want to print out by places with a 'longname' field... */
68 for_all_regions (rgn)
69 {
70 if (!rgn->longname && rgn->counter > 0)
71 {
72 if (rgn->parent)
73 {
74 rgn->parent->counter += rgn->counter;
75 rgn->counter = 0;
76 }
77 else /*uh oh, we shouldn't be here. */
78 LOG (llevError, "command_whereabouts() Region %s with no longname has no parent", &rgn->name);
79 }
80 }
81
82 new_draw_info_format (NDI_UNIQUE, 0, op, "In the world currently there are:");
83
84 for_all_regions (rgn)
85 if (rgn->counter)
86 new_draw_info_format (NDI_UNIQUE, 0, op, "%u players %s", rgn->counter, &rgn->longname);
87
88 return 1;
89}
90
91typedef struct 31typedef struct
92{ 32{
93 char namebuf[MAX_BUF]; 33 char namebuf[MAX_BUF];
94 int login_order; 34 int login_order;
95} chars_names; 35} chars_names;
96 36
97int 37int
98command_time (object *op, char *params) 38command_time (object *op, char *params)
99{ 39{
100 print_tod (op); 40 print_tod (op);
101 return 1;
102}
103
104int
105command_weather (object *op, char *params)
106{
107#if 0
108 int wx, wy, temp, sky;
109 char buf[MAX_BUF];
110
111 if (settings.dynamiclevel < 1)
112 return 1;
113
114 if (op->map == NULL)
115 return 1;
116
117 if (worldmap_to_weathermap (op->x, op->y, &wx, &wy, op->map) != 0)
118 return 1;
119
120 if (QUERY_FLAG (op, FLAG_WIZ))
121 {
122 /* dump the weather, Dm style! Yo! */
123 new_draw_info_format (NDI_UNIQUE, 0, op, "Real temp: %d", real_world_temperature (op->x, op->y, op->map));
124 new_draw_info_format (NDI_UNIQUE, 0, op, "Base temp: %d", weathermap[wx][wy].temp);
125 new_draw_info_format (NDI_UNIQUE, 0, op, "Humid: %d", weathermap[wx][wy].humid);
126 new_draw_info_format (NDI_UNIQUE, 0, op, "Wind: dir=%d speed=%d", weathermap[wx][wy].winddir, weathermap[wx][wy].windspeed);
127 new_draw_info_format (NDI_UNIQUE, 0, op, "Pressure: %d", weathermap[wx][wy].pressure);
128 new_draw_info_format (NDI_UNIQUE, 0, op, "Avg Elevation: %d", weathermap[wx][wy].avgelev);
129 new_draw_info_format (NDI_UNIQUE, 0, op, "Rainfall: %d Water: %d", weathermap[wx][wy].rainfall, weathermap[wx][wy].water);
130 }
131
132 temp = real_world_temperature (op->x, op->y, op->map);
133 new_draw_info_format (NDI_UNIQUE, 0, op, "It's currently %d degrees " "Centigrade out.", temp);
134
135 /* humid */
136 if (weathermap[wx][wy].humid < 20)
137 new_draw_info (NDI_UNIQUE, 0, op, "It is very dry.");
138 else if (weathermap[wx][wy].humid < 40)
139 new_draw_info (NDI_UNIQUE, 0, op, "It is very comfortable today.");
140 else if (weathermap[wx][wy].humid < 60)
141 new_draw_info (NDI_UNIQUE, 0, op, "It is a bit muggy.");
142 else if (weathermap[wx][wy].humid < 80)
143 new_draw_info (NDI_UNIQUE, 0, op, "It is muggy.");
144 else
145 new_draw_info (NDI_UNIQUE, 0, op, "It is uncomfortably muggy.");
146
147 /* wind */
148 switch (weathermap[wx][wy].winddir)
149 {
150 case 1:
151 sprintf (buf, "north");
152 break;
153 case 2:
154 sprintf (buf, "northeast");
155 break;
156 case 3:
157 sprintf (buf, "east");
158 break;
159 case 4:
160 sprintf (buf, "southeast");
161 break;
162 case 5:
163 sprintf (buf, "south");
164 break;
165 case 6:
166 sprintf (buf, "southwest");
167 break;
168 case 7:
169 sprintf (buf, "west");
170 break;
171 case 8:
172 sprintf (buf, "northwest");
173 break;
174 }
175 if (weathermap[wx][wy].windspeed < 5)
176 new_draw_info_format (NDI_UNIQUE, 0, op, "There is a mild breeze " "coming from the %s.", buf);
177 else if (weathermap[wx][wy].windspeed < 10)
178 new_draw_info_format (NDI_UNIQUE, 0, op, "There is a strong breeze " "coming from the %s.", buf);
179 else if (weathermap[wx][wy].windspeed < 15)
180 new_draw_info_format (NDI_UNIQUE, 0, op, "There is a light wind " "coming from the %s.", buf);
181 else if (weathermap[wx][wy].windspeed < 25)
182 new_draw_info_format (NDI_UNIQUE, 0, op, "There is a strong wind " "coming from the %s.", buf);
183 else if (weathermap[wx][wy].windspeed < 35)
184 new_draw_info_format (NDI_UNIQUE, 0, op, "There is a heavy wind " "coming from the %s.", buf);
185 else
186 new_draw_info_format (NDI_UNIQUE, 0, op, "The wind from the %s is " "incredibly strong!", buf);
187
188 sky = weathermap[wx][wy].sky;
189 if (temp <= 0 && sky > SKY_OVERCAST && sky < SKY_FOG)
190 sky += 10; /*let it snow */
191 switch (sky)
192 {
193 case SKY_CLEAR:
194 new_draw_info (NDI_UNIQUE, 0, op, "There isn''t a cloud in the sky.");
195 break;
196 case SKY_LIGHTCLOUD:
197 new_draw_info (NDI_UNIQUE, 0, op, "There are a few light clouds in the sky.");
198 break;
199 case SKY_OVERCAST:
200 new_draw_info (NDI_UNIQUE, 0, op, "The sky is cloudy and dreary.");
201 break;
202 case SKY_LIGHT_RAIN:
203 new_draw_info (NDI_UNIQUE, 0, op, "It is raining softly.");
204 break;
205 case SKY_RAIN:
206 new_draw_info (NDI_UNIQUE, 0, op, "It is raining.");
207 break;
208 case SKY_HEAVY_RAIN:
209 new_draw_info (NDI_UNIQUE, 0, op, "It is raining heavily.");
210 break;
211 case SKY_HURRICANE:
212 new_draw_info (NDI_UNIQUE, 0, op, "There is a heavy storm! You should go inside!");
213 break;
214 case SKY_FOG:
215 new_draw_info (NDI_UNIQUE, 0, op, "It''s foggy and miserable.");
216 break;
217 case SKY_HAIL:
218 new_draw_info (NDI_UNIQUE, 0, op, "It''s hailing out! Take cover!");
219 break;
220 case SKY_LIGHT_SNOW:
221 new_draw_info (NDI_UNIQUE, 0, op, "Snow is gently falling from the sky.");
222 break;
223 case SKY_SNOW:
224 new_draw_info (NDI_UNIQUE, 0, op, "It''s snowing out.");
225 break;
226 case SKY_HEAVY_SNOW:
227 new_draw_info (NDI_UNIQUE, 0, op, "The snow is falling very heavily now.");
228 break;
229 case SKY_BLIZZARD:
230 new_draw_info (NDI_UNIQUE, 0, op, "A full blown blizzard is in effect. You might want to take cover!");
231 break;
232 }
233#endif
234 return 1;
235}
236
237int
238command_hiscore (object *op, char *params)
239{
240 display_high_score (op, op == NULL ? 9999 : 50, params);
241 return 1; 41 return 1;
242} 42}
243 43
244int 44int
245command_debug (object *op, char *params) 45command_debug (object *op, char *params)
… …
279 } 79 }
280 return 0; 80 return 0;
281} 81}
282 82
283int 83int
284command_dumpfriendlyobjects (object *op, char *params)
285{
286 dump_friendly_objects ();
287 return 0;
288}
289
290int
291command_printlos (object *op, char *params)
292{
293 if (op)
294 print_los (op);
295 return 0;
296}
297
298
299int
300command_version (object *op, char *params) 84command_version (object *op, char *params)
301{ 85{
302 version (op); 86 version (op);
303 return 0; 87 return 0;
304}
305
306#ifndef BUG_LOG
307# define BUG_LOG "bug_log"
308#endif
309void
310bug_report (const char *reportstring)
311{
312 FILE *fp;
313
314 if ((fp = fopen (BUG_LOG, "a")) != NULL)
315 {
316 fprintf (fp, "%s\n", reportstring);
317 fclose (fp);
318 }
319 else
320 {
321 LOG (llevError, "Cannot write bugs file %s: %s\n", BUG_LOG, strerror (errno));
322 }
323} 88}
324 89
325/* Prints out some useful information for the character. Everything we print 90/* Prints out some useful information for the character. Everything we print
326 * out can be determined by the docs, so we aren't revealing anything extra - 91 * out can be determined by the docs, so we aren't revealing anything extra -
327 * rather, we are making it convenient to find the values. params have 92 * rather, we are making it convenient to find the values. params have
… …
330int 95int
331command_statistics (object *pl, char *params) 96command_statistics (object *pl, char *params)
332{ 97{
333 if (!pl->contr) 98 if (!pl->contr)
334 return 1; 99 return 1;
335 new_draw_info_format (NDI_UNIQUE, 0, pl, " Experience: %" PRId64, pl->stats.exp);
336 new_draw_info_format (NDI_UNIQUE, 0, pl, " Next Level: %" PRId64, level_exp (pl->level + 1, pl->expmul));
337 new_draw_info (NDI_UNIQUE, 0, pl, "\nStat Nat/Real/Max");
338 100
339 new_draw_info_format (NDI_UNIQUE, 0, pl, "Str %2d/ %3d/%3d", 101 dynbuf_text &msg = msg_dynbuf; msg.clear ();
340 pl->contr->orig_stats.Str, pl->stats.Str, 20 + pl->arch->stats.Str); 102
341 new_draw_info_format (NDI_UNIQUE, 0, pl, "Dex %2d/ %3d/%3d", 103 msg << " Experience: " << pl->stats.exp << '\n'
342 pl->contr->orig_stats.Dex, pl->stats.Dex, 20 + pl->arch->stats.Dex); 104 << " Next Level: " << level_exp (pl->level + 1, pl->expmul) << '\n'
343 new_draw_info_format (NDI_UNIQUE, 0, pl, "Con %2d/ %3d/%3d", 105 << "\n Stat Nat/Real/Max\n";
344 pl->contr->orig_stats.Con, pl->stats.Con, 20 + pl->arch->stats.Con); 106
345 new_draw_info_format (NDI_UNIQUE, 0, pl, "Int %2d/ %3d/%3d", 107 for (int i = 0; i < NUM_STATS; ++i)
346 pl->contr->orig_stats.Int, pl->stats.Int, 20 + pl->arch->stats.Int); 108 msg.printf (" %s %2d/ %3d/%3d\n", short_stat_name [i], pl->contr->orig_stats.stat (i), pl->stats.stat (i), 20 + pl->arch->stats.stat (i));
347 new_draw_info_format (NDI_UNIQUE, 0, pl, "Wis %2d/ %3d/%3d", 109
348 pl->contr->orig_stats.Wis, pl->stats.Wis, 20 + pl->arch->stats.Wis); 110 msg << "\nYou are " << (pl->contr->peaceful ? "peaceful" : "hostile") << '.';
349 new_draw_info_format (NDI_UNIQUE, 0, pl, "Pow %2d/ %3d/%3d", 111
350 pl->contr->orig_stats.Pow, pl->stats.Pow, 20 + pl->arch->stats.Pow); 112 pl->contr->infobox (MSG_CHANNEL ("statistics"), msg);
351 new_draw_info_format (NDI_UNIQUE, 0, pl, "Cha %2d/ %3d/%3d",
352 pl->contr->orig_stats.Cha, pl->stats.Cha, 20 + pl->arch->stats.Cha);
353 new_draw_info_format (NDI_UNIQUE, 0, pl, "\nAttack Mode: %s", pl->contr->peaceful ? "Peaceful" : "Hostile");
354 113
355 /* Can't think of anything else to print right now */ 114 /* Can't think of anything else to print right now */
356 return 0; 115 return 0;
357} 116}
358 117
359int 118int
360command_fix_me (object *op, char *params) 119command_fix_me (object *op, char *params)
361{ 120{
362 sum_weight (op); 121 op->update_weight ();
363 op->update_stats (); 122 op->update_stats ();
364 new_draw_info (NDI_UNIQUE, 0, op, "Your character was fixed."); 123 new_draw_info (NDI_UNIQUE, 0, op, "Your character was fixed.");
365 124
366 return 1; 125 return 1;
367} 126}
368 127
369int 128int
370command_logs (object *op, char *params)
371{
372 new_draw_info (NDI_UNIQUE, 0, op, "Nobody is currently logging kills.");
373
374 return 1;
375}
376
377int
378command_bowmode (object *op, char *params) 129command_bowmode (object *op, char *params)
379{ 130{
380 bowtype_t oldtype = op->contr->bowtype; 131 bowtype_t oldtype = op->contr->bowtype;
381 static const char *const types[] = { "normal", "threewide", "spreadshot", "firenorth", 132 static const char *const types[] = {
133 "normal", "threewide", "spreadshot", "firenorth",
382 "firene", "fireeast", "firese", "firesouth", 134 "firene", "fireeast", "firese", "firesouth",
383 "firesw", "firewest", "firenw", "bestarrow" 135 "firesw", "firewest", "firenw", "bestarrow"
384 }; 136 };
385 char buf[MAX_BUF]; 137 char buf[MAX_BUF];
386 int i, found; 138 int i, found;
… …
402 } 154 }
403 155
404 if (!found) 156 if (!found)
405 { 157 {
406 sprintf (buf, "bowmode: Unknown options %s, valid options are:", params); 158 sprintf (buf, "bowmode: Unknown options %s, valid options are:", params);
159
407 for (i = 0; i <= bow_bestarrow; i++) 160 for (i = 0; i <= bow_bestarrow; i++)
408 { 161 {
409 strcat (buf, " "); 162 strcat (buf, " ");
410 strcat (buf, types[i]); 163 strcat (buf, types[i]);
411 if (i < bow_nw) 164 if (i < bow_nw)
… …
422} 175}
423 176
424int 177int
425command_showpets (object *op, char *params) 178command_showpets (object *op, char *params)
426{ 179{
427 objectlink *obl, *next;
428 int counter = 0, target = 0; 180 int counter = 0, target = 0;
429 int have_shown_pet = 0; 181 int have_shown_pet = 0;
430 182
183 dynbuf_text &msg = msg_dynbuf; msg.clear ();
184
431 if (params != NULL) 185 if (params)
432 target = atoi (params); 186 target = atoi (params);
187
433 for (obl = first_friendly_object; obl != NULL; obl = next) 188 for (objectlink *obl = first_friendly_object; obl; obl = obl->next)
434 { 189 {
435 object *ob = obl->ob; 190 object *ob = obl->ob;
436 191
437 next = obl->next;
438 if (ob->owner == op) 192 if (ob->owner == op)
439 { 193 {
440 if (target == 0) 194 if (target == 0)
441 { 195 {
442 if (counter == 0) 196 if (counter == 0)
443 new_draw_info (NDI_UNIQUE, 0, op, "Pets:"); 197 msg << "T<Pets>\n\n";
198
444 new_draw_info_format (NDI_UNIQUE, 0, op, "%d %s - level %d", ++counter, &ob->name, ob->level); 199 msg.printf (" %3d %s, level %d\n", ++counter, &ob->name, ob->level);
445 } 200 }
446 else if (!have_shown_pet && ++counter == target) 201 else if (!have_shown_pet && ++counter == target)
447 { 202 {
448 new_draw_info_format (NDI_UNIQUE, 0, op, "level %d %s", ob->level, &ob->name); 203 msg.printf ("T<%s>\n\n"
449 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); 204 " level %d\n"
450 /* this is not a nice way to do this, it should be made to be more like the statistics command */ 205 " %d/%d HP, %d/%d SP\n"
451 new_draw_info_format (NDI_UNIQUE, 0, op, "Str %d", ob->stats.Str); 206 " Str %2d\n"
452 new_draw_info_format (NDI_UNIQUE, 0, op, "Dex %d", ob->stats.Dex); 207 " Dex %2d\n"
453 new_draw_info_format (NDI_UNIQUE, 0, op, "Con %d", ob->stats.Con); 208 " Con %2d\n"
454 new_draw_info_format (NDI_UNIQUE, 0, op, "Int %d", ob->stats.Int); 209 " Int %2d\n"
455 new_draw_info_format (NDI_UNIQUE, 0, op, "Wis %d", ob->stats.Wis); 210 " Wis %2d\n"
456 new_draw_info_format (NDI_UNIQUE, 0, op, "Cha %d", ob->stats.Cha); 211 " Cha %2d\n"
457 new_draw_info_format (NDI_UNIQUE, 0, op, "Pow %d", ob->stats.Pow); 212 " Pow %2d\n"
458 new_draw_info_format (NDI_UNIQUE, 0, op, "wc %d damage %d ac %d ", ob->stats.wc, ob->stats.dam, ob->stats.ac); 213 " wc %d damage %d ac %d\n",
214 &ob->name,
215 &ob->name,
216 ob->stats.hp, ob->stats.maxhp, ob->stats.sp, ob->stats.maxsp,
217 ob->stats.Str,
218 ob->stats.Dex,
219 ob->stats.Con,
220 ob->stats.Int,
221 ob->stats.Wis,
222 ob->stats.Cha,
223 ob->stats.Pow,
224 ob->stats.wc, ob->stats.dam, ob->stats.ac);
225
459 have_shown_pet = 1; 226 have_shown_pet = 1;
460 } 227 }
461 } 228 }
462 } 229 }
230
463 if (counter == 0) 231 if (counter == 0)
464 new_draw_info (NDI_UNIQUE, 0, op, "you have no pets."); 232 msg << "you have no pets.";
465 else if (target != 0 && have_shown_pet == 0) 233 else if (target != 0 && have_shown_pet == 0)
466 new_draw_info (NDI_UNIQUE, 0, op, "no such pet."); 234 msg << "no such pet.";
235
236 op->contr->infobox (MSG_CHANNEL ("pets"), msg);
237
467 return 0; 238 return 0;
468} 239}
469 240
470int 241int
471command_resistances (object *op, char *params) 242command_resistances (object *op, char *params)
472{ 243{
473 int i; 244 dynbuf_text &msg = msg_dynbuf; msg.clear ();
474 245
475 if (!op) 246 msg << "Resistances:\n\n";
476 return 0;
477 247
478 for (i = 0; i < NROFATTACKS; i++) 248 for (int i = 0; i < NROFATTACKS; i++)
479 {
480 if (i == ATNR_INTERNAL) 249 if (i != ATNR_INTERNAL)
481 continue; 250 msg.printf (" %-20s %+4d\n", attacktype_desc [i], op->resist [i]);
482
483 new_draw_info_format (NDI_UNIQUE, 0, op, "%-20s %+5d", attacktype_desc[i], op->resist[i]);
484 }
485 251
486 /* If dragon player, let's display natural resistances */ 252 /* If dragon player, let's display natural resistances */
487 if (is_dragon_pl (op)) 253 if (is_dragon_pl (op))
488 {
489 int attack;
490 object *tmp;
491
492 for (tmp = op->inv; tmp != NULL; tmp = tmp->below) 254 for (object *tmp = op->inv; tmp; tmp = tmp->below)
493 {
494 if ((tmp->type == FORCE) && (strcmp (tmp->arch->archname, "dragon_skin_force") == 0)) 255 if ((tmp->type == FORCE) && tmp->arch->archname == shstr_dragon_skin_force)
495 { 256 {
496 new_draw_info (NDI_UNIQUE, 0, op, "\nNatural skin resistances:"); 257 msg << "\nOf those, these are natural skin resistances:\n\n";
258
497 for (attack = 0; attack < NROFATTACKS; attack++) 259 for (int attack = 0; attack < NROFATTACKS; attack++)
498 {
499 if (atnr_is_dragon_enabled (attack)) 260 if (atnr_is_dragon_enabled (attack))
500 { 261 msg.printf (" %-20s %+4d\n", change_resist_msg [attack], tmp->resist [attack]);
501 new_draw_info_format (NDI_UNIQUE, 0, op, "%s: %d", change_resist_msg[attack], tmp->resist[attack]); 262
502 }
503 }
504 break; 263 break;
505 } 264 }
506 } 265
507 } 266 op->contr->infobox (MSG_CHANNEL ("resistances"), msg);
508 267
509 return 0; 268 return 0;
510} 269}
511 270
512/* 271/*

Diff Legend

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