server/server/c_misc.C

/*
 * This file is part of Crossfire TRT, the Roguelike Realtime MORPG.
 * 
 * Copyright (©) 2005,2006,2007 Marc Alexander Lehmann / Robin Redeker / the Crossfire TRT team
 * Copyright (©) 2002,2007 Mark Wedel & Crossfire Development Team
 * Copyright (©) 1992,2007 Frank Tore Johansen
 * 
 * Crossfire TRT is free software; you can redistribute it and/or modify it
 * under the terms of the GNU General Public License as published by the Free
 * Software Foundation; either version 2 of the License, or (at your option)
 * any later version.
 * 
 * This program is distributed in the hope that it will be useful, but
 * WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
 * or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
 * for more details.
 * 
 * You should have received a copy of the GNU General Public License along
 * with Crossfire TRT; if not, write to the Free Software Foundation, Inc. 51
 * Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
 * 
 * The authors can be reached via e-mail to <crossfire@schmorp.de>
 */

#include <global.h>
#include <loader.h>
#include <sproto.h>

/* Handles misc. input request - things like hash table, malloc, maps, etc */

int
command_motd (object *op, char *params)
{
  display_motd (op);
  return 1;
}

#ifdef DEBUG_MALLOC_LEVEL
int
command_malloc_verify (object *op, char *parms)
{
  extern int malloc_verify (void);
  
  if (!malloc_verify ())
    new_draw_info (NDI_UNIQUE, 0, op, "Heap is corrupted.");
  else
    new_draw_info (NDI_UNIQUE, 0, op, "Heap checks out OK.");
  return 1;
}
#endif

int
command_whereabouts (object *op, char *params)
{
  //TODO: should obviously not waste space in struct region for this.
  /*
   * reset the counter on the region, then use it to store the number of
   * players there.
   * I don't know how thread-safe this would be, I suspect not very....
   */
  for_all_regions (rgn)
    rgn->counter = 0;

  for_all_players (pl)
    if (pl->ob->map)
      ++pl->ob->region ()->counter;

  /* we only want to print out by places with a 'longname' field... */
  for_all_regions (rgn)
    {
      if (!rgn->longname && rgn->counter > 0)
        {
          if (rgn->parent)
            {
              rgn->parent->counter += rgn->counter;
              rgn->counter = 0;
            }
          else                  /*uh oh, we shouldn't be here. */
            LOG (llevError, "command_whereabouts() Region %s with no longname has no parent", &rgn->name);
        }
    }

  new_draw_info_format (NDI_UNIQUE, 0, op, "In the world currently there are:");

  for_all_regions (rgn)
    if (rgn->counter)
      new_draw_info_format (NDI_UNIQUE, 0, op, "%u players %s", rgn->counter, &rgn->longname);

  return 1;
}

typedef struct
{
  char namebuf[MAX_BUF];
  int login_order;
} chars_names;

int
command_time (object *op, char *params)
{
  print_tod (op);
  return 1;
}

