From e8610c81317976a03b1aeb2b5f44cf70df14c266 Mon Sep 17 00:00:00 2001
From: mdiluzio <thefoips@gmail.com>
Date: Wed, 17 Dec 2014 07:51:49 +0000
Subject: [PATCH] Remove player source directory in favor of new higher level
 players directory with a simple (and not-fully-functioning) perl AI

---
 players/simplePlayer.pl      | 65 ++++++++++++++++++++++++++++++++++++
 source/player/CMakeLists.txt |  0
 2 files changed, 65 insertions(+)
 create mode 100755 players/simplePlayer.pl
 delete mode 100644 source/player/CMakeLists.txt

diff --git a/players/simplePlayer.pl b/players/simplePlayer.pl
new file mode 100755
index 0000000..b05583d
--- /dev/null
+++ b/players/simplePlayer.pl
@@ -0,0 +1,65 @@
+#! /usr/bin/perl
+use strict;
+use warnings;
+
+our $usage_text=<<TEXT;
+NAME
+	simple_player.pl
+
+USAGE
+	simple_player.pl TEAM [OPTIONS]
+
+DESCRIPTION
+	A very simple perl AI for ttrts
+
+TEXT
+
+# Wait for a file to exist
+sub WaitForFile
+{
+	my $file = $_[0];
+	printf("Waiting for %s\n", $file);
+	while( ! -e $file )
+	{ 
+		sleep 1; 
+	}
+}
+
+# Exit with usage if not given a number
+scalar(@ARGV) or printf $usage_text and exit 1;
+
+# Grab the team
+our $team = $ARGV[0];
+
+# If team is non-numeric
+($team =~ m/\D+/) and printf $usage_text and exit 1;
+
+printf("Launching with team %i\n",$team);
+
+our $turn = 0;
+
+# Stay looping the AI
+while ( 1 )
+{
+	# Wait for turn file
+	our $turnFile = "Turn_TURN.txt";
+	$turnFile =~ s/TURN/$turn/;
+
+	# Wait for the turn file
+	WaitForFile $turnFile;
+
+	# Read in the game state from turnFile
+
+	# Generate some commands
+	my $commands = "";
+
+	# Get output file
+	our $orderFile = "Turn_TURN_Team_TEAM.txt";
+	$orderFile =~ s/TURN/$turn/;
+	$orderFile =~ s/TEAM/$team/;
+
+	system ("echo $commands > $orderFile");
+
+	$turn++;
+
+}
\ No newline at end of file
diff --git a/source/player/CMakeLists.txt b/source/player/CMakeLists.txt
deleted file mode 100644
index e69de29..0000000