ftp.nice.ch/pub/next/games/network/NeXTGo.2.7.NIHS.bs.gnutar.gz#/NeXTGo/random.c

This is random.c in view mode; [Download] [Up]

#include "comment.header"

/* $Id: random.c,v 1.3 1997/07/06 19:35:05 ergo Exp $ */

/*
 * $Log: random.c,v $
 * Revision 1.3  1997/07/06 19:35:05  ergo
 * actual version
 *
 * Revision 1.2  1997/05/04 18:57:10  ergo
 * added time control for moves
 *
 */

extern void seed(int*);

void Random(int *i)
/* random number generator */
  {
   if (*i == 0)
     seed(i);
   else
     {
      *i = *i * 137 % 3833;
      if (*i < 0) *i = -*i;
   }
}  /* end random */

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Marcel Waldvogel and Netfuture.ch.