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

Untangle discard

Browse source
This commit is contained in:
Peje Nilsson 2017-06-08 12:41:52 +02:00
parent 86e75219e3
commit cf85ca0b97
1 changed files with 62 additions and 66 deletions
Download patch file Download diff file Expand all files Collapse all files

128
actions2.c
View file

@ -65,73 +65,69 @@ int carry(long obj)
* Drop coins at vending machine for extra batteries. */ * Drop coins at vending machine for extra batteries. */
int discard(long obj, bool just_do_it) { int discard(long obj, bool just_do_it) {
if (just_do_it) goto L9021; if (!just_do_it) {
if (TOTING(ROD2) && obj == ROD && !TOTING(ROD))obj=ROD2; if (TOTING(ROD2) && obj == ROD && !TOTING(ROD))obj=ROD2;
if (!TOTING(obj)) return(2011); if (!TOTING(obj)) return(2011);
if (obj != BIRD || !HERE(SNAKE)) goto L9023; if (obj == BIRD && HERE(SNAKE)) {
RSPEAK(30); RSPEAK(30);
if (game.closed) return(19000); if (game.closed) return(19000);
DSTROY(SNAKE); DSTROY(SNAKE);
/* Set game.prop for use by travel options */ /* Set game.prop for use by travel options */
game.prop[SNAKE]=1; game.prop[SNAKE]=1;
L9021: K=LIQ(0);
if (K == obj)obj=BOTTLE;
if (obj == BOTTLE && K != 0)game.place[K]=0;
if (obj == CAGE && game.prop[BIRD] == 1)DROP(BIRD,game.loc);
DROP(obj,game.loc);
if (obj != BIRD) return(2012);
game.prop[BIRD]=0;
if (FOREST(game.loc))game.prop[BIRD]=2;
return(2012);
L9023: if (!(GSTONE(obj) && AT(CAVITY) && game.prop[CAVITY] != 0)) goto L9024; } else if ((GSTONE(obj) && AT(CAVITY) && game.prop[CAVITY] != 0)) {
RSPEAK(218); RSPEAK(218);
game.prop[obj]=1; game.prop[obj]=1;
game.prop[CAVITY]=0; game.prop[CAVITY]=0;
if (!HERE(RUG) || !((obj == EMRALD && game.prop[RUG] != 2) || (obj == RUBY && if (HERE(RUG) && ((obj == EMRALD && game.prop[RUG] != 2) || (obj == RUBY &&
game.prop[RUG] == 2))) goto L9021; game.prop[RUG] == 2))) {
SPK=219; SPK=219;
if (TOTING(RUG))SPK=220; if (TOTING(RUG))SPK=220;
if (obj == RUBY)SPK=221; if (obj == RUBY)SPK=221;
RSPEAK(SPK); RSPEAK(SPK);
if (SPK == 220) goto L9021; if (SPK != 220) {
K=2-game.prop[RUG]; K=2-game.prop[RUG];
game.prop[RUG]=K; game.prop[RUG]=K;
if (K == 2)K=PLAC[SAPPH]; if (K == 2)K=PLAC[SAPPH];
MOVE(RUG+NOBJECTS,K); MOVE(RUG+NOBJECTS,K);
goto L9021; }
}
L9024: if (obj != COINS || !HERE(VEND)) goto L9025; } else if (obj == COINS && HERE(VEND)) {
DSTROY(COINS); DSTROY(COINS);
DROP(BATTER,game.loc); DROP(BATTER,game.loc);
PSPEAK(BATTER,0); PSPEAK(BATTER,0);
return(2012); return(2012);
} else if (obj == BIRD && AT(DRAGON) && game.prop[DRAGON] == 0) {
L9025: if (obj != BIRD || !AT(DRAGON) || game.prop[DRAGON] != 0) goto L9026; RSPEAK(154);
RSPEAK(154); DSTROY(BIRD);
DSTROY(BIRD); game.prop[BIRD]=0;
game.prop[BIRD]=0; return(2012);
return(2012); } else if (obj == BEAR && AT(TROLL)) {
RSPEAK(163);
L9026: if (obj != BEAR || !AT(TROLL)) goto L9027; MOVE(TROLL,0);
RSPEAK(163); MOVE(TROLL+NOBJECTS,0);
MOVE(TROLL,0); MOVE(TROLL2,PLAC[TROLL]);
MOVE(TROLL+NOBJECTS,0); MOVE(TROLL2+NOBJECTS,FIXD[TROLL]);
MOVE(TROLL2,PLAC[TROLL]); JUGGLE(CHASM);
MOVE(TROLL2+NOBJECTS,FIXD[TROLL]); game.prop[TROLL]=2;
JUGGLE(CHASM); } else if (obj != VASE || game.loc == PLAC[PILLOW]) {
game.prop[TROLL]=2; RSPEAK(54);
goto L9021; } else {
game.prop[VASE]=2;
L9027: if (obj == VASE && game.loc != PLAC[PILLOW]) goto L9028; if (AT(PILLOW))game.prop[VASE]=0;
RSPEAK(54); PSPEAK(VASE,game.prop[VASE]+1);
goto L9021; if (game.prop[VASE] != 0)game.fixed[VASE]= -1;
}
L9028: game.prop[VASE]=2; }
if (AT(PILLOW))game.prop[VASE]=0; K=LIQ(0);
PSPEAK(VASE,game.prop[VASE]+1); if (K == obj)obj=BOTTLE;
if (game.prop[VASE] != 0)game.fixed[VASE]= -1; if (obj == BOTTLE && K != 0)game.place[K]=0;
goto L9021; if (obj == CAGE && game.prop[BIRD] == 1)DROP(BIRD,game.loc);
DROP(obj,game.loc);
if (obj != BIRD) return(2012);
game.prop[BIRD]=0;
if (FOREST(game.loc))game.prop[BIRD]=2;
return(2012);
} }
/* Attack. Assume target if unambiguous. "Throw" also links here. Attackable /* Attack. Assume target if unambiguous. "Throw" also links here. Attackable