102 lines
1.9 KiB
Perl
Executable file
102 lines
1.9 KiB
Perl
Executable file
#! /usr/bin/perl
|
|
use strict;
|
|
use warnings;
|
|
use Term::ANSIColor;
|
|
|
|
our $VERBOSE = $ENV{"VERBOSE"};
|
|
|
|
# Use our ttrts perl library
|
|
# located within the main https://github.com/mdiluz/ttrts repository
|
|
use ttrts;
|
|
|
|
our $usage_text=<<TEXT;
|
|
NAME
|
|
randomPlayer.pl
|
|
|
|
USAGE
|
|
randomPlayer.pl PLAYER_ID [OPTIONS]
|
|
|
|
DESCRIPTION
|
|
A very random perl AI for ttrts
|
|
|
|
TEXT
|
|
|
|
# Exit with usage if not given a number
|
|
scalar(@ARGV) or printf $usage_text and exit 1;
|
|
|
|
# Grab the player
|
|
our $player = $ARGV[0];
|
|
our $turn = 0;
|
|
|
|
our $gameName;
|
|
our $gameX;
|
|
our $gameY;
|
|
|
|
# If player is non-numeric
|
|
($player =~ m/\D+/) and printf $usage_text and exit 1;
|
|
|
|
# Give random orders to all units
|
|
sub OrderEverythingRandom
|
|
{
|
|
my @myUnits = @_;
|
|
|
|
my $commands = "";
|
|
my @selection = ("F","L","R","A");
|
|
|
|
foreach my $unit (@myUnits)
|
|
{
|
|
my ($unitID) = ($unit =~ /UNIT:(\d+)/);
|
|
$commands = $commands."ORDER:".$selection[rand(4)]." id:"."$unitID";
|
|
$commands = $commands."\n";
|
|
}
|
|
return $commands;
|
|
}
|
|
|
|
# Show launch params
|
|
printf("Launching with player %i\n",$player);
|
|
|
|
# Stay looping the AI
|
|
while ( 1 )
|
|
{
|
|
# Wait for turn file
|
|
our $turnFile = GetTurnFileName($turn);
|
|
|
|
# Wait for the turn file
|
|
$VERBOSE and printf("Waiting for %s\n", $turnFile);
|
|
WaitForFile $turnFile;
|
|
|
|
# Read in the game state from turnFile
|
|
my @units = GetUnitStringsFromFile($turnFile);
|
|
my ($major,$minor,$patch,$gameName,$gameX,$gameY) = GetGameInfoFromFile($turnFile);
|
|
|
|
# Get units on my player
|
|
my @myUnits = GetPlayerUnits($player,@units);
|
|
|
|
# Generate some commands
|
|
my $commands = OrderEverythingRandom(@myUnits);
|
|
|
|
# At this point, print the game map
|
|
PrintGameMapForTurn($turn);
|
|
|
|
if( scalar(@units) == 0 )
|
|
{
|
|
printf "Game was a draw!\n";
|
|
exit 0;
|
|
}
|
|
elsif( scalar(@myUnits) == scalar(@units) )
|
|
{
|
|
printf "Game over, you win!\n";
|
|
exit 0;
|
|
}
|
|
elsif( scalar(@myUnits) == 0 )
|
|
{
|
|
printf "Game over, you lose!\n";
|
|
exit 0;
|
|
}
|
|
# TODO: Detect lack of possible movement
|
|
|
|
OutputCommandsFile $turn,$player,$commands;
|
|
|
|
$turn++;
|
|
|
|
}
|