Return to roll.c CVS log

Up to [CSRG BSD Unix] / 42BSD / games / monop

Annotation of 42BSD/games/monop/roll.c, revision 1.1.1.1

1.1       root        1: /*
                      2:  *     This routine rolls ndie nside-sided dice.
                      3:  */
                      4: 
                      5: # define       reg     register
                      6: 
                      7: # ifndef vax
                      8: # define       MAXRAND 32767L
                      9: 
                     10: roll(ndie, nsides)
                     11: int    ndie, nsides; {
                     12: 
                     13:        reg long        tot;
                     14:        reg unsigned    n, r;
                     15: 
                     16:        tot = 0;
                     17:        n = ndie;
                     18:        while (n--)
                     19:                tot += rand();
                     20:        return (int) ((tot * (long) nsides) / ((long) MAXRAND + 1)) + ndie;
                     21: }
                     22: 
                     23: # else
                     24: 
                     25: roll(ndie, nsides)
                     26: reg int        ndie, nsides; {
                     27: 
                     28:        reg int         tot, r;
                     29:        reg double      num_sides;
                     30: 
                     31:        num_sides = nsides;
                     32:        tot = 0;
                     33:        while (ndie--)
                     34:                tot += (r = rand()) * (num_sides / 017777777777) + 1;
                     35:        return tot;
                     36: }
                     37: # endif

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.