projects
/
open-adventure.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
FORTRAN line numbers returned from action() become action symbols.
[open-adventure.git]
/
main.c
diff --git
a/main.c
b/main.c
index afba467763931e4e8e2d9a73ddceb7e10d1afa8c..920bea0f4d9daae78ab29eca420e247468e2e5d9 100644
(file)
--- a/
main.c
+++ b/
main.c
@@
-1068,30
+1068,30
@@
static bool do_command(FILE *cmdin)
Laction:
switch (action(cmdin, part, VERB, obj)) {
Laction:
switch (action(cmdin, part, VERB, obj)) {
- case
2
:
+ case
GO_TERMINATE
:
return true;
return true;
- case
8
:
+ case
GO_MOVE
:
playermove(cmdin, VERB, NUL);
return true;
playermove(cmdin, VERB, NUL);
return true;
- case
2000: continue;
/* back to top of main interpreter loop */
- case
2012
: goto L2012;
- case
2600
: goto L2600;
- case
2607
: goto L2607;
- case
2630
: goto L2630;
- case
2800
:
+ case
GO_TOP: continue;
/* back to top of main interpreter loop */
+ case
GO_CLEAROBJ
: goto L2012;
+ case
GO_CHECKHINT
: goto L2600;
+ case
GO_CHECKFOO
: goto L2607;
+ case
GO_LOOKUP
: goto L2630;
+ case
GO_WORD2
:
/* Get second word for analysis. */
WD1=WD2;
WD1X=WD2X;
WD2=0;
goto L2620;
/* Get second word for analysis. */
WD1=WD2;
WD1X=WD2X;
WD2=0;
goto L2620;
- case
8000
:
+ case
GO_UNKNOWN
:
/* Random intransitive verbs come here. Clear obj just in case
* (see attack()). */
SETPRM(1,WD1,WD1X);
RSPEAK(257);
obj=0;
goto L2600;
/* Random intransitive verbs come here. Clear obj just in case
* (see attack()). */
SETPRM(1,WD1,WD1X);
RSPEAK(257);
obj=0;
goto L2600;
- case
19000
:
+ case
GO_DWARFWAKE
:
/* Oh dear, he's disturbed the dwarves. */
RSPEAK(136);
score(0);
/* Oh dear, he's disturbed the dwarves. */
RSPEAK(136);
score(0);