int
command_weather (object *op, char *params)
{
#if 0
  int wx, wy, temp, sky;
  char buf[MAX_BUF];

  if (settings.dynamiclevel < 1)
    return 1;

  if (op->map == NULL)
    return 1;

  if (worldmap_to_weathermap (op->x, op->y, &wx, &wy, op->map) != 0)
    return 1;

  if (QUERY_FLAG (op, FLAG_WIZ))
    {
      /* dump the weather, Dm style! Yo! */
      new_draw_info_format (NDI_UNIQUE, 0, op, "Real temp: %d", real_world_temperature (op->x, op->y, op->map));
      new_draw_info_format (NDI_UNIQUE, 0, op, "Base temp: %d", weathermap[wx][wy].temp);
      new_draw_info_format (NDI_UNIQUE, 0, op, "Humid: %d", weathermap[wx][wy].humid);
      new_draw_info_format (NDI_UNIQUE, 0, op, "Wind: dir=%d speed=%d", weathermap[wx][wy].winddir, weathermap[wx][wy].windspeed);
      new_draw_info_format (NDI_UNIQUE, 0, op, "Pressure: %d", weathermap[wx][wy].pressure);
      new_draw_info_format (NDI_UNIQUE, 0, op, "Avg Elevation: %d", weathermap[wx][wy].avgelev);
      new_draw_info_format (NDI_UNIQUE, 0, op, "Rainfall: %d  Water: %d", weathermap[wx][wy].rainfall, weathermap[wx][wy].water);
    }

  temp = real_world_temperature (op->x, op->y, op->map);
  new_draw_info_format (NDI_UNIQUE, 0, op, "It's currently %d degrees " "Centigrade out.", temp);

  /* humid */
  if (weathermap[wx][wy].humid < 20)
    new_draw_info (NDI_UNIQUE, 0, op, "It is very dry.");
  else if (weathermap[wx][wy].humid < 40)
    new_draw_info (NDI_UNIQUE, 0, op, "It is very comfortable today.");
  else if (weathermap[wx][wy].humid < 60)
    new_draw_info (NDI_UNIQUE, 0, op, "It is a bit muggy.");
  else if (weathermap[wx][wy].humid < 80)
    new_draw_info (NDI_UNIQUE, 0, op, "It is muggy.");
  else
    new_draw_info (NDI_UNIQUE, 0, op, "It is uncomfortably muggy.");

  /* wind */
  switch (weathermap[wx][wy].winddir)
    {
        case 1:
          sprintf (buf, "north");
          break;
        case 2:
          sprintf (buf, "northeast");
          break;
        case 3:
          sprintf (buf, "east");
          break;
        case 4:
          sprintf (buf, "southeast");
          break;
        case 5:
          sprintf (buf, "south");
          break;
        case 6:
          sprintf (buf, "southwest");
          break;
        case 7:
          sprintf (buf, "west");
          break;
        case 8:
          sprintf (buf, "northwest");
          break;
    }
  if (weathermap[wx][wy].windspeed < 5)
    new_draw_info_format (NDI_UNIQUE, 0, op, "There is a mild breeze " "coming from the %s.", buf);
  else if (weathermap[wx][wy].windspeed < 10)
    new_draw_info_format (NDI_UNIQUE, 0, op, "There is a strong breeze " "coming from the %s.", buf);
  else if (weathermap[wx][wy].windspeed < 15)
    new_draw_info_format (NDI_UNIQUE, 0, op, "There is a light wind " "coming from the %s.", buf);
  else if (weathermap[wx][wy].windspeed < 25)
    new_draw_info_format (NDI_UNIQUE, 0, op, "There is a strong wind " "coming from the %s.", buf);
  else if (weathermap[wx][wy].windspeed < 35)
    new_draw_info_format (NDI_UNIQUE, 0, op, "There is a heavy wind " "coming from the %s.", buf);
  else
    new_draw_info_format (NDI_UNIQUE, 0, op, "The wind from the %s is " "incredibly strong!", buf);

  sky = weathermap[wx][wy].sky;
  if (temp <= 0 && sky > SKY_OVERCAST && sky < SKY_FOG)
    sky += 10;                  /*let it snow */
  switch (sky)
    {
        case SKY_CLEAR:
          new_draw_info (NDI_UNIQUE, 0, op, "There isn''t a cloud in the sky.");
          break;
        case SKY_LIGHTCLOUD:
          new_draw_info (NDI_UNIQUE, 0, op, "There are a few light clouds in the sky.");
          break;
        case SKY_OVERCAST:
          new_draw_info (NDI_UNIQUE, 0, op, "The sky is cloudy and dreary.");
          break;
        case SKY_LIGHT_RAIN:
          new_draw_info (NDI_UNIQUE, 0, op, "It is raining softly.");
          break;
        case SKY_RAIN:
          new_draw_info (NDI_UNIQUE, 0, op, "It is raining.");
          break;
        case SKY_HEAVY_RAIN:
          new_draw_info (NDI_UNIQUE, 0, op, "It is raining heavily.");
          break;
        case SKY_HURRICANE:
          new_draw_info (NDI_UNIQUE, 0, op, "There is a heavy storm!  You should go inside!");
          break;
        case SKY_FOG:
          new_draw_info (NDI_UNIQUE, 0, op, "It''s foggy and miserable.");
          break;
        case SKY_HAIL:
          new_draw_info (NDI_UNIQUE, 0, op, "It''s hailing out!  Take cover!");
          break;
        case SKY_LIGHT_SNOW:
          new_draw_info (NDI_UNIQUE, 0, op, "Snow is gently falling from the sky.");
          break;
        case SKY_SNOW:
          new_draw_info (NDI_UNIQUE, 0, op, "It''s snowing out.");
          break;
        case SKY_HEAVY_SNOW:
          new_draw_info (NDI_UNIQUE, 0, op, "The snow is falling very heavily now.");
          break;
        case SKY_BLIZZARD:
          new_draw_info (NDI_UNIQUE, 0, op, "A full blown blizzard is in effect.  You might want to take cover!");
          break;
    }
#endif
  return 1;
}

int
command_hiscore (object *op, char *params)
{
  display_high_score (op, op == NULL ? 9999 : 50, params);
  return 1;
}

int
command_debug (object *op, char *params)
{
  int i;
  char buf[MAX_BUF];

  if (params == NULL || !sscanf (params, "%d", &i))
    {
      sprintf (buf, "Global debug level is %d.", settings.debug);
      new_draw_info (NDI_UNIQUE, 0, op, buf);
      return 1;
    }

  settings.debug = i;

  sprintf (buf, "Set debug level to %d.", i);
  new_draw_info (NDI_UNIQUE, 0, op, buf);
  return 1;
}


/*
 * Those dumps should be just one dump with good parser
 */

int
command_dumpbelow (object *op, char *params)
{
  if (op && op->below)
    {
      char *dump = dump_object (op->below);
      new_draw_info (NDI_UNIQUE, 0, op, dump);
      free (dump);
      /* Let's push that item on the dm's stack */
      dm_stack_push (op->contr, op->below->count);
    }
  return 0;
}

int
command_dumpfriendlyobjects (object *op, char *params)
{
  dump_friendly_objects ();
  return 0;
}

int
command_printlos (object *op, char *params)
{
  if (op)
    print_los (op);
  return 0;
}


int
command_version (object *op, char *params)
{
  version (op);
  return 0;
}

