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

10
score.c
View file

@ -29,7 +29,7 @@ void score(long MODE) {
* Points can also be deducted for using hints or too many turns, or for
* saving intermediate positions. */
L20000: SCORE=0;
SCORE=0;
MXSCOR=0;
/* First tally up the treasures. must be in building and not broken.
@ -80,8 +80,8 @@ L20020: MXSCOR=MXSCOR+45;
/* Deduct for hints/turns/saves. Hints < 4 are special; see database desc. */
/* 20030 */ for (I=1; I<=HNTMAX; I++) {
L20030: if(HINTED[I])SCORE=SCORE-HINTS[I][2];
for (I=1; I<=HNTMAX; I++) {
if(HINTED[I])SCORE=SCORE-HINTS[I][2];
} /* end loop */
if(NOVICE)SCORE=SCORE-5;
if(CLSHNT)SCORE=SCORE-10;
@ -98,9 +98,9 @@ L20030: if(HINTED[I])SCORE=SCORE-HINTS[I][2];
SETPRM(1,SCORE,MXSCOR);
SETPRM(3,TURNS,TURNS);
RSPEAK(262);
/* 20200 */ for (I=1; I<=CLSSES; I++) {
for (I=1; I<=CLSSES; I++) {
if(CVAL[I] >= SCORE) goto L20210;
L20200: /*etc*/ ;
/*etc*/ ;
} /* end loop */
SPK=265;
goto L25000;