#include "stdlib.h"
#include "stdio.h"
#define N 300		/* N is the number of rounds */
#define B 250		/* B is the message size (1K) */
#define P 16		/* P is the number of entities */
#define C 500		/* C indicates amount of computation */
 
/* This is a random topology 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 enemy {ename name;};
message bomb {int size[B];};
entity terrorist (int);

/* Driver created terrorist entities */

entity driver ()
{
	int id, my_id;
	ename Terrorist[P];
	int bombarray[B];
	
	for (id=0; id<P; ++id)		/* Create entities */
		Terrorist[id] = new terrorist (id) at id;
	
	/* Send all names to each entity */

	for (my_id=0; my_id<P; ++my_id)
	{	for (id=0; id<P; ++id)
			send enemy{Terrorist[id]} to Terrorist[my_id];
	/*	printf("Sent enemy names to terrorist %d.\n", my_id);*/
	}

	/* Start the action */

	bombarray[0] = 0;		/* Initialize counter location */
	send bomb {bombarray} to Terrorist[0];
}

entity terrorist (int my_id)
{	int timer = 0; 
	int values, comp, id;
	int bombarray[B];
	ename my_enemy[P];

	for (id=0; id<P; ++id)
		receive (enemy his)
			my_enemy[id]=his.name;

	/* Wait for the message then send it to another entity  */

	while (timer < N)
	{	receive (bomb the)
			timer = the.size[0] + 1;	/* Increment counter */
		bombarray[0] = timer; 

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

		id = rand()%P;  		/* Select an entity */
		send bomb{bombarray} to my_enemy[id];
		printf("Bomb to enemy %d on round %d.\n", id, timer);  
	}

	/* Game over -- terminate program */

	if (timer==N)
	{  	printf ("Ka-boom! Game over with a computation index");
		printf (" of %d and a %d byte bomb size!\n", C, B*4);
		pc_exit(1);
	}
}