projects
/
unix-history
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
tags
|
clone url
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
BSD 4_1_snap release
[unix-history]
/
usr
/
src
/
games
/
monop
/
roll.c
/*
* This routine rolls ndie nside-sided dice.
*/
# define reg register
# ifndef vax
# define MAXRAND 32767L
roll
(
ndie
,
nsides
)
int
ndie
,
nsides
; {
reg
long
tot
;
reg
unsigned
n
,
r
;
tot
=
0
;
n
=
ndie
;
while
(
n
--)
tot
+=
rand
();
return
(
int
) ((
tot
* (
long
)
nsides
) / ((
long
)
MAXRAND
+
1
)) +
ndie
;
}
# else
roll
(
ndie
,
nsides
)
reg
int
ndie
,
nsides
; {
reg
int
tot
,
r
;
reg
double
num_sides
;
num_sides
=
nsides
;
tot
=
0
;
while
(
ndie
--)
tot
+= (
r
=
rand
()) * (
num_sides
/
017777777777
) +
1
;
return
tot
;
}
# endif