#include <ctype.h>
#include <stdlib.h>
#include "kernel.h"
#include "utils.h"
#include "bprintf.h"
#include "flags.h"
#include "pflags.h"
#include "writer.h"
#include "mobile.h"
#include "uaf.h"
#include "objsys.h"
#include "rooms.h"
#include "log.h"
#include "zones.h"
#include "wizlist.h"
#include "mud.h"
#include "parse.h"
#include "sflags.h"
#include "sendsys.h"

static A_COMMAND(change_sex);
A_COMMAND(change_desc);
A_COMMAND(change_title);
static A_COMMAND(change_passwd);
static A_COMMAND(change_name);
static A_COMMAND(change_level);
static A_COMMAND(change_speed);
static A_COMMAND(change_aggression);
static A_COMMAND(change_visibility);
A_COMMAND(change_wimpy);
static A_COMMAND(change_email);
static A_COMMAND(change_strength);
static A_COMMAND(change_armor);
static A_COMMAND(change_damage);
static A_COMMAND(change_score);

static char *change_table[] = {
"sex",		"description",	"title",	"password",	
"name",		"level",	"strength",	"score",
"damage",	"armor",	"speed",	"aggression",
"visibility",	"pflags",	"mask",		"lflags",
"mflags",	"wimpy",	"email",	TABLE_END
};

A_COMMAND((*change_functable[])) = {
change_sex,	change_desc,	change_title,	change_passwd,
change_name,	change_level,	change_strength,change_score,
change_damage,	change_armor,	change_speed,	change_aggression,
change_visibility,	pflagscom,	maskcom,	lflagscom,
mflagscom,	change_wimpy,	change_email
};


A_COMMAND(changecom)
{   int i;

    if (brkword() == -1)
    {   bprintf("Change what?\n");
    }
    else if (cur_player->aliased || cur_player->polymorphed >= 0)
    {   bprintf("Not while aliased.\n");
    }
    else if ((i = tlookup(wordbuf,change_table)) == -1)
    {   bprintf("I don't know how to change it.\n");
    }
    else
       change_functable[i]();
}


Boolean check_setin (char *s, Boolean d)
{ char *p;
  int nn = 0, dd = 0;
  
  for (p = s; (p = strchr (p, '%')) != NULL;)
    {
      switch (*++p)
	{
	case 'N':
	case 'n':
	  ++nn;
	  break;
	case 'd':
	  ++dd;
	  break;
	}
    }
  return (nn > 0 && nn < 3 && (dd == 0 || d) && strlen (s) < SETIN_MAX);
}

void set_msg (char *b, Boolean dir_ok)
{
  char k[MAX_COM_LEN];
  
  getreinput (k);
  strcpy (k, rawbuf);
  
  if (check_setin (k, dir_ok))
    strcpy (b, k);
  else
    bprintf ("Not changed, wrong format.\n");
}

A_COMMAND(change_wimpy)
{ Boolean f;
  int a, old_wimpy, new_wimpy;
  PERSONA p;
  
  if (brkword () == -1)
  {
      bprintf ("Wimpy on who to what?\n");
      return;
  }
  
  if (isdigit (*wordbuf))
  {
      new_wimpy = atoi (wordbuf);
      old_wimpy = pwimpy (a = mynum);
      f = False;
  }
  else if ((a = find_player (wordbuf, &p, &f)) == -1)
  {
      bprintf ("On who ?\n");
      return;
  }
  else
  {
      if (brkword () == -1)
      {
	  if (plev (mynum) < LVL_APPREN && (a != mynum))
	    {
	      bprintf ("You can only see your own wimpy-level\n");
	      return;
	    }
	  else
	    {
	      bprintf ("Wimpy-level for %s is %d.\n",
		       pname(a), p.p_wimpy);
	      return;
	    }
      }
      else if (plev(mynum) < LVL_APPREN && a != mynum)
      {  bprintf("I think %s can do that %sself.\n",pname(a),him_or_her(a));
         return;
      }
      else
      {
	  old_wimpy = p.p_wimpy;
	  new_wimpy = atoi (wordbuf);
      }
  }
  if (f)
  {
      p.p_wimpy = new_wimpy;
      putuaf (&p);
  }
  else
  {
      setpwimpy (a, new_wimpy);
  }
  
  if ((f || a != mynum) && (a < max_players) && (new_wimpy < old_wimpy))
  {
      mudlog ("%s lowered wimpy on %s from %d to %d",
	      pname (mynum), pname(a), old_wimpy, new_wimpy);
  }
  bprintf ("Setting Wimpy-level on %s to %d.\n", pname(a), new_wimpy);
}

