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

Implement stub handler for SEED command. Not hooked up to PRNG yet.

Browse source
This commit is contained in:
Eric S. Raymond 2017-05-24 08:30:06 -04:00
parent 627144354c
commit 65c081a0ac
5 changed files with 29 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

17
main.c
View file

@ -7,6 +7,7 @@
#include <stdio.h>
#include <stdbool.h>
#include <getopt.h>
#include <string.h>
#include "main.h"
#include "misc.h"
@ -17,6 +18,7 @@ long ABB[186], ATAB[331], ATLOC[186], BLKLIN = true, DFLAG,
PARMS[26], PLACE[101], PTEXT[101], RTEXT[278],
SETUP = 0, TABSIZ = 330;
signed char INLINE[LINESIZE+1], MAP1[129], MAP2[129];
signed char raw_input[LINESIZE+1];
long ABBNUM, ACTSPK[36], AMBER, ATTACK, AXE, BACK, BATTER, BEAR, BIRD, BLOOD, BONUS,
BOTTLE, CAGE, CAVE, CAVITY, CHAIN, CHASM, CHEST, CHLOC, CHLOC2,
@ -448,8 +450,19 @@ L2800: WD1=WD2;
/* Gee, I don't understand. */
L3000: SETPRM(1,WD1,WD1X);
RSPEAK(254);
goto L2600;
/* This is a kludge. The command parser we inherited from the base 2.5
* barfs on numeric tokens. It will fall through to here when it sees
* seed NNNN. Instead of barfing, go straight to the action processor
* where it will examine the raw input. This will fo away when we get
* rid of the obfuscated FORTRANoid input processing.
*/
if (strncmp(raw_input, "seed", 4) == 0) {
I=4090; K=34;
goto Laction;
} else {
RSPEAK(254);
goto L2600;
}
/* Verb and object analysis moved to separate module. */