tronbot/util/getgame.pl at a1k0nbot-2.18.2 · a1k0n/tronbot · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
#!/usr/bin/perl -w

require LWP::UserAgent;

my $ua = LWP::UserAgent->new;
$ua->timeout(10);

if(!defined $ARGV[0]) {
  die "usage: $0 <game_id> [swap players?] [reverse time?]";
}

my ($gameid, $flip, $timeorder) = @ARGV;

sub get_game {
  my ($gameid) = @_;
  my $game;
  if(-e "gamecache/$gameid") {
    local $/;
    open GAME, "<gamecache/$gameid";
    $game = <GAME>;
    close GAME;
  } else {
    my $response = $ua->get("http://csclub.uwaterloo.ca/contest/generate_game_summary.php?game_id=$gameid");
    open GAME, ">gamecache/$gameid";
    print GAME $response->content;
    $game = $response->content;
    close GAME;
  }

  return split(/\|/, $game);
}

my ($ok,$mapsize,$map,$p1,$p2,$moves,$ok2) = get_game($gameid);
my @moves = split(//, $moves);

my ($w,$h) = split(/\s+/, $mapsize);
my %map;
my $idx=0;
my ($p1x, $p1y, $p2x, $p2y);
$map = join('', split(/\n/, $map));
for(my $j=0;$j<$h;$j++) {
  for(my $i=0;$i<$w;$i++,$idx++) {
    my $c = substr($map, $idx, 1);
    if($c eq "1") { $p1x = $i; $p1y = $j; }
    if($c eq "2") { $p2x = $i; $p2y = $j; }
    $map{$i,$j} = substr($map, $idx, 1);
  }
}

sub _next {
  my ($x, $y, $move) = @_;
  if($move eq 'N') { return ($x, $y-1); }
  if($move eq 'S') { return ($x, $y+1); }
  if($move eq 'E') { return ($x+1, $y); }
  if($move eq 'W') { return ($x-1, $y); }
}

sub move {
  my ($m1, $m2) = @_;
  $map{$p1x,$p1y} = '#';
  $map{$p2x,$p2y} = '#';
  ($p1x,$p1y) = _next($p1x,$p1y,$m1);
  ($p2x,$p2y) = _next($p2x,$p2y,$m2);
  $map{$p1x,$p1y} = '1';
  $map{$p2x,$p2y} = '2';
}

sub display_map {
  my @out = ("$mapsize\n");
  for(my $j=0;$j<$h;$j++) {
    for(my $i=0;$i<$w;$i++,$idx++) {
      my $c = $map{$i,$j};
      if($flip && $c eq '1') { $c = '2' }
      elsif($flip && $c eq '2') { $c = '1' }
      push @out, $c;
    }
    push @out, "\n";
  }
  return join('', @out);
}

#print(" --- $p1 ($p1x,$p1y) vs $p2 ($p2x,$p2y)\n");
my @out = (display_map);

while(@moves) {
  my $m1 = shift @moves;
  my $m2 = shift @moves;
  move($m1,$m2);
  last if($p1x == $p2x && $p1y == $p2y);
  push @out, display_map();
}
pop @out; # last move is often confusing my examiner

if($timeorder) { @out = reverse @out; }

print join('', @out);