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

Add lock() handler.

Browse source
This commit is contained in:
Eric S. Raymond 2017-06-09 02:04:01 -04:00
parent 50b30d0144
commit ff66456cb0
1 changed files with 50 additions and 44 deletions
Download patch file Download diff file Expand all files Collapse all files

94
actions1.c
View file

@ -143,6 +143,12 @@ static int drink(token_t obj)
static int extinguish(int obj) static int extinguish(int obj)
/* Extinguish lamp or urn */ /* Extinguish lamp or urn */
{ {
if (obj == INTRANSITIVE) {
if(HERE(LAMP) && game.prop[LAMP] == 1)obj=LAMP;
if(HERE(URN) && game.prop[URN] == 2)obj=obj*NOBJECTS+URN;
if(obj == 0 || obj > NOBJECTS) return(8000);
}
if(obj == URN) { if(obj == URN) {
game.prop[URN]=game.prop[URN]/2; game.prop[URN]=game.prop[URN]/2;
SPK=210; SPK=210;
@ -215,6 +221,46 @@ static int listen(void)
return(2011); return(2011);
} }
static int lock(token_t verb, token_t obj)
/* Lock, unlock, no object given. Assume various things if present. */
{
int k;
if (obj == INTRANSITIVE) {
SPK=28;
if(HERE(CLAM))obj=CLAM;
if(HERE(OYSTER))obj=OYSTER;
if(AT(DOOR))obj=DOOR;
if(AT(GRATE))obj=GRATE;
if(obj != 0 && HERE(CHAIN)) return(8000);
if(HERE(CHAIN))obj=CHAIN;
if(obj == 0) return(2011);
}
/* Lock, unlock object. Special stuff for opening clam/oyster
* and for chain. */
if(obj == CLAM || obj == OYSTER)
return bivalve(verb, obj);
if(obj == DOOR)SPK=111;
if(obj == DOOR && game.prop[DOOR] == 1)SPK=54;
if(obj == CAGE)SPK=32;
if(obj == KEYS)SPK=55;
if(obj == GRATE || obj == CHAIN)SPK=31;
if(SPK != 31 || !HERE(KEYS)) return(2011);
if(obj == CHAIN)
return chain(verb);
if (game.closng) {
SPK=130;
if(!game.panic)game.clock2=15;
game.panic=true;
return(2011);
}
SPK=34+game.prop[GRATE];
game.prop[GRATE]=1;
if(verb == LOCK)game.prop[GRATE]=0;
SPK=SPK+2*game.prop[GRATE];
return(2011);
}
static int pour(token_t obj) static int pour(token_t obj)
/* Pour. If no object, or object is bottle, assume contents of bottle. /* Pour. If no object, or object is bottle, assume contents of bottle.
* special tests for pouring water or oil on plant or rusty door. */ * special tests for pouring water or oil on plant or rusty door. */
@ -478,50 +524,12 @@ L5190: if((verb == FIND || verb == INVENT) && WD2 <= 0) goto L5010;
* transitive, plus ten times the verb number. Many intransitive verbs use the * transitive, plus ten times the verb number. Many intransitive verbs use the
* transitive code, and some verbs use code for other verbs, as noted below. */ * transitive code, and some verbs use code for other verbs, as noted below. */
/* Carry, no object given yet. OK if only one object present. */ L8010: return carry(INTRANSITIVE);
L8010: if(game.atloc[game.loc] == 0 || game.link[game.atloc[game.loc]] != 0 || ATDWRF(game.loc) > 0) return(8000);
obj=game.atloc[game.loc];
/* Transitive carry/drop are in separate file. */
L9010: return carry(obj); L9010: return carry(obj);
L9020: return discard(obj, false); L9020: return discard(obj, false);
L9030: return say(); L9030: return say();
L8040: return lock(verb, INTRANSITIVE);
/* Lock, unlock, no object given. Assume various things if present. */ L9040: return lock(verb, obj);
L8040: SPK=28;
if(HERE(CLAM))obj=CLAM;
if(HERE(OYSTER))obj=OYSTER;
if(AT(DOOR))obj=DOOR;
if(AT(GRATE))obj=GRATE;
if(obj != 0 && HERE(CHAIN)) return(8000);
if(HERE(CHAIN))obj=CHAIN;
if(obj == 0) return(2011);
/* Lock, unlock object. Special stuff for opening clam/oyster and for chain. */
L9040: if(obj == CLAM || obj == OYSTER) goto L9046;
if(obj == DOOR)SPK=111;
if(obj == DOOR && game.prop[DOOR] == 1)SPK=54;
if(obj == CAGE)SPK=32;
if(obj == KEYS)SPK=55;
if(obj == GRATE || obj == CHAIN)SPK=31;
if(SPK != 31 || !HERE(KEYS)) return(2011);
if(obj == CHAIN) goto L9048;
if (game.closng) {
K=130;
if(!game.panic)game.clock2=15;
game.panic=true;
return(2010);
}
K=34+game.prop[GRATE];
game.prop[GRATE]=1;
if(verb == LOCK)game.prop[GRATE]=0;
K=K+2*game.prop[GRATE];
return(2010);
/* Clam/Oyster. */ /* Clam/Oyster. */
L9046: return bivalve(verb, obj); L9046: return bivalve(verb, obj);
@ -552,9 +560,7 @@ L9073: SPK=38;
/* Extinguish. Lamp, urn, dragon/volcano (nice try). */ /* Extinguish. Lamp, urn, dragon/volcano (nice try). */
L8080: if(HERE(LAMP) && game.prop[LAMP] == 1)obj=LAMP; L8080: return extinguish(INTRANSITIVE);
if(HERE(URN) && game.prop[URN] == 2)obj=obj*NOBJECTS+URN;
if(obj == 0 || obj > NOBJECTS) return(8000);
L9080: return extinguish(obj); L9080: return extinguish(obj);