#ifndef BUG_LOG
# define BUG_LOG "bug_log"
#endif
void
bug_report (const char *reportstring)
{
  FILE *fp;

  if ((fp = fopen (BUG_LOG, "a")) != NULL)
    {
      fprintf (fp, "%s\n", reportstring);
      fclose (fp);
    }
  else
    {
      LOG (llevError, "Cannot write bugs file %s: %s\n", BUG_LOG, strerror (errno));
    }
}

/* Prints out some useful information for the character.  Everything we print
 * out can be determined by the docs, so we aren't revealing anything extra -
 * rather, we are making it convenient to find the values.  params have
 * no meaning here.
 */
int
command_statistics (object *pl, char *params)
{
  if (!pl->contr)
    return 1;
  new_draw_info_format (NDI_UNIQUE, 0, pl, "  Experience: %" PRId64, pl->stats.exp);
  new_draw_info_format (NDI_UNIQUE, 0, pl, "  Next Level: %" PRId64, level_exp (pl->level + 1, pl->expmul));
  new_draw_info (NDI_UNIQUE, 0, pl, "\nStat       Nat/Real/Max");

  new_draw_info_format (NDI_UNIQUE, 0, pl, "Str         %2d/ %3d/%3d",
                        pl->contr->orig_stats.Str, pl->stats.Str, 20 + pl->arch->clone.stats.Str);
  new_draw_info_format (NDI_UNIQUE, 0, pl, "Dex         %2d/ %3d/%3d",
                        pl->contr->orig_stats.Dex, pl->stats.Dex, 20 + pl->arch->clone.stats.Dex);
  new_draw_info_format (NDI_UNIQUE, 0, pl, "Con         %2d/ %3d/%3d",
                        pl->contr->orig_stats.Con, pl->stats.Con, 20 + pl->arch->clone.stats.Con);
  new_draw_info_format (NDI_UNIQUE, 0, pl, "Int         %2d/ %3d/%3d",
                        pl->contr->orig_stats.Int, pl->stats.Int, 20 + pl->arch->clone.stats.Int);
  new_draw_info_format (NDI_UNIQUE, 0, pl, "Wis         %2d/ %3d/%3d",
                        pl->contr->orig_stats.Wis, pl->stats.Wis, 20 + pl->arch->clone.stats.Wis);
  new_draw_info_format (NDI_UNIQUE, 0, pl, "Pow         %2d/ %3d/%3d",
                        pl->contr->orig_stats.Pow, pl->stats.Pow, 20 + pl->arch->clone.stats.Pow);
  new_draw_info_format (NDI_UNIQUE, 0, pl, "Cha         %2d/ %3d/%3d",
                        pl->contr->orig_stats.Cha, pl->stats.Cha, 20 + pl->arch->clone.stats.Cha);
  new_draw_info_format (NDI_UNIQUE, 0, pl, "\nAttack Mode: %s", pl->contr->peaceful ? "Peaceful" : "Hostile");

  /* Can't think of anything else to print right now */
  return 0;
}

int
command_fix_me (object *op, char *params)
{
  sum_weight (op);
  op->update_stats ();
  new_draw_info (NDI_UNIQUE, 0, op, "Your character was fixed.");

  return 1;
}

int
command_logs (object *op, char *params)
{
  new_draw_info (NDI_UNIQUE, 0, op, "Nobody is currently logging kills.");

  return 1;
}

int
command_bowmode (object *op, char *params)
{
  bowtype_t oldtype = op->contr->bowtype;
  static const char *const types[] = { "normal", "threewide", "spreadshot", "firenorth",
    "firene", "fireeast", "firese", "firesouth",
    "firesw", "firewest", "firenw", "bestarrow"
  };
  char buf[MAX_BUF];
  int i, found;

  if (!params)
    {
      new_draw_info_format (NDI_UNIQUE, 0, op, "bowmode is set to %s", types[op->contr->bowtype]);
      return 1;
    }

  for (i = 0, found = 0; i <= bow_bestarrow; i++)
    {
      if (!strcmp (params, types[i]))
        {
          found++;
          op->contr->bowtype = (bowtype_t) i;
          break;
        }
    }

  if (!found)
    {
      sprintf (buf, "bowmode: Unknown options %s, valid options are:", params);
      for (i = 0; i <= bow_bestarrow; i++)
        {
          strcat (buf, " ");
          strcat (buf, types[i]);
          if (i < bow_nw)
            strcat (buf, ",");
          else
            strcat (buf, ".");
        }
      new_draw_info_format (NDI_UNIQUE, 0, op, buf);
      return 0;
    }

  new_draw_info_format (NDI_UNIQUE, 0, op, "bowmode %s set to %s", (oldtype == op->contr->bowtype ? "" : "now"), types[op->contr->bowtype]);
  return 1;
}