static void change_sex (void)
{ int a, w;
  PERSONA p;
  Boolean f, is_me;
  
  if (!ptstflg (mynum, PFL_UAF) || plev (mynum) < LVL_APPREN)
  {  if ((a = vicf2 (SPELL_VIOLENT, 7)) < 0)
	return;
     player2pers (&p, NULL, a);
     f = False;
  }
  else if (brkword () == -1
	   || (a = find_player (wordbuf, &p, &f)) == -1)
  {  bprintf ("Who?\n");
     return;
  }
  
  is_me = !f && a == mynum;
  
  if ((w = wlevel (plev (mynum)) - wlevel (p.p_level)) < 0
      || (w == 0 && plev (mynum) >= LVL_APPREN
	  && plev (mynum) < LVL_GOD && !is_me))
  {  bprintf ("You can't do that to %s.\n", p.p_name);
     return;
  }
  
  if (f)
  {  set_doublebit(&p.p_sflags,!tst_doublebit(&p.p_sflags,SFL_FEMALE));
     putuaf (&p);
     bprintf("Ok.\n");
  }
  else
  {  setpsex (a, !psex (a));
      
     sendf (a, "Your sex has been magically changed!\nYou are now %s.\n",
	     psex (a) ? "female" : "male");
     if (a != mynum)
        bprintf("Ok.\n");

     calib_player(a);
  }
}

static void ask_old_passwd (char *pass);
static void ask_new_passwd (char *pass);
static void ask_confirm_passwd (char *pass);

void change_passwd (void)
{ PERSONA *p;
  char b[40];
  
  if (brkword () != -1 && !EQ (wordbuf, pname (mynum)))
  {   
      if (plev (mynum) < LVL_DEMI)
      {   bprintf ("You can only change your own password.\n");
	  return;
      }
      
      p = NEW (PERSONA, 1);
      if (!getuaf (wordbuf, p))
      {	  bprintf ("I cannot find anyone called \"%s\". ", wordbuf);
	  free (p);
	  return;
      }
      strcpy (cur_player->cprompt, "New Password: ");
      cur_player->work = (int) p;
      cur_player->no_echo = True;
      sprintf (b, "\n\377\373\001\001New Password for %s: ", wordbuf);
      bprintf (b);
      replace_input_handler (ask_new_passwd);
  }
  else
  {   strcpy (cur_player->cprompt, "Old Password: ");
      bprintf ("\n\377\373\001\001Old Password: ");
      replace_input_handler (ask_old_passwd);
  }
}

static void ask_old_passwd (char *pass)
{ PERSONA *p;
  char b[sizeof (cur_player->passwd)];
  
  my_crypt (b, pass, sizeof (b));
  
  if (strcmp (b, cur_player->passwd) != 0)
  {   cur_player->no_echo = False;
      bprintf ("\n\377\374\001\001Wrong password!\n");
      mudlog ("CHANGE PASSWD: Wrong old password for %s", pname (mynum));
      get_command (NULL);
  }
  else
  {   strcpy (cur_player->cprompt, "New Password: ");
      cur_player->work = (int) (p = NEW (PERSONA, 1));
      strcpy (p->p_name, pname (mynum));
      bprintf ("\nNew password: ");
      replace_input_handler (ask_new_passwd);
  }
}

static void ask_new_passwd (char *pass)
{ PERSONA *p = (PERSONA *) (cur_player->work);
  
  strcpy (p->p_passwd, pass);
  strcpy (cur_player->cprompt, "Confirm Password: ");
  bprintf ("\nPlease confirm the new password: ");
  replace_input_handler (ask_confirm_passwd);
}

static void ask_confirm_passwd (char *pass)
{ PERSONA *p = (PERSONA *) (cur_player->work);
  PERSONA q;
  int plx;
  
  bprintf ("\377\374\001\001");
  cur_player->no_echo = False;
  if (strcmp (p->p_passwd, pass) != 0)
      bprintf ("\nNot same new password, password not changed.\n");
  else if (!getuaf (p->p_name, &q))
      bprintf ("\nCouldn't find entry in UAF file.\n");
  else
  { 				/* Change password... */
      if ((plx = fpbns (p->p_name)) >= 0 && plx < max_players)
      {
	  /* Player is in game, modify his password in game, and save. */
	  /* uaf record is invalid except for 'last_on' */
	  
	  player2pers (&q, &q.p_last_on, plx);
      }
      my_crypt (q.p_passwd, p->p_passwd, sizeof (q.p_passwd));
      putuaf (&q);
      
      if (plx >= 0 && plx < max_players)
	  strcpy (players[plx].passwd, q.p_passwd);

      bprintf ("\nPassword changed.\n");
      mudlog ("%s changed password on %s.", pname (mynum), q.p_name);
  }
  free ((PERSONA *) p);
  
  get_command (NULL);
}

static void room_desc_handler (void *w, void *ad, int adlen);
static void change_room_desc (int loc, char *room_name);
static void mob_desc_handler (void *w, void *ad, int adlen);
static void change_mob_desc (int mob, char *mob_name);
static void obj_desc_handler (void *w, void *ad, int adlen);
void   change_obj_desc (int obj, char *obj_name);
static void player_desc_handler (void *w, void *ad, int adlen);
static void change_player_desc (PERSONA * p);

