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 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];
}
tryct = 0;
while(np > 0 && tryct < 100) {
x = rn2(100);
for (i = 0; (i < A_MAX) && ((x -= urole.attrdist[i]) > 0); i++) ;
if(i >= A_MAX) continue; /* impossible */
if(ABASE(i) >= ATTRMAX(i)) {
tryct++;
continue;
}
tryct = 0;
ABASE(i)++;
AMAX(i)++;
np--;
}
tryct = 0;
while(np < 0 && tryct < 100) { /* for redistribution */
x = rn2(100);
for (i = 0; (i < A_MAX) && ((x -= urole.attrdist[i]) > 0); i++) ;
if(i >= A_MAX) continue; /* impossible */
if(ABASE(i) <= ATTRMIN(i)) {
tryct++;
continue;
}
tryct = 0;
ABASE(i)--;
AMAX(i)--;
np++;
}
}
void redist_attr (void) {
int i, tmp;
for(i = 0; i < A_MAX; i++) {
if (i==A_INT || i==A_WIS) continue;
/* Polymorphing doesn't change your mind */
tmp = AMAX(i);
AMAX(i) += (rn2(5)-2);
if (AMAX(i) > ATTRMAX(i)) AMAX(i) = ATTRMAX(i);
if (AMAX(i) < ATTRMIN(i)) AMAX(i) = ATTRMIN(i);
ABASE(i) = ABASE(i) * AMAX(i) / tmp;
/* ABASE(i) > ATTRMAX(i) is impossible */
if (ABASE(i) < ATTRMIN(i)) ABASE(i) = ATTRMIN(i);
}
(void)encumber_msg();
}
/* 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;
}
struct oslo_mat *
rt_nurb_calc_oslo(register int order, register const struct knot_vector *tau_kv, register struct knot_vector *t_kv, struct resource *res)
/* old knot vector */
/* new knot vector */
{
register fastf_t *t_p;
register const fastf_t *tau_p;
fastf_t ah[20];
fastf_t newknots[20]; /* new knots */
register int j; /* d(j), j = 0 : # of new ctl points */
int mu, /* mu: tau[mu] <= t[j] < tau[mu+1]*/
muprim,
v, /* Nu value (order of matrix) */
p,
iu, /* upper bound loop counter */
il, /* lower bound loop counter */
ih,
n1; /* upper bound of t knot vector - order*/
fastf_t tj;
struct oslo_mat * head, * o_ptr, *new_o;
n1 = t_kv->k_size - order;
t_p = t_kv->knots;
tau_p = tau_kv->knots;
mu = 0; /* initialize mu */
head = (struct oslo_mat *) bu_malloc (
sizeof( struct oslo_mat),
"rt_nurb_calc_oslo: oslo mat head" );
o_ptr = head;
for (j = 0; j < n1; j++) {
register int i;
if ( j != 0 )
{
new_o = (struct oslo_mat *) bu_malloc (
sizeof( struct oslo_mat),
"rt_nurb_calc_oslo: oslo mat struct" );
o_ptr->next = new_o;
o_ptr = new_o;
}
/* find the bounding mu */
while (tau_p[mu + 1] <= t_p[j]) mu++;
muprim = mu;
i = j + 1;
while ((t_p[i] == tau_p[muprim]) && i < (j + order)) {
i++;
muprim--;
}
ih = muprim + 1;
for (v = 0, p = 1; p < order; p++) {
if (t_p[j + p] == tau_p[ih])
ih++;
else
newknots[++v - 1] = t_p[j + p];
}
ah[order-1] = 1.0;
for (p = 1; p <= v; p++) {
fastf_t beta1;
int o_m;
beta1 = 0.0;
o_m = order - muprim;
tj = newknots[p-1];
if (p > muprim) {
beta1 = ah[o_m];
beta1 = ((tj - tau_p[0]) * beta1) /
(tau_p[p + order - v] - tau_p[0]);
}
i = muprim - p + 1;
il = AMAX (1, i);
i = n1 - 1 + v - p;
iu = AMIN (muprim, i);
for (i = il; i <= iu; i++) {
fastf_t d1, d2;
fastf_t beta;
d1 = tj - tau_p[i];
d2 = tau_p[i + p + order - v - 1] - tj;
beta = ah[i + o_m - 1] / (d1 + d2);
ah[i + o_m - 2] = d2 * beta + beta1;
beta1 = d1 * beta;
}
ah[iu + o_m - 1] = beta1;
if (iu < muprim) {
register fastf_t kkk;
register fastf_t ahv;
kkk = tau_p[n1 - 1 + order];
ahv = ah[iu + o_m];
ah[iu + o_m - 1] =
beta1 + (kkk - tj) *
ahv / (kkk - tau_p[iu + 1]);
}
}
o_ptr->o_vec = (fastf_t *) bu_malloc ( sizeof( fastf_t) * (v+1),
"rt_nurb_calc_oslo: oslo vector");
o_ptr->offset = AMAX(muprim -v, 0);
o_ptr->osize = v;
for ( i = v, p = 0; i >= 0; i--)
o_ptr->o_vec[p++] = ah[(order-1) - i];
}
o_ptr->next = (struct oslo_mat*) 0;
return head;
}
/* adjust an attribute; return TRUE if change is made, FALSE otherwise
msgflag is positive for no message, zero for message, negative to print a
message when returning TRUE */
boolean
adjattrib(int ndx, int incr, int msgflg)
{
if (Fixed_abil || !incr)
return FALSE;
if ((ndx == A_INT || ndx == A_WIS)
&& uarmh && uarmh->otyp == DUNCE_CAP) {
if (msgflg == 0)
pline("Your cap constricts briefly, then relaxes again.");
return FALSE;
}
if (incr > 0) {
if ((AMAX(ndx) >= ATTRMAX(ndx)) && (ACURR(ndx) >= AMAX(ndx))) {
if (msgflg == 0 && flags.verbose)
pline("You're already as %s as you can get.", plusattr[ndx]);
ABASE(ndx) = AMAX(ndx) = ATTRMAX(ndx); /* just in case */
return FALSE;
}
if (ABASE(ndx) == ATTRMAX(ndx)) {
if (msgflg == 0 && flags.verbose)
pline("You're as %s as you can be right now.", plusattr[ndx]);
return FALSE;
}
ABASE(ndx) += incr;
if (ABASE(ndx) > AMAX(ndx)) {
incr = ABASE(ndx) - AMAX(ndx);
AMAX(ndx) += incr;
if (AMAX(ndx) > ATTRMAX(ndx))
AMAX(ndx) = ATTRMAX(ndx);
ABASE(ndx) = AMAX(ndx);
}
} else {
if (ABASE(ndx) <= ATTRMIN(ndx)) {
if (msgflg == 0 && flags.verbose)
pline("You're already as %s as you can get.", minusattr[ndx]);
ABASE(ndx) = ATTRMIN(ndx); /* just in case */
return FALSE;
}
if (ABASE(ndx) == ATTRMIN(ndx)) {
if (msgflg == 0 && flags.verbose)
pline("You're as %s as you can be right now.", minusattr[ndx]);
return FALSE;
}
ABASE(ndx) += incr;
if (ABASE(ndx) < ATTRMIN(ndx)) {
incr = ABASE(ndx) - ATTRMIN(ndx);
ABASE(ndx) = ATTRMIN(ndx);
AMAX(ndx) += incr;
if (AMAX(ndx) < ATTRMIN(ndx))
AMAX(ndx) = ATTRMIN(ndx);
}
}
if (msgflg <= 0)
pline("You feel %s%s!", (incr > 1 || incr < -1) ? "very " : "",
(incr > 0) ? plusattr[ndx] : minusattr[ndx]);
if (moves > 1 && (ndx == A_STR || ndx == A_CON))
encumber_msg();
return TRUE;
}