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

Remove disused labels.

Browse source
This commit is contained in:
Jason S. Ninneman 2017-05-22 17:44:33 -07:00
parent 5286f6b3bd
commit 53b607d0c2
6 changed files with 76 additions and 76 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;