server/server/c_misc.C

/*
 * CrossFire, A Multiplayer game for X-windows
 * 
 * Copyright (C) 2005, 2006, 2007 Marc Lehmann & Crossfire+ Development Team
 * Copyright (C) 2002 Mark Wedel & Crossfire Development Team
 * Copyright (C) 1992 Frank Tore Johansen
 * 
 * This program 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 this program; if not, write to the Free Software
 * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 *
 * The authors can be reached via e-mail at <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 = (enum LogLevel) FABS (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->name, "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.57
Committed:	Wed Apr 25 19:19:54 2007 UTC (17 years ago) by root
Content type:	text/plain
Branch:	MAIN
Changes since 1.56:	+2 -2 lines
Log Message:	* empty log message *
#	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	root	1.7	int
517			onoff_value (const char *line)
518	elmex	1.1	{
519			int i;
520
521	root	1.7	if (sscanf (line, "%d", &i))
522	elmex	1.1	return (i != 0);
523	root	1.7	switch (line[0])
524			{
525			case 'o':
526			switch (line[1])
527			{
528			case 'n':
529			return 1; /* on */
530			default:
531			return 0; /* o[ff] */
532			}
533			case 'y': /* y[es] */
534			case 'k': /* k[ylla] */
535			case 's':
536			case 'd':
537			return 1;
538			case 'n': /* n[o] */
539			case 'e': /* e[i] */
540			case 'u':
541			default:
542			return 0;
543			}
544	elmex	1.1	}
545
546	root	1.7	int
547			command_title (object op, char params)
548	elmex	1.1	{
549	root	1.7	char buf[MAX_BUF];
550
551			if (settings.set_title == FALSE)
552			{
553			new_draw_info (NDI_UNIQUE, 0, op, "You cannot change your title.");
554			return 1;
555	elmex	1.1	}
556	root	1.7
557			/* dragon players cannot change titles */
558			if (is_dragon_pl (op))
559			{
560			new_draw_info (NDI_UNIQUE, 0, op, "Dragons cannot change titles.");
561			return 1;
562			}
563
564			if (params == NULL)
565			{
566			if (op->contr->own_title[0] == '\0')
567			sprintf (buf, "Your title is '%s'.", op->contr->title);
568			else
569			sprintf (buf, "Your title is '%s'.", op->contr->own_title);
570			new_draw_info (NDI_UNIQUE, 0, op, buf);
571			return 1;
572			}
573			if (strcmp (params, "clear") == 0 \|\| strcmp (params, "default") == 0)
574			{
575			if (op->contr->own_title[0] == '\0')
576			new_draw_info (NDI_UNIQUE, 0, op, "Your title is the default title.");
577			else
578			new_draw_info (NDI_UNIQUE, 0, op, "Title set to default.");
579			op->contr->own_title[0] = '\0';
580			return 1;
581			}
582
583			if ((int) strlen (params) >= MAX_NAME)
584			{
585			new_draw_info (NDI_UNIQUE, 0, op, "Title too long.");
586			return 1;
587			}
588			strcpy (op->contr->own_title, params);
589			return 1;
590	elmex	1.1	}
591
592	root	1.7	int
593			command_kill_pets (object op, char params)
594	elmex	1.1	{
595	root	1.7	objectlink obl, next;
596			int counter = 0, removecount = 0;
597
598	root	1.57	if (!params)
599	root	1.7	{
600			terminate_all_pets (op);
601			new_draw_info (NDI_UNIQUE, 0, op, "Your pets have been killed.");
602			}
603			else
604			{
605			int target = atoi (params);
606
607	root	1.57	for (obl = first_friendly_object; obl; obl = next)
608	root	1.7	{
609			object *ob = obl->ob;
610
611			next = obl->next;
612	root	1.56
613	root	1.22	if (ob->owner == op)
614	root	1.7	if (++counter == target \|\| (target == 0 && !strcasecmp (ob->name, params)))
615			{
616	root	1.20	ob->destroy ();
617	root	1.3	removecount++;
618	root	1.7	}
619	root	1.3	}
620	root	1.56
621	root	1.7	if (removecount != 0)
622			new_draw_info_format (NDI_UNIQUE, 0, op, "killed %d pets.\n", removecount);
623			else
624			new_draw_info (NDI_UNIQUE, 0, op, "Couldn't find any suitable pets to kill.\n");
625	elmex	1.1	}
626	root	1.56
627	root	1.7	return 0;
628	elmex	1.1	}