blob: ba17dabe45945831ac555c9e6f2dc25c44b20aa8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
|
#pragma once
#ifdef __cplusplus
extern "C" {
#endif
#include "h-basic.h"
/**** Available constants ****/
/*
* Random Number Generator -- Degree of "complex" RNG -- see "misc.c"
* This value is hard-coded at 63 for a wide variety of reasons.
*/
#define RAND_DEG 63
/**** Available macros ****/
/*
* Generates a random long integer X where O<=X<M.
* The integer X falls along a uniform distribution.
* For example, if M is 100, you get "percentile dice"
*/
#define rand_int(M) \
(Rand_div(M))
/*
* Generates a random long integer X where A<=X<=B
* The integer X falls along a uniform distribution.
* Note: rand_range(0,N-1) == rand_int(N)
*/
#define rand_range(A,B) \
((A) + (rand_int(1+(B)-(A))))
/*
* Generate a random long integer X where A-D<=X<=A+D
* The integer X falls along a uniform distribution.
* Note: rand_spread(A,D) == rand_range(A-D,A+D)
*/
#define rand_spread(A,D) \
((A) + (rand_int(1+(D)+(D))) - (D))
/*
* Generate a random long integer X where 1<=X<=M
* Also, "correctly" handle the case of M<=1
*/
#define randint(M) \
(rand_int(M) + 1)
/*
* Evaluate to TRUE "P" percent of the time
*/
#define magik(P) \
(rand_int(100) < (P))
/**** Available Variables ****/
extern bool_ Rand_quick;
extern u32b Rand_value;
extern u16b Rand_place;
extern u32b Rand_state[RAND_DEG];
/**** Available Functions ****/
extern void Rand_state_init(u32b seed);
extern s32b Rand_mod(s32b m);
extern s32b Rand_div(s32b m);
extern s16b randnor(int mean, int stand);
extern s32b damroll(s16b num, s16b sides);
extern s32b maxroll(s16b num, s16b sides);
#ifdef __cplusplus
} /* extern "C" */
#endif
|