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

Fix strange inside-out organization of the input routines.

Browse source 
Seems to have nbben a result of FORTRAN not having anything like a
stream object that can be passed around.

A step towards logging and log replay.
This commit is contained in:
Eric S. Raymond 2017-05-22 21:26:14 -04:00
parent 19b3e3e656
commit 040f19adde
7 changed files with 93 additions and 104 deletions
Download patch file Download diff file Expand all files Collapse all files

4
actions2.c
View file

@ -187,9 +187,9 @@ L9126: if(OBJ == 0)SPK=44;
MOVE(DRAGON,K);
MOVE(RUG,K);
DROP(BLOOD,K);
/* 9127 */ for (OBJ=1; OBJ<=100; OBJ++) {
for (OBJ=1; OBJ<=100; OBJ++) {
if(PLACE[OBJ] == PLAC[DRAGON] || PLACE[OBJ] == FIXD[DRAGON])MOVE(OBJ,K);
L9127: /*etc*/ ;
/*etc*/ ;
} /* end loop */
LOC=K;
K=NUL;