Furey: Change particular-line instructions to our Source: filename. Fix wording on "source code for vanilla nethack".

2024-06-29T02:18:00Z

Change particular-line instructions to our Source: filename. Fix wording on "source code for vanilla nethack".

Kernigh bot: SLASH'EM 0.0.7E7F2/rnd.c moved to Source:SLASH'EM 0.0.7E7F2/rnd.c: Robot: moved page

2008-03-07T19:39:30Z

SLASH'EM 0.0.7E7F2/rnd.c moved to Source:SLASH'EM 0.0.7E7F2/rnd.c: Robot: moved page

Jaytbot: Automated source code upload

2006-10-02T19:59:16Z

Automated source code upload

New page

Below is the full text to '''rnd.c''' from the [[SLASH'EM 0.0.7E7F2 source code|source code]] of [[SLASH'EM 0.0.7E7F2]]. To link to a particular line, write [[SLASH'EM 0.0.7E7F2/rnd.c#line123|<nowiki>[[SLASH'EM 0.0.7E7F2/rnd.c#line123]]</nowiki>]], for example.

The latest source code for vanilla NetHack is at [[Source code]].

{{NGPL}}
1. /* SCCS Id: @(#)rnd.c 3.4 1996/02/07 */
2. /* NetHack may be freely redistributed. See license for details. */
3. 
4. #include "hack.h"
5. 
6. /* "Rand()"s definition is determined by [OS]conf.h */
7. #if defined(LINT) && defined(UNIX) /* rand() is long... */
8. extern int NDECL(rand);
9. #define RND(x) (rand() % x)
10. #else /* LINT */
11. # if defined(UNIX) || defined(RANDOM)
12. #define RND(x) (int)(Rand() % (long)(x))
13. # else
14. /* Good luck: the bottom order bits are cyclic. */
15. #define RND(x) (int)((Rand()>>3) % (x))
16. # endif
17. #endif /* LINT */
18. 
19. #ifdef OVL0
20. 
21. int
22. rn2(x) /* 0 <= rn2(x) < x */
23. register int x;
24. {
25. #ifdef DEBUG
26. if (x <= 0) {
27. impossible("rn2(%d) attempted", x);
28. return(0);
29. }
30. x = RND(x);
31. return(x);
32. #else
33. return(RND(x));
34. #endif
35. }
36. 
37. #endif /* OVL0 */
38. #ifdef OVLB
39. 
40. int
41. rnl(x) /* 0 <= rnl(x) < x; sometimes subtracting Luck */
42. register int x; /* good luck approaches 0, bad luck approaches (x-1) */
43. {
44. register int i;
45. 
46. #ifdef DEBUG
47. if (x <= 0) {
48. impossible("rnl(%d) attempted", x);
49. return(0);
50. }
51. #endif
52. i = RND(x);
53. 
54. if (Luck && rn2(50 - Luck)) {
55. i -= (x <= 15 && Luck >= -5 ? Luck/3 : Luck);
56. if (i < 0) i = 0;
57. else if (i >= x) i = x-1;
58. }
59. 
60. return i;
61. }
62. 
63. #endif /* OVLB */
64. #ifdef OVL0
65. 
66. int
67. rnd(x) /* 1 <= rnd(x) <= x */
68. register int x;
69. {
70. #ifdef DEBUG
71. if (x <= 0) {
72. impossible("rnd(%d) attempted", x);
73. return(1);
74. }
75. x = RND(x)+1;
76. return(x);
77. #else
78. return(RND(x)+1);
79. #endif
80. }
81. 
82. #endif /* OVL0 */
83. #ifdef OVL1
84. 
85. int
86. d(n,x) /* n <= d(n,x) <= (n*x) */
87. register int n, x;
88. {
89. register int tmp = n;
90. 
91. #ifdef DEBUG
92. if (x < 0 || n < 0 || (x == 0 && n != 0)) {
93. impossible("d(%d,%d) attempted", n, x);
94. return(1);
95. }
96. #endif
97. while(n--) tmp += RND(x);
98. return(tmp); /* Alea iacta est. -- J.C. */
99. }
100. 
101. #endif /* OVL1 */
102. #ifdef OVLB
103. 
104. int
105. rne(x)
106. register int x;
107. {
108. register int tmp, utmp;
109. 
110. utmp = (u.ulevel < 15) ? 5 : u.ulevel/3;
111. tmp = 1;
112. while (tmp < utmp && !rn2(x))
113. tmp++;
114. return tmp;
115. 
116. /* was:
117. * tmp = 1;
118. * while(!rn2(x)) tmp++;
119. * return(min(tmp,(u.ulevel < 15) ? 5 : u.ulevel/3));
120. * which is clearer but less efficient and stands a vanishingly
121. * small chance of overflowing tmp
122. */
123. }
124. 
125. int
126. rnz(i)
127. int i;
128. {
129. #ifdef LINT
130. int x = i;
131. int tmp = 1000;
132. #else
133. register long x = i;
134. register long tmp = 1000;
135. #endif
136. tmp += rn2(1000);
137. tmp *= rne(4);
138. if (rn2(2)) { x *= tmp; x /= 1000; }
139. else { x *= 1000; x /= tmp; }
140. return((int)x);
141. }
142. 
143. #endif /* OVLB */
144. 
145. /*rnd.c*/
[[Category:SLASH'EM 0.0.7E7F2 source code|rnd.c]]

← Older revision		Revision as of 02:18, 29 June 2024
Line 1:		Line 1:
−	Below is the full text to '''rnd.c''' from the [[SLASH'EM 0.0.7E7F2 source code\|source code]] of [[SLASH'EM 0.0.7E7F2]]. To link to a particular line, write [[SLASH'EM 0.0.7E7F2/rnd.c#line123\|<nowiki>[[SLASH'EM 0.0.7E7F2/rnd.c#line123]]</nowiki>]], for example.	+	Below is the full text to '''rnd.c''' from the [[SLASH'EM 0.0.7E7F2 source code\|source code]] of [[SLASH'EM 0.0.7E7F2]]. To link to a particular line, write [[Source:SLASH'EM 0.0.7E7F2/rnd.c#line123\|<nowiki>[[Source:SLASH'EM 0.0.7E7F2/rnd.c#line123]]</nowiki>]], for example.

−	~~The latest source~~ code for vanilla NetHack is at [[Source code]].	+	Source code for vanilla NetHack is at [[Source code]].

← Older revision	Revision as of 19:39, 7 March 2008
(No difference)

Source:SLASH'EM 0.0.7E7F2/rnd.c - Revision history

Furey: Change particular-line instructions to our Source: filename. Fix wording on "source code for vanilla nethack".

Kernigh bot: SLASH'EM 0.0.7E7F2/rnd.c moved to Source:SLASH'EM 0.0.7E7F2/rnd.c: Robot: moved page

Jaytbot: Automated source code upload