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

Merge branch 'net' of https://github.com/mdiluz/ttrts into net

Browse source
This commit is contained in:
Marc Di Luzio 2015-01-07 12:40:07 +00:00
commit 25e0fa04de
1 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
api/perl/ttrts.pm
View file

@ -238,6 +238,13 @@ sub PrintGameFromGamestateString
$map[$invalidPos[0]][$invalidPos[1]] = "~";
}
# Fill with walls
foreach my $wall ( $info[8] =~ /\[(\d+,\d+)\]/g )
{
$wall =~ /(\d+),(\d+)/;
$map[$1][$2] = "|";
}
# Fill with units
for my $unit (@units)
{