int
command_showpets (object *op, char *params)
{
  objectlink *obl, *next;
  int counter = 0, target = 0;
  int have_shown_pet = 0;

  if (params != NULL)
    target = atoi (params);
  for (obl = first_friendly_object; obl != NULL; obl = next)
    {
      object *ob = obl->ob;

      next = obl->next;
      if (ob->owner == op)
        {
          if (target == 0)
            {
              if (counter == 0)
                new_draw_info (NDI_UNIQUE, 0, op, "Pets:");
              new_draw_info_format (NDI_UNIQUE, 0, op, "%d  %s - level %d", ++counter, &ob->name, ob->level);
            }
          else if (!have_shown_pet && ++counter == target)
            {
              new_draw_info_format (NDI_UNIQUE, 0, op, "level %d %s", ob->level, &ob->name);
              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);
              /* this is not a nice way to do this, it should be made to be more like the statistics command */
              new_draw_info_format (NDI_UNIQUE, 0, op, "Str %d", ob->stats.Str);
              new_draw_info_format (NDI_UNIQUE, 0, op, "Dex %d", ob->stats.Dex);
              new_draw_info_format (NDI_UNIQUE, 0, op, "Con %d", ob->stats.Con);
              new_draw_info_format (NDI_UNIQUE, 0, op, "Int %d", ob->stats.Int);
              new_draw_info_format (NDI_UNIQUE, 0, op, "Wis %d", ob->stats.Wis);
              new_draw_info_format (NDI_UNIQUE, 0, op, "Cha %d", ob->stats.Cha);
              new_draw_info_format (NDI_UNIQUE, 0, op, "Pow %d", ob->stats.Pow);
              new_draw_info_format (NDI_UNIQUE, 0, op, "wc %d  damage %d ac %d ", ob->stats.wc, ob->stats.dam, ob->stats.ac);
              have_shown_pet = 1;
            }
        }
    }
  if (counter == 0)
    new_draw_info (NDI_UNIQUE, 0, op, "you have no pets.");
  else if (target != 0 && have_shown_pet == 0)
    new_draw_info (NDI_UNIQUE, 0, op, "no such pet.");
  return 0;
}

int
command_resistances (object *op, char *params)
{
  int i;

  if (!op)
    return 0;

  for (i = 0; i < NROFATTACKS; i++)
    {
      if (i == ATNR_INTERNAL)
        continue;

      new_draw_info_format (NDI_UNIQUE, 0, op, "%-20s %+5d", attacktype_desc[i], op->resist[i]);
    }

  /* If dragon player, let's display natural resistances */
  if (is_dragon_pl (op))
    {
      int attack;
      object *tmp;

      for (tmp = op->inv; tmp != NULL; tmp = tmp->below)
        {
          if ((tmp->type == FORCE) && (strcmp (tmp->arch->archname, "dragon_skin_force") == 0))
            {
              new_draw_info (NDI_UNIQUE, 0, op, "\nNatural skin resistances:");
              for (attack = 0; attack < NROFATTACKS; attack++)
                {
                  if (atnr_is_dragon_enabled (attack))
                    {
                      new_draw_info_format (NDI_UNIQUE, 0, op, "%s: %d", change_resist_msg[attack], tmp->resist[attack]);
                    }
                }
              break;
            }
        }
    }

  return 0;
}

/*
 * Actual commands.
 * Those should be in small separate files (c_object.c, c_wiz.c, cmove.c,...)
 */

int
onoff_value (const char *line)
{
  int i;

  if (sscanf (line, "%d", &i))
    return (i != 0);
  switch (line[0])
    {
        case 'o':
          switch (line[1])
            {
                case 'n':
                  return 1;     /* on */
                default:
                  return 0;     /* o[ff] */
            }
        case 'y':              /* y[es] */
        case 'k':              /* k[ylla] */
        case 's':
        case 'd':
          return 1;
        case 'n':              /* n[o] */
        case 'e':              /* e[i] */
        case 'u':
        default:
          return 0;
    }
}

int
command_title (object *op, char *params)
{
  char buf[MAX_BUF];

  if (settings.set_title == FALSE)
    {
      new_draw_info (NDI_UNIQUE, 0, op, "You cannot change your title.");
      return 1;
    }

  /* dragon players cannot change titles */
  if (is_dragon_pl (op))
    {
      new_draw_info (NDI_UNIQUE, 0, op, "Dragons cannot change titles.");
      return 1;
    }

  if (params == NULL)
    {
      if (op->contr->own_title[0] == '\0')
        sprintf (buf, "Your title is '%s'.", op->contr->title);
      else
        sprintf (buf, "Your title is '%s'.", op->contr->own_title);
      new_draw_info (NDI_UNIQUE, 0, op, buf);
      return 1;
    }
  if (strcmp (params, "clear") == 0 || strcmp (params, "default") == 0)
    {
      if (op->contr->own_title[0] == '\0')
        new_draw_info (NDI_UNIQUE, 0, op, "Your title is the default title.");
      else
        new_draw_info (NDI_UNIQUE, 0, op, "Title set to default.");
      op->contr->own_title[0] = '\0';
      return 1;
    }

  if ((int) strlen (params) >= MAX_NAME)
    {
      new_draw_info (NDI_UNIQUE, 0, op, "Title too long.");
      return 1;
    }
  strcpy (op->contr->own_title, params);
  return 1;
}