A_COMMAND(change_desc)
{
#define DESC_LOC 0
#define DESC_MOB 1
#define DESC_OBJ 2
#define DESC_PLR 3
  
  char *desc_type[] = {"Location", "Mobile", "Object", "Player", TABLE_END};
  
  
  PERSONA p;
  int loc;
  
  if (brkword () == -1)
  {
      if (cur_player->aliased || cur_player->polymorphed != -1)
      {   bprintf ("Not while aliased.\n");
	  return;
      }
      
      player2pers (&p, NULL, mynum);
      change_player_desc (&p);
  }
  else if (plev(mynum) < LVL_APPREN)
  {  bprintf("Please enter a description for yourself.\n");
     if (getuaf(pname(mynum),&p))
        change_player_desc(&p);
  }
  else
  {
      int type = tlookup (wordbuf, desc_type);
      
      if (brkword () == -1 || type == -1)
      {
	  bprintf ("Change description on what?\n");
	  return;
      }
      
      if (type == DESC_LOC && (loc = find_loc_by_name (wordbuf)) < 0)
	  change_room_desc (loc, wordbuf);
      else if (type == DESC_MOB && (loc = fpbn (wordbuf)) >= max_players)
	  change_mob_desc (loc, pname (loc));
      else if (type == DESC_OBJ && (loc = fobn (wordbuf)) >= 0)
	  change_obj_desc (loc, oname (loc));
      else if (type == DESC_PLR && getuaf (wordbuf, &p))
	  change_player_desc (&p);
      else
	  bprintf ("Can't find %s: %s\n", desc_type[type], wordbuf);
  }
}

static void change_room_desc (int loc, char *room_name)
{
  long int loc_ident = loc_id (loc);
  char *owner = lowner (loc);
  Boolean denied;
  
  if (lpermanent (loc))
    {
      bprintf ("That's a permanent location.\n");
      return;
    }
  
  if ((denied = !EQ (pname (mynum), owner)))
    {
      int x, lev;
      PERSONA p;
      
      lev = (x = fpbns (owner)) >= 0 ? plev (x) :
	getuaf (owner, &p) ? p.p_level : 0;
      
      if (do_okay_l (plev (mynum), lev, False))
	{
	  denied = False;
	}
    }
  
  if (denied)
    {
      bprintf ("You're not powerful enough to change %s's rooms.",
	       owner);
      return;
    }
  
  start_writer ("End your input with ** on the beginning of a new line.\n"
		"The room description cannot contain the ^ character.",
		
		"DESC>",
		&loc_ident,
		sizeof (loc_ident),
		room_desc_handler,
		WR_CMD | '*',
		50);
}

void room_desc_handler (void *w, void *ad, int adlen)
{ int loc = find_loc_by_id (*(long int *) ad);
  
  char *s;
  char *t;
  int k;
  int error = 0;
  int num_bytes;
  
  if (loc == 0)
    {
      bprintf ("Sorry, but the room doesn't exist any more!\n");
      terminate_writer (w);
      return;
    }
  
  num_bytes = wnum_lines (w) + wnum_chars (w);
  
  t = s = NEW (char, num_bytes + 1);
  
  while ((k = wgetc (w)) != EOF)
    {
      if (k != '^')
	*t++ = k;
      else
	error++;
    }
  *t = 0;
  
  if (error)
    {
      bprintf ("Warning: The description cannot contain '^'.\n");
      bprintf ("The %d ^'s was ignored.\n", error);
    }
  
  if (llong (loc) != NULL)
    free (llong (loc));
  llong (loc) = s;
  bprintf ("Room description changed.\n");
}


static void change_mob_desc (int mob, char *mob_name)
{
  long int mob_ident = mob_id (mob);
  char *owner = powner (mob);
  Boolean denied;
  
  if (ppermanent (mob))
    {
      bprintf ("That's a permanent mobile.\n");
      return;
    }
  
  if ((denied = !EQ (pname (mynum), owner)))
    {
      int x, lev;
      PERSONA p;
      
      lev = (x = fpbns (owner)) >= 0 ? plev (x) :
	getuaf (owner, &p) ? p.p_level : 0;
      
      if (do_okay_l (plev (mynum), lev, False))
	{
	  denied = False;
	}
    }
  
  if (denied)
    {
      bprintf ("You're not powerful enough to change %s's mobiles.",
	       owner);
      return;
    }
  
  start_writer ("End your input with ** on the beginning of a new line.\n"
		"The mobile description cannot contain the ^ character.",
		
		"DESC>",
		&mob_ident,
		sizeof (mob_ident),
		mob_desc_handler,
		WR_CMD | '*',
		50);
}

