/* This team is taken nearly directly from the rollers team provided
   with Tucker Balch's asciisoccer package.  The original rollers team
   was developed by Tucker Balch.
   The conversion to tclsoccer was done by Randolph M. Jones, 
   Colby College, 1998. */

#include "../interface.c"
#include "routines.h"

/* Standard Functions already defined as unique in interface.c
   (These are here for reference, you don't have to redefine them */
/*
      #define InitializeGame UN(InitializeGame)
      #define InitializePoint UN(InitializePoint)
      #define WonPoint UN(WonPoint)
      #define LostPoint UN(LostPoint)
      #define GameOver UN(GameOver)
      #define Player1 UN(Player1)
      #define Player2 UN(Player2)
      #define Player3 UN(Player3)
      #define Player4 UN(Player4)
*/

void InitializeGame () {};
void InitializePoint () {};
void WonPoint () {};
void LostPoint () {};
void GameOver () {};

char *Player1 () {
  if (Surround[N] == BALL)
    return "NE";
  if (Surround[NE] == BALL)
    return "E";
  if (Surround[E]==BALL)
    return "SE";
  if (Surround[SE]==BALL)
    return "E";
  if (Surround[S]==BALL)
    return "SE";
  if (Surround[SW]==BALL)
    return "KICK";
  if (Surround[W]==BALL)
    return "KICK";
  if (Surround[NW]==BALL)
    return "KICK";

   return BallDir();
}

char *Player2 () {
   return Player1();
}

char *Player3 () {
   return Player1();
}

char *Player4 () {
   return Player1();
}