void
glibr(void)
{
struct obj *otmp;
int xfl = 0;
if (!uarmg)
if (uleft || uright) {
/* Note: at present also cursed rings fall off */
pline("Your %s off your fingers.",
(uleft && uright) ? "rings slip" : "ring slips");
xfl++;
if ((otmp = uleft) != Null(obj)) {
ringoff(uleft);
dropx(otmp);
}
if ((otmp = uright) != Null(obj)) {
ringoff(uright);
dropx(otmp);
}
}
if ((otmp = uwep) != Null(obj)) {
/* Note: at present also cursed weapons fall */
setuwep((struct obj *) 0);
dropx(otmp);
pline("Your weapon %sslips from your hands.",
xfl ? "also " : "");
}
}
static void drop_weapon(int alone)
{
struct obj *otmp;
struct obj *otmp2;
if ((otmp = uwep) != 0) {
/* !alone check below is currently superfluous but in the
* future it might not be so if there are monsters which cannot
* wear gloves but can wield weapons
*/
if (!alone || cantwield(youmonst.data)) {
struct obj *wep = uwep;
if (alone) pline("You find you must drop your weapon%s!",
u.twoweap ? "s" : "");
otmp2 = u.twoweap ? uswapwep : 0;
uwepgone();
if (!wep->cursed || wep->otyp != LOADSTONE)
dropx(otmp);
if (otmp2 != 0) {
uswapwepgone();
if (!otmp2->cursed || otmp2->otyp != LOADSTONE)
dropx(otmp2);
}
untwoweapon();
} else if (!could_twoweap(youmonst.data)) {
untwoweapon();
}
}
}
static int
drop(struct obj *obj)
{
if(!obj) return(0);
if(obj->olet == '$') { /* pseudo object */
long amount = OGOLD(obj);
if(amount == 0)
pline("You didn't drop any gold pieces.");
else {
mkgold(amount, u.ux, u.uy);
pline("You dropped %ld gold piece%s.",
amount, plur(amount));
if(Invisible) newsym(u.ux, u.uy);
}
free(obj);
return(1);
}
if(obj->owornmask & (W_ARMOR | W_RING)){
pline("You cannot drop something you are wearing.");
return(0);
}
if(obj == uwep) {
if(uwep->cursed) {
pline("Your weapon is welded to your hand!");
return(0);
}
setuwep((struct obj *) 0);
}
pline("You dropped %s.", doname(obj));
dropx(obj);
return(1);
}
void drop_uswapwep(void)
{
char str[BUFSZ];
struct obj *obj = uswapwep;
/* Avoid trashing makeplural's static buffer */
strcpy(str, makeplural(body_part(HAND)));
pline("Your %s from your %s!", aobjnam(obj, "slip"), str);
dropx(obj);
}
static void
litter(void)
{
struct obj *otmp = invent, *nextobj;
int capacity = weight_cap();
while (otmp) {
nextobj = otmp->nobj;
if ((otmp != uball) && (rnd(capacity) <= (int)otmp->owt) &&
!otmp->owornmask) {
if (canletgo(otmp, "")) {
pline("Your %s you down the stairs.", aobjnam(otmp, "follow"));
dropx(otmp);
}
}
otmp = nextobj;
}
}
static void break_armor(void)
{
struct obj *otmp;
if (breakarm(youmonst.data)) {
if ((otmp = uarm) != 0) {
if (donning(otmp)) cancel_don();
pline("You break out of your armor!");
exercise(A_STR, FALSE);
Armor_gone();
useup(otmp);
}
if ((otmp = uarmc) != 0) {
if (otmp->oartifact) {
pline("Your %s falls off!", cloak_simple_name(otmp));
Cloak_off();
dropx(otmp);
} else {
pline("Your %s tears apart!", cloak_simple_name(otmp));
Cloak_off();
useup(otmp);
}
}
if (uarmu) {
pline("Your shirt rips to shreds!");
useup(uarmu);
}
} else if (sliparm(youmonst.data)) {
if (((otmp = uarm) != 0) && (racial_exception(&youmonst, otmp) < 1)) {
if (donning(otmp)) cancel_don();
pline("Your armor falls around you!");
Armor_gone();
dropx(otmp);
}
if ((otmp = uarmc) != 0) {
if (is_whirly(youmonst.data))
pline("Your %s falls, unsupported!", cloak_simple_name(otmp));
else pline("You shrink out of your %s!", cloak_simple_name(otmp));
Cloak_off();
dropx(otmp);
}
if ((otmp = uarmu) != 0) {
if (is_whirly(youmonst.data))
pline("You seep right through your shirt!");
else pline("You become much too small for your shirt!");
setworn(NULL, otmp->owornmask & W_ARMU);
dropx(otmp);
}
}
if (has_horns(youmonst.data)) {
if ((otmp = uarmh) != 0) {
if (is_flimsy(otmp) && !donning(otmp)) {
char hornbuf[BUFSZ], yourbuf[BUFSZ];
/* Future possiblities: This could damage/destroy helmet */
sprintf(hornbuf, "horn%s", plur(num_horns(youmonst.data)));
pline("Your %s %s through %s %s.", hornbuf, vtense(hornbuf, "pierce"),
shk_your(yourbuf, otmp), xname(otmp));
} else {
if (donning(otmp)) cancel_don();
pline("Your helmet falls to the %s!", surface(u.ux, u.uy));
Helmet_off();
dropx(otmp);
}
}
}
if (nohands(youmonst.data) || verysmall(youmonst.data)) {
if ((otmp = uarmg) != 0) {
if (donning(otmp)) cancel_don();
/* Drop weapon along with gloves */
pline("You drop your gloves%s!", uwep ? " and weapon" : "");
drop_weapon(0);
Gloves_off();
dropx(otmp);
}
if ((otmp = uarms) != 0) {
pline("You can no longer hold your shield!");
Shield_off();
dropx(otmp);
}
if ((otmp = uarmh) != 0) {
if (donning(otmp)) cancel_don();
pline("Your helmet falls to the %s!", surface(u.ux, u.uy));
Helmet_off();
dropx(otmp);
}
}
if (nohands(youmonst.data) || verysmall(youmonst.data) ||
slithy(youmonst.data) || youmonst.data->mlet == S_CENTAUR) {
if ((otmp = uarmf) != 0) {
if (donning(otmp)) cancel_don();
if (is_whirly(youmonst.data))
pline("Your boots fall away!");
else pline("Your boots %s off your feet!",
verysmall(youmonst.data) ? "slide" : "are pushed");
Boots_off();
dropx(otmp);
}
}
}
int doeat(void)
{
struct obj *otmp;
int tmp;
// Is there some food (probably a heavy corpse) here on the ground?
if (!Levitation)
for (otmp = _level->objects; otmp; otmp = otmp->nobj) {
if (otmp->ox == _u.ux && otmp->oy == _u.uy && otmp->olet == FOOD_SYM) {
pline("There %s %s here; eat %s? [ny] ", (otmp->quan == 1) ? "is" : "are", doname(otmp), (otmp->quan == 1) ? "it" : "one");
if (readchar() == 'y') {
if (otmp->quan != 1)
(void) splitobj(otmp, 1);
freeobj(otmp);
otmp = addinv(otmp);
addtobill(otmp);
goto gotit;
}
}
}
otmp = getobj("%", "eat");
if (!otmp)
return 0;
gotit:
if (otmp->otyp == TIN) {
if (uwep) {
switch (uwep->otyp) {
case CAN_OPENER:
tmp = 1;
break;
case DAGGER:
tmp = 3;
break;
case PICK_AXE:
case AXE:
tmp = 6;
break;
default:
goto no_opener;
}
pline("Using your %s you try to open the tin.", aobjnam(uwep, NULL));
} else {
no_opener:
pline("It is not so easy to open this tin.");
if (Glib) {
pline("The tin slips out of your hands.");
if (otmp->quan > 1) {
struct obj *obj;
obj = splitobj(otmp, 1);
if (otmp == uwep)
setuwep(obj);
}
dropx(otmp);
return 1;
}
tmp = 10 + rn2(1 + 500 / ((int) (_u.ulevel + _u.ustr)));
}
tin.reqtime = tmp;
tin.usedtime = 0;
tin.tin = otmp;
occupation = opentin;
occtxt = "opening the tin";
return 1;
}
const struct objclass* ftmp = &c_Objects[otmp->otyp];
multi = -ftmp->oc_delay;
if (otmp->otyp >= CORPSE && eatcorpse(otmp))
goto eatx;
if (!rn2(7) && otmp->otyp != FORTUNE_COOKIE) {
pline("Blecch! Rotten food!");
if (!rn2(4)) {
pline("You feel rather light headed.");
Confusion += d(2, 4);
} else if (!rn2(4) && !Blind) {
pline("Everything suddenly goes dark.");
Blind = d(2, 10);
seeoff(0);
} else if (!rn2(3)) {
if (Blind)
pline("The world spins and you slap against the floor.");
else
pline("The world spins and goes dark.");
nomul(-rnd(10));
nomovemsg = "You are conscious again.";
}
lesshungry(ftmp->nutrition / 4);
} else {
if (_u.uhunger >= 1500) {
pline("You choke over your food.");
pline("You die...");
killer = ftmp->oc_name;
done("choked");
}
switch (otmp->otyp) {
case FOOD_RATION:
if (_u.uhunger <= 200)
pline("That food really hit the spot!");
else if (_u.uhunger <= 700)
pline("That satiated your stomach!");
else {
pline("You're having a hard time getting all that food down.");
multi -= 2;
}
lesshungry(ftmp->nutrition);
if (multi < 0)
nomovemsg = "You finished your meal.";
break;
case TRIPE_RATION:
pline("Yak - dog food!");
more_experienced(1, 0);
_wflags.botl = 1;
if (rn2(2)) {
pline("You vomit.");
morehungry(20);
if (Sick) {
Sick = 0; // David Neves
pline("What a relief!");
}
} else
lesshungry(ftmp->nutrition);
break;
default:
if (otmp->otyp >= CORPSE)
pline("That %s tasted terrible!", ftmp->oc_name);
else
pline("That %s was delicious!", ftmp->oc_name);
lesshungry(ftmp->nutrition);
if (otmp->otyp == DEAD_LIZARD && (Confusion > 2))
Confusion = 2;
else if (otmp->otyp == FORTUNE_COOKIE) {
if (Blind) {
pline("This cookie has a scrap of paper inside!");
pline("What a pity, that you cannot read it!");
} else
print_rumor();
} else if (otmp->otyp == LUMP_OF_ROYAL_JELLY) {
// This stuff seems to be VERY healthy!
if (_u.ustrmax < 118)
++_u.ustrmax;
if (_u.ustr < _u.ustrmax)
++_u.ustr;
_u.uhp += rnd(20);
if (_u.uhp > _u.uhpmax) {
if (!rn2(17))
++_u.uhpmax;
_u.uhp = _u.uhpmax;
}
heal_legs();
}
break;
}
}
eatx:
if (multi < 0 && !nomovemsg) {
static char msgbuf[BUFSZ];
sprintf(msgbuf, "You finished eating the %s.", ftmp->oc_name);
nomovemsg = msgbuf;
}
useup(otmp);
return 1;
}
int
dowrite(struct obj *pen, const struct nh_cmd_arg *arg)
{
struct obj *paper;
const char *namebuf, *nm, *bp;
struct obj *new_obj;
int basecost, actualcost;
int curseval;
const char *qbuf;
int first, last, i;
boolean by_descr = FALSE, by_name = FALSE;
const char *typeword;
if (nohands(youmonst.data)) {
pline(msgc_cancelled, "You need hands to be able to write!");
return 0;
} else if (slippery_fingers(&youmonst)) {
pline(msgc_cancelled1, "%s from your %s.", Tobjnam(pen, "slip"),
makeplural(body_part(FINGER)));
unwield_silently(pen);
dropx(pen);
return 1;
}
/* get paper to write on */
paper = getargobj(arg, write_on, "write on");
if (!paper)
return 0;
typeword = (paper->oclass == SPBOOK_CLASS) ? "spellbook" : "scroll";
if (Blind && !paper->dknown) {
pline(msgc_cancelled1,
"You don't know if that %s is blank or not!", typeword);
return 1;
}
paper->dknown = 1;
if (paper->otyp != SCR_BLANK_PAPER && paper->otyp != SPE_BLANK_PAPER) {
pline(msgc_cancelled1, "That %s is not blank!", typeword);
exercise(A_WIS, FALSE);
return 1;
}
/* what to write */
qbuf = msgprintf("What type of %s do you want to write?", typeword);
namebuf = getarglin(arg, qbuf);
namebuf = msgmungspaces(namebuf); /* remove any excess whitespace */
if (namebuf[0] == '\033' || !namebuf[0])
return 1;
nm = namebuf;
if (!strncmpi(nm, "scroll ", 7))
nm += 7;
else if (!strncmpi(nm, "spellbook ", 10))
nm += 10;
if (!strncmpi(nm, "of ", 3))
nm += 3;
if ((bp = strstri(nm, " armour")) != 0)
nm = msgcat_many(msgchop(nm, bp-nm), " armor", bp+7, NULL);
first = bases[(int)paper->oclass];
last = bases[(int)paper->oclass + 1] - 1;
for (i = first; i <= last; i++) {
/* extra shufflable descr not representing a real object */
if (!OBJ_NAME(objects[i]))
continue;
if (!strcmpi(OBJ_NAME(objects[i]), nm))
goto found;
if (!strcmpi(OBJ_DESCR(objects[i]), nm)) {
by_descr = TRUE;
goto found;
}
if (objects[i].oc_uname &&
!strcmpi(objects[i].oc_uname, nm)) {
by_name = TRUE;
goto found;
}
}
pline(msgc_cancelled1, "There is no such %s!", typeword);
return 1;
found:
if (i == SCR_BLANK_PAPER || i == SPE_BLANK_PAPER) {
pline(msgc_cancelled1, "You can't write that!");
pline(msgc_cancelled1, "It's obscene!");
return 1;
} else if (i == SPE_BOOK_OF_THE_DEAD) {
pline(msgc_cancelled1, "No mere dungeon adventurer could write that.");
return 1;
} else if ((by_descr || by_name) && paper->oclass == SPBOOK_CLASS &&
!objects[i].oc_name_known) {
/* can't write unknown spellbooks by description */
pline(msgc_cancelled1,
"Unfortunately you don't have enough information to go on.");
return 1;
}
/* KMH, conduct */
break_conduct(conduct_illiterate);
new_obj = mksobj(level, i, FALSE, FALSE, rng_main);
new_obj->bknown = (paper->bknown && pen->bknown);
/* shk imposes a flat rate per use, not based on actual charges used */
check_unpaid(pen);
/* see if there's enough ink */
basecost = cost(new_obj);
if (pen->spe < basecost / 2) {
pline(msgc_failcurse, "Your marker is too dry to write that!");
obfree(new_obj, NULL);
return 1;
}
/* we're really going to write now, so calculate cost
no custom RNG used: too much influence from player actions */
actualcost = rn1(basecost / 2, basecost / 2);
curseval = bcsign(pen) + bcsign(paper);
exercise(A_WIS, TRUE);
/* dry out marker */
if (pen->spe < actualcost) {
pen->spe = 0;
pline(msgc_itemloss, "Your marker dries out!");
/* scrolls disappear, spellbooks don't */
if (paper->oclass == SPBOOK_CLASS) {
pline(msgc_failcurse,
"The spellbook is left unfinished and your writing fades.");
update_inventory(); /* pen charges */
} else {
pline(msgc_failcurse, "The scroll is now useless and disappears!");
useup(paper);
}
obfree(new_obj, NULL);
return 1;
}
pen->spe -= actualcost;
/* can't write if we don't know it - unless we're lucky */
if (!(objects[new_obj->otyp].oc_name_known) &&
(rnl(Role_if(PM_WIZARD) ? 3 : 15))) {
pline(msgc_failrandom, "You %s to write that!",
by_descr ? "fail" : "don't know how");
/* scrolls disappear, spellbooks don't */
if (paper->oclass == SPBOOK_CLASS) {
pline_implied(msgc_failrandom,
"You write in your best handwriting: "
"\"My Diary\", but it quickly fades.");
update_inventory(); /* pen charges */
} else {
const char *written;
if (by_descr) {
written = OBJ_DESCR(objects[new_obj->otyp]);
written = eroded_text(written,
(6 + MAXULEV - youmonst.m_lev) / 6, 0);
} else
written = msgprintf("%s was here!", u.uplname);
pline_implied(msgc_failrandom,
"You write \"%s\" and the scroll disappears.",
written);
useup(paper);
}
obfree(new_obj, NULL);
return 1;
}
/* useup old scroll / spellbook */
useup(paper);
/* success */
if (new_obj->oclass == SPBOOK_CLASS) {
/* acknowledge the change in the object's description... */
pline(msgc_actionok, "The spellbook warps strangely, then turns %s.",
OBJ_DESCR(objects[new_obj->otyp]));
}
new_obj->blessed = (curseval > 0);
new_obj->cursed = (curseval < 0);
hold_another_object(new_obj, "Oops! %s out of your grasp!",
The(aobjnam(new_obj, "slip")), NULL);
return 1;
}
static void
break_armor (void)
{
struct obj *otmp;
if (breakarm(youmonst.data)) {
if ((otmp = uarm) != 0) {
if (donning(otmp)) cancel_don();
You("break out of your armor!");
exercise(A_STR, false);
(void) Armor_gone();
useup(otmp);
}
if ((otmp = uarmc) != 0) {
if(otmp->oartifact) {
Your("%s falls off!", cloak_simple_name(otmp));
(void) Cloak_off();
dropx(otmp);
} else {
Your("%s tears apart!", cloak_simple_name(otmp));
(void) Cloak_off();
useup(otmp);
}
}
if (uarmu) {
Your("shirt rips to shreds!");
useup(uarmu);
}
} else if (sliparm(youmonst.data)) {
if (((otmp = uarm) != 0) && (racial_exception(&youmonst, otmp) < 1)) {
if (donning(otmp)) cancel_don();
Your("armor falls around you!");
(void) Armor_gone();
dropx(otmp);
}
if ((otmp = uarmc) != 0) {
if (is_whirly(youmonst.data))
Your("%s falls, unsupported!", cloak_simple_name(otmp));
else You("shrink out of your %s!", cloak_simple_name(otmp));
(void) Cloak_off();
dropx(otmp);
}
if ((otmp = uarmu) != 0) {
if (is_whirly(youmonst.data))
You("seep right through your shirt!");
else You("become much too small for your shirt!");
setworn((struct obj *)0, otmp->owornmask & W_ARMU);
dropx(otmp);
}
}
if (has_horns(youmonst.data)) {
if ((otmp = uarmh) != 0) {
if (is_flimsy(otmp) && !donning(otmp)) {
/* Future possiblities: This could damage/destroy helmet */
message_object(MSG_YOUR_HORNS_PIERCE_O, otmp);
} else {
if (donning(otmp)) cancel_don();
Your("helmet falls to the %s!", surface(u.ux, u.uy));
(void) Helmet_off();
dropx(otmp);
}
}
}
if (nohands(youmonst.data) || verysmall(youmonst.data)) {
if ((otmp = uarmg) != 0) {
if (donning(otmp)) cancel_don();
/* Drop weapon along with gloves */
You("drop your gloves%s!", uwep ? " and weapon" : "");
drop_weapon(0);
(void) Gloves_off();
dropx(otmp);
}
if ((otmp = uarms) != 0) {
You("can no longer hold your shield!");
(void) Shield_off();
dropx(otmp);
}
if ((otmp = uarmh) != 0) {
if (donning(otmp)) cancel_don();
Your("helmet falls to the %s!", surface(u.ux, u.uy));
(void) Helmet_off();
dropx(otmp);
}
}
if (nohands(youmonst.data) || verysmall(youmonst.data) ||
slithy(youmonst.data) || youmonst.data->mlet == S_CENTAUR) {
if ((otmp = uarmf) != 0) {
if (donning(otmp)) cancel_don();
if (is_whirly(youmonst.data))
Your("boots fall away!");
else Your("boots %s off your feet!",
verysmall(youmonst.data) ? "slide" : "are pushed");
(void) Boots_off();
dropx(otmp);
}
}
}
