server/server/c_misc.C

/*
 * This file is part of Deliantra, the Roguelike Realtime MMORPG.
 * 
 * Copyright (©) 2005,2006,2007 Marc Alexander Lehmann / Robin Redeker / the Deliantra team
 * Copyright (©) 2002,2007 Mark Wedel & Crossfire Development Team
 * Copyright (©) 1992,2007 Frank Tore Johansen
 * 
 * Deliantra 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 3 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, see <http://www.gnu.org/licenses/>.
 * 
 * The authors can be reached via e-mail to <support@deliantra.net>
 */

#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;
}

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_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->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->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->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->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->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->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->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) && tmp->arch->archname == shstr_dragon_skin_force)
            {
              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.66
Committed:	Sun Apr 20 06:20:38 2008 UTC (16 years, 1 month ago) by root
Content type:	text/plain
Branch:	MAIN
Changes since 1.65:	+0 -14 lines
Log Message:	* empty log message *
#	Content
1	/*
2	* This file is part of Deliantra, the Roguelike Realtime MMORPG.
3	*
4	* Copyright (©) 2005,2006,2007 Marc Alexander Lehmann / Robin Redeker / the Deliantra team
5	* Copyright (©) 2002,2007 Mark Wedel & Crossfire Development Team
6	* Copyright (©) 1992,2007 Frank Tore Johansen
7	*
8	* Deliantra 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 3 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, see <http://www.gnu.org/licenses/>.
20	*
21	* The authors can be reached via e-mail to <support@deliantra.net>
22	*/
23
24	#include <global.h>
25	#include <loader.h>
26	#include <sproto.h>
27
28	/* Handles misc. input request - things like hash table, malloc, maps, etc */
29
30	int
31	command_motd (object op, char params)
32	{
33	display_motd (op);
34	return 1;
35	}
36
37	typedef struct
38	{
39	char namebuf[MAX_BUF];
40	int login_order;
41	} chars_names;
42
43	int
44	command_time (object op, char params)
45	{
46	print_tod (op);
47	return 1;
48	}
49
50	int
51	command_debug (object op, char params)
52	{
53	int i;
54	char buf[MAX_BUF];
55
56	if (params == NULL \|\| !sscanf (params, "%d", &i))
57	{
58	sprintf (buf, "Global debug level is %d.", settings.debug);
59	new_draw_info (NDI_UNIQUE, 0, op, buf);
60	return 1;
61	}
62
63	settings.debug = i;
64
65	sprintf (buf, "Set debug level to %d.", i);
66	new_draw_info (NDI_UNIQUE, 0, op, buf);
67	return 1;
68	}
69
70
71	/*
72	* Those dumps should be just one dump with good parser
73	*/
74
75	int
76	command_dumpbelow (object op, char params)
77	{
78	if (op && op->below)
79	{
80	char *dump = dump_object (op->below);
81	new_draw_info (NDI_UNIQUE, 0, op, dump);
82	free (dump);
83	/* Let's push that item on the dm's stack */
84	dm_stack_push (op->contr, op->below->count);
85	}
86	return 0;
87	}
88
89	int
90	command_dumpfriendlyobjects (object op, char params)
91	{
92	dump_friendly_objects ();
93	return 0;
94	}
95
96	int
97	command_printlos (object op, char params)
98	{
99	if (op)
100	print_los (op);
101	return 0;
102	}
103
104
105	int
106	command_version (object op, char params)
107	{
108	version (op);
109	return 0;
110	}
111
112	#ifndef BUG_LOG
113	# define BUG_LOG "bug_log"
114	#endif
115	void
116	bug_report (const char *reportstring)
117	{
118	FILE *fp;
119
120	if ((fp = fopen (BUG_LOG, "a")) != NULL)
121	{
122	fprintf (fp, "%s\n", reportstring);
123	fclose (fp);
124	}
125	else
126	{
127	LOG (llevError, "Cannot write bugs file %s: %s\n", BUG_LOG, strerror (errno));
128	}
129	}
130
131	/* Prints out some useful information for the character. Everything we print
132	* out can be determined by the docs, so we aren't revealing anything extra -
133	* rather, we are making it convenient to find the values. params have
134	* no meaning here.
135	*/
136	int
137	command_statistics (object pl, char params)
138	{
139	if (!pl->contr)
140	return 1;
141	new_draw_info_format (NDI_UNIQUE, 0, pl, " Experience: %" PRId64, pl->stats.exp);
142	new_draw_info_format (NDI_UNIQUE, 0, pl, " Next Level: %" PRId64, level_exp (pl->level + 1, pl->expmul));
143	new_draw_info (NDI_UNIQUE, 0, pl, "\nStat Nat/Real/Max");
144
145	new_draw_info_format (NDI_UNIQUE, 0, pl, "Str %2d/ %3d/%3d",
146	pl->contr->orig_stats.Str, pl->stats.Str, 20 + pl->arch->stats.Str);
147	new_draw_info_format (NDI_UNIQUE, 0, pl, "Dex %2d/ %3d/%3d",
148	pl->contr->orig_stats.Dex, pl->stats.Dex, 20 + pl->arch->stats.Dex);
149	new_draw_info_format (NDI_UNIQUE, 0, pl, "Con %2d/ %3d/%3d",
150	pl->contr->orig_stats.Con, pl->stats.Con, 20 + pl->arch->stats.Con);
151	new_draw_info_format (NDI_UNIQUE, 0, pl, "Int %2d/ %3d/%3d",
152	pl->contr->orig_stats.Int, pl->stats.Int, 20 + pl->arch->stats.Int);
153	new_draw_info_format (NDI_UNIQUE, 0, pl, "Wis %2d/ %3d/%3d",
154	pl->contr->orig_stats.Wis, pl->stats.Wis, 20 + pl->arch->stats.Wis);
155	new_draw_info_format (NDI_UNIQUE, 0, pl, "Pow %2d/ %3d/%3d",
156	pl->contr->orig_stats.Pow, pl->stats.Pow, 20 + pl->arch->stats.Pow);
157	new_draw_info_format (NDI_UNIQUE, 0, pl, "Cha %2d/ %3d/%3d",
158	pl->contr->orig_stats.Cha, pl->stats.Cha, 20 + pl->arch->stats.Cha);
159	new_draw_info_format (NDI_UNIQUE, 0, pl, "\nAttack Mode: %s", pl->contr->peaceful ? "Peaceful" : "Hostile");
160
161	/* Can't think of anything else to print right now */
162	return 0;
163	}
164
165	int
166	command_fix_me (object op, char params)
167	{
168	sum_weight (op);
169	op->update_stats ();
170	new_draw_info (NDI_UNIQUE, 0, op, "Your character was fixed.");
171
172	return 1;
173	}
174
175	int
176	command_logs (object op, char params)
177	{
178	new_draw_info (NDI_UNIQUE, 0, op, "Nobody is currently logging kills.");
179
180	return 1;
181	}
182
183	int
184	command_bowmode (object op, char params)
185	{
186	bowtype_t oldtype = op->contr->bowtype;
187	static const char *const types[] = { "normal", "threewide", "spreadshot", "firenorth",
188	"firene", "fireeast", "firese", "firesouth",
189	"firesw", "firewest", "firenw", "bestarrow"
190	};
191	char buf[MAX_BUF];
192	int i, found;
193
194	if (!params)
195	{
196	new_draw_info_format (NDI_UNIQUE, 0, op, "bowmode is set to %s", types[op->contr->bowtype]);
197	return 1;
198	}
199
200	for (i = 0, found = 0; i <= bow_bestarrow; i++)
201	{
202	if (!strcmp (params, types[i]))
203	{
204	found++;
205	op->contr->bowtype = (bowtype_t) i;
206	break;
207	}
208	}
209
210	if (!found)
211	{
212	sprintf (buf, "bowmode: Unknown options %s, valid options are:", params);
213	for (i = 0; i <= bow_bestarrow; i++)
214	{
215	strcat (buf, " ");
216	strcat (buf, types[i]);
217	if (i < bow_nw)
218	strcat (buf, ",");
219	else
220	strcat (buf, ".");
221	}
222	new_draw_info_format (NDI_UNIQUE, 0, op, buf);
223	return 0;
224	}
225
226	new_draw_info_format (NDI_UNIQUE, 0, op, "bowmode %s set to %s", (oldtype == op->contr->bowtype ? "" : "now"), types[op->contr->bowtype]);
227	return 1;
228	}
229
230	int
231	command_showpets (object op, char params)
232	{
233	objectlink obl, next;
234	int counter = 0, target = 0;
235	int have_shown_pet = 0;
236
237	if (params != NULL)
238	target = atoi (params);
239	for (obl = first_friendly_object; obl != NULL; obl = next)
240	{
241	object *ob = obl->ob;
242
243	next = obl->next;
244	if (ob->owner == op)
245	{
246	if (target == 0)
247	{
248	if (counter == 0)
249	new_draw_info (NDI_UNIQUE, 0, op, "Pets:");
250	new_draw_info_format (NDI_UNIQUE, 0, op, "%d %s - level %d", ++counter, &ob->name, ob->level);
251	}
252	else if (!have_shown_pet && ++counter == target)
253	{
254	new_draw_info_format (NDI_UNIQUE, 0, op, "level %d %s", ob->level, &ob->name);
255	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);
256	/* this is not a nice way to do this, it should be made to be more like the statistics command */
257	new_draw_info_format (NDI_UNIQUE, 0, op, "Str %d", ob->stats.Str);
258	new_draw_info_format (NDI_UNIQUE, 0, op, "Dex %d", ob->stats.Dex);
259	new_draw_info_format (NDI_UNIQUE, 0, op, "Con %d", ob->stats.Con);
260	new_draw_info_format (NDI_UNIQUE, 0, op, "Int %d", ob->stats.Int);
261	new_draw_info_format (NDI_UNIQUE, 0, op, "Wis %d", ob->stats.Wis);
262	new_draw_info_format (NDI_UNIQUE, 0, op, "Cha %d", ob->stats.Cha);
263	new_draw_info_format (NDI_UNIQUE, 0, op, "Pow %d", ob->stats.Pow);
264	new_draw_info_format (NDI_UNIQUE, 0, op, "wc %d damage %d ac %d ", ob->stats.wc, ob->stats.dam, ob->stats.ac);
265	have_shown_pet = 1;
266	}
267	}
268	}
269	if (counter == 0)
270	new_draw_info (NDI_UNIQUE, 0, op, "you have no pets.");
271	else if (target != 0 && have_shown_pet == 0)
272	new_draw_info (NDI_UNIQUE, 0, op, "no such pet.");
273	return 0;
274	}
275
276	int
277	command_resistances (object op, char params)
278	{
279	int i;
280
281	if (!op)
282	return 0;
283
284	for (i = 0; i < NROFATTACKS; i++)
285	{
286	if (i == ATNR_INTERNAL)
287	continue;
288
289	new_draw_info_format (NDI_UNIQUE, 0, op, "%-20s %+5d", attacktype_desc[i], op->resist[i]);
290	}
291
292	/* If dragon player, let's display natural resistances */
293	if (is_dragon_pl (op))
294	{
295	int attack;
296	object *tmp;
297
298	for (tmp = op->inv; tmp != NULL; tmp = tmp->below)
299	{
300	if ((tmp->type == FORCE) && tmp->arch->archname == shstr_dragon_skin_force)
301	{
302	new_draw_info (NDI_UNIQUE, 0, op, "\nNatural skin resistances:");
303	for (attack = 0; attack < NROFATTACKS; attack++)
304	{
305	if (atnr_is_dragon_enabled (attack))
306	{
307	new_draw_info_format (NDI_UNIQUE, 0, op, "%s: %d", change_resist_msg[attack], tmp->resist[attack]);
308	}
309	}
310	break;
311	}
312	}
313	}
314
315	return 0;
316	}
317
318	/*
319	* Actual commands.
320	* Those should be in small separate files (c_object.c, c_wiz.c, cmove.c,...)
321	*/
322
323	int
324	onoff_value (const char *line)
325	{
326	int i;
327
328	if (sscanf (line, "%d", &i))
329	return (i != 0);
330	switch (line[0])
331	{
332	case 'o':
333	switch (line[1])
334	{
335	case 'n':
336	return 1; /* on */
337	default:
338	return 0; /* o[ff] */
339	}
340	case 'y': /* y[es] */
341	case 'k': /* k[ylla] */
342	case 's':
343	case 'd':
344	return 1;
345	case 'n': /* n[o] */
346	case 'e': /* e[i] */
347	case 'u':
348	default:
349	return 0;
350	}
351	}
352
353	int
354	command_title (object op, char params)
355	{
356	char buf[MAX_BUF];
357
358	if (settings.set_title == FALSE)
359	{
360	new_draw_info (NDI_UNIQUE, 0, op, "You cannot change your title.");
361	return 1;
362	}
363
364	/* dragon players cannot change titles */
365	if (is_dragon_pl (op))
366	{
367	new_draw_info (NDI_UNIQUE, 0, op, "Dragons cannot change titles.");
368	return 1;
369	}
370
371	if (params == NULL)
372	{
373	if (op->contr->own_title[0] == '\0')
374	sprintf (buf, "Your title is '%s'.", op->contr->title);
375	else
376	sprintf (buf, "Your title is '%s'.", op->contr->own_title);
377	new_draw_info (NDI_UNIQUE, 0, op, buf);
378	return 1;
379	}
380	if (strcmp (params, "clear") == 0 \|\| strcmp (params, "default") == 0)
381	{
382	if (op->contr->own_title[0] == '\0')
383	new_draw_info (NDI_UNIQUE, 0, op, "Your title is the default title.");
384	else
385	new_draw_info (NDI_UNIQUE, 0, op, "Title set to default.");
386	op->contr->own_title[0] = '\0';
387	return 1;
388	}
389
390	if ((int) strlen (params) >= MAX_NAME)
391	{
392	new_draw_info (NDI_UNIQUE, 0, op, "Title too long.");
393	return 1;
394	}
395	strcpy (op->contr->own_title, params);
396	return 1;
397	}
398
399	int
400	command_kill_pets (object op, char params)
401	{
402	objectlink obl, next;
403	int counter = 0, removecount = 0;
404
405	if (!params)
406	{
407	terminate_all_pets (op);
408	new_draw_info (NDI_UNIQUE, 0, op, "Your pets have been killed.");
409	}
410	else
411	{
412	int target = atoi (params);
413
414	for (obl = first_friendly_object; obl; obl = next)
415	{
416	object *ob = obl->ob;
417
418	next = obl->next;
419
420	if (ob->owner == op)
421	if (++counter == target \|\| (target == 0 && !strcasecmp (ob->name, params)))
422	{
423	ob->destroy ();
424	removecount++;
425	}
426	}
427
428	if (removecount != 0)
429	new_draw_info_format (NDI_UNIQUE, 0, op, "killed %d pets.\n", removecount);
430	else
431	new_draw_info (NDI_UNIQUE, 0, op, "Couldn't find any suitable pets to kill.\n");
432	}
433
434	return 0;
435	}