void mob_desc_handler (void *w, void *ad, int adlen)
{
  int mob = find_mobile_by_id (*(long int *) ad);
  
  char *s;
  char *t;
  int k;
  int error = 0;
  int num_bytes;
  
  if (mob < 0)
    {
      bprintf ("Sorry, but the mobile doesn't exist any more!\n");
      terminate_writer (w);
      return;
    }
  
  num_bytes = wnum_lines (w) + wnum_chars (w);
  
  t = s = NEW (char, num_bytes + 1);
  
  while ((k = wgetc (w)) != EOF)
    {
      if (k != '^')
	*t++ = k;
      else
	error++;
    }
  *t = 0;
  
  if (error)
    {
      bprintf ("Warning: The description cannot contain '^'.\n");
      bprintf ("The %d ^'s was ignored.\n", error);
    }
  
  if (pexam (mob) != NULL)
    free (pexam (mob));
  pexam (mob) = s;
  bprintf ("Description on %s changed.\n", pname (mob));
}


void change_obj_desc (int obj, char *obj_name)
{
  long int obj_ident = obj_id (obj);
  char *owner = oowner (obj);
  Boolean denied;
  
  if (opermanent (obj))
    {
      bprintf ("That's a permanent object.\n");
      return;
    }
  
  if ((denied = !EQ (pname (mynum), owner)))
    {
      int x, lev;
      PERSONA p;
      
      lev = (x = fpbns (owner)) >= 0 ? plev (x) :
	getuaf (owner, &p) ? p.p_level : 0;
      
      if (do_okay_l (plev (mynum), lev, False))
	{
	  denied = False;
	}
    }
  
  if (denied)
    {
      bprintf ("You're not powerful enough to change %s's objects.",
	       owner);
      return;
    }
  
  start_writer ("End your input with ** on the beginning of a new line.\n"
		"The object description cannot contain the ^ character.",
		
		"DESC>",
		&obj_ident,
		sizeof (obj_ident),
		obj_desc_handler,
		WR_CMD | '*',
		50);
}

void obj_desc_handler (void *w, void *ad, int adlen)
{
  int obj = find_object_by_id (*(long int *) ad);
  
  char *s;
  char *t;
  int k;
  int error = 0;
  int num_bytes;
  
  if (obj < 0)
    {
      bprintf ("Sorry, but the object doesn't exist any more!\n");
      terminate_writer (w);
      return;
    }
  
  num_bytes = wnum_lines (w) + wnum_chars (w);
  
  t = s = NEW (char, num_bytes + 1);
  
  while ((k = wgetc (w)) != EOF)
    {
      if (k != '^')
	*t++ = k;
      else
	error++;
    }
  *t = 0;
  
  if (error)
    {
      bprintf ("Warning: The description cannot contain '^'.\n");
      bprintf ("The %d ^'s was ignored.\n", error);
    }
  
  if (oexam_text (obj) != NULL)
    free (oexam_text (obj));
  oexam_text (obj) = s;
  bprintf ("Description on %s changed.\n", oname (obj));
}


static void change_player_desc (PERSONA * p)
{ char buff[128];
  
  if (!EQ (pname (mynum), p->p_name) &&
      !do_okay_l (plev (mynum), p->p_level, False))
    {
      
      bprintf ("You're not powerful enough to change "
	       "%s's description.\n", p->p_name);
      return;
    }
  
  sprintf (buff, DESC_DIR "/%s", p->p_name);
  
  start_writer (
		"End the player description with ** on the beginning of a new line",
		"DESC>",
		buff,
		strlen (buff) + 1,
		player_desc_handler,
		WR_CMD | '*',
		200);
}

static void player_desc_handler (void *w, void *ad, int adlen)
{ FILE *f;
  char b[100];
  
  if ((f = fopen ((char *) ad, "w")) == NULL)
    {
      
      sprintf (b, "desc_handler/%s", (char *) ad);
      progerror (b);
      terminate_writer (w);
      return;
      
    }
  else
    {
      
      while (wgets (b, sizeof (b), w) != NULL)
	{
	  fputs (b, f);
	}
      fclose (f);
    }
}


static void change_speed (void)
{ int a, new_speed;
  
  if (plev (mynum) < LVL_APPREN)
  {  bprintf ("I don't know how to change that.\n");
     return;
  }
  
  if (brkword () == -1)
  {  bprintf ("For whom ?\n");
     return;
  }
  
  if ((a = fpbn (wordbuf)) < 0 || a < max_players)
  {  bprintf ("There is no mobile by that name.\n");
     return;
  }
  
  if (brkword () == -1 || !isdigit (*wordbuf))
  {  bprintf ("Set speed to what ?");
     return;
  }
  
  if ((new_speed = atoi (wordbuf)) > 100)
  {  bprintf ("The highest value is 100.\n");
     new_speed = 100;
  }
  bprintf ("Setting speed for %s to %d.\n", pname (a), new_speed);
  setpspeed (a, new_speed);
}



