Reformat all C files.
I'll push a formatting guide at some point. There may still be outstanding changes, but please feel free to resolve those as you arrive a them. To the best of my knowledge, there is no changes to the actual code content, but the formatter does have the occasional bug. If you run into an issue, please fix it!
This commit is contained in:
Sean Hunt
561
src/write.c
561
src/write.c
@@ -1,12 +1,12 @@
|
||||
/* NetHack 3.6 write.c $NHDT-Date$ $NHDT-Branch$:$NHDT-Revision$ */
|
||||
/* NetHack 3.6 write.c $NHDT-Date: 1431192759 2015/05/09 17:32:39 $ $NHDT-Branch: master $:$NHDT-Revision: 1.12 $ */
|
||||
/* NetHack 3.6 write.c $Date: 2010/12/28 19:54:41 $ $Revision: 1.9 $ */
|
||||
/* NetHack may be freely redistributed. See license for details. */
|
||||
|
||||
#include "hack.h"
|
||||
|
||||
STATIC_DCL int FDECL(cost,(struct obj *));
|
||||
STATIC_DCL boolean FDECL(label_known, (int,struct obj *));
|
||||
STATIC_DCL char *FDECL(new_book_description, (int,char *));
|
||||
STATIC_DCL int FDECL(cost, (struct obj *));
|
||||
STATIC_DCL boolean FDECL(label_known, (int, struct obj *));
|
||||
STATIC_DCL char *FDECL(new_book_description, (int, char *));
|
||||
|
||||
/*
|
||||
* returns basecost of a scroll or a spellbook
|
||||
@@ -15,56 +15,55 @@ STATIC_OVL int
|
||||
cost(otmp)
|
||||
register struct obj *otmp;
|
||||
{
|
||||
if (otmp->oclass == SPBOOK_CLASS)
|
||||
return (10 * objects[otmp->otyp].oc_level);
|
||||
|
||||
if (otmp->oclass == SPBOOK_CLASS)
|
||||
return(10 * objects[otmp->otyp].oc_level);
|
||||
|
||||
switch (otmp->otyp) {
|
||||
# ifdef MAIL
|
||||
case SCR_MAIL:
|
||||
return(2);
|
||||
switch (otmp->otyp) {
|
||||
#ifdef MAIL
|
||||
case SCR_MAIL:
|
||||
return (2);
|
||||
/* break; */
|
||||
# endif
|
||||
case SCR_LIGHT:
|
||||
case SCR_GOLD_DETECTION:
|
||||
case SCR_FOOD_DETECTION:
|
||||
case SCR_MAGIC_MAPPING:
|
||||
case SCR_AMNESIA:
|
||||
case SCR_FIRE:
|
||||
case SCR_EARTH:
|
||||
return(8);
|
||||
/* break; */
|
||||
case SCR_DESTROY_ARMOR:
|
||||
case SCR_CREATE_MONSTER:
|
||||
case SCR_PUNISHMENT:
|
||||
return(10);
|
||||
/* break; */
|
||||
case SCR_CONFUSE_MONSTER:
|
||||
return(12);
|
||||
/* break; */
|
||||
case SCR_IDENTIFY:
|
||||
return(14);
|
||||
/* break; */
|
||||
case SCR_ENCHANT_ARMOR:
|
||||
case SCR_REMOVE_CURSE:
|
||||
case SCR_ENCHANT_WEAPON:
|
||||
case SCR_CHARGING:
|
||||
return(16);
|
||||
/* break; */
|
||||
case SCR_SCARE_MONSTER:
|
||||
case SCR_STINKING_CLOUD:
|
||||
case SCR_TAMING:
|
||||
case SCR_TELEPORTATION:
|
||||
return(20);
|
||||
/* break; */
|
||||
case SCR_GENOCIDE:
|
||||
return(30);
|
||||
/* break; */
|
||||
case SCR_BLANK_PAPER:
|
||||
default:
|
||||
impossible("You can't write such a weird scroll!");
|
||||
}
|
||||
return(1000);
|
||||
#endif
|
||||
case SCR_LIGHT:
|
||||
case SCR_GOLD_DETECTION:
|
||||
case SCR_FOOD_DETECTION:
|
||||
case SCR_MAGIC_MAPPING:
|
||||
case SCR_AMNESIA:
|
||||
case SCR_FIRE:
|
||||
case SCR_EARTH:
|
||||
return (8);
|
||||
/* break; */
|
||||
case SCR_DESTROY_ARMOR:
|
||||
case SCR_CREATE_MONSTER:
|
||||
case SCR_PUNISHMENT:
|
||||
return (10);
|
||||
/* break; */
|
||||
case SCR_CONFUSE_MONSTER:
|
||||
return (12);
|
||||
/* break; */
|
||||
case SCR_IDENTIFY:
|
||||
return (14);
|
||||
/* break; */
|
||||
case SCR_ENCHANT_ARMOR:
|
||||
case SCR_REMOVE_CURSE:
|
||||
case SCR_ENCHANT_WEAPON:
|
||||
case SCR_CHARGING:
|
||||
return (16);
|
||||
/* break; */
|
||||
case SCR_SCARE_MONSTER:
|
||||
case SCR_STINKING_CLOUD:
|
||||
case SCR_TAMING:
|
||||
case SCR_TELEPORTATION:
|
||||
return (20);
|
||||
/* break; */
|
||||
case SCR_GENOCIDE:
|
||||
return (30);
|
||||
/* break; */
|
||||
case SCR_BLANK_PAPER:
|
||||
default:
|
||||
impossible("You can't write such a weird scroll!");
|
||||
}
|
||||
return (1000);
|
||||
}
|
||||
|
||||
/* decide whether the hero knowns a particular scroll's label;
|
||||
@@ -80,18 +79,18 @@ struct obj *objlist;
|
||||
|
||||
/* only scrolls */
|
||||
if (objects[scrolltype].oc_class != SCROLL_CLASS)
|
||||
return FALSE;
|
||||
return FALSE;
|
||||
/* type known implies full discovery; otherwise,
|
||||
user-assigned name implies partial discovery */
|
||||
if (objects[scrolltype].oc_name_known || objects[scrolltype].oc_uname)
|
||||
return TRUE;
|
||||
return TRUE;
|
||||
/* check inventory, including carried containers with known contents */
|
||||
for (otmp = objlist; otmp; otmp = otmp->nobj) {
|
||||
if (otmp->otyp == scrolltype && otmp->dknown)
|
||||
return TRUE;
|
||||
if (Has_contents(otmp) && otmp->cknown &&
|
||||
label_known(scrolltype, otmp->cobj))
|
||||
return TRUE;
|
||||
if (otmp->otyp == scrolltype && otmp->dknown)
|
||||
return TRUE;
|
||||
if (Has_contents(otmp) && otmp->cknown
|
||||
&& label_known(scrolltype, otmp->cobj))
|
||||
return TRUE;
|
||||
}
|
||||
/* not found */
|
||||
return FALSE;
|
||||
@@ -103,242 +102,245 @@ int
|
||||
dowrite(pen)
|
||||
register struct obj *pen;
|
||||
{
|
||||
register struct obj *paper;
|
||||
char namebuf[BUFSZ], *nm, *bp;
|
||||
register struct obj *new_obj;
|
||||
int basecost, actualcost;
|
||||
int curseval;
|
||||
char qbuf[QBUFSZ];
|
||||
int first, last, i, deferred, deferralchance;
|
||||
boolean by_descr = FALSE;
|
||||
const char *typeword;
|
||||
register struct obj *paper;
|
||||
char namebuf[BUFSZ], *nm, *bp;
|
||||
register struct obj *new_obj;
|
||||
int basecost, actualcost;
|
||||
int curseval;
|
||||
char qbuf[QBUFSZ];
|
||||
int first, last, i, deferred, deferralchance;
|
||||
boolean by_descr = FALSE;
|
||||
const char *typeword;
|
||||
|
||||
if (nohands(youmonst.data)) {
|
||||
You("need hands to be able to write!");
|
||||
return 0;
|
||||
} else if (Glib) {
|
||||
pline("%s from your %s.",
|
||||
Tobjnam(pen, "slip"), makeplural(body_part(FINGER)));
|
||||
dropx(pen);
|
||||
return 1;
|
||||
}
|
||||
if (nohands(youmonst.data)) {
|
||||
You("need hands to be able to write!");
|
||||
return 0;
|
||||
} else if (Glib) {
|
||||
pline("%s from your %s.", Tobjnam(pen, "slip"),
|
||||
makeplural(body_part(FINGER)));
|
||||
dropx(pen);
|
||||
return 1;
|
||||
}
|
||||
|
||||
/* get paper to write on */
|
||||
paper = getobj(write_on,"write on");
|
||||
if(!paper)
|
||||
return(0);
|
||||
typeword = (paper->oclass == SPBOOK_CLASS) ? "spellbook" : "scroll";
|
||||
if (Blind) {
|
||||
if (!paper->dknown) {
|
||||
You("don't know if that %s is blank or not.", typeword);
|
||||
return 1;
|
||||
} else if (paper->oclass == SPBOOK_CLASS) {
|
||||
/* can't write a magic book while blind */
|
||||
pline("%s can't create braille text.",
|
||||
upstart(ysimple_name(pen)));
|
||||
return 1;
|
||||
}
|
||||
}
|
||||
paper->dknown = 1;
|
||||
if(paper->otyp != SCR_BLANK_PAPER && paper->otyp != SPE_BLANK_PAPER) {
|
||||
pline("That %s is not blank!", typeword);
|
||||
exercise(A_WIS, FALSE);
|
||||
return(1);
|
||||
}
|
||||
/* get paper to write on */
|
||||
paper = getobj(write_on, "write on");
|
||||
if (!paper)
|
||||
return (0);
|
||||
typeword = (paper->oclass == SPBOOK_CLASS) ? "spellbook" : "scroll";
|
||||
if (Blind) {
|
||||
if (!paper->dknown) {
|
||||
You("don't know if that %s is blank or not.", typeword);
|
||||
return 1;
|
||||
} else if (paper->oclass == SPBOOK_CLASS) {
|
||||
/* can't write a magic book while blind */
|
||||
pline("%s can't create braille text.",
|
||||
upstart(ysimple_name(pen)));
|
||||
return 1;
|
||||
}
|
||||
}
|
||||
paper->dknown = 1;
|
||||
if (paper->otyp != SCR_BLANK_PAPER && paper->otyp != SPE_BLANK_PAPER) {
|
||||
pline("That %s is not blank!", typeword);
|
||||
exercise(A_WIS, FALSE);
|
||||
return (1);
|
||||
}
|
||||
|
||||
/* what to write */
|
||||
Sprintf(qbuf, "What type of %s do you want to write?", typeword);
|
||||
getlin(qbuf, namebuf);
|
||||
(void)mungspaces(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;
|
||||
/* what to write */
|
||||
Sprintf(qbuf, "What type of %s do you want to write?", typeword);
|
||||
getlin(qbuf, namebuf);
|
||||
(void) mungspaces(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) {
|
||||
(void)strncpy(bp, " armor ", 7); /* won't add '\0' */
|
||||
(void)mungspaces(bp + 1); /* remove the extra space */
|
||||
}
|
||||
if ((bp = strstri(nm, " armour")) != 0) {
|
||||
(void) strncpy(bp, " armor ", 7); /* won't add '\0' */
|
||||
(void) mungspaces(bp + 1); /* remove the extra space */
|
||||
}
|
||||
|
||||
deferred = 0; /* not any scroll or book */
|
||||
deferralchance = 0; /* incremented for each oc_uname match */
|
||||
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;
|
||||
deferred = 0; /* not any scroll or book */
|
||||
deferralchance = 0; /* incremented for each oc_uname match */
|
||||
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;
|
||||
}
|
||||
/* user-assigned name might match real name of a later
|
||||
entry, so we don't simply use first match with it;
|
||||
also, player might assign same name multiple times
|
||||
and if so, we choose one of those matches randomly */
|
||||
if (objects[i].oc_uname && !strcmpi(objects[i].oc_uname, nm) &&
|
||||
/* first match: chance incremented to 1,
|
||||
!rn2(1) is 1, we remember i;
|
||||
second match: chance incremented to 2,
|
||||
!rn2(2) has 1/2 chance to replace i;
|
||||
third match: chance incremented to 3,
|
||||
!rn2(3) has 1/3 chance to replace i
|
||||
and 2/3 chance to keep previous 50:50
|
||||
choice; so on for higher match counts */
|
||||
!rn2(++deferralchance))
|
||||
deferred = i;
|
||||
}
|
||||
/* writing by user-assigned name is same as by description:
|
||||
fails for books, works for scrolls (having an assigned
|
||||
type name guarantees presence on discoveries list) */
|
||||
if (deferred) {
|
||||
i = deferred;
|
||||
by_descr = TRUE;
|
||||
goto found;
|
||||
}
|
||||
if (!strcmpi(OBJ_NAME(objects[i]), nm))
|
||||
goto found;
|
||||
if (!strcmpi(OBJ_DESCR(objects[i]), nm)) {
|
||||
by_descr = TRUE;
|
||||
goto found;
|
||||
}
|
||||
/* user-assigned name might match real name of a later
|
||||
entry, so we don't simply use first match with it;
|
||||
also, player might assign same name multiple times
|
||||
and if so, we choose one of those matches randomly */
|
||||
if (objects[i].oc_uname && !strcmpi(objects[i].oc_uname, nm) &&
|
||||
/* first match: chance incremented to 1,
|
||||
!rn2(1) is 1, we remember i;
|
||||
second match: chance incremented to 2,
|
||||
!rn2(2) has 1/2 chance to replace i;
|
||||
third match: chance incremented to 3,
|
||||
!rn2(3) has 1/3 chance to replace i
|
||||
and 2/3 chance to keep previous 50:50
|
||||
choice; so on for higher match counts */
|
||||
!rn2(++deferralchance))
|
||||
deferred = i;
|
||||
}
|
||||
/* writing by user-assigned name is same as by description:
|
||||
fails for books, works for scrolls (having an assigned
|
||||
type name guarantees presence on discoveries list) */
|
||||
if (deferred) {
|
||||
i = deferred;
|
||||
by_descr = TRUE;
|
||||
goto found;
|
||||
}
|
||||
|
||||
There("is no such %s!", typeword);
|
||||
return 1;
|
||||
There("is no such %s!", typeword);
|
||||
return 1;
|
||||
found:
|
||||
|
||||
if (i == SCR_BLANK_PAPER || i == SPE_BLANK_PAPER) {
|
||||
You_cant("write that!");
|
||||
pline("It's obscene!");
|
||||
return 1;
|
||||
} else if (i == SPE_BOOK_OF_THE_DEAD) {
|
||||
pline("No mere dungeon adventurer could write that.");
|
||||
return 1;
|
||||
} else if (by_descr && paper->oclass == SPBOOK_CLASS &&
|
||||
!objects[i].oc_name_known) {
|
||||
/* can't write unknown spellbooks by description */
|
||||
pline(
|
||||
"Unfortunately you don't have enough information to go on.");
|
||||
return 1;
|
||||
}
|
||||
if (i == SCR_BLANK_PAPER || i == SPE_BLANK_PAPER) {
|
||||
You_cant("write that!");
|
||||
pline("It's obscene!");
|
||||
return 1;
|
||||
} else if (i == SPE_BOOK_OF_THE_DEAD) {
|
||||
pline("No mere dungeon adventurer could write that.");
|
||||
return 1;
|
||||
} else if (by_descr && paper->oclass == SPBOOK_CLASS
|
||||
&& !objects[i].oc_name_known) {
|
||||
/* can't write unknown spellbooks by description */
|
||||
pline("Unfortunately you don't have enough information to go on.");
|
||||
return 1;
|
||||
}
|
||||
|
||||
/* KMH, conduct */
|
||||
u.uconduct.literate++;
|
||||
/* KMH, conduct */
|
||||
u.uconduct.literate++;
|
||||
|
||||
new_obj = mksobj(i, FALSE, FALSE);
|
||||
new_obj->bknown = (paper->bknown && pen->bknown);
|
||||
new_obj = mksobj(i, FALSE, FALSE);
|
||||
new_obj->bknown = (paper->bknown && pen->bknown);
|
||||
|
||||
/* shk imposes a flat rate per use, not based on actual charges used */
|
||||
check_unpaid(pen);
|
||||
/* 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) {
|
||||
Your("marker is too dry to write that!");
|
||||
obfree(new_obj, (struct obj *) 0);
|
||||
return(1);
|
||||
}
|
||||
/* see if there's enough ink */
|
||||
basecost = cost(new_obj);
|
||||
if (pen->spe < basecost / 2) {
|
||||
Your("marker is too dry to write that!");
|
||||
obfree(new_obj, (struct obj *) 0);
|
||||
return (1);
|
||||
}
|
||||
|
||||
/* we're really going to write now, so calculate cost
|
||||
*/
|
||||
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;
|
||||
Your("marker dries out!");
|
||||
/* scrolls disappear, spellbooks don't */
|
||||
if (paper->oclass == SPBOOK_CLASS) {
|
||||
pline_The(
|
||||
"spellbook is left unfinished and your writing fades.");
|
||||
update_inventory(); /* pen charges */
|
||||
} else {
|
||||
pline_The("scroll is now useless and disappears!");
|
||||
useup(paper);
|
||||
}
|
||||
obfree(new_obj, (struct obj *) 0);
|
||||
return(1);
|
||||
}
|
||||
pen->spe -= actualcost;
|
||||
/* we're really going to write now, so calculate cost
|
||||
*/
|
||||
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;
|
||||
Your("marker dries out!");
|
||||
/* scrolls disappear, spellbooks don't */
|
||||
if (paper->oclass == SPBOOK_CLASS) {
|
||||
pline_The("spellbook is left unfinished and your writing fades.");
|
||||
update_inventory(); /* pen charges */
|
||||
} else {
|
||||
pline_The("scroll is now useless and disappears!");
|
||||
useup(paper);
|
||||
}
|
||||
obfree(new_obj, (struct obj *) 0);
|
||||
return (1);
|
||||
}
|
||||
pen->spe -= actualcost;
|
||||
|
||||
/*
|
||||
* Writing by name requires that the hero knows the scroll or
|
||||
* book type. One has previously been read (and its effect
|
||||
* was evident) or been ID'd via scroll/spell/throne and it
|
||||
* will be on the discoveries list.
|
||||
* (Previous versions allowed scrolls and books to be written
|
||||
* by type name if they were on the discoveries list via being
|
||||
* given a user-assigned name, even though doing the latter
|
||||
* doesn't--and shouldn't--make the actual type become known.)
|
||||
*
|
||||
* Writing by description requires that the hero knows the
|
||||
* description (a scroll's label, that is, since books by_descr
|
||||
* are rejected above). BUG: We can only do this for known
|
||||
* scrolls and for the case where the player has assigned a
|
||||
* name to put it onto the discoveries list; we lack a way to
|
||||
* track other scrolls which have been seen closely enough to
|
||||
* read the label without then being ID'd or named. The only
|
||||
* exception is for currently carried inventory, where we can
|
||||
* check for one [with its dknown bit set] of the same type.
|
||||
*
|
||||
* Normal requirements can be overridden if hero is Lucky.
|
||||
*/
|
||||
/*
|
||||
* Writing by name requires that the hero knows the scroll or
|
||||
* book type. One has previously been read (and its effect
|
||||
* was evident) or been ID'd via scroll/spell/throne and it
|
||||
* will be on the discoveries list.
|
||||
* (Previous versions allowed scrolls and books to be written
|
||||
* by type name if they were on the discoveries list via being
|
||||
* given a user-assigned name, even though doing the latter
|
||||
* doesn't--and shouldn't--make the actual type become known.)
|
||||
*
|
||||
* Writing by description requires that the hero knows the
|
||||
* description (a scroll's label, that is, since books by_descr
|
||||
* are rejected above). BUG: We can only do this for known
|
||||
* scrolls and for the case where the player has assigned a
|
||||
* name to put it onto the discoveries list; we lack a way to
|
||||
* track other scrolls which have been seen closely enough to
|
||||
* read the label without then being ID'd or named. The only
|
||||
* exception is for currently carried inventory, where we can
|
||||
* check for one [with its dknown bit set] of the same type.
|
||||
*
|
||||
* Normal requirements can be overridden if hero is Lucky.
|
||||
*/
|
||||
|
||||
/* if known, then either by-name or by-descr works */
|
||||
if (!objects[new_obj->otyp].oc_name_known &&
|
||||
/* else if named, then only by-descr works */
|
||||
!(by_descr && label_known(new_obj->otyp, invent)) &&
|
||||
/* and Luck might override after both checks have failed */
|
||||
rnl(Role_if(PM_WIZARD) ? 5 : 15)) {
|
||||
You("%s to write that.", by_descr ? "fail" : "don't know how");
|
||||
/* scrolls disappear, spellbooks don't */
|
||||
if (paper->oclass == SPBOOK_CLASS) {
|
||||
You(
|
||||
"write in your best handwriting: \"My Diary\", but it quickly fades.");
|
||||
update_inventory(); /* pen charges */
|
||||
} else {
|
||||
if (by_descr) {
|
||||
Strcpy(namebuf, OBJ_DESCR(objects[new_obj->otyp]));
|
||||
wipeout_text(namebuf, (6+MAXULEV - u.ulevel)/6, 0);
|
||||
} else
|
||||
Sprintf(namebuf, "%s was here!", plname);
|
||||
You("write \"%s\" and the scroll disappears.", namebuf);
|
||||
useup(paper);
|
||||
}
|
||||
obfree(new_obj, (struct obj *) 0);
|
||||
return(1);
|
||||
}
|
||||
/* can write scrolls when blind, but requires luck too;
|
||||
attempts to write books when blind are caught above */
|
||||
if (Blind && rnl(3)) {
|
||||
/* writing while blind usually fails regardless of
|
||||
whether the target scroll is known; even if we
|
||||
have passed the write-an-unknown scroll test
|
||||
above we can still fail this one, so it's doubly
|
||||
hard to write an unknown scroll while blind */
|
||||
You("fail to write the scroll correctly and it disappears.");
|
||||
useup(paper);
|
||||
obfree(new_obj, (struct obj *) 0);
|
||||
return 1;
|
||||
}
|
||||
/* if known, then either by-name or by-descr works */
|
||||
if (!objects[new_obj->otyp].oc_name_known &&
|
||||
/* else if named, then only by-descr works */
|
||||
!(by_descr && label_known(new_obj->otyp, invent)) &&
|
||||
/* and Luck might override after both checks have failed */
|
||||
rnl(Role_if(PM_WIZARD) ? 5 : 15)) {
|
||||
You("%s to write that.", by_descr ? "fail" : "don't know how");
|
||||
/* scrolls disappear, spellbooks don't */
|
||||
if (paper->oclass == SPBOOK_CLASS) {
|
||||
You("write in your best handwriting: \"My Diary\", but it "
|
||||
"quickly fades.");
|
||||
update_inventory(); /* pen charges */
|
||||
} else {
|
||||
if (by_descr) {
|
||||
Strcpy(namebuf, OBJ_DESCR(objects[new_obj->otyp]));
|
||||
wipeout_text(namebuf, (6 + MAXULEV - u.ulevel) / 6, 0);
|
||||
} else
|
||||
Sprintf(namebuf, "%s was here!", plname);
|
||||
You("write \"%s\" and the scroll disappears.", namebuf);
|
||||
useup(paper);
|
||||
}
|
||||
obfree(new_obj, (struct obj *) 0);
|
||||
return (1);
|
||||
}
|
||||
/* can write scrolls when blind, but requires luck too;
|
||||
attempts to write books when blind are caught above */
|
||||
if (Blind && rnl(3)) {
|
||||
/* writing while blind usually fails regardless of
|
||||
whether the target scroll is known; even if we
|
||||
have passed the write-an-unknown scroll test
|
||||
above we can still fail this one, so it's doubly
|
||||
hard to write an unknown scroll while blind */
|
||||
You("fail to write the scroll correctly and it disappears.");
|
||||
useup(paper);
|
||||
obfree(new_obj, (struct obj *) 0);
|
||||
return 1;
|
||||
}
|
||||
|
||||
/* useup old scroll / spellbook */
|
||||
useup(paper);
|
||||
/* useup old scroll / spellbook */
|
||||
useup(paper);
|
||||
|
||||
/* success */
|
||||
if (new_obj->oclass == SPBOOK_CLASS) {
|
||||
/* acknowledge the change in the object's description... */
|
||||
pline_The("spellbook warps strangely, then turns %s.",
|
||||
new_book_description(new_obj->otyp, namebuf));
|
||||
}
|
||||
new_obj->blessed = (curseval > 0);
|
||||
new_obj->cursed = (curseval < 0);
|
||||
/* success */
|
||||
if (new_obj->oclass == SPBOOK_CLASS) {
|
||||
/* acknowledge the change in the object's description... */
|
||||
pline_The("spellbook warps strangely, then turns %s.",
|
||||
new_book_description(new_obj->otyp, namebuf));
|
||||
}
|
||||
new_obj->blessed = (curseval > 0);
|
||||
new_obj->cursed = (curseval < 0);
|
||||
#ifdef MAIL
|
||||
if (new_obj->otyp == SCR_MAIL) new_obj->spe = 1;
|
||||
if (new_obj->otyp == SCR_MAIL)
|
||||
new_obj->spe = 1;
|
||||
#endif
|
||||
new_obj = hold_another_object(new_obj, "Oops! %s out of your grasp!",
|
||||
The(aobjnam(new_obj, "slip")),
|
||||
(const char *)0);
|
||||
return(1);
|
||||
new_obj =
|
||||
hold_another_object(new_obj, "Oops! %s out of your grasp!",
|
||||
The(aobjnam(new_obj, "slip")), (const char *) 0);
|
||||
return (1);
|
||||
}
|
||||
|
||||
/* most book descriptions refer to cover appearance, so we can issue a
|
||||
@@ -356,18 +358,21 @@ char *outbuf;
|
||||
/* subset of description strings from objects.c; if it grows
|
||||
much, we may need to add a new flag field to objects[] instead */
|
||||
static const char *const compositions[] = {
|
||||
"parchment", "vellum", "cloth",
|
||||
"parchment",
|
||||
"vellum",
|
||||
"cloth",
|
||||
#if 0
|
||||
"canvas", "hardcover", /* not used */
|
||||
"papyrus", /* not applicable--can't be produced via writing */
|
||||
#endif /*0*/
|
||||
0
|
||||
0
|
||||
};
|
||||
const char *descr, *const *comp_p;
|
||||
|
||||
descr = OBJ_DESCR(objects[booktype]);
|
||||
for (comp_p = compositions; *comp_p; ++comp_p)
|
||||
if (!strcmpi(descr, *comp_p)) break;
|
||||
if (!strcmpi(descr, *comp_p))
|
||||
break;
|
||||
|
||||
Sprintf(outbuf, "%s%s", *comp_p ? "into " : "", descr);
|
||||
return outbuf;
|
||||
|
||||
Reference in New Issue
Block a user