/* The CHANGE command.
*/
#include <stdlib.h>
#include "kernel.h"
#include "levels.h"
#include "pflags.h"
#include "sflags.h"
#include "uaf.h"
#include "mobile.h"
#include "flags.h"
#include "sendsys.h"
#include "writer.h"
#include "change.h"
#include "parse.h"
#include "zones.h"
#include "bprintf.h"
#include "log.h"
#include "wizlist.h"
#include "rooms.h"
#include "objsys.h"
#include "mud.h"
static void change_visibility (void);
static void change_speed (void);
static void change_sex (void);
static void change_level (void);
static void change_score (void);
static void change_strength (void);
static void change_damage (void);
static void change_armor (void);
static void change_aggression (void);
static void change_passwd (void);
static void change_name (void);
static void change_wimpy (void);
static void change_magic (void);
static char *ChTable[] =
{
"sex", "speed", "score", "strength", "level",
"visibility", "damage", "pflags", "mask", "lflags",
"mflags", "aggression", "title", "password", "name",
"description", "armor", "wimpy", "magic", TABLE_END
};
void (*ChFunTable[]) (void) =
{
change_sex, change_speed, change_score, change_strength, change_level,
change_visibility, change_damage, pflagscom, maskcom, lflagscom,
mflagscom, change_aggression, change_title, change_passwd, change_name,
change_desc, change_armor, change_wimpy, change_magic
};
#define SEX 0
#define SPEED 1
#define SCORE 2
#define STRENGTH 3
#define LEVEL 4
#define VIS 5
#define DAMAGE 6
#define PFL 7
#define MASK 8
#define LFL 9
#define MFL 10
#define AGG 11
#define TITLE 12
#define PASSWD 13
#define NAME 14
#define DESC 15
#define ARMOR 16
#define WIMPY 17
#define MAGIC 18
void
changecom (void)
{
int x;
if (brkword () == -1) {
bprintf ("Change what?\n");
return;
}
if (cur_player->aliased || cur_player->polymorphed >= 0) {
bprintf ("Not while aliased.\n");
return;
}
if ((x = tlookup (wordbuf, ChTable)) >= 0) {
ChFunTable[x] ();
} else {
bprintf ("I don't know how to change that.\n");
}
}
/* Change sex on a player or mobile.
*/
static void
change_sex (void)
{
int a, w;
PERSONA p;
Boolean f, is_me;
if (!ptstflg (mynum, PFL_UAF) || plev (mynum) < LVL_WIZARD) {
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_WIZARD && plev (mynum) < LVL_GOD && !is_me)) {
bprintf ("You can't do that to %s.\n", p.p_name);
return;
}
if (f) {
p.p_sflags.l ^= (1 << SFL_FEMALE);
if (p.p_level <= LVL_WIZARD && p.p_level >= LVL_NOVICE) {
strcpy (p.p_title, std_title (p.p_level, tst_bit (&p.p_sflags, SFL_FEMALE)));
}
putuaf (&p);
} else {
setpsex (a, !psex (a));
if (plev (a) <= LVL_WIZARD && plev (a) >= LVL_NOVICE) {
setptitle (a, std_title (plev (a), psex (a)));
}
sendf (a, "Your sex has been magically changed!\nYou are now %s.\n",
psex (a) ? "female" : "male");
send_msg (DEST_ALL, MODE_SFLAG | MS (SFL_SEEEXT), max (pvis (mynum),
LVL_WIZARD), LVL_MAX, mynum, NOBODY, "&+B[&+WChange &*(Sex: "
"%s): &+W%s &*changed &+W%s&+B]\n",
psex (a) ? "Female" : "Male", pname (mynum), pname (a));
}
}
/* Change the speed of mobiles.
*/
static void
change_speed (void)
{
int a, new_speed, old_speed;
if (plev (mynum) < LVL_WIZARD) {
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;
}
old_speed = pspeed (a);
bprintf ("Setting speed for %s to %d.\n", pname (a), new_speed);
setpspeed (a, new_speed);
send_msg (DEST_ALL, MODE_SFLAG | MS (SFL_SEEEXT), max (pvis (mynum),
LVL_WIZARD), LVL_MAX, mynum, NOBODY, "&+B[&+WChange &*(Speed: "
"%d->%d): &+W%s &*changed &+W%s&+B]\n",
old_speed, new_speed, pname (mynum), pname (a));
}
static void
change_score (void)
{
Boolean f, is_me, is_mobile;
int a;
int new_score, old_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_WIZARD || !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 (new_score < 0 || new_score > levels[LVL_WIZARD]) {
bprintf ("Score out of range!\n");
return;
}
if (!is_me && !is_mobile) {
mudlog ("CHANGE: %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) {
old_score = p.p_score;
p.p_score = new_score;
putuaf (&p);
send_msg (DEST_ALL, MODE_SFLAG | MS (SFL_SEEEXT), max (pvis (mynum),
LVL_ARCHWIZARD), LVL_MAX, mynum, NOBODY, "&+B[&+WChange "
"&*(Score: %d->%d): &+W%s &*changed &+W%s&+B]\n",
old_score, new_score, pname (mynum), p.p_name);
} else {
old_score = pscore (a);
setpscore (a, new_score);
send_msg (DEST_ALL, MODE_SFLAG | MS (SFL_SEEEXT), max (pvis (mynum),
LVL_ARCHWIZARD), LVL_MAX, mynum, NOBODY, "&+B[&+WChange "
"&*(Score: %d->%d): &+W%s &*changed &+W%s&+B]\n",
old_score, new_score, pname (mynum), pname (a));
}
}
static void
change_strength (void)
{
Boolean f, is_mobile, is_me;
int a, new_str, old_str, max_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;
max_str = is_mobile ? pstr_reset (a) : maxstrength (a);
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 (new_str < 1 || new_str > max_str) {
bprintf ("Out of Range!\n");
return;
}
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 ("CHANGE: %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) {
old_str = p.p_strength;
p.p_strength = new_str;
putuaf (&p);
send_msg (DEST_ALL, MODE_SFLAG | MS (SFL_SEEEXT), max (pvis (mynum),
LVL_ARCHWIZARD), LVL_MAX, mynum, NOBODY, "&+B[&+WChange "
"&*(Strength: %d->%d): &+W%s &*changed &+W%s&+B]\n",
old_str, new_str, pname (mynum), p.p_name);
} else {
old_str = pstr (a);
setpstr (a, new_str);
send_msg (DEST_ALL, MODE_SFLAG | MS (SFL_SEEEXT), max (pvis (mynum),
LVL_ARCHWIZARD), LVL_MAX, mynum, NOBODY, "&+B[&+WChange "
"&*(Strength: %d->%d): &+W%s &*changed &+W%s&+B]\n",
old_str, new_str, pname (mynum), pname (a));
}
}
static void
change_level (void)
{
Boolean f, is_mobile, is_me;
int a, new_lvl, old_lvl;
PERSONA p;
if (plev (mynum) < LVL_WIZARD || !ptstflg (mynum, PFL_CH_LEVEL)) {
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;
is_mobile = !f && a >= max_players;
if (is_mobile) {
bprintf ("Changing level on mobiles doesn't make sense now!\n");
return;
}
if (!is_me && (!ptstflg (mynum, PFL_FROB)
|| (wlevel (p.p_level) >= wlevel (plev (mynum)) && plev (mynum) < LVL_GOD))) {
bprintf ("You can't change level on %s.\n", p.p_name);
return;
}
if (brkword () < 0) {
bprintf ("What level?\n");
return;
}
if ((new_lvl = atoi (wordbuf)) >= LVL_MAX || new_lvl < LVL_MIN) {
bprintf ("Level must be between %d and %d.\n", LVL_MIN, LVL_MAX - 1);
return;
}
if (plev (mynum) >= LVL_GOD || wlevel (new_lvl) < wlevel (plev (mynum))
|| (is_me && wlevel (new_lvl) == wlevel (plev (mynum)))) {
if (wlevel (p.p_level) != wlevel (new_lvl)) {
update_wizlist (p.p_name, wlevel (new_lvl));
set_xpflags (new_lvl,
f ? &p.p_pflags : &pflags (a),
f ? &p.p_mask : &pmask (a));
}
if (f) {
if (p.p_level <= LVL_WIZARD || new_lvl <= LVL_WIZARD) {
strcpy (p.p_title,
std_title (new_lvl, tst_bit (&p.p_sflags, SFL_FEMALE)));
}
old_lvl = p.p_level;
p.p_level = new_lvl;
putuaf (&p);
send_msg (DEST_ALL, MODE_SFLAG | MS (SFL_SEEEXT), max (pvis (mynum),
LVL_ARCHWIZARD), LVL_MAX, mynum, NOBODY, "&+B[&+WChange "
"&*(Level: %d->%d): &+W%s &*changed &+W%s&+B]\n",
old_lvl, new_lvl, pname (mynum), p.p_name);
} else {
if (p.p_level <= LVL_WIZARD || new_lvl <= LVL_WIZARD) {
setptitle (a, std_title (new_lvl, tst_bit (&p.p_sflags, SFL_FEMALE)));
}
old_lvl = plev (a);
setplev (a, new_lvl);
send_msg (DEST_ALL, MODE_SFLAG | MS (SFL_SEEEXT), max (pvis (mynum),
LVL_ARCHWIZARD), LVL_MAX, mynum, NOBODY, "&+B[&+WChange "
"&*(Level: %d->%d): &+W%s &*changed &+W%s&+B]\n",
old_lvl, new_lvl, pname (mynum), pname (a));
}
} else
bprintf ("You can't change %s to level %d!\n", p.p_name, new_lvl);
}
static void
change_visibility (void)
{
int a, new_vis, max_vis, old_vis;
Boolean f, is_me;
PERSONA p;
if (plev (mynum) < LVL_WIZARD) {
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);
if (plev (mynum) < LVL_PROPHET)
max_vis = LVL_PROPHET;
else if (plev (mynum) < LVL_ARCHWIZARD)
max_vis = LVL_ARCHWIZARD;
else if (plev (mynum) < LVL_ADVISOR)
max_vis = LVL_ADVISOR;
else if (plev (mynum) < LVL_AVATAR)
max_vis = LVL_AVATAR;
else if (plev (mynum) < LVL_GOD)
max_vis = LVL_GOD;
else if (plev (mynum) < LVL_MASTER)
max_vis = LVL_MASTER;
else
max_vis = LVL_MAX - 1;
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) {
old_vis = p.p_vlevel;
p.p_vlevel = new_vis;
putuaf (&p);
send_msg (DEST_ALL, MODE_SFLAG | MS (SFL_SEEEXT), max (pvis (mynum),
LVL_ARCHWIZARD), LVL_MAX, mynum, NOBODY, "&+B[&+WChange "
"&*(Vis: %d->%d): &+W%s &*changed &+W%s&+B]\n",
old_vis, new_vis, pname (mynum), p.p_name);
} else {
old_vis = pvis (a);
setpvis (a, new_vis);
send_msg (DEST_ALL, MODE_SFLAG | MS (SFL_SEEEXT), max (pvis (mynum),
LVL_ARCHWIZARD), LVL_MAX, mynum, NOBODY, "&+B[&+WChange "
"&*(Vis: %d->%d): &+W%s &*changed &+W%s&+B]\n",
old_vis, new_vis, pname (mynum), pname (a));
}
}
static void
change_damage (void)
{
Boolean f, is_me, is_mobile;
int a, new_damage, old_damage;
PERSONA p;
if (plev (mynum) < LVL_WIZARD) {
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)) ||
(!is_mobile && !is_me && (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 (new_damage < 0 || new_damage > 100) {
bprintf ("Out of Range!\n");
return;
}
if (!is_me) {
mudlog ("CHANGE: %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) {
old_damage = p.p_damage;
p.p_damage = new_damage;
putuaf (&p);
send_msg (DEST_ALL, MODE_SFLAG | MS (SFL_SEEEXT), max (pvis (mynum),
LVL_ARCHWIZARD), LVL_MAX, mynum, NOBODY, "&+B[&+WChange "
"&*(Damage: %d->%d): &+W%s &*changed &+W%s&+B]\n",
old_damage, new_damage, pname (mynum), p.p_name);
} else {
old_damage = pdam (a);
setpdam (a, new_damage);
send_msg (DEST_ALL, MODE_SFLAG | MS (SFL_SEEEXT), max (pvis (mynum),
LVL_ARCHWIZARD), LVL_MAX, mynum, NOBODY, "&+B[&+WChange "
"&*(Damage: %d->%d): &+W%s &*changed &+W%s&+B]\n",
old_damage, new_damage, pname (mynum), pname (a));
}
}
static void
change_armor (void)
{
Boolean f, is_me, is_mobile;
int a, new_armor, old_armor;
PERSONA p;
if (plev (mynum) < LVL_WIZARD) {
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)) ||
(!is_mobile && !is_me && (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 ("CHANGE: %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) {
old_armor = p.p_armor;
p.p_armor = new_armor;
putuaf (&p);
send_msg (DEST_ALL, MODE_SFLAG | MS (SFL_SEEEXT), max (pvis (mynum),
LVL_ARCHWIZARD), LVL_MAX, mynum, NOBODY, "&+B[&+WChange "
"&*(Armor: %d->%d): &+W%s &*changed &+W%s&+B]\n",
old_armor, new_armor, pname (mynum), p.p_name);
} else {
old_armor = parmor (a);
setparmor (a, new_armor);
send_msg (DEST_ALL, MODE_SFLAG | MS (SFL_SEEEXT), max (pvis (mynum),
LVL_ARCHWIZARD), LVL_MAX, mynum, NOBODY, "&+B[&+WChange "
"&*(Armor: %d->%d): &+W%s &*changed &+W%s&+B]\n",
old_armor, new_armor, pname (mynum), pname (a));
}
}
static void
change_aggression (void)
{
int a, new_agg, old_agg;
if (plev (mynum) < LVL_WIZARD || !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;
}
old_agg = pagg (a);
setpagg (a, new_agg);
send_msg (DEST_ALL, MODE_SFLAG | MS (SFL_SEEEXT), max (pvis (mynum),
LVL_WIZARD), LVL_MAX, mynum, NOBODY, "&+B[&+WChange "
"&*(Aggression: %d->%d): &+W%s &*changed &+W%s&+B]\n",
old_agg, new_agg, pname (mynum), pname (a));
mudlog ("CHANGE: %s set %s to %d", pname (mynum), pname (a), new_agg);
}
void
change_title (void)
{
PERSONA p;
int a, b;
char buff[300];
Boolean f, is_me, is_mobile, disp_title = False;
if (!ptstflg (mynum, PFL_TITLES)) {
erreval ();
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;
getreinput (buff);
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;
}
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);
send_msg (DEST_ALL, MODE_SFLAG | MS (SFL_SEEEXT), max (pvis (mynum),
LVL_WIZARD), LVL_MAX, mynum, NOBODY, "&+B[&+WChange "
"&*(Title): &+W%s &*changed &+W%s&+B]\n",
pname (mynum), p.p_name);
}
}
if (!disp_title) {
bprintf ("Title changed on %s.\n", is_mobile ? pname (a) : p.p_name);
send_msg (DEST_ALL, MODE_SFLAG | MS (SFL_SEEEXT), max (pvis (mynum),
LVL_WIZARD), LVL_MAX, mynum, NOBODY, "&+B[&+WChange &*(Title): "
"&+W%s &*changed &+W%s&+B]\n",
pname (mynum), is_mobile ? pname (a) : p.p_name);
}
}
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_WIZARD) {
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, Maximum: %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_AVATAR) {
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);
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 ("CHANGE: %s changed name on %s to %s",
pname (mynum), old_name, new_name);
send_msg (DEST_ALL, MODE_SFLAG | MS (SFL_SEEEXT), max (pvis (mynum),
LVL_ARCHWIZARD), LVL_MAX, mynum, NOBODY, "&+B[&+WChange "
"&*(Name: %s->%s): &+W\001p%s\003 &*changed it&+B]\n",
old_name, new_name, pname (mynum));
}
}
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));
}
static 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);
}
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);
}
}
void
change_desc (void)
{
#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 {
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);
}
}
}
void
change_passwd (void)
{
PERSONA *p;
char b[60];
if (brkword () != -1 && !EQ (wordbuf, pname (mynum))) {
if (plev (mynum) < LVL_AVATAR) {
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);
}
}
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: 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);
}
}
void
ask_new_passwd (char *pass)
{
PERSONA *p = (PERSONA *) (cur_player->work);
strcpy (p->p_passwd, pass);
strcpy (cur_player->cprompt, "Confirm Password: ");
bprintf (" Please confirm the new password: ");
replace_input_handler (ask_confirm_passwd);
}
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 (" Password changed.\n");
mudlog ("CHANGE: %s changed password on %s.", pname (mynum), q.p_name);
}
FREE ((PERSONA *) p);
get_command (NULL);
}
static void
change_wimpy (void)
{
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_WIZARD) {
bprintf ("You can only see your own wimpy-level\n");
return;
} else {
bprintf ("Wimpy-level for %s is %d.\n", p.p_name, p.p_wimpy);
return;
}
} else {
old_wimpy = p.p_wimpy;
new_wimpy = atoi (wordbuf);
}
}
if (f) {
p.p_wimpy = new_wimpy;
putuaf (&p);
send_msg (DEST_ALL, MODE_SFLAG | MS (SFL_SEEEXT), max (pvis (mynum),
LVL_ARCHWIZARD), LVL_MAX, mynum, NOBODY, "&+B[&+WChange "
"&*(Wimpy: %d->%d): &+W%s &*changed &+W%s&+B]\n",
old_wimpy, new_wimpy, pname (mynum), p.p_name);
} else {
setpwimpy (a, new_wimpy);
send_msg (DEST_ALL, MODE_SFLAG | MS (SFL_SEEEXT), max (pvis (mynum),
LVL_ARCHWIZARD), LVL_MAX, mynum, NOBODY, "&+B[&+WChange "
"&*(Wimpy: %d->%d): &+W%s &*changed &+W%s&+B]\n",
old_wimpy, new_wimpy, pname (mynum), pname (a));
}
if ((f || (a != mynum && a < max_players)) && new_wimpy < old_wimpy) {
mudlog ("CHANGE: %s lowered wimpy on %s from %d to %d",
pname (mynum), p.p_name, old_wimpy, new_wimpy);
}
bprintf ("Setting Wimpy-level on %s to %d.\n", p.p_name, new_wimpy);
}
static void
change_magic (void)
{
Boolean f, is_mobile, is_me;
int a, new_mag, old_mag;
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 (!ptstflg (mynum, PFL_HEAL)) {
erreval ();
return;
}
if (is_mobile) {
bprintf ("Mobiles do not use mana!\n");
return;
}
if (wlevel (plev (mynum)) <= wlevel (p.p_level) && !is_me) {
bprintf ("That is beyond your powers.\n");
return;
}
new_mag = (brkword () < 0) ? p.p_magic : max (0, atoi (wordbuf));
if (new_mag < 0 || new_mag > maxmagic (a)) {
bprintf ("Out of Range!\n");
return;
}
if (p.p_magic > new_mag && !is_mobile && !is_me) {
if (!ptstflg (mynum, PFL_FROB)) {
bprintf ("How rude of you! Trying to take away people's mana!\n");
return;
}
}
bprintf ("Setting mana of %s to %d\n", p.p_name, new_mag);
if (f) {
old_mag = p.p_magic;
p.p_magic = new_mag;
putuaf (&p);
send_msg (DEST_ALL, MODE_SFLAG | MS (SFL_SEEEXT), max (pvis (mynum),
LVL_ARCHWIZARD), LVL_MAX, mynum, NOBODY, "&+B[&+WChange "
"&*(Magic: %d->%d): &+W%s &*changed &+W%s&+B]\n",
old_mag, new_mag, pname (mynum), p.p_name);
} else {
old_mag = pmagic (a);
setpmagic (a, new_mag);
send_msg (DEST_ALL, MODE_SFLAG | MS (SFL_SEEEXT), max (pvis (mynum),
LVL_ARCHWIZARD), LVL_MAX, mynum, NOBODY, "&+B[&+WChange "
"&*(Magic: %d->%d): &+W%s &*changed &+W%s&+B]\n",
old_mag, new_mag, pname (mynum), pname (a));
}
}