static void change_score (void)
{ Boolean f, is_me, is_mobile;
  int a;
  int new_score;
  PERSONA p;
  
  
  if (brkword () == -1 || (a = find_player (wordbuf, &p, &f)) == -1)
  {  bprintf ("Who?\n");
     return;
  }
  
  is_me = !f && a == mynum;
  is_mobile = !f && a >= max_players;
  
  if (plev (mynum) < LVL_COUNSEL || !ptstflg (mynum, PFL_CH_SCORE))
  {  erreval ();
     return;
  }
  
  if (!is_mobile && !is_me && !ptstflg (mynum, PFL_FROB))
  {  bprintf ("You can only change your own score.\n");
     return;
  }
  
  if (wlevel (plev (mynum)) <= wlevel (p.p_level) && !is_me)
  {  bprintf ("That is beyond your powers.\n");
     return;
  }
  
  new_score = (brkword () < 0) ? p.p_score : atoi (wordbuf);
  
  if (!is_me && !is_mobile)
  {  mudlog ("%s changed score on %s from %d to %d",
	      pname (mynum), p.p_name, p.p_score, new_score);
  }
  
  bprintf ("Setting score for %s to %d\n", p.p_name, new_score);
  
  if (f)
  {  p.p_score = new_score;
     putuaf (&p);
  }
  else
  {  setpscore (a, new_score);
  }
}



static void change_strength (void)
{ Boolean f, is_mobile, is_me;
  int a, new_str;
  PERSONA p;
  
  if (brkword () == -1 || (a = find_player (wordbuf, &p, &f)) == -1)
  {  bprintf ("Who?\n");
     return;
  }
  
  is_me = !f && a == mynum;
  is_mobile = !f && a >= max_players;
  
  if (((is_mobile && !ptstflg (mynum, PFL_CH_MDATA))
       || (!is_mobile && !ptstflg (mynum, PFL_HEAL))))
  {  erreval ();
     return;
  }
  
  if (wlevel (plev (mynum)) <= wlevel (p.p_level) && !is_me)
  {  bprintf ("That is beyond your powers.\n");
     return;
  }
  
  new_str = (brkword () < 0) ? p.p_strength : Max (0, atoi (wordbuf));
  
  if (p.p_strength > new_str && !is_mobile && !is_me)
  {  if (!ptstflg (mynum, PFL_FROB))
     {  bprintf ("How rude of you! Trying to make other players weaker!\n");
        return;
     }
     else
     {  mudlog ("%s lowered %s's strength from %d to %d",
		  pname (mynum), p.p_name, p.p_strength, new_str);
     }
  }
  
  bprintf ("Setting strength of %s to %d\n", p.p_name, new_str);
  
  if (f)
  {  p.p_strength = new_str;
     putuaf (&p);
  }
  else
    setpstr (a, new_str);
}

static void change_visibility (void)
{ int a, new_vis, max_vis, lev;
  Boolean f, is_me;
  PERSONA p;
  
  if (plev (mynum) < LVL_APPREN)
  {  bprintf ("I don't know how to change that.\n");
     return;
  }
  
  if (brkword () == -1 || (a = find_player (wordbuf, &p, &f)) == -1)
  {  bprintf ("Who is that?\n");
     return;
  }
  
  is_me = !f && a == mynum;
  
  if (!is_me && wlevel (p.p_level) >= wlevel (plev (mynum))
      && plev (mynum) < LVL_GOD)
  {  bprintf ("You can't change visibility on %s!\n", p.p_name);
     return;
  }
  
  new_vis = (brkword () == -1) ? 0 : atoi (wordbuf);
  max_vis = LVL_WIZARD;
  
  lev = p.p_level;
  
  
    switch (wlevel(lev)) {
    case LEV_MASTER: max_vis = LVL_GOD; break;
    case LEV_GOD: max_vis = LVL_GOD; break;
    case LEV_HIGHDEMI: max_vis = LVL_GOD; break;
    case LEV_DEMI: max_vis = LVL_HIGHDEMI; break;
    case LEV_HIGHARCH: max_vis = LVL_DEMI; break;
    case LEV_ARCHWIZARD: max_vis = LVL_HIGHARCH; break;
    case LEV_COUNSEL: max_vis = LVL_ARCHWIZARD; break;
    case LEV_SENIOR: max_vis = LVL_COUNSEL; break;
    case LEV_WIZARD: max_vis = LVL_SENIOR; break;
    case LEV_EMERITUS: max_vis = LVL_WIZARD; break;
    case LEV_APPRENTICE: max_vis = LVL_EMERITUS; break;
    case LEV_MORTAL:
    case LEV_NEG: max_vis = LVL_WIZARD; break;
    }
    
  if (new_vis > max_vis)
  {  bprintf ("The maximum is %d.\n", max_vis);
     new_vis = max_vis;
  }
  
  bprintf ("Setting visibility for %s to %d.\n", p.p_name, new_vis);
  
  if (f)
  {  p.p_vlevel = new_vis;
     putuaf (&p);
  }
  else
     setpvis (a, new_vis);
}



