4 my $RT = 1.4; # real-time speed factor to faster
6 my $hots = do 'sc-units-hots.inc.pl' or die $!;
8 for my $row (@{$hots}) {
9 ref $row eq 'HASH' or next;
10 for ($row, @{ $row->{special} }, @{ $row->{upgrade} }) {
11 $_ *= $RT for $_->{speed};
12 $_ /= $RT for $_->{build}, $_->{warp} // ();
13 $_->{cooldown} /= $RT for @{ $_->{attack} // [] };
15 $unit{ lc $row->{name} =~ tr/ /_/r } = $row;
57 $unit{missile_turret},
58 $unit{planetary_fortress},