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

Some more code for parsing units

Browse source
This commit is contained in:
mdiluzio 2014-12-17 08:49:27 +00:00
parent 489ca88218
commit 4b37246e53
1 changed files with 20 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

20
players/simplePlayer.pl
View file

@ -75,10 +75,30 @@ sub OutputCommandsFile
system ("echo $commands > $orderFile");
}
# Sort units into teams
sub getUnitsOnTeam
{
my $theTeam = shift;
my @allUnits = @_;;
my @myUnits;
for my $unit (@allUnits)
{
my ($unitTeam) = $unit =~ /tm:(\d+)/;
if ( $unitTeam == $theTeam )
{
push(@myUnits,$unit);
}
}
return @myUnits;
}
# Get commands for a turn
sub GetCommandsForTurn
{
my @units = @_;
my @myUnits = getUnitsOnTeam($team,@units);
# perform AI here