#include "mpi.h"
#include "stdlib.h"
#define N 100000	/* N is the number of rounds */
#define B 250		/* B is the buffer size (1K) */
#define P 16            /* P is the number of players */
#define C 50            /* C indicates the amount of computation */
#define M 50            /* M is the number of messages */

/* This is a random topology program. */
/* It sends a message around N times among P entities. */

main(int argc, char *argv[])
{	int my_id, enemy_id, comp, bombs, target; 
	int timer = 0;
	int bombarray[B];
	MPI_Status stat;

	if (MPI_Init(&argc, &argv)!=MPI_SUCCESS)
	{	printf("Sorry, that's an error.\n");
		exit(1);
	}

	MPI_Comm_rank(MPI_COMM_WORLD, &my_id);       /* Get rank */
		
	/* Start the action -- send message to first process */

	bombarray[0]=0;
	if (my_id==0)
	  for (bombs=0; bombs<M; ++bombs)
	  {  target=rand()%P;              /* Pick a message dest. */
	     MPI_Send(bombarray, B, MPI_INT, target, 0, MPI_COMM_WORLD);
	  }   

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

	while (timer < N && timer >= 0)
	{  MPI_Recv(bombarray,B,MPI_INT,MPI_ANY_SOURCE,0,MPI_COMM_WORLD,&stat);
	   timer = bombarray[0] + 1;
	   bombarray[0] = timer;

	   /* Put random values into the array between 0-300 */

	   for (comp=1; comp<C; ++comp)
	         bombarray[(comp%(B-1))+1] = (rand()%101) * ((rand()%3)+1);

	   enemy_id = rand()%P;
	   /* printf("Bomb to enemy %d on round %d.\n", enemy_id, timer); */ 
	   MPI_Send(bombarray, B, MPI_INT, enemy_id, 0, MPI_COMM_WORLD);
	}

	/* Game over -- terminate program */

	if (timer==N)
	{ bombarray[0] = -3;
	  for (enemy_id=0; enemy_id<P; ++enemy_id)
	    if (enemy_id != my_id)
	      MPI_Send(bombarray, B, MPI_INT, enemy_id, 0, MPI_COMM_WORLD); 
	  printf ("Ka-boom!!! Game over with %d bombs, %d ", M, B*4);
	  printf ("bytes each!\n");
	}  

	MPI_Finalize();
}