From a66408602c75e3b026b80e58d521754dea96e90e 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

---
 simplePlayer.pl | 65 +++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 65 insertions(+)
 create mode 100755 simplePlayer.pl

diff --git a/simplePlayer.pl b/simplePlayer.pl
new file mode 100755
index 0000000..b05583d
--- /dev/null
+++ b/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