mdiluz/ttrts-players
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Large refactor and addition of new features in line with 0.3.0

Browse source
This commit is contained in:
mdiluzio 2014-12-29 21:59:59 +00:00
parent 897b44ce46
commit c544e7a4fb
2 changed files with 168 additions and 70 deletions
Download patch file Download diff file Expand all files Collapse all files

15
perl/randomPlayer.pl
View file

@ -9,6 +9,8 @@ use File::Basename qw(dirname);
use Cwd qw(abs_path);
use lib dirname(abs_path($0));
our $VERBOSE = $ENV{"VERBOSE"};
# Use our ttrts perl library
use ttrts;
@ -62,24 +64,24 @@ printf("Launching with player %i\n",$player);
while ( 1 )
{
# Wait for turn file
our $turnFile = GetTurnFile($turn);
our $turnFile = GetTurnFileName($turn);
# Wait for the turn file
printf("Waiting for %s\n", $turnFile);
$VERBOSE and printf("Waiting for %s\n", $turnFile);
WaitForFile $turnFile;
# Read in the game state from turnFile
my @units = GetUnitsForTurn($turnFile);
my ($gameName,$gameX,$gameY) = GetHeaderForTurn($turnFile);
my @units = GetUnitStringsFromFile($turnFile);
my ($major,$minor,$patch,$gameName,$gameX,$gameY) = GetGameInfoFromFile($turnFile);
# Get units on my player
my @myUnits = getUnitsOnPlayer($player,@units);
my @myUnits = GetPlayerUnits($player,@units);
# Generate some commands
my $commands = OrderEverythingRandom(@myUnits);
# At this point, print the game map
PrintGameMap($gameX,$gameY,@units);
PrintGameMapForTurn($turn);
if( scalar(@units) == 0 )
{
@ -96,6 +98,7 @@ while ( 1 )
printf "Game over, you lose!\n";
exit 0;
}
# TODO: Detect lack of possible movement
OutputCommandsFile $turn,$player,$commands;