BSD 4_2 release

[unix-history] / usr / src / games / mille / roll.c

/*
*      This routine rolls ndie nside-sided dice.
*
* @(#)roll.c   1.1 (Berkeley) 4/1/82
*
*/

# 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