int
command_kill_pets (object *op, char *params)
{
  objectlink *obl, *next;
  int counter = 0, removecount = 0;

  if (!params)
    {
      terminate_all_pets (op);
      new_draw_info (NDI_UNIQUE, 0, op, "Your pets have been killed.");
    }
  else
    {
      int target = atoi (params);

      for (obl = first_friendly_object; obl; obl = next)
        {
          object *ob = obl->ob;

          next = obl->next;

          if (ob->owner == op)
            if (++counter == target || (target == 0 && !strcasecmp (ob->name, params)))
              {
                ob->destroy ();
                removecount++;
              }
        }

      if (removecount != 0)
        new_draw_info_format (NDI_UNIQUE, 0, op, "killed %d pets.\n", removecount);
      else
        new_draw_info (NDI_UNIQUE, 0, op, "Couldn't find any suitable pets to kill.\n");
    }

  return 0;
}
Revision:	1.60
Committed:	Mon Jun 4 12:19:09 2007 UTC (17 years ago) by root
Content type:	text/plain
Branch:	MAIN
Changes since 1.59:	+1 -1 lines
Log Message:	rename arch->name to arch->archname for preparation of subclassing object
#	Content
1	/*
2	* This file is part of Crossfire TRT, the Roguelike Realtime MORPG.
3	*
4	* Copyright (©) 2005,2006,2007 Marc Alexander Lehmann / Robin Redeker / the Crossfire TRT team
5	* Copyright (©) 2002,2007 Mark Wedel & Crossfire Development Team
6	* Copyright (©) 1992,2007 Frank Tore Johansen
7	*
8	* Crossfire TRT is free software; you can redistribute it and/or modify it
9	* under the terms of the GNU General Public License as published by the Free
10	* Software Foundation; either version 2 of the License, or (at your option)
11	* any later version.
12	*
13	* This program is distributed in the hope that it will be useful, but
14	* WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
15	* or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
16	* for more details.
17	*
18	* You should have received a copy of the GNU General Public License along
19	* with Crossfire TRT; if not, write to the Free Software Foundation, Inc. 51
20	* Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
21	*
22	* The authors can be reached via e-mail to <crossfire@schmorp.de>
23	*/
24
25	#include <global.h>
26	#include <loader.h>
27	#include <sproto.h>
28
29	/* Handles misc. input request - things like hash table, malloc, maps, etc */
30
31	int
32	command_motd (object op, char params)
33	{
34	display_motd (op);
35	return 1;
36	}
37
38	#ifdef DEBUG_MALLOC_LEVEL
39	int
40	command_malloc_verify (object op, char parms)
41	{
42	extern int malloc_verify (void);
43
44	if (!malloc_verify ())
45	new_draw_info (NDI_UNIQUE, 0, op, "Heap is corrupted.");
46	else
47	new_draw_info (NDI_UNIQUE, 0, op, "Heap checks out OK.");
48	return 1;
49	}
50	#endif
51
52	int
53	command_whereabouts (object op, char params)
54	{
55	//TODO: should obviously not waste space in struct region for this.
56	/*
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	for_all_regions (rgn)
62	rgn->counter = 0;
63
64	for_all_players (pl)
65	if (pl->ob->map)
66	++pl->ob->region ()->counter;
67
68	/* we only want to print out by places with a 'longname' field... */
69	for_all_regions (rgn)
70	{
71	if (!rgn->longname && rgn->counter > 0)
72	{
73	if (rgn->parent)
74	{
75	rgn->parent->counter += rgn->counter;
76	rgn->counter = 0;
77	}
78	else /uh oh, we shouldn't be here. /
79	LOG (llevError, "command_whereabouts() Region %s with no longname has no parent", &rgn->name);
80	}
81	}
82
83	new_draw_info_format (NDI_UNIQUE, 0, op, "In the world currently there are:");
84
85	for_all_regions (rgn)
86	if (rgn->counter)
87	new_draw_info_format (NDI_UNIQUE, 0, op, "%u players %s", rgn->counter, &rgn->longname);
88
89	return 1;
90	}
91
92	typedef struct
93	{
94	char namebuf[MAX_BUF];
95	int login_order;
96	} chars_names;
97
98	int
99	command_time (object op, char params)
100	{
101	print_tod (op);
102	return 1;
103	}
104
105	int
106	command_weather (object op, char params)
107	{
108	#if 0
109	int wx, wy, temp, sky;
110	char buf[MAX_BUF];
111
112	if (settings.dynamiclevel < 1)
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
148	/* wind */
149	switch (weathermap[wx][wy].winddir)
150	{
151	case 1:
152	sprintf (buf, "north");
153	break;
154	case 2:
155	sprintf (buf, "northeast");
156	break;
157	case 3:
158	sprintf (buf, "east");
159	break;
160	case 4:
161	sprintf (buf, "southeast");
162	break;
163	case 5:
164	sprintf (buf, "south");
165	break;
166	case 6:
167	sprintf (buf, "southwest");
168	break;
169	case 7:
170	sprintf (buf, "west");
171	break;
172	case 8:
173	sprintf (buf, "northwest");
174	break;
175	}
176	if (weathermap[wx][wy].windspeed < 5)
177	new_draw_info_format (NDI_UNIQUE, 0, op, "There is a mild breeze " "coming from the %s.", buf);
178	else if (weathermap[wx][wy].windspeed < 10)
179	new_draw_info_format (NDI_UNIQUE, 0, op, "There is a strong breeze " "coming from the %s.", buf);
180	else if (weathermap[wx][wy].windspeed < 15)
181	new_draw_info_format (NDI_UNIQUE, 0, op, "There is a light wind " "coming from the %s.", buf);
182	else if (weathermap[wx][wy].windspeed < 25)
183	new_draw_info_format (NDI_UNIQUE, 0, op, "There is a strong wind " "coming from the %s.", buf);
184	else if (weathermap[wx][wy].windspeed < 35)
185	new_draw_info_format (NDI_UNIQUE, 0, op, "There is a heavy wind " "coming from the %s.", buf);
186	else
187	new_draw_info_format (NDI_UNIQUE, 0, op, "The wind from the %s is " "incredibly strong!", buf);
188
189	sky = weathermap[wx][wy].sky;
190	if (temp <= 0 && sky > SKY_OVERCAST && sky < SKY_FOG)
191	sky += 10; /let it snow /
192	switch (sky)
193	{
194	case SKY_CLEAR:
195	new_draw_info (NDI_UNIQUE, 0, op, "There isn''t a cloud in the sky.");
196	break;
197	case SKY_LIGHTCLOUD:
198	new_draw_info (NDI_UNIQUE, 0, op, "There are a few light clouds in the sky.");
199	break;
200	case SKY_OVERCAST:
201	new_draw_info (NDI_UNIQUE, 0, op, "The sky is cloudy and dreary.");
202	break;
203	case SKY_LIGHT_RAIN:
204	new_draw_info (NDI_UNIQUE, 0, op, "It is raining softly.");
205	break;
206	case SKY_RAIN:
207	new_draw_info (NDI_UNIQUE, 0, op, "It is raining.");
208	break;
209	case SKY_HEAVY_RAIN:
210	new_draw_info (NDI_UNIQUE, 0, op, "It is raining heavily.");
211	break;
212	case SKY_HURRICANE:
213	new_draw_info (NDI_UNIQUE, 0, op, "There is a heavy storm! You should go inside!");
214	break;
215	case SKY_FOG:
216	new_draw_info (NDI_UNIQUE, 0, op, "It''s foggy and miserable.");
217	break;
218	case SKY_HAIL:
219	new_draw_info (NDI_UNIQUE, 0, op, "It''s hailing out! Take cover!");
220	break;
221	case SKY_LIGHT_SNOW:
222	new_draw_info (NDI_UNIQUE, 0, op, "Snow is gently falling from the sky.");
223	break;
224	case SKY_SNOW:
225	new_draw_info (NDI_UNIQUE, 0, op, "It''s snowing out.");
226	break;
227	case SKY_HEAVY_SNOW:
228	new_draw_info (NDI_UNIQUE, 0, op, "The snow is falling very heavily now.");
229	break;
230	case SKY_BLIZZARD:
231	new_draw_info (NDI_UNIQUE, 0, op, "A full blown blizzard is in effect. You might want to take cover!");
232	break;
233	}
234	#endif
235	return 1;
236	}
237
238	int
239	command_hiscore (object op, char params)
240	{
241	display_high_score (op, op == NULL ? 9999 : 50, params);
242	return 1;
243	}
244
245	int
246	command_debug (object op, char params)
247	{
248	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	return 1;
256	}
257
258	settings.debug = i;
259
260	sprintf (buf, "Set debug level to %d.", i);
261	new_draw_info (NDI_UNIQUE, 0, op, buf);
262	return 1;
263	}
264
265
266	/*
267	* Those dumps should be just one dump with good parser
268	*/
269
270	int
271	command_dumpbelow (object op, char params)
272	{
273	if (op && op->below)
274	{
275	char *dump = dump_object (op->below);
276	new_draw_info (NDI_UNIQUE, 0, op, dump);
277	free (dump);
278	/* Let's push that item on the dm's stack */
279	dm_stack_push (op->contr, op->below->count);
280	}
281	return 0;
282	}
283
284	int
285	command_dumpfriendlyobjects (object op, char params)
286	{
287	dump_friendly_objects ();
288	return 0;
289	}
290
291	int
292	command_printlos (object op, char params)
293	{
294	if (op)
295	print_los (op);
296	return 0;
297	}
298
299
300	int
301	command_version (object op, char params)
302	{
303	version (op);
304	return 0;
305	}
306
307	#ifndef BUG_LOG
308	# define BUG_LOG "bug_log"
309	#endif
310	void
311	bug_report (const char *reportstring)
312	{
313	FILE *fp;
314
315	if ((fp = fopen (BUG_LOG, "a")) != NULL)
316	{
317	fprintf (fp, "%s\n", reportstring);
318	fclose (fp);
319	}
320	else
321	{
322	LOG (llevError, "Cannot write bugs file %s: %s\n", BUG_LOG, strerror (errno));
323	}
324	}
325
326	/* Prints out some useful information for the character. Everything we print
327	* out can be determined by the docs, so we aren't revealing anything extra -
328	* rather, we are making it convenient to find the values. params have
329	* no meaning here.
330	*/
331	int
332	command_statistics (object pl, char params)
333	{
334	if (!pl->contr)
335	return 1;
336	new_draw_info_format (NDI_UNIQUE, 0, pl, " Experience: %" PRId64, pl->stats.exp);
337	new_draw_info_format (NDI_UNIQUE, 0, pl, " Next Level: %" PRId64, level_exp (pl->level + 1, pl->expmul));
338	new_draw_info (NDI_UNIQUE, 0, pl, "\nStat Nat/Real/Max");
339
340	new_draw_info_format (NDI_UNIQUE, 0, pl, "Str %2d/ %3d/%3d",
341	pl->contr->orig_stats.Str, pl->stats.Str, 20 + pl->arch->clone.stats.Str);
342	new_draw_info_format (NDI_UNIQUE, 0, pl, "Dex %2d/ %3d/%3d",
343	pl->contr->orig_stats.Dex, pl->stats.Dex, 20 + pl->arch->clone.stats.Dex);
344	new_draw_info_format (NDI_UNIQUE, 0, pl, "Con %2d/ %3d/%3d",
345	pl->contr->orig_stats.Con, pl->stats.Con, 20 + pl->arch->clone.stats.Con);
346	new_draw_info_format (NDI_UNIQUE, 0, pl, "Int %2d/ %3d/%3d",
347	pl->contr->orig_stats.Int, pl->stats.Int, 20 + pl->arch->clone.stats.Int);
348	new_draw_info_format (NDI_UNIQUE, 0, pl, "Wis %2d/ %3d/%3d",
349	pl->contr->orig_stats.Wis, pl->stats.Wis, 20 + pl->arch->clone.stats.Wis);
350	new_draw_info_format (NDI_UNIQUE, 0, pl, "Pow %2d/ %3d/%3d",
351	pl->contr->orig_stats.Pow, pl->stats.Pow, 20 + pl->arch->clone.stats.Pow);
352	new_draw_info_format (NDI_UNIQUE, 0, pl, "Cha %2d/ %3d/%3d",
353	pl->contr->orig_stats.Cha, pl->stats.Cha, 20 + pl->arch->clone.stats.Cha);
354	new_draw_info_format (NDI_UNIQUE, 0, pl, "\nAttack Mode: %s", pl->contr->peaceful ? "Peaceful" : "Hostile");
355
356	/* Can't think of anything else to print right now */
357	return 0;
358	}
359
360	int
361	command_fix_me (object op, char params)
362	{
363	sum_weight (op);
364	op->update_stats ();
365	new_draw_info (NDI_UNIQUE, 0, op, "Your character was fixed.");
366
367	return 1;
368	}
369
370	int
371	command_logs (object op, char params)
372	{
373	new_draw_info (NDI_UNIQUE, 0, op, "Nobody is currently logging kills.");
374
375	return 1;
376	}
377
378	int
379	command_bowmode (object op, char params)
380	{
381	bowtype_t oldtype = op->contr->bowtype;
382	static const char *const types[] = { "normal", "threewide", "spreadshot", "firenorth",
383	"firene", "fireeast", "firese", "firesouth",
384	"firesw", "firewest", "firenw", "bestarrow"
385	};
386	char buf[MAX_BUF];
387	int i, found;
388
389	if (!params)
390	{
391	new_draw_info_format (NDI_UNIQUE, 0, op, "bowmode is set to %s", types[op->contr->bowtype]);
392	return 1;
393	}
394
395	for (i = 0, found = 0; i <= bow_bestarrow; i++)
396	{
397	if (!strcmp (params, types[i]))
398	{
399	found++;
400	op->contr->bowtype = (bowtype_t) i;
401	break;
402	}
403	}
404
405	if (!found)
406	{
407	sprintf (buf, "bowmode: Unknown options %s, valid options are:", params);
408	for (i = 0; i <= bow_bestarrow; i++)
409	{
410	strcat (buf, " ");
411	strcat (buf, types[i]);
412	if (i < bow_nw)
413	strcat (buf, ",");
414	else
415	strcat (buf, ".");
416	}
417	new_draw_info_format (NDI_UNIQUE, 0, op, buf);
418	return 0;
419	}
420
421	new_draw_info_format (NDI_UNIQUE, 0, op, "bowmode %s set to %s", (oldtype == op->contr->bowtype ? "" : "now"), types[op->contr->bowtype]);
422	return 1;
423	}
424
425	int
426	command_showpets (object op, char params)
427	{
428	objectlink obl, next;
429	int counter = 0, target = 0;
430	int have_shown_pet = 0;
431
432	if (params != NULL)
433	target = atoi (params);
434	for (obl = first_friendly_object; obl != NULL; obl = next)
435	{
436	object *ob = obl->ob;
437
438	next = obl->next;
439	if (ob->owner == op)
440	{
441	if (target == 0)
442	{
443	if (counter == 0)
444	new_draw_info (NDI_UNIQUE, 0, op, "Pets:");
445	new_draw_info_format (NDI_UNIQUE, 0, op, "%d %s - level %d", ++counter, &ob->name, ob->level);
446	}
447	else if (!have_shown_pet && ++counter == target)
448	{
449	new_draw_info_format (NDI_UNIQUE, 0, op, "level %d %s", ob->level, &ob->name);
450	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);
451	/* this is not a nice way to do this, it should be made to be more like the statistics command */
452	new_draw_info_format (NDI_UNIQUE, 0, op, "Str %d", ob->stats.Str);
453	new_draw_info_format (NDI_UNIQUE, 0, op, "Dex %d", ob->stats.Dex);
454	new_draw_info_format (NDI_UNIQUE, 0, op, "Con %d", ob->stats.Con);
455	new_draw_info_format (NDI_UNIQUE, 0, op, "Int %d", ob->stats.Int);
456	new_draw_info_format (NDI_UNIQUE, 0, op, "Wis %d", ob->stats.Wis);
457	new_draw_info_format (NDI_UNIQUE, 0, op, "Cha %d", ob->stats.Cha);
458	new_draw_info_format (NDI_UNIQUE, 0, op, "Pow %d", ob->stats.Pow);
459	new_draw_info_format (NDI_UNIQUE, 0, op, "wc %d damage %d ac %d ", ob->stats.wc, ob->stats.dam, ob->stats.ac);
460	have_shown_pet = 1;
461	}
462	}
463	}
464	if (counter == 0)
465	new_draw_info (NDI_UNIQUE, 0, op, "you have no pets.");
466	else if (target != 0 && have_shown_pet == 0)
467	new_draw_info (NDI_UNIQUE, 0, op, "no such pet.");
468	return 0;
469	}
470
471	int
472	command_resistances (object op, char params)
473	{
474	int i;
475
476	if (!op)
477	return 0;
478
479	for (i = 0; i < NROFATTACKS; i++)
480	{
481	if (i == ATNR_INTERNAL)
482	continue;
483
484	new_draw_info_format (NDI_UNIQUE, 0, op, "%-20s %+5d", attacktype_desc[i], op->resist[i]);
485	}
486
487	/* If dragon player, let's display natural resistances */
488	if (is_dragon_pl (op))
489	{
490	int attack;
491	object *tmp;
492
493	for (tmp = op->inv; tmp != NULL; tmp = tmp->below)
494	{
495	if ((tmp->type == FORCE) && (strcmp (tmp->arch->archname, "dragon_skin_force") == 0))
496	{
497	new_draw_info (NDI_UNIQUE, 0, op, "\nNatural skin resistances:");
498	for (attack = 0; attack < NROFATTACKS; attack++)
499	{
500	if (atnr_is_dragon_enabled (attack))
501	{
502	new_draw_info_format (NDI_UNIQUE, 0, op, "%s: %d", change_resist_msg[attack], tmp->resist[attack]);
503	}
504	}
505	break;
506	}
507	}
508	}
509
510	return 0;
511	}
512
513	/*
514	* Actual commands.
515	* Those should be in small separate files (c_object.c, c_wiz.c, cmove.c,...)
516	*/
517
518	int
519	onoff_value (const char *line)
520	{
521	int i;
522
523	if (sscanf (line, "%d", &i))
524	return (i != 0);
525	switch (line[0])
526	{
527	case 'o':
528	switch (line[1])
529	{
530	case 'n':
531	return 1; /* on */
532	default:
533	return 0; /* o[ff] */
534	}
535	case 'y': /* y[es] */
536	case 'k': /* k[ylla] */
537	case 's':
538	case 'd':
539	return 1;
540	case 'n': /* n[o] */
541	case 'e': /* e[i] */
542	case 'u':
543	default:
544	return 0;
545	}
546	}
547
548	int
549	command_title (object op, char params)
550	{
551	char buf[MAX_BUF];
552
553	if (settings.set_title == FALSE)
554	{
555	new_draw_info (NDI_UNIQUE, 0, op, "You cannot change your title.");
556	return 1;
557	}
558
559	/* dragon players cannot change titles */
560	if (is_dragon_pl (op))
561	{
562	new_draw_info (NDI_UNIQUE, 0, op, "Dragons cannot change titles.");
563	return 1;
564	}
565
566	if (params == NULL)
567	{
568	if (op->contr->own_title[0] == '\0')
569	sprintf (buf, "Your title is '%s'.", op->contr->title);
570	else
571	sprintf (buf, "Your title is '%s'.", op->contr->own_title);
572	new_draw_info (NDI_UNIQUE, 0, op, buf);
573	return 1;
574	}
575	if (strcmp (params, "clear") == 0 \|\| strcmp (params, "default") == 0)
576	{
577	if (op->contr->own_title[0] == '\0')
578	new_draw_info (NDI_UNIQUE, 0, op, "Your title is the default title.");
579	else
580	new_draw_info (NDI_UNIQUE, 0, op, "Title set to default.");
581	op->contr->own_title[0] = '\0';
582	return 1;
583	}
584
585	if ((int) strlen (params) >= MAX_NAME)
586	{
587	new_draw_info (NDI_UNIQUE, 0, op, "Title too long.");
588	return 1;
589	}
590	strcpy (op->contr->own_title, params);
591	return 1;
592	}
593
594	int
595	command_kill_pets (object op, char params)
596	{
597	objectlink obl, next;
598	int counter = 0, removecount = 0;
599
600	if (!params)
601	{
602	terminate_all_pets (op);
603	new_draw_info (NDI_UNIQUE, 0, op, "Your pets have been killed.");
604	}
605	else
606	{
607	int target = atoi (params);
608
609	for (obl = first_friendly_object; obl; obl = next)
610	{
611	object *ob = obl->ob;
612
613	next = obl->next;
614
615	if (ob->owner == op)
616	if (++counter == target \|\| (target == 0 && !strcasecmp (ob->name, params)))
617	{
618	ob->destroy ();
619	removecount++;
620	}
621	}
622
623	if (removecount != 0)
624	new_draw_info_format (NDI_UNIQUE, 0, op, "killed %d pets.\n", removecount);
625	else
626	new_draw_info (NDI_UNIQUE, 0, op, "Couldn't find any suitable pets to kill.\n");
627	}
628
629	return 0;
630	}