From: Eric S. Raymond <esr@thyrsus.com>
Date: Wed, 7 Jun 2017 19:00:16 +0000 (-0400)
Subject: Scoring code is fully translated to C.
X-Git-Tag: 1.1~554
X-Git-Url: https://jxself.org/git/?p=open-adventure.git;a=commitdiff_plain;h=1b59175d8d0a8a5392da8b183e0c603b0cd10865;ds=sidebyside

Scoring code is fully translated to C.
---

diff --git a/score.c b/score.c
index 3bf3ae0..f97cd46 100644
--- 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++) {
-	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);
 
 }