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

Scoring code is fully translated to C.

Browse source
This commit is contained in:
Eric S. Raymond 2017-06-07 15:00:16 -04:00
parent db4b972fc7
commit 1b59175d8d
1 changed files with 10 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

22
score.c
View file

@ -110,18 +110,16 @@ void score(long mode)
SETPRM(3,game.turns,game.turns); SETPRM(3,game.turns,game.turns);
RSPEAK(262); RSPEAK(262);
for (i=1; i<=CLSSES; i++) { for (i=1; i<=CLSSES; i++) {
if(CVAL[i] >= score) goto L20210; if(CVAL[i] >= score) {
} /* end loop */ SPEAK(CTEXT[i]);
SPK=265; i=CVAL[i]+1-score;
goto L25000; SETPRM(1,i,i);
RSPEAK(263);
L20210: SPEAK(CTEXT[i]); exit(0);
SPK=264; }
if(i >= CLSSES) goto L25000; }
i=CVAL[i]+1-score; RSPEAK(265);
SETPRM(1,i,i); RSPEAK(264);
SPK=263;
L25000: RSPEAK(SPK);
exit(0); exit(0);
} }