Return to roll.c CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / games / monop

Annotation of 43BSDTahoe/games/monop/roll.c, revision 1.1.1.1

1.1       root        1: /*
                      2:  * Copyright (c) 1980 Regents of the University of California.
                      3:  * All rights reserved.
                      4:  *
                      5:  * Redistribution and use in source and binary forms are permitted
                      6:  * provided that the above copyright notice and this paragraph are
                      7:  * duplicated in all such forms and that any documentation,
                      8:  * advertising materials, and other materials related to such
                      9:  * distribution and use acknowledge that the software was developed
                     10:  * by the University of California, Berkeley.  The name of the
                     11:  * University may not be used to endorse or promote products derived
                     12:  * from this software without specific prior written permission.
                     13:  * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
                     14:  * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
                     15:  * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
                     16:  */
                     17: 
                     18: #ifndef lint
                     19: static char sccsid[] = "@(#)roll.c     5.4 (Berkeley) 6/18/88";
                     20: #endif /* not lint */
                     21: 
                     22: /*
                     23:  *     This routine rolls ndie nside-sided dice.
                     24:  */
                     25: 
                     26: # define       reg     register
                     27: 
                     28: # if !defined(vax) && !defined(tahoe)
                     29: # define       MAXRAND 32767L
                     30: 
                     31: roll(ndie, nsides)
                     32: int    ndie, nsides; {
                     33: 
                     34:        reg long        tot;
                     35:        reg unsigned    n, r;
                     36: 
                     37:        tot = 0;
                     38:        n = ndie;
                     39:        while (n--)
                     40:                tot += rand();
                     41:        return (int) ((tot * (long) nsides) / ((long) MAXRAND + 1)) + ndie;
                     42: }
                     43: 
                     44: # else
                     45: 
                     46: roll(ndie, nsides)
                     47: reg int        ndie, nsides; {
                     48: 
                     49:        reg int         tot, r;
                     50:        reg double      num_sides;
                     51: 
                     52:        num_sides = nsides;
                     53:        tot = 0;
                     54:        while (ndie--)
                     55:                tot += (r = rand()) * (num_sides / 017777777777) + 1;
                     56:        return tot;
                     57: }
                     58: # endif

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