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

Correct a typo, and a test for the affected verb.

Browse source
This commit is contained in:
Eric S. Raymond 2017-06-13 17:32:07 -04:00
parent 8718a6c1da
commit dcf4d5f1d3
4 changed files with 11 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
actions.c
View file

@ -1053,12 +1053,12 @@ int action(FILE *input, enum speechpart part, long verb, token_t obj)
if (verb == SAY)obj=WD2; if (verb == SAY)obj=WD2;
if (obj == 0) { if (obj == 0) {
/* Analyse an intransitive verb (ie, no object given yet). */ /* Analyse an intransitive verb (ie, no object given yet). */
switch (verb-1) { switch (verb-1) {
case 0: /* CARRY */ return carry(verb, INTRANSITIVE); case 0: /* CARRY */ return carry(verb, INTRANSITIVE);
case 1: /* DROP */ return(8000); case 1: /* DROP */ return(8000);
case 2: /* SAY */ return(8000); case 2: /* SAY */ return(8000);
case 3: /* UNLOC */ return lock(verb, INTRANSITIVE); case 3: /* UNLOC */ return lock(verb, INTRANSITIVE);
case 4: /* NOTHI */ {RSPEAK(54); return(20012);} case 4: /* NOTHI */ {RSPEAK(54); return(GO_CLEAROBJ);}
case 5: /* LOCK */ return lock(verb, INTRANSITIVE); case 5: /* LOCK */ return lock(verb, INTRANSITIVE);
case 6: /* LIGHT */ return light(verb, INTRANSITIVE); case 6: /* LIGHT */ return light(verb, INTRANSITIVE);
case 7: /* EXTIN */ return extinguish(verb, INTRANSITIVE); case 7: /* EXTIN */ return extinguish(verb, INTRANSITIVE);

2
tests/urntest.log
View file

@ -1,4 +1,4 @@
# Test verbs on urn ## Test verbs on urn
n n
seed 1838473132 seed 1838473132
in in

8
tests/woodshint.chk
View file

@ -129,6 +129,10 @@ Drop what?
Okay, "SAY". Okay, "SAY".
> nothing
OK
> wave > wave
Wave what? Wave what?
@ -169,9 +173,11 @@ Wake what?
You are wandering aimlessly through the forest. You are wandering aimlessly through the forest.
Would you like to be shown out of the forest?
> e > e
You are wandering aimlessly through the forest. Please answer the question.
Would you like to be shown out of the forest? Would you like to be shown out of the forest?

1
tests/woodshint.log
View file

@ -28,6 +28,7 @@ e
e e
drop drop
say say
nothing
wave wave
calm calm
walk walk