static void change_damage (void)
{ Boolean f, is_me, is_mobile;
  int a, new_damage;
  PERSONA p;
  
  if (plev (mynum) < LVL_APPREN)
  {  bprintf ("I don't know how to change that.\n");
     return;
  }
  
  if (brkword () == -1 || (a = find_player (wordbuf, &p, &f)) == -1)
  {  bprintf ("Who?\n");
     return;
  }
  
  is_me = (!f && (a == mynum)); 
  is_mobile = (!f && (a >= max_players));
  
  if(is_mobile && !ptstflg(mynum,PFL_CH_MDATA))
  {  bprintf ("That is beyond your powers.\n");
     return;
  }
  if(!is_mobile && !is_me)
    if((plev(mynum)<LVL_ARCHWIZARD) ||
       (wlevel(plev(mynum)) <= wlevel(p.p_level)))
    {  bprintf ("That is beyond your powers.\n");
       return;
    }
    
  if (brkword () == -1)
  {  bprintf ("Change damage on %s to what ?\n", p.p_name);
     return;
  }
  
  new_damage = Max (0, atoi (wordbuf));
  
  if (!is_me)
     mudlog ("%s changed damage on %s from %d to %d",
	      pname (mynum), p.p_name, p.p_damage, new_damage);
  
  bprintf ("Setting damage on %s %s to %d\n",
	   p.p_name, is_mobile ? " " : "permanently", new_damage);
  
  if (f)
  {  p.p_damage = new_damage;
     putuaf (&p);
  }
  else
    setpdam (a, new_damage);
}

static void change_armor (void)
{ Boolean f, is_me, is_mobile;
  int a, new_armor;
  PERSONA p;
  
  if (plev (mynum) < LVL_APPREN)
    {
      bprintf ("I don't know how to change that.\n");
      return;
    }
  
  if (brkword () == -1 || (a = find_player (wordbuf, &p, &f)) == -1)
    {
      bprintf ("Who?\n");
      return;
    }
  
  is_me = !f && a == mynum;
  is_mobile = !f && a >= max_players;
  
  if(is_mobile && !ptstflg(mynum,PFL_CH_MDATA))
    {
      bprintf ("That is beyond your powers.\n");
      return;
    }
  if(!is_mobile && !is_me)
    if(  (plev(mynum)<LVL_ARCHWIZARD) ||
       (wlevel(plev(mynum)) <= wlevel(p.p_level)))
      {
	bprintf ("That is beyond your powers.\n");
	return;
      }
  if (brkword () == -1)
    {
      bprintf ("Change armor on %s to what ?\n", p.p_name);
      return;
    }
  
  new_armor = Max (0, atoi (wordbuf));
  
  if (!is_me)
    {
      mudlog ("%s changed armor on %s from %d to %d",
	      pname (mynum), p.p_name, p.p_armor, new_armor);
    }
  
  bprintf ("Setting armor on %s%sto %d\n",
	   p.p_name, is_mobile ? " " : " permanently ", new_armor);
  
  if (f)
    {
      p.p_armor = new_armor;
      putuaf (&p);
    }
  else
    setparmor (a, new_armor);
}

static void change_aggression (void)
{
  int a, new_agg;
  
  if (plev (mynum) < LVL_APPREN || !ptstflg (mynum, PFL_CH_MDATA))
    {
      bprintf ("I don't know how to change that.\n");
      return;
    }
  
  if (brkword () == -1)
    {
      bprintf ("For whom ?\n");
      return;
    }
  
  if ((a = fpbn (wordbuf)) < 0 || a < max_players)
    {
      bprintf ("There is no mobile by that name.\n");
      return;
    }
  
  if (brkword () == -1 || !isdigit (*wordbuf))
    {
      bprintf ("Set aggression to what ?");
      return;
    }
  
  if ((new_agg = atoi (wordbuf)) > 100)
    {
      bprintf ("The highest value is 100.\n");
      new_agg = 100;
    }
  
  setpagg (a, new_agg);
  
  mudlog ("Change Agg: %s set %s to %d", pname (mynum), pname (a), new_agg);
}

/* Check that a title has a valid format. Currently this means that it must
 * contain one (and only one) occurence of the string %s, that that occurence
 * is not preceded by a % (%%s) and that it does not contain other
 * occurences of %.
 */
static Boolean 
check_title (char *title, Boolean strict)
{
  char *p;
  
  return ((p = strchr(title, '%')) == strrchr(title, '%') && p != NULL
	  && p[1] == 's') || ( (p == NULL) && !strict);
  /***
    char *a, *b;
    
    if (!strict && strchr (title, '%') == 0)
    return (True);
    a = strchr (title, '%');
    b = strrchr (title, '%');
    if ((a == b) && a)
    return (True);
    return False;
    ***/
}

static void change_email(void)
{
  char a [200];
  
  getreinput(a);
  if (strlen(a) == 0)
    {
      bprintf("Change your email address to what?\n");
      return;
    }
  strcpy (pemail(mynum), a);
}

