ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/server/c_misc.C
Revision: 1.55
Committed: Fri Mar 2 11:41:15 2007 UTC (17 years, 3 months ago) by pippijn
Content type: text/plain
Branch: MAIN
CVS Tags: rel-2_0
Changes since 1.54: +1 -37 lines
Log Message: 
body in perl

File Contents

# User Rev Content
1 elmex 1.1 /*
2 pippijn 1.36 * CrossFire, A Multiplayer game for X-windows
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>
23     */
24 elmex 1.1
25     #include <global.h>
26     #include <loader.h>
27 root 1.21 #include <sproto.h>
28    
29 pippijn 1.55 /* Handles misc. input request - things like hash table, malloc, maps, etc */
30 elmex 1.1
31 root 1.7 int
32     command_motd (object *op, char *params)
33 elmex 1.1 {
34 root 1.7 display_motd (op);
35     return 1;
36 elmex 1.1 }
37    
38     #ifdef DEBUG_MALLOC_LEVEL
39 root 1.7 int
40     command_malloc_verify (object *op, char *parms)
41 elmex 1.1 {
42 root 1.7 extern int malloc_verify (void);
43 pippijn 1.54
44 root 1.7 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     }
50 elmex 1.1 #endif
51    
52 root 1.7 int
53     command_whereabouts (object *op, char *params)
54     {
55 root 1.38 //TODO: should obviously not waste space in struct region for this.
56 root 1.7 /*
57     * reset the counter on the region, then use it to store the number of
58     * players there.
59     * I don't know how thread-safe this would be, I suspect not very....
60     */
61 root 1.41 for_all_regions (rgn)
62     rgn->counter = 0;
63 root 1.38
64 root 1.28 for_all_players (pl)
65 root 1.38 if (pl->ob->map)
66     ++pl->ob->region ()->counter;
67 root 1.7
68     /* we only want to print out by places with a 'longname' field... */
69 root 1.41 for_all_regions (rgn)
70 root 1.7 {
71 root 1.41 if (!rgn->longname && rgn->counter > 0)
72 root 1.7 {
73 root 1.41 if (rgn->parent)
74 root 1.7 {
75 root 1.41 rgn->parent->counter += rgn->counter;
76     rgn->counter = 0;
77 root 1.3 }
78 root 1.7 else /*uh oh, we shouldn't be here. */
79 root 1.41 LOG (llevError, "command_whereabouts() Region %s with no longname has no parent", &rgn->name);
80 root 1.3 }
81     }
82 root 1.38
83 root 1.7 new_draw_info_format (NDI_UNIQUE, 0, op, "In the world currently there are:");
84 root 1.38
85 root 1.41 for_all_regions (rgn)
86     if (rgn->counter)
87 root 1.44 new_draw_info_format (NDI_UNIQUE, 0, op, "%u players %s", rgn->counter, &rgn->longname);
88 root 1.38
89 root 1.7 return 1;
90 elmex 1.1 }
91    
92     typedef struct
93 root 1.7 {
94     char namebuf[MAX_BUF];
95     int login_order;
96     } chars_names;
97 elmex 1.1
98 root 1.7 int
99     command_time (object *op, char *params)
100 elmex 1.1 {
101 root 1.2 print_tod (op);
102     return 1;
103     }
104 elmex 1.1
105 root 1.7 int
106     command_weather (object *op, char *params)
107 elmex 1.1 {
108 root 1.33 #if 0
109 root 1.7 int wx, wy, temp, sky;
110     char buf[MAX_BUF];
111    
112     if (settings.dynamiclevel < 1)
113     return 1;
114    
115     if (op->map == NULL)
116     return 1;
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 elmex 1.1
148 root 1.7 /* 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 elmex 1.1
189 root 1.7 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 elmex 1.1 }
234 root 1.33 #endif
235 root 1.7 return 1;
236 elmex 1.1 }
237    
238 root 1.7 int
239     command_hiscore (object *op, char *params)
240 elmex 1.1 {
241 root 1.7 display_high_score (op, op == NULL ? 9999 : 50, params);
242     return 1;
243     }
244 elmex 1.1
245 root 1.7 int
246     command_debug (object *op, char *params)
247 elmex 1.1 {
248 root 1.7 int i;
249     char buf[MAX_BUF];
250    
251     if (params == NULL || !sscanf (params, "%d", &i))
252     {
253     sprintf (buf, "Global debug level is %d.", settings.debug);
254     new_draw_info (NDI_UNIQUE, 0, op, buf);
255 elmex 1.1 return 1;
256     }
257 root 1.7 settings.debug = (enum LogLevel) FABS (i);
258     sprintf (buf, "Set debug level to %d.", i);
259     new_draw_info (NDI_UNIQUE, 0, op, buf);
260     return 1;
261     }
262 elmex 1.1
263    
264     /*
265     * Those dumps should be just one dump with good parser
266     */
267    
268 root 1.7 int
269     command_dumpbelow (object *op, char *params)
270 elmex 1.1 {
271 root 1.7 if (op && op->below)
272     {
273 root 1.14 char *dump = dump_object (op->below);
274     new_draw_info (NDI_UNIQUE, 0, op, dump);
275     free (dump);
276 elmex 1.1 /* Let's push that item on the dm's stack */
277 root 1.7 dm_stack_push (op->contr, op->below->count);
278     }
279 elmex 1.1 return 0;
280     }
281    
282 root 1.7 int
283     command_dumpfriendlyobjects (object *op, char *params)
284 elmex 1.1 {
285 root 1.7 dump_friendly_objects ();
286 elmex 1.1 return 0;
287     }
288    
289 root 1.7 int
290     command_printlos (object *op, char *params)
291 elmex 1.1 {
292     if (op)
293 root 1.7 print_los (op);
294 elmex 1.1 return 0;
295     }
296    
297    
298 root 1.7 int
299     command_version (object *op, char *params)
300 elmex 1.1 {
301 root 1.7 version (op);
302     return 0;
303 elmex 1.1 }
304    
305     #ifndef BUG_LOG
306 root 1.7 # define BUG_LOG "bug_log"
307 elmex 1.1 #endif
308 root 1.7 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     }
318     else
319     {
320     LOG (llevError, "Cannot write bugs file %s: %s\n", BUG_LOG, strerror (errno));
321 elmex 1.1 }
322 root 1.7 }
323    
324 elmex 1.1 /* Prints out some useful information for the character. Everything we print
325     * out can be determined by the docs, so we aren't revealing anything extra -
326     * rather, we are making it convenient to find the values. params have
327     * no meaning here.
328     */
329 root 1.7 int
330     command_statistics (object *pl, char *params)
331 elmex 1.1 {
332 root 1.7 if (!pl->contr)
333     return 1;
334 root 1.18 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 root 1.7 new_draw_info (NDI_UNIQUE, 0, pl, "\nStat Nat/Real/Max");
337 elmex 1.1
338 root 1.7 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 elmex 1.1
354 root 1.7 /* Can't think of anything else to print right now */
355     return 0;
356 elmex 1.1 }
357    
358 root 1.7 int
359     command_fix_me (object *op, char *params)
360 elmex 1.1 {
361 root 1.7 sum_weight (op);
362 root 1.27 op->update_stats ();
363 pippijn 1.51 new_draw_info (NDI_UNIQUE, 0, op, "Your character was fixed.");
364    
365 root 1.7 return 1;
366 elmex 1.1 }
367    
368 root 1.7 int
369     command_logs (object *op, char *params)
370 elmex 1.1 {
371 root 1.10 new_draw_info (NDI_UNIQUE, 0, op, "Nobody is currently logging kills.");
372 elmex 1.1
373 root 1.7 return 1;
374 elmex 1.1 }
375    
376 root 1.7 int
377     command_bowmode (object *op, char *params)
378 elmex 1.1 {
379 root 1.7 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     };
384     char buf[MAX_BUF];
385     int i, found;
386    
387     if (!params)
388     {
389     new_draw_info_format (NDI_UNIQUE, 0, op, "bowmode is set to %s", types[op->contr->bowtype]);
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 root 1.3 }
401 elmex 1.1 }
402 root 1.38
403 root 1.7 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 root 1.3 }
415 root 1.7 new_draw_info_format (NDI_UNIQUE, 0, op, buf);
416     return 0;
417 elmex 1.1 }
418 root 1.38
419 root 1.7 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 elmex 1.1 }
422    
423 root 1.7 int
424     command_showpets (object *op, char *params)
425 elmex 1.1 {
426 root 1.7 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 root 1.22 if (ob->owner == op)
438 root 1.7 {
439     if (target == 0)
440     {
441     if (counter == 0)
442     new_draw_info (NDI_UNIQUE, 0, op, "Pets:");
443     new_draw_info_format (NDI_UNIQUE, 0, op, "%d %s - level %d", ++counter, &ob->name, ob->level);
444     }
445     else if (!have_shown_pet && ++counter == target)
446     {
447     new_draw_info_format (NDI_UNIQUE, 0, op, "level %d %s", ob->level, &ob->name);
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);
449     /* this is not a nice way to do this, it should be made to be more like the statistics command */
450     new_draw_info_format (NDI_UNIQUE, 0, op, "Str %d", ob->stats.Str);
451     new_draw_info_format (NDI_UNIQUE, 0, op, "Dex %d", ob->stats.Dex);
452     new_draw_info_format (NDI_UNIQUE, 0, op, "Con %d", ob->stats.Con);
453     new_draw_info_format (NDI_UNIQUE, 0, op, "Int %d", ob->stats.Int);
454     new_draw_info_format (NDI_UNIQUE, 0, op, "Wis %d", ob->stats.Wis);
455     new_draw_info_format (NDI_UNIQUE, 0, op, "Cha %d", ob->stats.Cha);
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 root 1.3 }
460     }
461 elmex 1.1 }
462 root 1.7 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 elmex 1.1 }
468    
469 root 1.7 int
470     command_resistances (object *op, char *params)
471 elmex 1.1 {
472 root 1.7 int i;
473 elmex 1.1
474 root 1.7 if (!op)
475     return 0;
476    
477     for (i = 0; i < NROFATTACKS; i++)
478     {
479     if (i == ATNR_INTERNAL)
480     continue;
481 elmex 1.1
482 root 1.7 new_draw_info_format (NDI_UNIQUE, 0, op, "%-20s %+5d", attacktype_desc[i], op->resist[i]);
483 elmex 1.1 }
484    
485 root 1.7 /* 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 elmex 1.1 {
493 root 1.7 if ((tmp->type == FORCE) && (strcmp (tmp->arch->name, "dragon_skin_force") == 0))
494 elmex 1.1 {
495 root 1.7 new_draw_info (NDI_UNIQUE, 0, op, "\nNatural skin resistances:");
496     for (attack = 0; attack < NROFATTACKS; attack++)
497 elmex 1.1 {
498 root 1.7 if (atnr_is_dragon_enabled (attack))
499 elmex 1.1 {
500 root 1.7 new_draw_info_format (NDI_UNIQUE, 0, op, "%s: %d", change_resist_msg[attack], tmp->resist[attack]);
501 elmex 1.1 }
502     }
503 root 1.7 break;
504 elmex 1.1 }
505     }
506 root 1.7 }
507 elmex 1.1
508 root 1.7 return 0;
509 elmex 1.1 }
510 root 1.7
511 elmex 1.1 /*
512     * Actual commands.
513     * Those should be in small separate files (c_object.c, c_wiz.c, cmove.c,...)
514     */
515    
516    
517 root 1.7 static void
518     help_topics (object *op, int what)
519 elmex 1.1 {
520 root 1.7 DIR *dirp;
521     struct dirent *de;
522     char filename[MAX_BUF], line[80];
523     int namelen, linelen = 0;
524    
525     switch (what)
526     {
527 root 1.21 case 1:
528     sprintf (filename, "%s/wizhelp", settings.datadir);
529     new_draw_info (NDI_UNIQUE, 0, op, " Wiz commands:");
530     break;
531     case 3:
532     sprintf (filename, "%s/mischelp", settings.datadir);
533     new_draw_info (NDI_UNIQUE, 0, op, " Misc help:");
534     break;
535     default:
536     sprintf (filename, "%s/help", settings.datadir);
537     new_draw_info (NDI_UNIQUE, 0, op, " Commands:");
538     break;
539 root 1.7 }
540 root 1.21
541 root 1.7 if (!(dirp = opendir (filename)))
542     return;
543    
544     line[0] = '\0';
545 pippijn 1.45 while ((de = readdir (dirp)))
546 root 1.7 {
547 root 1.21 namelen = strlen (de->d_name);
548 root 1.7 if (namelen <= 2 && *de->d_name == '.' && (namelen == 1 || de->d_name[1] == '.'))
549     continue;
550     linelen += namelen + 1;
551     if (linelen > 42)
552     {
553     new_draw_info (NDI_UNIQUE, 0, op, line);
554     sprintf (line, " %s", de->d_name);
555     linelen = namelen + 1;
556     continue;
557 root 1.3 }
558 root 1.7 strcat (line, " ");
559     strcat (line, de->d_name);
560 elmex 1.1 }
561 root 1.7 new_draw_info (NDI_UNIQUE, 0, op, line);
562     closedir (dirp);
563 elmex 1.1 }
564    
565 root 1.7 static void
566     show_commands (object *op, int what)
567 elmex 1.1 {
568     char line[80];
569 root 1.7 int i, size, namelen, linelen = 0;
570 elmex 1.1 CommArray_s *ap;
571     extern CommArray_s Commands[], WizCommands[];
572     extern const int CommandsSize, WizCommandsSize;
573 root 1.7
574     switch (what)
575     {
576     case 1:
577     ap = WizCommands;
578     size = WizCommandsSize;
579     new_draw_info (NDI_UNIQUE, 0, op, " Wiz commands:");
580     break;
581     case 2:
582     ap = CommunicationCommands;
583     size = CommunicationCommandSize;
584     new_draw_info (NDI_UNIQUE, 0, op, " Communication commands:");
585     break;
586     default:
587     ap = Commands;
588     size = CommandsSize;
589     new_draw_info (NDI_UNIQUE, 0, op, " Commands:");
590     break;
591     }
592    
593     line[0] = '\0';
594     for (i = 0; i < size; i++)
595     {
596     namelen = strlen (ap[i].name);
597     linelen += namelen + 1;
598     if (linelen > 42)
599     {
600     new_draw_info (NDI_UNIQUE, 0, op, line);
601     sprintf (line, " %s", ap[i].name);
602     linelen = namelen + 1;
603     continue;
604     }
605     strcat (line, " ");
606     strcat (line, ap[i].name);
607     }
608     new_draw_info (NDI_UNIQUE, 0, op, line);
609 elmex 1.1 }
610    
611    
612 root 1.7 int
613     command_help (object *op, char *params)
614 elmex 1.1 {
615     struct stat st;
616     FILE *fp;
617     char filename[MAX_BUF], line[MAX_BUF];
618     int len;
619    
620 root 1.7 if (op != NULL)
621     clear_win_info (op);
622 elmex 1.1
623     /*
624     * Main help page?
625     */
626 root 1.7 if (!params)
627     {
628     sprintf (filename, "%s/def_help", settings.datadir);
629     if ((fp = fopen (filename, "r")) == NULL)
630     {
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);
643 elmex 1.1 return 0;
644     }
645    
646     /*
647     * Topics list
648     */
649 root 1.7 if (!strcmp (params, "topics"))
650     {
651     help_topics (op, 3);
652     help_topics (op, 0);
653     if (QUERY_FLAG (op, FLAG_WIZ))
654     help_topics (op, 1);
655     return 0;
656 elmex 1.1 }
657 root 1.7
658 elmex 1.1 /*
659     * Commands list
660     */
661 root 1.7 if (!strcmp (params, "commands"))
662     {
663     show_commands (op, 0);
664     show_commands (op, 2); /* show comm commands */
665     if (QUERY_FLAG (op, FLAG_WIZ))
666     show_commands (op, 1);
667     return 0;
668     }
669 elmex 1.1
670     /*
671     * User wants info about command
672     */
673 root 1.7 if (strchr (params, '.') || strchr (params, ' ') || strchr (params, '/'))
674     {
675     sprintf (line, "Illegal characters in '%s'", params);
676     new_draw_info (NDI_UNIQUE, 0, op, line);
677     return 0;
678     }
679 elmex 1.1
680 root 1.7 sprintf (filename, "%s/mischelp/%s", settings.datadir, params);
681     if (stat (filename, &st) || !S_ISREG (st.st_mode))
682     {
683     if (op)
684     {
685     sprintf (filename, "%s/help/%s", settings.datadir, params);
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
695     goto nohelp;
696     }
697     }
698     }
699 elmex 1.1
700     /*
701     * Found that. Just cat it to screen.
702     */
703 root 1.7 if ((fp = fopen (filename, "r")) == NULL)
704     {
705     LOG (llevError, "Cannot open help file %s: %s\n", filename, strerror (errno));
706     return 0;
707     }
708     sprintf (line, "Help about '%s'", params);
709     new_draw_info (NDI_UNIQUE, 0, op, line);
710     while (fgets (line, MAX_BUF, fp))
711     {
712     line[MAX_BUF - 1] = '\0';
713     len = strlen (line) - 1;
714     if (line[len] == '\n')
715     line[len] = '\0';
716     new_draw_info (NDI_UNIQUE, 0, op, line);
717 elmex 1.1 }
718 root 1.7 fclose (fp);
719 elmex 1.1 return 0;
720    
721     /*
722     * No_help -escape
723     */
724 root 1.7 nohelp:
725     sprintf (line, "No help available on '%s'", params);
726     new_draw_info (NDI_UNIQUE, 0, op, line);
727 elmex 1.1 return 0;
728     }
729    
730    
731 root 1.7 int
732     onoff_value (const char *line)
733 elmex 1.1 {
734     int i;
735    
736 root 1.7 if (sscanf (line, "%d", &i))
737 elmex 1.1 return (i != 0);
738 root 1.7 switch (line[0])
739     {
740     case 'o':
741     switch (line[1])
742     {
743     case 'n':
744     return 1; /* on */
745     default:
746     return 0; /* o[ff] */
747     }
748     case 'y': /* y[es] */
749     case 'k': /* k[ylla] */
750     case 's':
751     case 'd':
752     return 1;
753     case 'n': /* n[o] */
754     case 'e': /* e[i] */
755     case 'u':
756     default:
757     return 0;
758     }
759 elmex 1.1 }
760    
761 root 1.7 int
762     command_title (object *op, char *params)
763 elmex 1.1 {
764 root 1.7 char buf[MAX_BUF];
765    
766     if (settings.set_title == FALSE)
767     {
768     new_draw_info (NDI_UNIQUE, 0, op, "You cannot change your title.");
769     return 1;
770 elmex 1.1 }
771 root 1.7
772     /* dragon players cannot change titles */
773     if (is_dragon_pl (op))
774     {
775     new_draw_info (NDI_UNIQUE, 0, op, "Dragons cannot change titles.");
776     return 1;
777     }
778    
779     if (params == NULL)
780     {
781     if (op->contr->own_title[0] == '\0')
782     sprintf (buf, "Your title is '%s'.", op->contr->title);
783     else
784     sprintf (buf, "Your title is '%s'.", op->contr->own_title);
785     new_draw_info (NDI_UNIQUE, 0, op, buf);
786     return 1;
787     }
788     if (strcmp (params, "clear") == 0 || strcmp (params, "default") == 0)
789     {
790     if (op->contr->own_title[0] == '\0')
791     new_draw_info (NDI_UNIQUE, 0, op, "Your title is the default title.");
792     else
793     new_draw_info (NDI_UNIQUE, 0, op, "Title set to default.");
794     op->contr->own_title[0] = '\0';
795     return 1;
796     }
797    
798     if ((int) strlen (params) >= MAX_NAME)
799     {
800     new_draw_info (NDI_UNIQUE, 0, op, "Title too long.");
801     return 1;
802     }
803     strcpy (op->contr->own_title, params);
804     return 1;
805 elmex 1.1 }
806    
807 root 1.7 int
808     command_kill_pets (object *op, char *params)
809 elmex 1.1 {
810 root 1.7 objectlink *obl, *next;
811     int counter = 0, removecount = 0;
812    
813     if (params == NULL)
814     {
815     terminate_all_pets (op);
816     new_draw_info (NDI_UNIQUE, 0, op, "Your pets have been killed.");
817     }
818     else
819     {
820     int target = atoi (params);
821    
822     for (obl = first_friendly_object; obl != NULL; obl = next)
823     {
824     object *ob = obl->ob;
825    
826     next = obl->next;
827 root 1.22 if (ob->owner == op)
828 root 1.7 if (++counter == target || (target == 0 && !strcasecmp (ob->name, params)))
829     {
830 root 1.20 ob->destroy ();
831 root 1.3 removecount++;
832 root 1.7 }
833 root 1.3 }
834 root 1.7 if (removecount != 0)
835     new_draw_info_format (NDI_UNIQUE, 0, op, "killed %d pets.\n", removecount);
836     else
837     new_draw_info (NDI_UNIQUE, 0, op, "Couldn't find any suitable pets to kill.\n");
838 elmex 1.1 }
839 root 1.7 return 0;
840 elmex 1.1 }