X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=main.c;h=881578def7c757011166db7608f75a7735a41e50;hb=f5cd343fc6cf580f8e723c30e8bdfd2ddd735e84;hp=430f763501429f46e3a8c57a841b6623648d0778;hpb=79ef3e38c286e1d3a11655174ae30caf7e771ca1;p=open-adventure.git

diff --git a/main.c b/main.c
index 430f763..881578d 100644
--- a/main.c
+++ b/main.c
@@ -99,7 +99,8 @@ int main(int argc, char *argv[]) {
 	lcgstate.a = 1093;
 	lcgstate.c = 221587;
 	lcgstate.m = 1048576;
-	set_seed((long)time(NULL));
+	long seedval = (long)time(NULL);
+	set_seed(seedval);
 
 /*  Read the database if we have not yet done so */
 
@@ -132,6 +133,9 @@ L1:	SETUP= -1;
 	LIMIT=330;
 	if(NOVICE)LIMIT=1000;
 
+	if (logfp)
+	    fprintf(logfp, "seed %ld\n", seedval);
+	
 	for (;;) {
 	    if (!do_command(stdin))
 		break;
@@ -142,7 +146,12 @@ L1:	SETUP= -1;
 static bool fallback_handler(signed char *buf)
 /* fallback handler for commands not handled by FORTRANish parser */
 {
-    printf("Fallback handler sees: %s\n", buf);
+    long sv;
+    if (sscanf(buf, "seed %ld", &sv) == 1) {
+	set_seed(sv);
+	printf("Seed set to %ld\n", sv);
+	return true;
+    }
     return false;
 }