usr/src/games/monop/roll.c

/*
 * Copyright (c) 1980 Regents of the University of California.
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms are permitted
 * provided that the above copyright notice and this paragraph are
 * duplicated in all such forms and that any documentation,
 * advertising materials, and other materials related to such
 * distribution and use acknowledge that the software was developed
 * by the University of California, Berkeley.  The name of the
 * University may not be used to endorse or promote products derived
 * from this software without specific prior written permission.
 * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
 * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
 * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
 */

#ifndef lint
static char sccsid[] = "@(#)roll.c      5.4 (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