void
init_attr(int np)
{
int i, x, tryct;
for (i = 0; i < A_MAX; i++) {
ABASE(i) = AMAX(i) = urole.attrbase[i];
ATEMP(i) = ATIME(i) = 0;
np -= urole.attrbase[i];
}
/* The starting ability distribution has changed slightly since 3.4.3 so
that players with different races but the same role will have the same
stats, as far as is possible. Instead of capping scores at the racial
maximum, we cap them at STR18(100) for Strength, or 20 for other
stats. Then, if any stats end up over the racial cap, we reduce them to
the cap and redistribute them on rng_main. The result is that the number
of seeds consumed from rng_charstats_role depends purely on role.
Note: there were previously two loops here, one to top up to np points,
one to cut down to np points. The latter was dead code, and has been
removed. */
int pass;
for (pass = 1; pass < 3; pass++) {
tryct = 0;
while (np > 0 && tryct < 100) {
x = rn2_on_rng(100, pass == 1 ? rng_charstats_role : rng_main);
for (i = 0; (i < A_MAX) && ((x -= urole.attrdist[i]) > 0); i++)
;
if (i >= A_MAX)
continue; /* impossible */
int current_max = (pass == 1 ? ATTRMAX(i) :
i == A_STR ? STR18(100) : 20);
if (ABASE(i) >= current_max) {
tryct++;
continue;
}
tryct = 0;
ABASE(i)++;
AMAX(i)++;
np--;
}
for (i = 0; i < A_MAX; i++) {
if (ABASE(i) > ATTRMAX(i)) {
np += ABASE(i) - ATTRMAX(i);
AMAX(i) -= ABASE(i) - ATTRMAX(i);
ABASE(i) = ATTRMAX(i);
}
}
}
}
void gainstr (struct obj *otmp, int incr) {
int num = 1;
if(incr) num = incr;
else {
if(ABASE(A_STR) < 18) num = (rn2(4) ? 1 : rnd(6) );
else if (ABASE(A_STR) < STR18(85)) num = rnd(10);
}
(void) adjattrib(A_STR, (otmp && otmp->cursed) ? -num : num, true);
}
void
gainstr(struct obj *otmp, int incr)
{
int num = 1;
boolean cursed = otmp && otmp->cursed;
enum rng rng = cursed ? rng_main : rng_strength_gain;
if (incr)
num = incr;
else {
boolean gain_is_small = !!rn2_on_rng(4, rng);
int large_gain_amount = rn2_on_rng(6, rng);
if (ABASE(A_STR) < 18)
num = (gain_is_small ? 1 : large_gain_amount + 1);
else if (ABASE(A_STR) < STR18(85)) {
num = large_gain_amount + 3;
}
}
adjattrib(A_STR, cursed ? -num : num, TRUE);
}
0, 10, 0, 0, 4, A_INT, 0, -3
};
/* Table of all races */
const struct Race races[] = {
{ "human", "human", "humanity", "Hum",
{"man", "woman"},
PM_HUMAN, NON_PM, PM_MUMMY, PM_ZOMBIE,
MH_HUMAN | ROLE_MALE|ROLE_FEMALE |
ROLE_LAWFUL|ROLE_NEUTRAL|ROLE_CHAOTIC,
MH_HUMAN, 0, MH_GNOME|MH_ORC|MH_OGRE|MH_KOBOLD,
/* Str Int Wis Dex Con Cha */
{ 3, 3, 3, 3, 3, 3 },
{ STR18(100), 18, 18, 18, 18, 18 },
/* Init Lower Higher */
{ 2, 0, 0, 2, 1, 0 }, /* Hit points */
{ 1, 0, 2, 0, 2, 0 } /* Energy */
},
{ "elf", "elven", "elvenkind", "Elf",
{0, 0},
PM_ELF, NON_PM, PM_MUMMY, PM_ZOMBIE,
MH_ELF | ROLE_MALE|ROLE_FEMALE |
ROLE_LAWFUL|ROLE_NEUTRAL|ROLE_CHAOTIC,
MH_ELF, MH_ELF, MH_ORC|MH_OGRE|MH_KOBOLD,
/* Str Int Wis Dex Con Cha */
{ 3, 3, 3, 3, 3, 3 },
{ 18, 20, 20, 18, 16, 18 },
/* Init Lower Higher */
{ 1, 0, 0, 1, 1, 0 }, /* Hit points */
0, 10, 0, 0, 4, A_INT, 0, -3
};
/* Table of all races */
const struct Race races[] = {
{ "human", "human", "humanity", "Hum",
{"man", "woman"},
PM_HUMAN, NON_PM, PM_HUMAN_MUMMY, PM_HUMAN_ZOMBIE,
MH_HUMAN | ROLE_MALE|ROLE_FEMALE |
ROLE_LAWFUL|ROLE_NEUTRAL|ROLE_CHAOTIC,
MH_HUMAN, 0, MH_GNOME|MH_ORC,
/* Str Int Wis Dex Con Cha */
{ 3, 3, 3, 3, 3, 3 },
{ STR18(100), 18, 18, 18, 18, 18 },
/* Init Lower Higher */
{ 2, 0, 0, 2, 1, 0 }, /* Hit points */
{ 1, 0, 2, 0, 2, 0 } /* Energy */
},
{ "elf", "elven", "elvenkind", "Elf",
{0, 0},
PM_ELF, NON_PM, PM_ELF_MUMMY, PM_ELF_ZOMBIE,
MH_ELF | ROLE_MALE|ROLE_FEMALE | ROLE_CHAOTIC,
MH_ELF, MH_ELF, MH_ORC,
/* Str Int Wis Dex Con Cha */
{ 3, 3, 3, 3, 3, 3 },
{ 18, 20, 20, 18, 16, 18 },
/* Init Lower Higher */
{ 1, 0, 0, 1, 1, 0 }, /* Hit points */
{ 2, 0, 3, 0, 3, 0 } /* Energy */
/* returns 1 if polymorph successful */
int polymon(int mntmp)
{
boolean sticky = sticks(youmonst.data) && u.ustuck && !u.uswallow,
was_blind = !!Blind, dochange = FALSE;
boolean could_pass_walls = Passes_walls;
int mlvl;
if (mvitals[mntmp].mvflags & G_GENOD) { /* allow G_EXTINCT */
pline("You feel rather %s-ish.",mons[mntmp].mname);
exercise(A_WIS, TRUE);
return 0;
}
/* KMH, conduct */
u.uconduct.polyselfs++;
if (!Upolyd) {
/* Human to monster; save human stats */
u.macurr = u.acurr;
u.mamax = u.amax;
u.mfemale = flags.female;
} else {
/* Monster to monster; restore human stats, to be
* immediately changed to provide stats for the new monster
*/
u.acurr = u.macurr;
u.amax = u.mamax;
flags.female = u.mfemale;
}
if (youmonst.m_ap_type) {
/* stop mimicking immediately */
if (multi < 0) unmul("");
} else if (mons[mntmp].mlet != S_MIMIC) {
/* as in polyman() */
youmonst.m_ap_type = M_AP_NOTHING;
}
if (is_male(&mons[mntmp])) {
if (flags.female) dochange = TRUE;
} else if (is_female(&mons[mntmp])) {
if (!flags.female) dochange = TRUE;
} else if (!is_neuter(&mons[mntmp]) && mntmp != u.ulycn) {
if (!rn2(10)) dochange = TRUE;
}
if (dochange) {
flags.female = !flags.female;
pline("You %s %s%s!",
(u.umonnum != mntmp) ? "turn into a" : "feel like a new",
(is_male(&mons[mntmp]) || is_female(&mons[mntmp])) ? "" :
flags.female ? "female " : "male ",
mons[mntmp].mname);
} else {
if (u.umonnum != mntmp)
pline("You turn into %s!", an(mons[mntmp].mname));
else
pline("You feel like a new %s!", mons[mntmp].mname);
}
if (Stoned && poly_when_stoned(&mons[mntmp])) {
/* poly_when_stoned already checked stone golem genocide */
pline("You turn to stone!");
mntmp = PM_STONE_GOLEM;
Stoned = 0;
delayed_killer = 0;
}
u.mtimedone = rn1(500, 500);
u.umonnum = mntmp;
set_uasmon();
/* New stats for monster, to last only as long as polymorphed.
* Currently only strength gets changed.
*/
if (strongmonst(&mons[mntmp])) ABASE(A_STR) = AMAX(A_STR) = STR18(100);
if (Stone_resistance && Stoned) { /* [email protected] */
Stoned = 0;
delayed_killer = 0;
pline("You no longer seem to be petrifying.");
}
if (Sick_resistance && Sick) {
make_sick(0L, NULL, FALSE, SICK_ALL);
pline("You no longer feel sick.");
}
if (Slimed) {
if (flaming(youmonst.data)) {
pline("The slime burns away!");
Slimed = 0L;
iflags.botl = 1;
} else if (mntmp == PM_GREEN_SLIME) {
/* do it silently */
Slimed = 0L;
iflags.botl = 1;
}
}
if (nohands(youmonst.data)) Glib = 0;
/*
mlvl = adj_lev(&mons[mntmp]);
* We can't do the above, since there's no such thing as an
* "experience level of you as a monster" for a polymorphed character.
*/
mlvl = (int)mons[mntmp].mlevel;
if (youmonst.data->mlet == S_DRAGON && mntmp >= PM_GRAY_DRAGON) {
u.mhmax = In_endgame(&u.uz) ? (8*mlvl) : (4*mlvl + dice(mlvl,4));
} else if (is_golem(youmonst.data)) {
u.mhmax = golemhp(mntmp);
} else {
if (!mlvl) u.mhmax = rnd(4);
else u.mhmax = dice(mlvl, 8);
if (is_home_elemental(&u.uz, &mons[mntmp])) u.mhmax *= 3;
}
u.mh = u.mhmax;
if (u.ulevel < mlvl) {
/* Low level characters can't become high level monsters for long */
u.mtimedone = u.mtimedone * u.ulevel / mlvl;
}
if (uskin && mntmp != armor_to_dragon(uskin->otyp))
skinback(FALSE);
break_armor();
drop_weapon(1);
if (hides_under(youmonst.data))
u.uundetected = OBJ_AT(u.ux, u.uy);
else if (youmonst.data->mlet == S_EEL)
u.uundetected = is_pool(level, u.ux, u.uy);
else
u.uundetected = 0;
if (u.utraptype == TT_PIT) {
if (could_pass_walls && !Passes_walls) {
u.utrap = rn1(6,2);
} else if (!could_pass_walls && Passes_walls) {
u.utrap = 0;
}
}
if (was_blind && !Blind) { /* previous form was eyeless */
Blinded = 1L;
make_blinded(0L, TRUE); /* remove blindness */
}
newsym(u.ux,u.uy); /* Change symbol */
if (!sticky && !u.uswallow && u.ustuck && sticks(youmonst.data)) u.ustuck = 0;
else if (sticky && !sticks(youmonst.data)) uunstick();
if (u.usteed) {
if (touch_petrifies(u.usteed->data) &&
!Stone_resistance && rnl(3)) {
char buf[BUFSZ];
pline("No longer petrifying-resistant, you touch %s.",
mon_nam(u.usteed));
sprintf(buf, "riding %s", an(u.usteed->data->mname));
instapetrify(buf);
}
if (!can_ride(u.usteed)) dismount_steed(DISMOUNT_POLY);
}
if (flags.verbose) {
static const char use_thec[] = "Use the command #%s to %s.";
static const char monsterc[] = "monster";
if (can_breathe(youmonst.data))
pline(use_thec,monsterc,"use your breath weapon");
if (attacktype(youmonst.data, AT_SPIT))
pline(use_thec,monsterc,"spit venom");
if (youmonst.data->mlet == S_NYMPH)
pline(use_thec,monsterc,"remove an iron ball");
if (attacktype(youmonst.data, AT_GAZE))
pline(use_thec,monsterc,"gaze at monsters");
if (is_hider(youmonst.data))
pline(use_thec,monsterc,"hide");
if (is_were(youmonst.data))
pline(use_thec,monsterc,"summon help");
if (webmaker(youmonst.data))
pline(use_thec,monsterc,"spin a web");
if (u.umonnum == PM_GREMLIN)
pline(use_thec,monsterc,"multiply in a fountain");
if (is_unicorn(youmonst.data))
pline(use_thec,monsterc,"use your horn");
if (is_mind_flayer(youmonst.data))
pline(use_thec,monsterc,"emit a mental blast");
if (youmonst.data->msound == MS_SHRIEK) /* worthless, actually */
pline(use_thec,monsterc,"shriek");
if (lays_eggs(youmonst.data) && flags.female)
pline(use_thec,"sit","lay an egg");
}
/* you now know what an egg of your type looks like */
if (lays_eggs(youmonst.data)) {
learn_egg_type(u.umonnum);
/* make queen bees recognize killer bee eggs */
learn_egg_type(egg_type_from_parent(u.umonnum, TRUE));
}
find_ac();
if ((!Levitation && !u.ustuck && !Flying &&
(is_pool(level, u.ux,u.uy) || is_lava(level, u.ux,u.uy))) ||
(Underwater && !Swimming))
spoteffects(TRUE);
if (Passes_walls && u.utrap && u.utraptype == TT_INFLOOR) {
u.utrap = 0;
pline("The rock seems to no longer trap you.");
} else if (likes_lava(youmonst.data) && u.utrap && u.utraptype == TT_LAVA) {
u.utrap = 0;
pline("The lava now feels soothing.");
}
if (amorphous(youmonst.data) || is_whirly(youmonst.data) || unsolid(youmonst.data)) {
if (Punished) {
pline("You slip out of the iron chain.");
unpunish();
}
}
if (u.utrap && (u.utraptype == TT_WEB || u.utraptype == TT_BEARTRAP) &&
(amorphous(youmonst.data) || is_whirly(youmonst.data) || unsolid(youmonst.data) ||
(youmonst.data->msize <= MZ_SMALL && u.utraptype == TT_BEARTRAP))) {
pline("You are no longer stuck in the %s.",
u.utraptype == TT_WEB ? "web" : "bear trap");
/* probably should burn webs too if PM_FIRE_ELEMENTAL */
u.utrap = 0;
}
if (webmaker(youmonst.data) && u.utrap && u.utraptype == TT_WEB) {
pline("You orient yourself on the web.");
u.utrap = 0;
}
iflags.botl = 1;
vision_full_recalc = 1;
see_monsters();
exercise(A_CON, FALSE);
exercise(A_WIS, TRUE);
encumber_msg();
return 1;
}
/* set height of the status box */
sz->cy = tm.tmHeight * data->nhstat_format;
SelectObject(hdc, saveFont);
ReleaseDC(hWnd, hdc);
}
}
extern const char *hu_stat[]; /* defined in eat.c */
extern const char *enc_stat[]; /* define in botl.c */
void
FormatStatusString(char *text, int format)
{
register char *nb;
int hp, hpmax;
int cap = near_capacity();
Strcpy(text, plname);
if ('a' <= text[0] && text[0] <= 'z')
text[0] += 'A' - 'a';
text[10] = 0;
Sprintf(nb = eos(text), " the ");
if (Upolyd) {
char mbot[BUFSZ];
int k = 0;
Strcpy(mbot, mons[u.umonnum].mname);
while (mbot[k] != 0) {
if ((k == 0 || (k > 0 && mbot[k - 1] == ' ')) && 'a' <= mbot[k]
&& mbot[k] <= 'z')
mbot[k] += 'A' - 'a';
k++;
}
Sprintf(nb = eos(nb), mbot);
} else
Sprintf(nb = eos(nb), rank_of(u.ulevel, Role_switch, flags.female));
if (format == NHSTAT_LINES_4)
Sprintf(nb = eos(nb), "\r\n");
if (ACURR(A_STR) > 18) {
if (ACURR(A_STR) > STR18(100))
Sprintf(nb = eos(nb), "St:%2d ", ACURR(A_STR) - 100);
else if (ACURR(A_STR) < STR18(100))
Sprintf(nb = eos(nb), "St:18/%02d ", ACURR(A_STR) - 18);
else
Sprintf(nb = eos(nb), "St:18/** ");
} else
Sprintf(nb = eos(nb), "St:%-1d ", ACURR(A_STR));
Sprintf(nb = eos(nb), "Dx:%-1d Co:%-1d In:%-1d Wi:%-1d Ch:%-1d",
ACURR(A_DEX), ACURR(A_CON), ACURR(A_INT), ACURR(A_WIS),
ACURR(A_CHA));
Sprintf(nb = eos(nb),
(u.ualign.type == A_CHAOTIC)
? " Chaotic"
: (u.ualign.type == A_NEUTRAL) ? " Neutral" : " Lawful");
#ifdef SCORE_ON_BOTL
if (flags.showscore)
Sprintf(nb = eos(nb), " S:%ld", botl_score());
#endif
if (format == NHSTAT_LINES_4 || format == NHSTAT_LINES_2)
strcat(text, "\r\n");
/* third line */
hp = Upolyd ? u.mh : u.uhp;
hpmax = Upolyd ? u.mhmax : u.uhpmax;
if (hp < 0)
hp = 0;
(void) describe_level(nb = eos(nb));
Sprintf(nb = eos(nb), "%c:%-2ld HP:%d(%d) Pw:%d(%d) AC:%-2d",
showsyms[COIN_CLASS + SYM_OFF_O], money_cnt(invent), hp, hpmax,
u.uen, u.uenmax, u.uac);
if (Upolyd)
Sprintf(nb = eos(nb), " HD:%d", mons[u.umonnum].mlevel);
else if (flags.showexp)
Sprintf(nb = eos(nb), " Xp:%u/%-1ld", u.ulevel, u.uexp);
else
Sprintf(nb = eos(nb), " Exp:%u", u.ulevel);
if (format == NHSTAT_LINES_4)
strcat(text, "\r\n");
else
strcat(text, " ");
/* forth line */
if (flags.time)
Sprintf(nb = eos(nb), "T:%ld ", moves);
if (strcmp(hu_stat[u.uhs], " ")) {
Strcat(text, hu_stat[u.uhs]);
Sprintf(nb = eos(nb), " ");
}
if (Confusion)
Sprintf(nb = eos(nb), "Conf");
if (Sick) {
if (u.usick_type & SICK_VOMITABLE)
Sprintf(nb = eos(nb), " FoodPois");
if (u.usick_type & SICK_NONVOMITABLE)
Sprintf(nb = eos(nb), " Ill");
}
if (Blind)
Sprintf(nb = eos(nb), " Blind");
if (Stunned)
Sprintf(nb = eos(nb), " Stun");
if (Hallucination)
Sprintf(nb = eos(nb), " Hallu");
if (Slimed)
Sprintf(nb = eos(nb), " Slime");
if (cap > UNENCUMBERED)
Sprintf(nb = eos(nb), " %s", enc_stat[cap]);
}
void statuswin::parse_statusline(std::string str)
{
int hp, hpmax, nconds;
long val;
std::string txt;
int cap = near_capacity();
size_t pos;
char buf[64];
/* get player name + title */
pos = str.find("St:", 0);
if (pos != std::string::npos)
tokenarray[0][0]->caption = str.substr(0, pos);
/* strength needs special treatment */
if (ACURR(A_STR) > 18)
{
if (ACURR(A_STR) > STR18(100))
sprintf(buf,"St:%2d", ACURR(A_STR)-100);
else if (ACURR(A_STR) < STR18(100))
sprintf(buf, "St:18/%02d", ACURR(A_STR)-18);
else
sprintf(buf,"St:18/**");
}
else
sprintf(buf, "St:%-1d", ACURR(A_STR));
tokenarray[0][1]->caption = buf;
/* the other stats */
sprintf(buf, "Dx:%-1d", ACURR(A_DEX));
tokenarray[0][2]->caption = buf;
sprintf(buf, "Co:%-1d", ACURR(A_CON));
tokenarray[0][3]->caption = buf;
sprintf(buf, "In:%-1d", ACURR(A_INT));
tokenarray[1][1]->caption = buf;
sprintf(buf, "Wi:%-1d", ACURR(A_WIS));
tokenarray[1][2]->caption = buf;
sprintf(buf, "Ch:%-1d", ACURR(A_CHA));
tokenarray[1][3]->caption = buf;
/* alignment */
tokenarray[4][0]->visible = 1;
tokenarray[4][0]->caption = (u.ualign.type == A_CHAOTIC) ? "Chaotic" :
(u.ualign.type == A_NEUTRAL) ? "Neutral" : "Lawful";
/* score */
#ifdef SCORE_ON_BOTL
if (flags.showscore) {
sprintf(buf, "S:%ld", botl_score());
tokenarray[3][4]->caption = buf;
} else
tokenarray[3][4]->caption.clear();
#endif
/* money */
#ifndef GOLDOBJ
val = u.ugold;
#else
val = money_cnt(invent);
#endif
if (val >= 100000) {
sprintf(buf, "%c:%-2ldk", oc_syms[COIN_CLASS], val / 1000);
tokenarray[3][2]->caption = buf;
} else {
sprintf(buf, "%c:%-2ld", oc_syms[COIN_CLASS], val);
tokenarray[3][2]->caption = buf;
}
/* Experience */
if (Upolyd) {
sprintf(buf, "HD:%d", mons[u.umonnum].mlevel);
tokenarray[3][0]->caption = buf;
}
#ifdef EXP_ON_BOTL
else if(flags.showexp)
{
Sprintf(buf, "Xp:%u/%-1ld", u.ulevel,u.uexp);
tokenarray[3][0]->caption = buf;
/* if the exp gets too long, suppress displaying the alignment */
if (tokenarray[3][0]->caption.length() > 10)
tokenarray[4][0]->visible = 0;
}
#endif
else {
Sprintf(buf, "Exp:%u", u.ulevel);
tokenarray[3][0]->caption = buf;
}
/* HP, energy, armor */
hp = Upolyd ? u.mh : u.uhp;
hpmax = Upolyd ? u.mhmax : u.uhpmax;
sprintf(buf, "HP:%d(%d)", hp, hpmax);
tokenarray[2][1]->caption = buf;
if (hp >= ((hpmax * 90) / 100))
tokenarray[2][1]->textcolor = warn_colors[V_WARN_NONE];
else if (hp >= ((hpmax * 70) / 100))
tokenarray[2][1]->textcolor = warn_colors[V_WARN_NORMAL];
else if (hp >= ((hpmax * 50) / 100))
tokenarray[2][1]->textcolor = warn_colors[V_WARN_MORE];
else if (hp >= ((hpmax * 25) / 100))
tokenarray[2][1]->textcolor = warn_colors[V_WARN_ALERT];
else
tokenarray[2][1]->textcolor = warn_colors[V_WARN_CRITICAL];
sprintf(buf, "Pw:%d(%d)", u.uen, u.uenmax);
tokenarray[2][2]->caption = buf;
sprintf(buf, "AC:%-2d", u.uac);
tokenarray[2][3]->caption = buf;
/* time */
if(flags.time) {
sprintf(buf, "T:%ld", moves);
tokenarray[3][3]->caption = buf;
} else
tokenarray[3][3]->caption.clear();
/* depth again (numeric) */
sprintf(buf, "Dlvl:%-2d ", depth(&u.uz));
tokenarray[3][1]->caption = buf;
/* conditions (hunger, confusion, etc) */
nconds = 0;
if (u.uhs > 1) /* hunger */
add_cond(hu_stat[u.uhs], nconds++, u.uhs-1);
else if (u.uhs < 1) /* satiated */
add_cond(hu_stat[u.uhs], nconds++, 0);
if(Confusion)
add_cond("Conf", nconds++, V_WARN_MORE);
if(Sick)
{
if (u.usick_type & SICK_VOMITABLE)
add_cond("FoodPois", nconds++, V_WARN_ALERT);
if (u.usick_type & SICK_NONVOMITABLE)
add_cond("Ill", nconds++, V_WARN_ALERT);
}
if(Blind) add_cond("Blind", nconds++, V_WARN_MORE);
if(Stunned) add_cond("Stun", nconds++, V_WARN_MORE);
if(Hallucination) add_cond("Hallu", nconds++, V_WARN_MORE);
if(Slimed) add_cond("Slime", nconds++, V_WARN_ALERT);
if(cap > UNENCUMBERED)
add_cond(enc_stat[cap], nconds++, cap);
/* reset the empty positions */
for ( ;nconds < 8; nconds++)
add_cond("", nconds, 0);
#ifdef SHOW_WEIGHT
if (flags.showweight && !tokenarray[0][4]->caption[0])
{
std::stringstream stream;
stream << "Wt:" << static_cast<long>((inv_weight()+weight_cap())) << "/" << static_cast<long>(weight_cap()) ;
tokenarray[0][4]->caption = stream.str();
}
#endif
}
