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

Seed command fully implemented but apparently buggy.

Browse source 
Dwarf appearance is not yet reproducible.
This commit is contained in:
Eric S. Raymond 2017-05-24 09:06:41 -04:00
parent 65c081a0ac
commit cf219e920b
4 changed files with 19 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

9
misc.c
View file

@ -723,7 +723,7 @@ L2: ATDWRF=I;
/* Utility routines (SETBIT, TSTBIT, set_seed_from_time, get_next_lcg_value, randrange, RNDVOC, BUG) */
/* Utility routines (SETBIT, TSTBIT, set_seed, get_next_lcg_value, randrange, RNDVOC, BUG) */
#undef SETBIT
long fSETBIT(long BIT) {
@ -758,11 +758,10 @@ long TSTBIT;
#define TSTBIT(MASK,BIT) fTSTBIT(MASK,BIT)
void set_seed_from_time(void)
void set_seed(long seedval)
{
/* Use the current system time to get seed the ISO rand() function, from which we get a seed for the LCG. */
srand(time(NULL));
lcgstate.x = (unsigned long) rand() % lcgstate.m;
srand(seedval);
lcgstate.x = (unsigned long) rand() % lcgstate.m;
}
unsigned long get_next_lcg_value(void)