static void change_name (void)
{
  PERSONA p, q;
  char old_name[MNAME_LEN + 1];
  char buff[256];
  char buff2[256];
  char *r;
  int num;
  int max_len;
  Boolean in_uaf;
  Boolean is_mobile;
  Boolean is_me;
  
  if (plev (mynum) < LVL_APPREN)
    {
      erreval ();
      return;
    }
  
  if (brkword () == -1)
    {
      bprintf ("Change name on who ?\n");
      return;
    }
  
  if ((num = find_player (wordbuf, &p, &in_uaf)) == -1)
    {
      bprintf ("No such player or mobile: %s.\n", wordbuf);
      return;
    }
  
  strcpy (old_name, p.p_name);
  
  is_mobile = num >= max_players;
  is_me = num == mynum;
  max_len = is_mobile ? MNAME_LEN : PNAME_LEN;
  
  if (EMPTY (getreinput (wordbuf)))
    {
      bprintf ("Change name on %s to what ?\n", old_name);
      return;
    }
  
  if (strlen (wordbuf) > max_len)
    {
      bprintf ("Name too long, max = %d.\n", max_len);
      return;
    }
  
  for (r = wordbuf; isalpha (*r) || (is_mobile && *r == ' '); r++);
  
  if (*r != '\0')
    {
      bprintf ("Name contains illegal character: %c\n", *r);
      return;
    }
  
  if (isalpha (*wordbuf))
    *wordbuf = toupper (*wordbuf);
  
  if (is_mobile)
    {
      
      Boolean denied;
      char *owner = powner (num);
      
      if (ppermanent (num))
	{
	  bprintf ("That's a permanent mobile.\n");
	  return;
	}
      
      if ((denied = !EQ (pname (mynum), owner)))
	{
	  int x, lev;
	  
	  lev = (x = fpbns (owner)) >= 0 ? plev (x) :
	    getuaf (owner, &p) ? p.p_level : 0;
	  
	  if (do_okay_l (plev (mynum), lev, False))
	    {
	      denied = False;
	    }
	}
      
      if (denied)
	{
	  bprintf ("You're not powerful enough to change "
		   "%s's mobiles.\n", owner);
	  return;
	}
      
      setpname (num, wordbuf);
      
      free (pname_reset (num));
      pname_reset (num) = COPY (wordbuf);
      
    }
  else
    {
      char *new_name = wordbuf;
      
      if (plev (mynum) < LVL_DEMI)
	{
	  bprintf ("You can only change name on mobiles.\n");
	  return;
	}
      
      if (getuaf (new_name, &q))
	{
	  bprintf ("%s already exists.\n", new_name);
	  return;
	}
      
      deluaf (old_name);
      strcpy (p.p_name, new_name);
      strcpy (p.p_idname, p.p_name);
      lowercase(p.p_idname);
      putuaf (&p);
      
      if (!in_uaf)
	{
	  setpname (num, new_name);
	}
      
      if ((num = get_zone_by_name (old_name)) >= num_const_zon)
	{
	  free (zname (num));
	  zname (num) = COPY (new_name);
	}
      
      wiz_loc_filename (buff, old_name);
      wiz_loc_filename (buff2, new_name);
      rename (buff, buff2);
      
      wiz_mob_filename (buff, old_name);
      wiz_mob_filename (buff2, new_name);
      rename (buff, buff2);
      
      wiz_obj_filename (buff, old_name);
      wiz_obj_filename (buff2, new_name);
      rename (buff, buff2);
      
      update_wizlist (old_name, LEV_MORTAL);
      update_wizlist (new_name, wlevel (p.p_level));
      
      bprintf ("Ok.\n");
      mudlog ("%s changed name on %s to %s",
	      pname (mynum), old_name, new_name);
    }
}

A_COMMAND(change_title)
{ PERSONA p;
  int a, b;
  char buff[MAX_COM_LEN];
  Boolean f, is_me, is_mobile, disp_title = False;
  Boolean strict;
  
  if (!ptstflg (mynum, PFL_TITLES))
    {
      erreval ();
      return;
    }
  
  if (brkword () == -1 || (a = find_player (wordbuf, &p, &f)) == -1)
    {
      bprintf ("Who?\n");
      return;
    }
  
  if (plev (mynum) < LVL_APPREN)
    strict = True;
  else
    strict = False;
  
  is_me = !f && a == mynum;
  is_mobile = !f && a >= max_players;
  
  getreinput (buff);
  strcpy (buff, rawbuf);
  
  if (EMPTY (buff))
    {
      disp_title = True;
    }
  else if (is_mobile)
    {
      int lev;
      char *owner = powner (a);
      
      if (ppermanent (a))
	{
	  bprintf ("That's a permanent mobile.\n");
	  return;
	}
      
      lev = (b = fpbns (owner)) >= 0 ? plev (b) :
	getuaf (owner, &p) ? p.p_level : -1;
      
      if (!EQ (pname (mynum), owner)
	  && !do_okay_l (plev (mynum), lev, False))
	{
	  
	  bprintf ("You can't change title on %s's mobiles.\n", owner);
	  return;
	}
      
      if (strchr (buff, '^') != NULL)
	{
	  bprintf ("Illegal character(s): '^' in title.\n");
	  return;
	}
    }
  else if (!is_me && !do_okay_l (plev (mynum), p.p_level,
				 wlevel (p.p_level) < wlevel (plev (mynum))))
    {
      bprintf ("That is beyond your powers.\n");
      return;
    }
  else if (strlen (buff) > TITLE_LEN)
    {
      bprintf ("Maximum title-length is %d characters.\n", TITLE_LEN);
      return;
    }
  
  else if (!check_title (buff, strict))
    {
      bprintf ("Invalid format. See HELP TITLE\n");
      return;
    }
  
  if (!f)
    {
      if (disp_title)
	bprintf ("Title: %s\n",
		 is_mobile ? pftxt (a) : make_title (ptitle (a), "<name>"));
      else if (is_mobile)
	{
	  if (pftxt (a) != NULL)
	    free (pftxt (a));
	  
	  pftxt (a) = COPY (buff);
	}
      else
	{
	  setptitle (a, buff);
	}
    }
  else
    {
      if (disp_title)
	bprintf ("Title: %s\n", make_title (p.p_title, "<name>"));
      else
	{
	  strcpy (p.p_title, buff);
	  putuaf (&p);
	}
    }
  
  if (!disp_title)
    bprintf ("Title changed on %s.\n", is_mobile ? pname (a) : p.p_name);
}

