projects
/
open-adventure.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Scoring code is fully translated to C.
[open-adventure.git]
/
score.c
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);
}