usr/src/games/monop/roll.c

/*
 * Copyright (c) 1980 Regents of the University of California.
 * All rights reserved.
 *
 * %sccs.include.redist.c%
 */

#ifndef lint
static char sccsid[] = "@(#)roll.c      5.5 (Berkeley) %G%";
#endif /* not lint */

/*
 *      This routine rolls ndie nside-sided dice.
 */

# define        reg     register

# if !defined(vax) && !defined(tahoe)
# 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