projects
/
open-adventure.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
db4b972
)
Scoring code is fully translated to C.
author
Eric S. Raymond
<esr@thyrsus.com>
Wed, 7 Jun 2017 19:00:16 +0000
(15:00 -0400)
committer
Eric S. Raymond
<esr@thyrsus.com>
Wed, 7 Jun 2017 19:00:16 +0000
(15:00 -0400)
score.c
patch
|
blob
|
history
diff --git
a/score.c
b/score.c
index 3bf3ae04edd467a7b79fe7b6fa104ff76fde073b..f97cd46b0254652b9450a416b833fa6ad5f7def6 100644
(file)
--- a/
score.c
+++ b/
score.c
@@
-110,18
+110,16
@@
void score(long mode)
SETPRM(3,game.turns,game.turns);
RSPEAK(262);
for (i=1; i<=CLSSES; i++) {
SETPRM(3,game.turns,game.turns);
RSPEAK(262);
for (i=1; i<=CLSSES; i++) {
- if(CVAL[i] >= score) goto L20210;
- } /* end loop */
- SPK=265;
- goto L25000;
-
-L20210: SPEAK(CTEXT[i]);
- SPK=264;
- if(i >= CLSSES) goto L25000;
- i=CVAL[i]+1-score;
- SETPRM(1,i,i);
- SPK=263;
-L25000: RSPEAK(SPK);
+ if(CVAL[i] >= score) {
+ SPEAK(CTEXT[i]);
+ i=CVAL[i]+1-score;
+ SETPRM(1,i,i);
+ RSPEAK(263);
+ exit(0);
+ }
+ }
+ RSPEAK(265);
+ RSPEAK(264);
exit(0);
}
exit(0);
}