#include "maisie.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 Maisie v. 3.0 on 2-25-97 */


/* Delcare global message types */

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

/* 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)
		invoke Player[id] with neighbor{Player[(id+1)%P]};

	/* Start the ball rolling */

	invoke Player[0] with ball {ballarray};
}

entity player {int my_id}
{	int rounds, values, comp;
	int ballarray[B];
	ename my_neighbor;

	wait until mtype (neighbor)
		my_neighbor=msg.neighbor.name;

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

	for (rounds=0; rounds < N; ++rounds)
	{	wait until mtype (ball);

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

		invoke my_neighbor with ball{ballarray};
	/*	printf("Player %d, Round %d.\n", my_id, rounds); */
	}

	/* 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);
	     	wait until mtype(ball) 
			terminate();
	}
}