archives/open-adventure
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

De-gotoize throw().

Browse source
This commit is contained in:
Peje Nilsson 2017-06-08 09:09:48 -04:00 • committed by Eric S. Raymond
parent e7576855df
commit da76563f40
1 changed files with 53 additions and 50 deletions
Download patch file Download diff file Expand all files Collapse all files

103
actions2.c
View file

@ -219,6 +219,14 @@ L9128: RSPEAK(SPK);
return(2011); return(2011);
} }
int throw_support(long spk)
{
RSPEAK(spk);
DROP(AXE,game.loc);
K=NUL;
return(8);
}
int throw(FILE *cmdin, long obj, long verb) int throw(FILE *cmdin, long obj, long verb)
/* Throw. Same as discard unless axe. Then same as attack except /* Throw. Same as discard unless axe. Then same as attack except
* ignore bird, and if dwarf is present then one might be killed. * ignore bird, and if dwarf is present then one might be killed.
@ -228,66 +236,61 @@ int throw(FILE *cmdin, long obj, long verb)
if (TOTING(ROD2) && obj == ROD && !TOTING(ROD))obj=ROD2; if (TOTING(ROD2) && obj == ROD && !TOTING(ROD))obj=ROD2;
if (!TOTING(obj)) if (!TOTING(obj))
return(2011); return(2011);
if (obj >= 50 && obj <= MAXTRS && AT(TROLL)) if (obj >= 50 && obj <= MAXTRS && AT(TROLL)) {
goto L9178; SPK=159;
if (obj == FOOD && HERE(BEAR)) /* Snarf a treasure for the troll. */
goto L9177; DROP(obj,0);
MOVE(TROLL,0);
MOVE(TROLL+NOBJECTS,0);
DROP(TROLL2,PLAC[TROLL]);
DROP(TROLL2+NOBJECTS,FIXD[TROLL]);
JUGGLE(CHASM);
return(2011);
}
if (obj == FOOD && HERE(BEAR)) {
/* But throwing food is another story. */
obj=BEAR;
return(feed(obj));
}
if (obj != AXE) if (obj != AXE)
return(discard(obj, false)); return(discard(obj, false));
I=ATDWRF(game.loc); I=ATDWRF(game.loc);
if (I > 0) if (I <= 0) {
goto L9172; if (AT(DRAGON) && game.prop[DRAGON] == 0) {
SPK=152; SPK=152;
if (AT(DRAGON) && game.prop[DRAGON] == 0) return throw_support(SPK);
goto L9175; }
SPK=158; if (AT(TROLL)) {
if (AT(TROLL)) SPK=158;
goto L9175; return throw_support(SPK);
SPK=203; }
if (AT(OGRE)) if (AT(OGRE)) {
goto L9175; SPK=203;
if (HERE(BEAR) && game.prop[BEAR] == 0) return throw_support(SPK);
goto L9176; }
return(attack(cmdin, 0, verb)); if (HERE(BEAR) && game.prop[BEAR] == 0) {
/* This'll teach him to throw the axe at the bear! */
SPK=164;
DROP(AXE,game.loc);
game.fixed[AXE]= -1;
game.prop[AXE]=1;
JUGGLE(BEAR);
return(2011);
}
return(attack(cmdin, 0, verb));
}
L9172: if (randrange(NDWARVES+1) < game.dflag) {
SPK=48; SPK=48;
if (randrange(NDWARVES+1) < game.dflag) goto L9175; return throw_support(SPK);
}
game.dseen[I]=false; game.dseen[I]=false;
game.dloc[I]=0; game.dloc[I]=0;
SPK=47; SPK=47;
game.dkill=game.dkill+1; game.dkill=game.dkill+1;
if (game.dkill == 1)SPK=149; if (game.dkill == 1)SPK=149;
L9175:
RSPEAK(SPK);
DROP(AXE,game.loc);
K=NUL;
return(8);
/* This'll teach him to throw the axe at the bear! */ return throw_support(SPK);
L9176:
SPK=164;
DROP(AXE,game.loc);
game.fixed[AXE]= -1;
game.prop[AXE]=1;
JUGGLE(BEAR);
return(2011);
/* But throwing food is another story. */
L9177:
obj=BEAR;
return(feed(obj));
L9178:
SPK=159;
/* Snarf a treasure for the troll. */
DROP(obj,0);
MOVE(TROLL,0);
MOVE(TROLL+NOBJECTS,0);
DROP(TROLL2,PLAC[TROLL]);
DROP(TROLL2+NOBJECTS,FIXD[TROLL]);
JUGGLE(CHASM);
return(2011);
} }
int feed(long obj) int feed(long obj)