/* Proper usage includes:
* 1. Initializing the slot during character generation or a
* restore.
* 2. Setting the slot due to a player's actions.
* 3. If one of the objects in the slot are split off, these
* functions can be used to put the remainder back in the slot.
* 4. Putting an item that was thrown and returned back into the slot.
* 5. Emptying the slot, by passing a null object. NEVER pass
* zeroobj!
*
* If the item is being moved from another slot, it is the caller's
* responsibility to handle that. It's also the caller's responsibility
* to print the appropriate messages.
*/
void setuwep(struct obj *obj)
{
struct obj *olduwep = uwep;
if (obj == uwep) return; /* necessary to not set unweapon */
/* This message isn't printed in the caller because it happens
* *whenever* Sunsword is unwielded, from whatever cause.
*/
setworn(obj, W_WEP);
if (uwep == obj && artifact_light(olduwep) && olduwep->lamplit) {
end_burn(olduwep, FALSE);
if (!Blind) pline("%s glowing.", Tobjnam(olduwep, "stop"));
}
/* Note: Explicitly wielding a pick-axe will not give a "bashing"
* message. Wielding one via 'a'pplying it will.
* 3.2.2: Wielding arbitrary objects will give bashing message too.
*/
if (obj) {
unweapon = (obj->oclass == WEAPON_CLASS) ?
is_launcher(obj) || is_ammo(obj) ||
is_missile(obj) || (is_pole(obj)
&& !u.usteed) : !is_weptool(obj);
} else
unweapon = TRUE; /* for "bare hands" message */
update_inventory();
}
/* Updated to use the extrinsic and blocked fields. */
void setworn(struct obj *obj, long mask)
{
const struct worn *wp;
struct obj *oobj;
int p;
if ((mask & (W_ARM|I_SPECIAL)) == (W_ARM|I_SPECIAL)) {
/* restoring saved game; no properties are conferred via skin */
uskin = obj;
/* assert( !uarm ); */
} else {
for (wp = worn; wp->w_mask; wp++) if (wp->w_mask & mask) {
oobj = *(wp->w_obj);
if (oobj && !(oobj->owornmask & wp->w_mask))
impossible("Setworn: mask = %ld.", wp->w_mask);
if (oobj) {
if (u.twoweap && (oobj->owornmask & (W_WEP|W_SWAPWEP)))
u.twoweap = 0;
oobj->owornmask &= ~wp->w_mask;
if (wp->w_mask & ~(W_SWAPWEP|W_QUIVER)) {
/* leave as "x = x <op> y", here and below, for broken
* compilers */
p = objects[oobj->otyp].oc_oprop;
u.uprops[p].extrinsic =
u.uprops[p].extrinsic & ~wp->w_mask;
if ((p = w_blocks(oobj,mask)) != 0)
u.uprops[p].blocked &= ~wp->w_mask;
if (oobj->oartifact)
set_artifact_intrinsic(oobj, 0, mask);
}
}
*(wp->w_obj) = obj;
if (obj) {
obj->owornmask |= wp->w_mask;
/* Prevent getting/blocking intrinsics from wielding
* potions, through the quiver, etc.
* Allow weapon-tools, too.
* wp_mask should be same as mask at this point.
*/
if (wp->w_mask & ~(W_SWAPWEP|W_QUIVER)) {
if (obj->oclass == WEAPON_CLASS || is_weptool(obj) ||
mask != W_WEP) {
p = objects[obj->otyp].oc_oprop;
u.uprops[p].extrinsic =
u.uprops[p].extrinsic | wp->w_mask;
if ((p = w_blocks(obj, mask)) != 0)
u.uprops[p].blocked |= wp->w_mask;
}
if (obj->oartifact)
set_artifact_intrinsic(obj, 1, mask);
}
}
}
}
update_inventory();
}
int dowield(struct obj *wep)
{
struct obj *oldwep;
int result;
/* May we attempt this? */
multi = 0;
if (cantwield(youmonst.data)) {
pline("Don't be ridiculous!");
return 0;
}
/* Prompt for a new weapon */
if (wep && !validate_object(wep, wield_objs, "wield"))
return 0;
else if (!wep)
wep = getobj(wield_objs, "wield");
if (!wep)
/* Cancelled */
return 0;
else if (wep == uwep) {
pline("You are already wielding that!");
if (is_weptool(wep)) unweapon = FALSE; /* [see setuwep()] */
return 0;
} else if (welded(uwep)) {
weldmsg(uwep);
/* previously interrupted armor removal mustn't be resumed */
reset_remarm();
return 0;
}
/* Handle no object, or object in other slot */
if (wep == &zeroobj)
wep = NULL;
else if (wep == uswapwep)
return doswapweapon();
else if (wep == uquiver)
setuqwep(NULL);
else if (wep->owornmask & (W_ARMOR | W_RING | W_AMUL | W_TOOL
| W_SADDLE)) {
pline("You cannot wield that!");
return 0;
}
/* Set your new primary weapon */
oldwep = uwep;
result = ready_weapon(wep);
if (flags.pushweapon && oldwep && uwep != oldwep)
setuswapwep(oldwep);
untwoweapon();
return result;
}
/*
* See if a monst could use this item in an offensive or defensive capacity.
*/
boolean
could_use_item(struct monst *mtmp, struct obj *otmp)
{
boolean can_use =
/* make sure this is an intelligent monster */
(mtmp && !is_animal(mtmp->data) && !mindless(mtmp->data) &&
!nohands(mtmp->data) && otmp &&
/* food */
((dogfood(mtmp, otmp) < APPORT) ||
/* better weapons */
(attacktype(mtmp->data, AT_WEAP) &&
(otmp->oclass == WEAPON_CLASS || is_weptool(otmp)) &&
(would_prefer_hwep(mtmp, otmp) || would_prefer_rwep(mtmp, otmp))) ||
/* better armor */
(otmp->oclass == ARMOR_CLASS && is_better_armor(mtmp, otmp)) ||
/* useful amulets */
otmp->otyp == AMULET_OF_LIFE_SAVING ||
otmp->otyp == AMULET_OF_REFLECTION ||
/* misc magic items that muse can use */
otmp->otyp == SCR_TELEPORTATION || otmp->otyp == SCR_EARTH ||
otmp->otyp == SCR_REMOVE_CURSE || otmp->otyp == WAN_DEATH ||
otmp->otyp == WAN_DIGGING || otmp->otyp == WAN_FIRE ||
otmp->otyp == WAN_COLD || otmp->otyp == WAN_LIGHTNING ||
otmp->otyp == WAN_MAGIC_MISSILE || otmp->otyp == WAN_STRIKING ||
otmp->otyp == WAN_TELEPORTATION || otmp->otyp == POT_HEALING ||
otmp->otyp == POT_EXTRA_HEALING || otmp->otyp == POT_FULL_HEALING ||
otmp->otyp == POT_PARALYSIS || otmp->otyp == POT_BLINDNESS ||
otmp->otyp == POT_CONFUSION || otmp->otyp == POT_ACID ||
otmp->otyp == FROST_HORN || otmp->otyp == FIRE_HORN ||
otmp->otyp == UNICORN_HORN));
if (can_use) {
/* arbitrary - greedy monsters keep any item you can use */
if (likes_gold(mtmp->data))
return TRUE;
if (otmp->oclass == ARMOR_CLASS) {
return !is_better_armor(&youmonst, otmp);
} else if (otmp->oclass == WAND_CLASS && otmp->spe <= 0)
return FALSE; /* used charges or was cancelled? */
else {
/* Check if you've got one. If you don't, don't hoard it. */
register struct obj *otmp2;
for (otmp2 = invent; otmp2; otmp2 = otmp2->nobj)
if (otmp->otyp == otmp2->otyp)
return TRUE;
}
}
return FALSE;
}
static boolean
uwep_can_force(void)
{
if (!uwep ||
(uwep->oclass != WEAPON_CLASS && !is_weptool(uwep) &&
uwep->oclass != ROCK_CLASS) ||
(objects[uwep->otyp].oc_skill < P_DAGGER) ||
(objects[uwep->otyp].oc_skill > P_LANCE) || uwep->otyp == FLAIL ||
uwep->otyp == AKLYS || uwep->otyp == RUBBER_HOSE) {
pline(msgc_cancelled, "You can't force anything without a %sweapon.",
uwep ? "proper " : "");
return FALSE;
}
return TRUE;
}
static int
domonnoise(struct monst *mtmp)
{
const char *pline_msg = 0, /* Monnam(mtmp) will be prepended */
*verbl_msg = 0; /* verbalize() */
const struct permonst *ptr = mtmp->data;
/* presumably nearness checks have already been made */
if (!canhear())
return 0;
if (is_silent(ptr))
return 0;
/* Make sure its your role's quest quardian; adjust if not */
if (ptr->msound == MS_GUARDIAN && ptr != &pm_guardian) {
int mndx = monsndx(ptr);
ptr = &mons[genus(mndx, 1)];
}
/* be sure to do this before talking; the monster might teleport away, in
which case we want to check its pre-teleport position */
if (!canspotmon(mtmp))
map_invisible(mtmp->mx, mtmp->my);
switch (ptr->msound) {
case MS_ORACLE:
return doconsult(mtmp);
case MS_PRIEST:
priest_talk(mtmp);
break;
case MS_LEADER:
case MS_NEMESIS:
case MS_GUARDIAN:
quest_chat(mtmp);
break;
case MS_SELL: /* pitch, pay, total */
shk_chat(mtmp);
break;
case MS_VAMPIRE:
{
/* vampire messages are varied by tameness, peacefulness, and time
of night */
boolean isnight = night();
boolean kindred = (Upolyd &&
(u.umonnum == PM_VAMPIRE ||
u.umonnum == PM_VAMPIRE_LORD));
boolean nightchild = (Upolyd &&
(u.umonnum == PM_WOLF ||
u.umonnum == PM_WINTER_WOLF ||
u.umonnum == PM_WINTER_WOLF_CUB));
const char *racenoun = (u.ufemale &&
urace.individual.f) ? urace.
individual.f : (urace.individual.m) ? urace.individual.
m : urace.noun;
if (mtmp->mtame) {
if (kindred)
verbl_msg = msgprintf("Good %s to you Master%s",
isnight ? "evening" : "day",
isnight ? "!" :
". Why do we not rest?");
else
verbl_msg = msgcat(
nightchild ? "Child of the night, " : "",
midnight()? "I can stand this craving no longer!" :
isnight ?
"I beg you, help me satisfy this growing craving!" :
"I find myself growing a little weary.");
} else if (mtmp->mpeaceful) {
if (kindred && isnight)
verbl_msg = msgprintf("Good feeding %s!",
u.ufemale ? "sister" : "brother");
else if (nightchild && isnight)
verbl_msg = "How nice to hear you, child of the night!";
else
verbl_msg = "I only drink... potions.";
} else {
int vampindex;
static const char *const vampmsg[] = {
/* These first two (0 and 1) are specially handled below */
"I vant to suck your %s!",
"I vill come after %s without regret!",
/* other famous vampire quotes can follow here if desired */
};
if (kindred)
verbl_msg =
"This is my hunting ground that you dare to prowl!";
else if (youmonst.data == &mons[PM_SILVER_DRAGON] ||
youmonst.data == &mons[PM_BABY_SILVER_DRAGON]) {
/* Silver dragons are silver in color, not made of silver */
verbl_msg = msgprintf(
"%s! Your silver sheen does not frighten me!",
youmonst.data ==
&mons[PM_SILVER_DRAGON] ? "Fool" : "Young Fool");
} else {
vampindex = rn2(SIZE(vampmsg));
if (vampindex == 0) {
verbl_msg = msgprintf(
vampmsg[vampindex], body_part(BLOOD));
} else if (vampindex == 1) {
verbl_msg = msgprintf(
vampmsg[vampindex],
Upolyd ? an(mons[u.umonnum].mname) : an(racenoun));
} else
verbl_msg = vampmsg[vampindex];
}
}
}
break;
case MS_WERE:
if (flags.moonphase == FULL_MOON && (night() ^ !rn2(13))) {
pline("%s throws back %s head and lets out a blood curdling %s!",
Monnam(mtmp), mhis(mtmp),
ptr == &mons[PM_HUMAN_WERERAT] ? "shriek" : "howl");
wake_nearto(mtmp->mx, mtmp->my, 11 * 11);
} else
pline_msg =
"whispers inaudibly. All you can make out is \"moon\".";
break;
case MS_BARK:
if (flags.moonphase == FULL_MOON && night()) {
pline_msg = "howls.";
} else if (mtmp->mpeaceful) {
if (mtmp->mtame &&
(mtmp->mconf || mtmp->mflee || mtmp->mtrapped ||
moves > EDOG(mtmp)->hungrytime || mtmp->mtame < 5))
pline_msg = "whines.";
else if (mtmp->mtame && EDOG(mtmp)->hungrytime > moves + 1000)
pline_msg = "yips.";
else {
if (mtmp->data == &mons[PM_FOX])
pline_msg = whatthefoxsays();
else if (mtmp->data != &mons[PM_DINGO]) /* dingos do not
actually bark */
pline_msg = "barks.";
}
} else {
if (mtmp->data == &mons[PM_FOX])
pline_msg = whatthefoxsays();
else
pline_msg = "growls.";
}
break;
case MS_MEW:
if (mtmp->mtame) {
if (mtmp->mconf || mtmp->mflee || mtmp->mtrapped || mtmp->mtame < 5)
pline_msg = "yowls.";
else if (moves > EDOG(mtmp)->hungrytime)
pline_msg = "meows.";
else if (EDOG(mtmp)->hungrytime > moves + 1000)
pline_msg = "purrs.";
else
pline_msg = "mews.";
break;
} /* else FALLTHRU */
case MS_GROWL:
pline_msg = mtmp->mpeaceful ? "snarls." : "growls!";
break;
case MS_ROAR:
pline_msg = mtmp->mpeaceful ? "snarls." : "roars!";
break;
case MS_SQEEK:
pline_msg = "squeaks.";
break;
case MS_SQAWK:
if (ptr == &mons[PM_RAVEN] && !mtmp->mpeaceful)
verbl_msg = "Nevermore!";
else
pline_msg = "squawks.";
break;
case MS_HISS:
if (!mtmp->mpeaceful)
pline_msg = "hisses!";
else
return 0; /* no sound */
break;
case MS_BUZZ:
pline_msg = mtmp->mpeaceful ? "drones." : "buzzes angrily.";
break;
case MS_GRUNT:
pline_msg = "grunts.";
break;
case MS_NEIGH:
if (mtmp->mtame < 5)
pline_msg = "neighs.";
else if (moves > EDOG(mtmp)->hungrytime)
pline_msg = "whinnies.";
else
pline_msg = "whickers.";
break;
case MS_WAIL:
pline_msg = "wails mournfully.";
break;
case MS_GURGLE:
pline_msg = "gurgles.";
break;
case MS_BURBLE:
pline_msg = "burbles.";
break;
case MS_SHRIEK:
pline_msg = "shrieks.";
aggravate();
break;
case MS_IMITATE:
pline_msg = "imitates you.";
break;
case MS_BONES:
pline("%s rattles noisily.", Monnam(mtmp));
pline("You freeze for a moment.");
helpless(2, hr_afraid, "scared by rattling", NULL);
break;
case MS_LAUGH:
{
static const char *const laugh_msg[4] = {
"giggles.", "chuckles.", "snickers.", "laughs.",
};
pline_msg = laugh_msg[rn2(4)];
}
break;
case MS_MUMBLE:
pline_msg = "mumbles incomprehensibly.";
break;
case MS_WISHGIVER:
if (mtmp->mtame) {
verbl_msg = "Sorry, I'm all out of wishes.";
} else if (mtmp->mpeaceful) {
if (ptr == &mons[PM_WATER_DEMON])
pline_msg = "gurgles.";
else
verbl_msg = "I'm free!";
} else
verbl_msg = "This will teach you not to disturb me!";
break;
case MS_BOAST: /* giants */
if (!mtmp->mpeaceful) {
switch (rn2(4)) {
case 0:
pline("%s boasts about %s gem collection.", Monnam(mtmp),
mhis(mtmp));
break;
case 1:
pline_msg = "complains about a diet of mutton.";
break;
default:
pline_msg = "shouts \"Fee Fie Foe Foo!\" and guffaws.";
wake_nearto(mtmp->mx, mtmp->my, 7 * 7);
break;
}
break;
}
/* else FALLTHRU */
case MS_HUMANOID:
if (!mtmp->mpeaceful) {
if (In_endgame(&u.uz) && is_mplayer(ptr)) {
mplayer_talk(mtmp);
break;
} else
return 0; /* no sound */
}
/* Generic peaceful humanoid behaviour. */
if (mtmp->mflee)
pline_msg = "wants nothing to do with you.";
else if (mtmp->mhp < mtmp->mhpmax / 4)
pline_msg = "moans.";
else if (mtmp->mconf || mtmp->mstun)
verbl_msg = !rn2(3) ? "Huh?" : rn2(2) ? "What?" : "Eh?";
else if (!mtmp->mcansee)
verbl_msg = "I can't see!";
else if (mtmp->mtrapped) {
struct trap *t = t_at(level, mtmp->mx, mtmp->my);
if (t)
t->tseen = 1;
verbl_msg = "I'm trapped!";
} else if (mtmp->mhp < mtmp->mhpmax / 2)
pline_msg = "asks for a potion of healing.";
else if (mtmp->mtame && !mtmp->isminion &&
moves > EDOG(mtmp)->hungrytime)
verbl_msg = "I'm hungry.";
/* Specific monsters' interests */
else if (is_elf(ptr))
pline_msg = "curses orcs.";
else if (is_dwarf(ptr))
pline_msg = "talks about mining.";
else if (likes_magic(ptr))
pline_msg = "talks about spellcraft.";
else if (ptr->mlet == S_CENTAUR)
pline_msg = "discusses hunting.";
else
switch (monsndx(ptr)) {
case PM_HOBBIT:
pline_msg =
(mtmp->mhpmax - mtmp->mhp >=
10) ? "complains about unpleasant dungeon conditions." :
"asks you about the One Ring.";
break;
case PM_ARCHEOLOGIST:
pline_msg =
"describes a recent article in \"Spelunker Today\" "
"magazine.";
break;
case PM_TOURIST:
verbl_msg = "Aloha.";
break;
case PM_PRISONER:
verbl_msg = "Thank you for freeing me!";
break;
default:
pline_msg = "discusses dungeon exploration.";
break;
}
break;
case MS_SEDUCE:
if (ptr->mlet != S_NYMPH && flags.seduce_enabled &&
could_seduce(mtmp, &youmonst, NULL) == 1) {
doseduce(mtmp);
break;
}
switch ((poly_gender() != (int)mtmp->female) ? rn2(3) : 0) {
case 2:
verbl_msg = "Hello, sailor.";
break;
case 1:
pline_msg = "comes on to you.";
break;
default:
pline_msg = "cajoles you.";
}
break;
case MS_ARREST:
if (mtmp->mpeaceful)
verbalize("Just the facts, %s.", u.ufemale ? "Ma'am" : "Sir");
else {
static const char *const arrest_msg[3] = {
"Anything you say can be used against you.",
"You're under arrest!",
"Stop in the name of the Law!",
};
verbl_msg = arrest_msg[rn2(3)];
}
break;
case MS_BRIBE:
if (mtmp->mpeaceful && !mtmp->mtame) {
demon_talk(mtmp);
break;
}
/* fall through */
case MS_CUSS:
if (!mtmp->mpeaceful)
cuss(mtmp);
break;
case MS_SPELL:
/* deliberately vague, since it's not actually casting any spell */
pline_msg = "seems to mutter a cantrip.";
break;
case MS_NURSE:
if (uwep && (uwep->oclass == WEAPON_CLASS || is_weptool(uwep)))
verbl_msg = "Put that weapon away before you hurt someone!";
else if (uarmc || (uarm && !uskin()) ||
uarmh || uarms || uarmg || uarmf)
verbl_msg =
Role_if(PM_HEALER) ?
"Doc, I can't help you unless you cooperate." :
"Please undress so I can examine you.";
else if (uarmu)
verbl_msg = "Take off your shirt, please.";
else
verbl_msg = "Relax, this won't hurt a bit.";
break;
case MS_GUARD:
if (money_cnt(invent))
verbl_msg = "Please drop that gold and follow me.";
else
verbl_msg = "Please follow me.";
break;
case MS_SOLDIER:
{
static const char *const soldier_foe_msg[3] = {
"Resistance is useless!",
"You're dog meat!",
"Surrender!",
}, *const soldier_pax_msg[3] = {
"What lousy pay we're getting here!",
"The food's not fit for Orcs!",
"My feet hurt, I've been on them all day!",
};
verbl_msg = mtmp->mpeaceful ? soldier_pax_msg[rn2(3)]
: soldier_foe_msg[rn2(3)];
}
break;
case MS_RIDER:
if (ptr == &mons[PM_DEATH] && !rn2(10))
pline_msg = "is busy reading a copy of Sandman #8.";
else
verbl_msg = "Who do you think you are, War?";
break;
}
if (pline_msg)
pline("%s %s", Monnam(mtmp), pline_msg);
else if (verbl_msg)
verbalize("%s", verbl_msg);
return 1;
}
int chwepon(struct obj *otmp, int amount)
{
const char *color = hcolor((amount < 0) ? "black" : "blue");
const char *xtime;
int otyp = STRANGE_OBJECT;
if (!uwep || (uwep->oclass != WEAPON_CLASS && !is_weptool(uwep))) {
char buf[BUFSZ];
sprintf(buf, "Your %s %s.", makeplural(body_part(HAND)),
(amount >= 0) ? "twitch" : "itch");
strange_feeling(otmp, buf);
exercise(A_DEX, (boolean) (amount >= 0));
return 0;
}
if (otmp && otmp->oclass == SCROLL_CLASS) otyp = otmp->otyp;
if (uwep->otyp == WORM_TOOTH && amount >= 0) {
uwep->otyp = CRYSKNIFE;
uwep->oerodeproof = 0;
pline("Your weapon seems sharper now.");
uwep->cursed = 0;
if (otyp != STRANGE_OBJECT) makeknown(otyp);
return 1;
}
if (uwep->otyp == CRYSKNIFE && amount < 0) {
uwep->otyp = WORM_TOOTH;
uwep->oerodeproof = 0;
pline("Your weapon seems duller now.");
if (otyp != STRANGE_OBJECT && otmp->bknown) makeknown(otyp);
return 1;
}
if (amount < 0 && uwep->oartifact && restrict_name(uwep, ONAME(uwep))) {
if (!Blind)
pline("Your %s %s.", aobjnam(uwep, "faintly glow"), color);
return 1;
}
/* there is a (soft) upper and lower limit to uwep->spe */
if (((uwep->spe > 5 && amount >= 0) || (uwep->spe < -5 && amount < 0))
&& rn2(3)) {
if (!Blind)
pline("Your %s %s for a while and then %s.",
aobjnam(uwep, "violently glow"), color,
otense(uwep, "evaporate"));
else
pline("Your %s.", aobjnam(uwep, "evaporate"));
useupall(uwep); /* let all of them disappear */
return 1;
}
if (!Blind) {
xtime = (amount*amount == 1) ? "moment" : "while";
pline("Your %s %s for a %s.",
aobjnam(uwep, amount == 0 ? "violently glow" : "glow"),
color, xtime);
if (otyp != STRANGE_OBJECT && uwep->known &&
(amount > 0 || (amount < 0 && otmp->bknown)))
makeknown(otyp);
}
uwep->spe += amount;
if (amount > 0) uwep->cursed = 0;
/*
* Enchantment, which normally improves a weapon, has an
* addition adverse reaction on Magicbane whose effects are
* spe dependent. Give an obscure clue here.
*/
if (uwep->oartifact == ART_MAGICBANE && uwep->spe >= 0) {
pline("Your right %s %sches!",
body_part(HAND),
(((amount > 1) && (uwep->spe > 1)) ? "flin" : "it"));
}
/* an elven magic clue, cookie@keebler */
/* elven weapons vibrate warningly when enchanted beyond a limit */
if ((uwep->spe > 5)
&& (is_elven_weapon(uwep) || uwep->oartifact || !rn2(7)))
pline("Your %s unexpectedly.",
aobjnam(uwep, "suddenly vibrate"));
return 1;
}
