3 |
use strict; |
use strict; |
4 |
use GD; |
use GD; |
5 |
|
|
6 |
die "Usage: t2matchlog logfile outputdir" unless @ARGV == 2; |
die "Usage: perl $0 logfile outputdir" unless @ARGV == 2; |
7 |
open LOG, $ARGV[0] or die "Failed to open $ARGV[0]: $!"; |
open LOG, $ARGV[0] or die "Failed to open $ARGV[0]: $!"; |
8 |
my $outdir = $ARGV[1]; |
my $outdir = $ARGV[1]; |
9 |
mkdir $outdir or die "Failed to create output directory $outdir: $!"; |
mkdir $outdir or die "Failed to create output directory $outdir: $!"; |
10 |
(system "cp t2matchlog.css $outdir/") == 0 or die "Failed to copy stylesheet: $!"; |
my $dir = $0; |
11 |
|
$dir =~ s!(^|/)[^/]+$!$1!; |
12 |
|
(system "cp ${dir}t2matchlog.css $outdir/") == 0 or die "Failed to copy stylesheet: $!"; |
13 |
|
|
14 |
$/ = "\r\n"; |
$/ = "\r\n"; |
15 |
$| = 1; |
$| = 1; |
59 |
$DamageTypeText[98] = 'nexus camping'; |
$DamageTypeText[98] = 'nexus camping'; |
60 |
$DamageTypeText[99] = 'suicide'; |
$DamageTypeText[99] = 'suicide'; |
61 |
|
|
62 |
my $icon_player = load_image("icons/com_player_grey_24x.png"); |
my $icon_player = load_image("${dir}icons/com_player_grey_24x.png"); |
63 |
my %icon; |
my %icon; |
64 |
$icon{'flag'} = load_image("icons/com_icon_flag_outside.png"); |
$icon{'flag'} = load_image("${dir}icons/com_icon_flag_outside.png"); |
65 |
$icon{'gen'} = load_image("icons/com_icon_generator.png"); |
$icon{'gen'} = load_image("${dir}icons/com_icon_generator.png"); |
66 |
$icon{'turret'} = load_image("icons/com_icon_turretbase.png"); |
$icon{'turret'} = load_image("${dir}icons/com_icon_turretbase.png"); |
67 |
$icon{'inv'} = load_image("icons/com_icon_inventory.png"); |
$icon{'inv'} = load_image("${dir}icons/com_icon_inventory.png"); |
68 |
$icon{'sensor'} = load_image("icons/com_icon_sensor.png"); |
$icon{'sensor'} = load_image("${dir}icons/com_icon_sensor.png"); |
69 |
$icon{'vpad'} = load_image("icons/com_icon_vehicle_inventory.png"); |
$icon{'vpad'} = load_image("${dir}icons/com_icon_vehicle_inventory.png"); |
70 |
$icon{'solar'} = load_image("icons/com_icon_solar_gen.png"); |
$icon{'solar'} = load_image("${dir}icons/com_icon_solar_gen.png"); |
71 |
|
|
72 |
my %colour = ('S' => 0xffff00, 'A' => 0xff8000, 'KK' => 0x00ff00, 'K' => 0xff0000, |
my %colour = ('S' => 0xffff00, 'A' => 0xff8000, 'KK' => 0x00ff00, 'K' => 0xff0000, |
73 |
'L' => 0xff8000, 'F+' => 0x00ffff, 'F-' => 0xff00ff, 'P' => 0xff8000, |
'L' => 0xff8000, 'F+' => 0x00ffff, 'F-' => 0xff00ff, 'P' => 0xff8000, |