Add seedable PRNG using an adaptation the original LCG algorithm.

This commit is contained in:
Jason S. Ninneman 2017-05-23 23:37:56 -07:00 committed by Eric S. Raymond
parent 97b00dfb14
commit 5598b7a178
7 changed files with 48 additions and 34 deletions

View file

@ -23,7 +23,7 @@
#define CNDBIT(L,N) (TSTBIT(COND[L],N))
#define FORCED(LOC) (COND[LOC] == 2)
#define DARK(DUMMY) ((!CNDBIT(LOC,0)) && (PROP[LAMP] == 0 || !HERE(LAMP)))
#define PCT(N) (RAN(100) < (N))
#define PCT(N) (randrange(100) < (N))
#define GSTONE(OBJ) ((OBJ) == EMRALD || (OBJ) == RUBY || (OBJ) == AMBER || (OBJ) == SAPPH)
#define FOREST(LOC) ((LOC) >= 145 && (LOC) <= 166)
#define VOCWRD(LETTRS,SECT) (VOCAB(MAKEWD(LETTRS),SECT))