ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/server/c_misc.C
Revision: 1.54
Committed: Fri Mar 2 11:23:18 2007 UTC (17 years, 3 months ago) by pippijn
Content type: text/plain
Branch: MAIN
Changes since 1.53: +1 -27 lines
Log Message: 
mapinfo 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 elmex 1.1 /* Handles misc. input request - things like hash table, malloc, maps,
30     * who, etc.
31     */
32    
33     /* This command dumps the body information for object *op.
34     * it doesn't care what the params are.
35     * This is mostly meant as a debug command.
36     */
37 root 1.7 int
38     command_body (object *op, char *params)
39 elmex 1.1 {
40 root 1.7 int i;
41 elmex 1.1
42 root 1.7 /* Too hard to try and make a header that lines everything up, so just
43     * give a description.
44     */
45     new_draw_info (NDI_UNIQUE, 0, op, "The first column is the name of the body location.");
46     new_draw_info (NDI_UNIQUE, 0, op, "The second column is how many of those locations your body has.");
47     new_draw_info (NDI_UNIQUE, 0, op, "The third column is how many slots in that location are available.");
48     for (i = 0; i < NUM_BODY_LOCATIONS; i++)
49     {
50     /* really debugging - normally body_used should not be set to anything
51     * if body_info isn't also set.
52     */
53     if (op->body_info[i] || op->body_used[i])
54     {
55     new_draw_info_format (NDI_UNIQUE, 0, op, "%-30s %5d %5d", body_locations[i].use_name, op->body_info[i], op->body_used[i]);
56 root 1.3 }
57 elmex 1.1 }
58 root 1.7 if (!QUERY_FLAG (op, FLAG_USE_ARMOUR))
59     new_draw_info (NDI_UNIQUE, 0, op, "You are not allowed to wear armor");
60     if (!QUERY_FLAG (op, FLAG_USE_WEAPON))
61     new_draw_info (NDI_UNIQUE, 0, op, "You are not allowed to use weapons");
62 elmex 1.1
63 root 1.7 return 1;
64 elmex 1.1 }
65    
66    
67 root 1.7 int
68     command_motd (object *op, char *params)
69 elmex 1.1 {
70 root 1.7 display_motd (op);
71     return 1;
72 elmex 1.1 }
73    
74     #ifdef DEBUG_MALLOC_LEVEL
75 root 1.7 int
76     command_malloc_verify (object *op, char *parms)
77 elmex 1.1 {
78 root 1.7 extern int malloc_verify (void);
79 pippijn 1.54
80 root 1.7 if (!malloc_verify ())
81     new_draw_info (NDI_UNIQUE, 0, op, "Heap is corrupted.");
82     else
83     new_draw_info (NDI_UNIQUE, 0, op, "Heap checks out OK.");
84     return 1;
85     }
86 elmex 1.1 #endif
87    
88 root 1.7 int
89     command_whereabouts (object *op, char *params)
90     {
91 root 1.38 //TODO: should obviously not waste space in struct region for this.
92 root 1.7 /*
93     * reset the counter on the region, then use it to store the number of
94     * players there.
95     * I don't know how thread-safe this would be, I suspect not very....
96     */
97 root 1.41 for_all_regions (rgn)
98     rgn->counter = 0;
99 root 1.38
100 root 1.28 for_all_players (pl)
101 root 1.38 if (pl->ob->map)
102     ++pl->ob->region ()->counter;
103 root 1.7
104     /* we only want to print out by places with a 'longname' field... */
105 root 1.41 for_all_regions (rgn)
106 root 1.7 {
107 root 1.41 if (!rgn->longname && rgn->counter > 0)
108 root 1.7 {
109 root 1.41 if (rgn->parent)
110 root 1.7 {
111 root 1.41 rgn->parent->counter += rgn->counter;
112     rgn->counter = 0;
113 root 1.3 }
114 root 1.7 else /*uh oh, we shouldn't be here. */
115 root 1.41 LOG (llevError, "command_whereabouts() Region %s with no longname has no parent", &rgn->name);
116 root 1.3 }
117     }
118 root 1.38
119 root 1.7 new_draw_info_format (NDI_UNIQUE, 0, op, "In the world currently there are:");
120 root 1.38
121 root 1.41 for_all_regions (rgn)
122     if (rgn->counter)
123 root 1.44 new_draw_info_format (NDI_UNIQUE, 0, op, "%u players %s", rgn->counter, &rgn->longname);
124 root 1.38
125 root 1.7 return 1;
126 elmex 1.1 }
127    
128     typedef struct
129 root 1.7 {
130     char namebuf[MAX_BUF];
131     int login_order;
132     } chars_names;
133 elmex 1.1
134 root 1.7 int
135     command_time (object *op, char *params)
136 elmex 1.1 {
137 root 1.2 print_tod (op);
138     return 1;
139     }
140 elmex 1.1
141 root 1.7 int
142     command_weather (object *op, char *params)
143 elmex 1.1 {
144 root 1.33 #if 0
145 root 1.7 int wx, wy, temp, sky;
146     char buf[MAX_BUF];
147    
148     if (settings.dynamiclevel < 1)
149     return 1;
150    
151     if (op->map == NULL)
152     return 1;
153    
154     if (worldmap_to_weathermap (op->x, op->y, &wx, &wy, op->map) != 0)
155     return 1;
156    
157     if (QUERY_FLAG (op, FLAG_WIZ))
158     {
159     /* dump the weather, Dm style! Yo! */
160     new_draw_info_format (NDI_UNIQUE, 0, op, "Real temp: %d", real_world_temperature (op->x, op->y, op->map));
161     new_draw_info_format (NDI_UNIQUE, 0, op, "Base temp: %d", weathermap[wx][wy].temp);
162     new_draw_info_format (NDI_UNIQUE, 0, op, "Humid: %d", weathermap[wx][wy].humid);
163     new_draw_info_format (NDI_UNIQUE, 0, op, "Wind: dir=%d speed=%d", weathermap[wx][wy].winddir, weathermap[wx][wy].windspeed);
164     new_draw_info_format (NDI_UNIQUE, 0, op, "Pressure: %d", weathermap[wx][wy].pressure);
165     new_draw_info_format (NDI_UNIQUE, 0, op, "Avg Elevation: %d", weathermap[wx][wy].avgelev);
166     new_draw_info_format (NDI_UNIQUE, 0, op, "Rainfall: %d Water: %d", weathermap[wx][wy].rainfall, weathermap[wx][wy].water);
167     }
168    
169     temp = real_world_temperature (op->x, op->y, op->map);
170     new_draw_info_format (NDI_UNIQUE, 0, op, "It's currently %d degrees " "Centigrade out.", temp);
171    
172     /* humid */
173     if (weathermap[wx][wy].humid < 20)
174     new_draw_info (NDI_UNIQUE, 0, op, "It is very dry.");
175     else if (weathermap[wx][wy].humid < 40)
176     new_draw_info (NDI_UNIQUE, 0, op, "It is very comfortable today.");
177     else if (weathermap[wx][wy].humid < 60)
178     new_draw_info (NDI_UNIQUE, 0, op, "It is a bit muggy.");
179     else if (weathermap[wx][wy].humid < 80)
180     new_draw_info (NDI_UNIQUE, 0, op, "It is muggy.");
181     else
182     new_draw_info (NDI_UNIQUE, 0, op, "It is uncomfortably muggy.");
183 elmex 1.1
184 root 1.7 /* wind */
185     switch (weathermap[wx][wy].winddir)
186     {
187     case 1:
188     sprintf (buf, "north");
189     break;
190     case 2:
191     sprintf (buf, "northeast");
192     break;
193     case 3:
194     sprintf (buf, "east");
195     break;
196     case 4:
197     sprintf (buf, "southeast");
198     break;
199     case 5:
200     sprintf (buf, "south");
201     break;
202     case 6:
203     sprintf (buf, "southwest");
204     break;
205     case 7:
206     sprintf (buf, "west");
207     break;
208     case 8:
209     sprintf (buf, "northwest");
210     break;
211     }
212     if (weathermap[wx][wy].windspeed < 5)
213     new_draw_info_format (NDI_UNIQUE, 0, op, "There is a mild breeze " "coming from the %s.", buf);
214     else if (weathermap[wx][wy].windspeed < 10)
215     new_draw_info_format (NDI_UNIQUE, 0, op, "There is a strong breeze " "coming from the %s.", buf);
216     else if (weathermap[wx][wy].windspeed < 15)
217     new_draw_info_format (NDI_UNIQUE, 0, op, "There is a light wind " "coming from the %s.", buf);
218     else if (weathermap[wx][wy].windspeed < 25)
219     new_draw_info_format (NDI_UNIQUE, 0, op, "There is a strong wind " "coming from the %s.", buf);
220     else if (weathermap[wx][wy].windspeed < 35)
221     new_draw_info_format (NDI_UNIQUE, 0, op, "There is a heavy wind " "coming from the %s.", buf);
222     else
223     new_draw_info_format (NDI_UNIQUE, 0, op, "The wind from the %s is " "incredibly strong!", buf);
224 elmex 1.1
225 root 1.7 sky = weathermap[wx][wy].sky;
226     if (temp <= 0 && sky > SKY_OVERCAST && sky < SKY_FOG)
227     sky += 10; /*let it snow */
228     switch (sky)
229     {
230     case SKY_CLEAR:
231     new_draw_info (NDI_UNIQUE, 0, op, "There isn''t a cloud in the sky.");
232     break;
233     case SKY_LIGHTCLOUD:
234     new_draw_info (NDI_UNIQUE, 0, op, "There are a few light clouds in the sky.");
235     break;
236     case SKY_OVERCAST:
237     new_draw_info (NDI_UNIQUE, 0, op, "The sky is cloudy and dreary.");
238     break;
239     case SKY_LIGHT_RAIN:
240     new_draw_info (NDI_UNIQUE, 0, op, "It is raining softly.");
241     break;
242     case SKY_RAIN:
243     new_draw_info (NDI_UNIQUE, 0, op, "It is raining.");
244     break;
245     case SKY_HEAVY_RAIN:
246     new_draw_info (NDI_UNIQUE, 0, op, "It is raining heavily.");
247     break;
248     case SKY_HURRICANE:
249     new_draw_info (NDI_UNIQUE, 0, op, "There is a heavy storm! You should go inside!");
250     break;
251     case SKY_FOG:
252     new_draw_info (NDI_UNIQUE, 0, op, "It''s foggy and miserable.");
253     break;
254     case SKY_HAIL:
255     new_draw_info (NDI_UNIQUE, 0, op, "It''s hailing out! Take cover!");
256     break;
257     case SKY_LIGHT_SNOW:
258     new_draw_info (NDI_UNIQUE, 0, op, "Snow is gently falling from the sky.");
259     break;
260     case SKY_SNOW:
261     new_draw_info (NDI_UNIQUE, 0, op, "It''s snowing out.");
262     break;
263     case SKY_HEAVY_SNOW:
264     new_draw_info (NDI_UNIQUE, 0, op, "The snow is falling very heavily now.");
265     break;
266     case SKY_BLIZZARD:
267     new_draw_info (NDI_UNIQUE, 0, op, "A full blown blizzard is in effect. You might want to take cover!");
268     break;
269 elmex 1.1 }
270 root 1.33 #endif
271 root 1.7 return 1;
272 elmex 1.1 }
273    
274 root 1.7 int
275     command_hiscore (object *op, char *params)
276 elmex 1.1 {
277 root 1.7 display_high_score (op, op == NULL ? 9999 : 50, params);
278     return 1;
279     }
280 elmex 1.1
281 root 1.7 int
282     command_debug (object *op, char *params)
283 elmex 1.1 {
284 root 1.7 int i;
285     char buf[MAX_BUF];
286    
287     if (params == NULL || !sscanf (params, "%d", &i))
288     {
289     sprintf (buf, "Global debug level is %d.", settings.debug);
290     new_draw_info (NDI_UNIQUE, 0, op, buf);
291 elmex 1.1 return 1;
292     }
293 root 1.7 settings.debug = (enum LogLevel) FABS (i);
294     sprintf (buf, "Set debug level to %d.", i);
295     new_draw_info (NDI_UNIQUE, 0, op, buf);
296     return 1;
297     }
298 elmex 1.1
299    
300     /*
301     * Those dumps should be just one dump with good parser
302     */
303    
304 root 1.7 int
305     command_dumpbelow (object *op, char *params)
306 elmex 1.1 {
307 root 1.7 if (op && op->below)
308     {
309 root 1.14 char *dump = dump_object (op->below);
310     new_draw_info (NDI_UNIQUE, 0, op, dump);
311     free (dump);
312 elmex 1.1 /* Let's push that item on the dm's stack */
313 root 1.7 dm_stack_push (op->contr, op->below->count);
314     }
315 elmex 1.1 return 0;
316     }
317    
318 root 1.7 int
319     command_dumpfriendlyobjects (object *op, char *params)
320 elmex 1.1 {
321 root 1.7 dump_friendly_objects ();
322 elmex 1.1 return 0;
323     }
324    
325 root 1.7 int
326     command_printlos (object *op, char *params)
327 elmex 1.1 {
328     if (op)
329 root 1.7 print_los (op);
330 elmex 1.1 return 0;
331     }
332    
333    
334 root 1.7 int
335     command_version (object *op, char *params)
336 elmex 1.1 {
337 root 1.7 version (op);
338     return 0;
339 elmex 1.1 }
340    
341     #ifndef BUG_LOG
342 root 1.7 # define BUG_LOG "bug_log"
343 elmex 1.1 #endif
344 root 1.7 void
345     bug_report (const char *reportstring)
346     {
347     FILE *fp;
348    
349     if ((fp = fopen (BUG_LOG, "a")) != NULL)
350     {
351     fprintf (fp, "%s\n", reportstring);
352     fclose (fp);
353     }
354     else
355     {
356     LOG (llevError, "Cannot write bugs file %s: %s\n", BUG_LOG, strerror (errno));
357 elmex 1.1 }
358 root 1.7 }
359    
360 elmex 1.1 /* Prints out some useful information for the character. Everything we print
361     * out can be determined by the docs, so we aren't revealing anything extra -
362     * rather, we are making it convenient to find the values. params have
363     * no meaning here.
364     */
365 root 1.7 int
366     command_statistics (object *pl, char *params)
367 elmex 1.1 {
368 root 1.7 if (!pl->contr)
369     return 1;
370 root 1.18 new_draw_info_format (NDI_UNIQUE, 0, pl, " Experience: %" PRId64, pl->stats.exp);
371     new_draw_info_format (NDI_UNIQUE, 0, pl, " Next Level: %" PRId64, level_exp (pl->level + 1, pl->expmul));
372 root 1.7 new_draw_info (NDI_UNIQUE, 0, pl, "\nStat Nat/Real/Max");
373 elmex 1.1
374 root 1.7 new_draw_info_format (NDI_UNIQUE, 0, pl, "Str %2d/ %3d/%3d",
375     pl->contr->orig_stats.Str, pl->stats.Str, 20 + pl->arch->clone.stats.Str);
376     new_draw_info_format (NDI_UNIQUE, 0, pl, "Dex %2d/ %3d/%3d",
377     pl->contr->orig_stats.Dex, pl->stats.Dex, 20 + pl->arch->clone.stats.Dex);
378     new_draw_info_format (NDI_UNIQUE, 0, pl, "Con %2d/ %3d/%3d",
379     pl->contr->orig_stats.Con, pl->stats.Con, 20 + pl->arch->clone.stats.Con);
380     new_draw_info_format (NDI_UNIQUE, 0, pl, "Int %2d/ %3d/%3d",
381     pl->contr->orig_stats.Int, pl->stats.Int, 20 + pl->arch->clone.stats.Int);
382     new_draw_info_format (NDI_UNIQUE, 0, pl, "Wis %2d/ %3d/%3d",
383     pl->contr->orig_stats.Wis, pl->stats.Wis, 20 + pl->arch->clone.stats.Wis);
384     new_draw_info_format (NDI_UNIQUE, 0, pl, "Pow %2d/ %3d/%3d",
385     pl->contr->orig_stats.Pow, pl->stats.Pow, 20 + pl->arch->clone.stats.Pow);
386     new_draw_info_format (NDI_UNIQUE, 0, pl, "Cha %2d/ %3d/%3d",
387     pl->contr->orig_stats.Cha, pl->stats.Cha, 20 + pl->arch->clone.stats.Cha);
388     new_draw_info_format (NDI_UNIQUE, 0, pl, "\nAttack Mode: %s", pl->contr->peaceful ? "Peaceful" : "Hostile");
389 elmex 1.1
390 root 1.7 /* Can't think of anything else to print right now */
391     return 0;
392 elmex 1.1 }
393    
394 root 1.7 int
395     command_fix_me (object *op, char *params)
396 elmex 1.1 {
397 root 1.7 sum_weight (op);
398 root 1.27 op->update_stats ();
399 pippijn 1.51 new_draw_info (NDI_UNIQUE, 0, op, "Your character was fixed.");
400    
401 root 1.7 return 1;
402 elmex 1.1 }
403    
404 root 1.7 int
405     command_logs (object *op, char *params)
406 elmex 1.1 {
407 root 1.10 new_draw_info (NDI_UNIQUE, 0, op, "Nobody is currently logging kills.");
408 elmex 1.1
409 root 1.7 return 1;
410 elmex 1.1 }
411    
412 root 1.7 int
413     command_bowmode (object *op, char *params)
414 elmex 1.1 {
415 root 1.7 bowtype_t oldtype = op->contr->bowtype;
416     static const char *const types[] = { "normal", "threewide", "spreadshot", "firenorth",
417     "firene", "fireeast", "firese", "firesouth",
418     "firesw", "firewest", "firenw", "bestarrow"
419     };
420     char buf[MAX_BUF];
421     int i, found;
422    
423     if (!params)
424     {
425     new_draw_info_format (NDI_UNIQUE, 0, op, "bowmode is set to %s", types[op->contr->bowtype]);
426     return 1;
427     }
428    
429     for (i = 0, found = 0; i <= bow_bestarrow; i++)
430     {
431     if (!strcmp (params, types[i]))
432     {
433     found++;
434     op->contr->bowtype = (bowtype_t) i;
435     break;
436 root 1.3 }
437 elmex 1.1 }
438 root 1.38
439 root 1.7 if (!found)
440     {
441     sprintf (buf, "bowmode: Unknown options %s, valid options are:", params);
442     for (i = 0; i <= bow_bestarrow; i++)
443     {
444     strcat (buf, " ");
445     strcat (buf, types[i]);
446     if (i < bow_nw)
447     strcat (buf, ",");
448     else
449     strcat (buf, ".");
450 root 1.3 }
451 root 1.7 new_draw_info_format (NDI_UNIQUE, 0, op, buf);
452     return 0;
453 elmex 1.1 }
454 root 1.38
455 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]);
456     return 1;
457 elmex 1.1 }
458    
459 root 1.7 int
460     command_showpets (object *op, char *params)
461 elmex 1.1 {
462 root 1.7 objectlink *obl, *next;
463     int counter = 0, target = 0;
464     int have_shown_pet = 0;
465    
466     if (params != NULL)
467     target = atoi (params);
468     for (obl = first_friendly_object; obl != NULL; obl = next)
469     {
470     object *ob = obl->ob;
471    
472     next = obl->next;
473 root 1.22 if (ob->owner == op)
474 root 1.7 {
475     if (target == 0)
476     {
477     if (counter == 0)
478     new_draw_info (NDI_UNIQUE, 0, op, "Pets:");
479     new_draw_info_format (NDI_UNIQUE, 0, op, "%d %s - level %d", ++counter, &ob->name, ob->level);
480     }
481     else if (!have_shown_pet && ++counter == target)
482     {
483     new_draw_info_format (NDI_UNIQUE, 0, op, "level %d %s", ob->level, &ob->name);
484     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);
485     /* this is not a nice way to do this, it should be made to be more like the statistics command */
486     new_draw_info_format (NDI_UNIQUE, 0, op, "Str %d", ob->stats.Str);
487     new_draw_info_format (NDI_UNIQUE, 0, op, "Dex %d", ob->stats.Dex);
488     new_draw_info_format (NDI_UNIQUE, 0, op, "Con %d", ob->stats.Con);
489     new_draw_info_format (NDI_UNIQUE, 0, op, "Int %d", ob->stats.Int);
490     new_draw_info_format (NDI_UNIQUE, 0, op, "Wis %d", ob->stats.Wis);
491     new_draw_info_format (NDI_UNIQUE, 0, op, "Cha %d", ob->stats.Cha);
492     new_draw_info_format (NDI_UNIQUE, 0, op, "Pow %d", ob->stats.Pow);
493     new_draw_info_format (NDI_UNIQUE, 0, op, "wc %d damage %d ac %d ", ob->stats.wc, ob->stats.dam, ob->stats.ac);
494     have_shown_pet = 1;
495 root 1.3 }
496     }
497 elmex 1.1 }
498 root 1.7 if (counter == 0)
499     new_draw_info (NDI_UNIQUE, 0, op, "you have no pets.");
500     else if (target != 0 && have_shown_pet == 0)
501     new_draw_info (NDI_UNIQUE, 0, op, "no such pet.");
502     return 0;
503 elmex 1.1 }
504    
505 root 1.7 int
506     command_resistances (object *op, char *params)
507 elmex 1.1 {
508 root 1.7 int i;
509 elmex 1.1
510 root 1.7 if (!op)
511     return 0;
512    
513     for (i = 0; i < NROFATTACKS; i++)
514     {
515     if (i == ATNR_INTERNAL)
516     continue;
517 elmex 1.1
518 root 1.7 new_draw_info_format (NDI_UNIQUE, 0, op, "%-20s %+5d", attacktype_desc[i], op->resist[i]);
519 elmex 1.1 }
520    
521 root 1.7 /* If dragon player, let's display natural resistances */
522     if (is_dragon_pl (op))
523     {
524     int attack;
525     object *tmp;
526    
527     for (tmp = op->inv; tmp != NULL; tmp = tmp->below)
528 elmex 1.1 {
529 root 1.7 if ((tmp->type == FORCE) && (strcmp (tmp->arch->name, "dragon_skin_force") == 0))
530 elmex 1.1 {
531 root 1.7 new_draw_info (NDI_UNIQUE, 0, op, "\nNatural skin resistances:");
532     for (attack = 0; attack < NROFATTACKS; attack++)
533 elmex 1.1 {
534 root 1.7 if (atnr_is_dragon_enabled (attack))
535 elmex 1.1 {
536 root 1.7 new_draw_info_format (NDI_UNIQUE, 0, op, "%s: %d", change_resist_msg[attack], tmp->resist[attack]);
537 elmex 1.1 }
538     }
539 root 1.7 break;
540 elmex 1.1 }
541     }
542 root 1.7 }
543 elmex 1.1
544 root 1.7 return 0;
545 elmex 1.1 }
546 root 1.7
547 elmex 1.1 /*
548     * Actual commands.
549     * Those should be in small separate files (c_object.c, c_wiz.c, cmove.c,...)
550     */
551    
552    
553 root 1.7 static void
554     help_topics (object *op, int what)
555 elmex 1.1 {
556 root 1.7 DIR *dirp;
557     struct dirent *de;
558     char filename[MAX_BUF], line[80];
559     int namelen, linelen = 0;
560    
561     switch (what)
562     {
563 root 1.21 case 1:
564     sprintf (filename, "%s/wizhelp", settings.datadir);
565     new_draw_info (NDI_UNIQUE, 0, op, " Wiz commands:");
566     break;
567     case 3:
568     sprintf (filename, "%s/mischelp", settings.datadir);
569     new_draw_info (NDI_UNIQUE, 0, op, " Misc help:");
570     break;
571     default:
572     sprintf (filename, "%s/help", settings.datadir);
573     new_draw_info (NDI_UNIQUE, 0, op, " Commands:");
574     break;
575 root 1.7 }
576 root 1.21
577 root 1.7 if (!(dirp = opendir (filename)))
578     return;
579    
580     line[0] = '\0';
581 pippijn 1.45 while ((de = readdir (dirp)))
582 root 1.7 {
583 root 1.21 namelen = strlen (de->d_name);
584 root 1.7 if (namelen <= 2 && *de->d_name == '.' && (namelen == 1 || de->d_name[1] == '.'))
585     continue;
586     linelen += namelen + 1;
587     if (linelen > 42)
588     {
589     new_draw_info (NDI_UNIQUE, 0, op, line);
590     sprintf (line, " %s", de->d_name);
591     linelen = namelen + 1;
592     continue;
593 root 1.3 }
594 root 1.7 strcat (line, " ");
595     strcat (line, de->d_name);
596 elmex 1.1 }
597 root 1.7 new_draw_info (NDI_UNIQUE, 0, op, line);
598     closedir (dirp);
599 elmex 1.1 }
600    
601 root 1.7 static void
602     show_commands (object *op, int what)
603 elmex 1.1 {
604     char line[80];
605 root 1.7 int i, size, namelen, linelen = 0;
606 elmex 1.1 CommArray_s *ap;
607     extern CommArray_s Commands[], WizCommands[];
608     extern const int CommandsSize, WizCommandsSize;
609 root 1.7
610     switch (what)
611     {
612     case 1:
613     ap = WizCommands;
614     size = WizCommandsSize;
615     new_draw_info (NDI_UNIQUE, 0, op, " Wiz commands:");
616     break;
617     case 2:
618     ap = CommunicationCommands;
619     size = CommunicationCommandSize;
620     new_draw_info (NDI_UNIQUE, 0, op, " Communication commands:");
621     break;
622     default:
623     ap = Commands;
624     size = CommandsSize;
625     new_draw_info (NDI_UNIQUE, 0, op, " Commands:");
626     break;
627     }
628    
629     line[0] = '\0';
630     for (i = 0; i < size; i++)
631     {
632     namelen = strlen (ap[i].name);
633     linelen += namelen + 1;
634     if (linelen > 42)
635     {
636     new_draw_info (NDI_UNIQUE, 0, op, line);
637     sprintf (line, " %s", ap[i].name);
638     linelen = namelen + 1;
639     continue;
640     }
641     strcat (line, " ");
642     strcat (line, ap[i].name);
643     }
644     new_draw_info (NDI_UNIQUE, 0, op, line);
645 elmex 1.1 }
646    
647    
648 root 1.7 int
649     command_help (object *op, char *params)
650 elmex 1.1 {
651     struct stat st;
652     FILE *fp;
653     char filename[MAX_BUF], line[MAX_BUF];
654     int len;
655    
656 root 1.7 if (op != NULL)
657     clear_win_info (op);
658 elmex 1.1
659     /*
660     * Main help page?
661     */
662 root 1.7 if (!params)
663     {
664     sprintf (filename, "%s/def_help", settings.datadir);
665     if ((fp = fopen (filename, "r")) == NULL)
666     {
667     LOG (llevError, "Cannot open help file %s: %s\n", filename, strerror (errno));
668     return 0;
669     }
670     while (fgets (line, MAX_BUF, fp))
671     {
672     line[MAX_BUF - 1] = '\0';
673     len = strlen (line) - 1;
674     if (line[len] == '\n')
675     line[len] = '\0';
676     new_draw_info (NDI_UNIQUE, 0, op, line);
677     }
678     fclose (fp);
679 elmex 1.1 return 0;
680     }
681    
682     /*
683     * Topics list
684     */
685 root 1.7 if (!strcmp (params, "topics"))
686     {
687     help_topics (op, 3);
688     help_topics (op, 0);
689     if (QUERY_FLAG (op, FLAG_WIZ))
690     help_topics (op, 1);
691     return 0;
692 elmex 1.1 }
693 root 1.7
694 elmex 1.1 /*
695     * Commands list
696     */
697 root 1.7 if (!strcmp (params, "commands"))
698     {
699     show_commands (op, 0);
700     show_commands (op, 2); /* show comm commands */
701     if (QUERY_FLAG (op, FLAG_WIZ))
702     show_commands (op, 1);
703     return 0;
704     }
705 elmex 1.1
706     /*
707     * User wants info about command
708     */
709 root 1.7 if (strchr (params, '.') || strchr (params, ' ') || strchr (params, '/'))
710     {
711     sprintf (line, "Illegal characters in '%s'", params);
712     new_draw_info (NDI_UNIQUE, 0, op, line);
713     return 0;
714     }
715 elmex 1.1
716 root 1.7 sprintf (filename, "%s/mischelp/%s", settings.datadir, params);
717     if (stat (filename, &st) || !S_ISREG (st.st_mode))
718     {
719     if (op)
720     {
721     sprintf (filename, "%s/help/%s", settings.datadir, params);
722     if (stat (filename, &st) || !S_ISREG (st.st_mode))
723     {
724     if (QUERY_FLAG (op, FLAG_WIZ))
725     {
726     sprintf (filename, "%s/wizhelp/%s", settings.datadir, params);
727     if (stat (filename, &st) || !S_ISREG (st.st_mode))
728     goto nohelp;
729     }
730     else
731     goto nohelp;
732     }
733     }
734     }
735 elmex 1.1
736     /*
737     * Found that. Just cat it to screen.
738     */
739 root 1.7 if ((fp = fopen (filename, "r")) == NULL)
740     {
741     LOG (llevError, "Cannot open help file %s: %s\n", filename, strerror (errno));
742     return 0;
743     }
744     sprintf (line, "Help about '%s'", params);
745     new_draw_info (NDI_UNIQUE, 0, op, line);
746     while (fgets (line, MAX_BUF, fp))
747     {
748     line[MAX_BUF - 1] = '\0';
749     len = strlen (line) - 1;
750     if (line[len] == '\n')
751     line[len] = '\0';
752     new_draw_info (NDI_UNIQUE, 0, op, line);
753 elmex 1.1 }
754 root 1.7 fclose (fp);
755 elmex 1.1 return 0;
756    
757     /*
758     * No_help -escape
759     */
760 root 1.7 nohelp:
761     sprintf (line, "No help available on '%s'", params);
762     new_draw_info (NDI_UNIQUE, 0, op, line);
763 elmex 1.1 return 0;
764     }
765    
766    
767 root 1.7 int
768     onoff_value (const char *line)
769 elmex 1.1 {
770     int i;
771    
772 root 1.7 if (sscanf (line, "%d", &i))
773 elmex 1.1 return (i != 0);
774 root 1.7 switch (line[0])
775     {
776     case 'o':
777     switch (line[1])
778     {
779     case 'n':
780     return 1; /* on */
781     default:
782     return 0; /* o[ff] */
783     }
784     case 'y': /* y[es] */
785     case 'k': /* k[ylla] */
786     case 's':
787     case 'd':
788     return 1;
789     case 'n': /* n[o] */
790     case 'e': /* e[i] */
791     case 'u':
792     default:
793     return 0;
794     }
795 elmex 1.1 }
796    
797 root 1.7 int
798     command_title (object *op, char *params)
799 elmex 1.1 {
800 root 1.7 char buf[MAX_BUF];
801    
802     if (settings.set_title == FALSE)
803     {
804     new_draw_info (NDI_UNIQUE, 0, op, "You cannot change your title.");
805     return 1;
806 elmex 1.1 }
807 root 1.7
808     /* dragon players cannot change titles */
809     if (is_dragon_pl (op))
810     {
811     new_draw_info (NDI_UNIQUE, 0, op, "Dragons cannot change titles.");
812     return 1;
813     }
814    
815     if (params == NULL)
816     {
817     if (op->contr->own_title[0] == '\0')
818     sprintf (buf, "Your title is '%s'.", op->contr->title);
819     else
820     sprintf (buf, "Your title is '%s'.", op->contr->own_title);
821     new_draw_info (NDI_UNIQUE, 0, op, buf);
822     return 1;
823     }
824     if (strcmp (params, "clear") == 0 || strcmp (params, "default") == 0)
825     {
826     if (op->contr->own_title[0] == '\0')
827     new_draw_info (NDI_UNIQUE, 0, op, "Your title is the default title.");
828     else
829     new_draw_info (NDI_UNIQUE, 0, op, "Title set to default.");
830     op->contr->own_title[0] = '\0';
831     return 1;
832     }
833    
834     if ((int) strlen (params) >= MAX_NAME)
835     {
836     new_draw_info (NDI_UNIQUE, 0, op, "Title too long.");
837     return 1;
838     }
839     strcpy (op->contr->own_title, params);
840     return 1;
841 elmex 1.1 }
842    
843 root 1.7 int
844     command_kill_pets (object *op, char *params)
845 elmex 1.1 {
846 root 1.7 objectlink *obl, *next;
847     int counter = 0, removecount = 0;
848    
849     if (params == NULL)
850     {
851     terminate_all_pets (op);
852     new_draw_info (NDI_UNIQUE, 0, op, "Your pets have been killed.");
853     }
854     else
855     {
856     int target = atoi (params);
857    
858     for (obl = first_friendly_object; obl != NULL; obl = next)
859     {
860     object *ob = obl->ob;
861    
862     next = obl->next;
863 root 1.22 if (ob->owner == op)
864 root 1.7 if (++counter == target || (target == 0 && !strcasecmp (ob->name, params)))
865     {
866 root 1.20 ob->destroy ();
867 root 1.3 removecount++;
868 root 1.7 }
869 root 1.3 }
870 root 1.7 if (removecount != 0)
871     new_draw_info_format (NDI_UNIQUE, 0, op, "killed %d pets.\n", removecount);
872     else
873     new_draw_info (NDI_UNIQUE, 0, op, "Couldn't find any suitable pets to kill.\n");
874 elmex 1.1 }
875 root 1.7 return 0;
876 elmex 1.1 }