sc-units-lotv.inc.pl

   1 use utf8;
   2 use strict;
   3
   4 my $RT = 1.4;  # real-time speed factor to faster
   5
   6 my $hots = do 'sc-units-hots.inc.pl' or die $!;
   7 my %unit;
   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} // [] };
  14         }
  15         $unit{ lc $row->{name} =~ tr/ /_/r } = $row;
  16 }
  17
  18 [
  19 'patch 4.1.4',
  20
  21 # protoss
  22
  23 $unit{probe},
  24 $unit{photon_cannon},
  25 $unit{mothership},
  26 $unit{nexus},
  27 $unit{zealot},
  28 $unit{sentry},
  29 $unit{stalker},
  30 {
  31         race => 'protoss',
  32         cat => 'gateway',
  33         name => 'Adept',
  34 },
  35 $unit{high_templar},
  36 $unit{dark_templar},
  37 $unit{archon},
  38 $unit{observer},
  39 $unit{warp_prism},
  40 $unit{immortal},
  41 $unit{colossus},
  42 {
  43         race => 'protoss',
  44         cat => 'robotic',
  45         name => 'Disruptor',
  46 },
  47 $unit{phoenix},
  48 $unit{void_ray},
  49 $unit{oracle},
  50 $unit{tempest},
  51 $unit{carrier},
  52
  53 # terran
  54
  55 $unit{scv},
  56 $unit{mule},
  57 $unit{missile_turret},
  58 $unit{planetary_fortress},
  59 $unit{marine},
  60 $unit{marauder},
  61 $unit{reaper},
  62 $unit{ghost},
  63 $unit{hellion},
  64 $unit{hellbat},
  65 $unit{widow_mine},
  66 $unit{siege_tank},
  67 {
  68         race => 'terran',
  69         cat => 'factory',
  70         name => 'Cyclone',
  71 },
  72 $unit{thor},
  73 $unit{viking},
  74 $unit{medivac},
  75 {
  76         race => 'terran',
  77         cat => 'starport',
  78         name => 'Liberator',
  79 },
  80 $unit{banshee},
  81 $unit{raven},
  82 $unit{battlecruiser},
  83
  84 # zerg
  85
  86 $unit{larva},
  87 $unit{drone},
  88 $unit{queen},
  89 $unit{overlord},
  90 $unit{overseer},
  91 $unit{larva},
  92 $unit{spine_crawler},
  93 $unit{spore_crawler},
  94 $unit{zergling},
  95 $unit{baneling},
  96 $unit{roach},
  97 {
  98         race => 'zerg',
  99         cat => 'hatchery',
 100         name => 'Ravager',
 101 },
 102 $unit{hydralisk},
 103 {
 104         race => 'zerg',
 105         cat => 'lair',
 106         name => 'Lurker',
 107 },
 108 $unit{infestor},
 109 $unit{nydus_worm},
 110 $unit{swarm_host},
 111 $unit{mutalisk},
 112 $unit{corruptor},
 113 $unit{brood_lord},
 114 $unit{viper},
 115 $unit{ultralisk},
 116
 117 ]