static A_COMMAND(change_level)
{   int plx;
    int new_lev;
    int wiz_lev;
    static int froblevs[] = {
	0, 0, LVL_APPREN, LVL_SENIOR, LVL_COUNSEL, LVL_ARCHWIZARD, LVL_HIGHARCH,
	LVL_ADVISOR, LVL_DEMI, LVL_HIGHDEMI, LVL_GOD, LVL_MAX 
    };

    if (!ptstflg(mynum,PFL_FROB) && !ptstflg(mynum,PFL_CH_LEVEL))
    {   erreval();
        return;
    }

    if (brkword() == -1)
    {   bprintf("Change level on who?\n");
        return;
    }

    plx = fpbns(wordbuf);
    if (plx == mynum)
    {   if (!ptstflg(mynum,PFL_CH_LEVEL))
        {  bprintf("You can't change that.\n");
           return;
        }  
        if (brkword() == -1)
        {  bprintf("Change to what level?\n");
           return;
        }

        new_lev = atoi(wordbuf);

        if (new_lev < 1 && new_lev >= LVL_MAX)
        {  bprintf("Invalid level.\n");
           return;
        }
        if (!ptstflg(plx,PFL_FROB) && new_lev > plev(mynum))
        {  bprintf("Invalid level.\n");
           return;
        }
        wiz_lev = wlevel(plev(mynum));
        
        if (froblevs[wiz_lev] <= new_lev)
        {  bprintf("You can only frob yourself to level %d.\n",(froblevs[wiz_lev] -1));
           return;
        }
        setplev(plx,new_lev);
        set_xpflags(new_lev,&pflags(mynum),&pmask(mynum));
        update_wizlist(pname(mynum),wlevel(plev(mynum)));
        calib_player(mynum);

        mudlog("FROB: %s changed %s own level to %d",
               pname(plx), his_or_her(plx), new_lev);
        bprintf("Changed level on you to %d\n",new_lev);
        return;
    }
    else if (plx == -1 || plx < max_players)
    {  PERSONA p;
       Boolean online = (plx >= 0 && plx < max_players);

       if (!ptstflg(mynum,PFL_FROB))
       {  bprintf("That's beyond your powers.\n");
          return;
       }

       if (!getuaf(wordbuf,&p))
       {   bprintf("No such player.\n");
           return;
       }

       if (brkword() == -1)
       {  bprintf("Change level to what?\n");
          return;
       }

       new_lev = atoi(wordbuf);
       if (new_lev < 1 && new_lev > LVL_MAX)
       {   bprintf("Invalid level.\n");
           return;
       }
       if (p.p_level >= plev(mynum))
       {  bprintf("You can't change level on %s.\n",p.p_name);
          return;
       }

       if (ptstflg(mynum,PFL_FROB) && new_lev > plev(mynum))
       {  bprintf("You can't promote %s to level %d.\n",p.p_name,new_lev);
          return;
       }

       wiz_lev = wlevel(plev(mynum));
        
       if (froblevs[wiz_lev] <= new_lev)
       {  bprintf("You can only frob yourself to level %d.\n",(froblevs[wiz_lev] -1));
          return;
       }

       if (online)
       {   setplev(plx,new_lev);
           set_xpflags(new_lev,&pflags(plx),&pmask(plx));
           p.p_level = new_lev;
       }
       else
       {  p.p_level = new_lev;
          set_xpflags(new_lev,&p.p_pflags,&p.p_mask);
          putuaf(&p);
       } 

       update_wizlist(p.p_name,wlevel(p.p_level));
       bprintf("Changed level on %s to %d.\n",p.p_name,new_lev);
       mudlog("FROB: %s changed level on %s to %d",pname(mynum),p.p_name,p.p_level);
       return;
    }
    else if (plx >= max_players)
      bprintf("Changing level on mobiles has no effect.\n");
}