#include <stdio.h>
#define N 200	/* N is the number of rounds */
#define B 250	/* B is the message size (1K) */
#define P 8		/* P is the number of players */
#define C 5		/* C indicates amount of computation */
 
/* This is a ring program.  */
/* It sends a message around N times among P entities. */ 
/* Adapted for Parsec v. 1.0 on 8-25-97 by Monnica Terwilliger */


/* Declare global message types and entities */

message neighbor {ename name;};
message ball {int size[B];};

entity player (int);

/* Driver creates players and initiates game  */

entity driver ()
{
	int id;
	ename Player[P];
	int ballarray[B];
	
	for (id=0; id<P; ++id)
		Player[id] = new player (id) at id;
	
	/* Send neighbor's name to each entity */

	for (id=0; id<P; ++id)
		send neighbor{Player[(id+1)%P]} to Player[id];

	/* Start the ball rolling */

	send ball {ballarray} to Player[0];
}

entity player (int my_id)
{	int rounds, values, comp;
	int ballarray[B];
	ename my_neighbor;
        unsigned short seed[3];
        seed[0] = seed[1] = seed[2] = (short) my_id;

	receive (neighbor his)		/* "his" is a temporary variable */
		my_neighbor=his.name;

	/* Wait for the message then send it to next neighbor */

	for (rounds=0; rounds < N; ++rounds)
	{	receive (ball signal);

		/* Random values between 0-300 are calculated 
		   and put into the message array in order */ 
	
		for (comp=0; comp < C; ++comp)
			ballarray[comp] = (pc_nrand(seed)%101) * ((pc_nrand(seed)%3)+1);

		send ball{ballarray} to my_neighbor;
		printf("Player %d, Round %d.\n", my_id, rounds); /*  Report status */
	}

	/* Game over -- don't return the message */

	if (my_id==0)
	{    	printf ("Game over after %d rounds, with %d players", N, P);
		printf (" and computation index of %d.\n", C);
	     	receive (ball signal) 
			pc_exit(1);
	}
}