starcraft.eng.inc.pl

   1 use utf8;
   2
   3 my %CONS = (
   4         r => ["rally point"],
   5 );
   6 my %UNIT = (
   7         m => ["move"],
   8         s => ["stop"],
   9         p => ["patrol"],
  10         h => ["hold"],
  11         a => ["attack"],
  12         b => ["burrow"],
  13         g => ["gather"],
  14         c => ["return cargo"],
  15 );
  16
  17 {
  18
  19 key => {
  20         (map { 'P'.$_ => $UNIT{$_} } qw'm s a g c'),
  21         Pb => ["build structure"],
  22         Pv => ["build adv$sign{_}anced structure"],
  23
  24         Pbn => ["nexus"],
  25         Pbp => ["pylon"],
  26         Pba => ["assimi$sign{_}lator"],
  27         Pbg => ["gate$sign{_}way"],
  28         Pbf => ["forge"],
  29         Pbc => ["photon cannon"],
  30         Pby => ["cyber$sign{_}netics core"],
  31         Pbb => ["shield batt$sign{_}ery"],
  32
  33         (map { 'Pbn'.$_ => $CONS{$_} } 'r'),
  34         Pbnp => ["probe"],
  35
  36         (map { 'Pbg'.$_ => $CONS{$_} } 'r'),
  37         Pbgz => ["zealot"],
  38         Pbgd => ["dragoon"],
  39         Pbgt => ["high templar"],
  40         Pbgk => ["dark templar"],
  41
  42         (map { 'Pbgt'.$_ => $UNIT{$_} } qw'm s p h'),
  43         t => ["psionic storm"],
  44         l => ["halluci$sign{_}nation"],
  45         r => ["archon warp"],
  46
  47         (map { 'Pbgk'.$_ => $UNIT{$_} } qw'm s p h a'),
  48         Pbgkr => ["dark archon meld"],
  49
  50         (map { 'Pbgkr'.$_ => $UNIT{$_} } qw'm s p h'),
  51         Pbgkrf => ["feed$sign{_}back"],
  52         Pbgkrc => ["mind control"],
  53         Pbgkre => ["mael$sign{_}strom"],
  54
  55         Pbfw => ["ground weap$sign{_}on$sign{_}s"],
  56         Pbfa => ["ground armor"],
  57         Pbfs => ["plasma shields"],
  58
  59         Pbyw => ["air weap$sign{_}on$sign{_}s"],
  60         Pbya => ["air armor"],
  61         Pbys => ["dragoon range"],
  62
  63         Pbbr => ["recharge shields"],
  64
  65         Pvr => ["robotics facility"],
  66         Pvs => ["stargate"],
  67         Pvc => ["citadel of adun"],
  68         Pvb => ["support bay"],
  69         Pvf => ["fleet beacon"],
  70         Pvt => ["templar archives"],
  71         Pvo => ["observa$sign{_}tory"],
  72         Pva => ["arbiter tribunal"],
  73
  74         (map { 'Pvr'.$_ => $CONS{$_} } 'r'),
  75         Pvrs => ["shuttle"],
  76         Pvro => ["observer"],
  77         Pvrv => ["reaver"],
  78
  79         (map { 'Pvrv'.$_ => $UNIT{$_} } qw'm s p h a'),
  80         Pvrvr => ["scarab"],
  81
  82         (map { 'Pvs'.$_ => $CONS{$_} } 'r'),
  83         Pvss => ["scout"],
  84         Pvsc => ["carrier"],
  85         Pvsa => ["arbiter"],
  86         Pvso => ["corsair"],
  87
  88         (map { 'Pvsc'.$_ => $UNIT{$_} } qw'm s p h a'),
  89         Pvsci => ["inter$sign{_}ceptor"],
  90
  91         (map { 'Pvsa'.$_ => $UNIT{$_} } qw'm s p h a'),
  92         Pvsar => ["recall"],
  93         Pvsat => ["statis field"],
  94
  95         (map { 'Pvso'.$_ => $UNIT{$_} } qw'm s p h a'),
  96         Pvsod => ["disrup$sign{_}tion web"],
  97
  98         Pvcl => ["leg en$sign{_}hancem$sign{_}ent$sign{_}s"],
  99
 100         Pvbs => ["scarab damage"],
 101         Pvbc => ["reaver capacity"],
 102         Pvbg => ["gravitic drive"],
 103
 104         Pvfa => ["apial sensors"],
 105         Pvfg => ["gravitic thrust$sign{_}ers"],
 106         Pvfc => ["carrier capacity"],
 107         Pvfd => ["disrup$sign{_}tion web"],
 108         Pvfj => ["argus jewel"],
 109
 110         Pvtt => ["psionic storm"],
 111         Pvth => ["halluci$sign{_}nation"],
 112         Pvtk => ["khayda$sign{_}rin amul$sign{_}et"],
 113 #       Pvtc => ["mind control?"], #TODO
 114         Pvte => ["mael$sign{_}strom"],
 115         Pvtt => ["argus talisman"],
 116
 117         Pvog => ["gravitic booster"],
 118         Pvos => ["sensor array"],
 119
 120         Pvar => ["recall"],
 121         Pvas => ["stasis field"],
 122         Pvak => ["khayda$sign{_}rin core"],
 123
 124         Zd => ["drone"],
 125         Zz => ["zergling"],
 126         Zo => ["overlord"],
 127         Zh => ["hydra$sign{_}lisk"],
 128         Zq => ["queen"],
 129
 130         (map { 'Zd'.$_ => $UNIT{$_} } qw'm s a g c b'),
 131         Zdb => ["basic mutat$sign{_}ion"],
 132         Zdv => ["advance$sign{_}d mutat$sign{_}ion"],
 133
 134         Zdbh => ["hatche$sign{_}ry"],
 135         Zdbc => ["creep colony"],
 136         Zdbe => ["extrac$sign{_}tor"],
 137         Zdbs => ["spawning pool"],
 138         Zdbv => ["evolution chamber"],
 139         Zdbd => ["hydra$sign{_}lisk den"],
 140
 141         (map { 'Zdbh'.$_ => $CONS{$_} } 'r'),
 142         Zdbhb => ["burrow"],
 143         Zdbhs => ["select larvae"],
 144         Zdbhl => ["lair"],
 145
 146         (map { 'Zdbhl'.$_ => $CONS{$_} } 'r'),
 147         Zdbhlb => ["burrow"],
 148         Zdbhlv => ["ventral sacs"],
 149         Zdbhla => ["antennae"],
 150         Zdbhlp => ["pneumatized carapace"],
 151         Zdbhlh => ["hive"],
 152
 153         (map { 'Zdbhlh'.$_ => $CONS{$_} } 'r'),
 154         Zdbhlhb => ["burrow"],
 155         Zdbhlhv => ["ventral sacs"],
 156         Zdbhlha => ["antennae"],
 157         Zdbhlhp => ["pneumatized carapace"],
 158
 159         Zdbsm => ["metabol boost"],
 160         Zdbsa => ["adrenal glands"],
 161
 162         Zdbvm => ["melee attack$sign{_}s"],
 163         Zdbva => ["missile attack$sign{_}s"],
 164         Zdbvc => ["carapace"],
 165         Zdbdm => ["muscular augments"],
 166         Zdbdg => ["grooved spines"],
 167         Zdbdl => ["lurker aspect"],
 168 },
 169
 170 mode => {
 171         P => 'Protoss Probe',
 172         Pb => 'Protoss Probe build',
 173         Pbn => 'Protoss Nexus',
 174         Pbg => 'Protoss Gateway',
 175         Pbgt => 'Protoss High Templar',
 176         Pbgk => 'Protoss Dark Templar',
 177         Pbgkr => 'Protoss Dark Archon',
 178         Pbf => 'Protoss Forge',
 179         Pby => 'Protoss Cybernetics Core',
 180         Pbb => 'Protoss Shield Battery',
 181         Pv => 'Protoss Probe advanced build',
 182         Pvr => 'Protoss Robotics facility',
 183         Pvrv => 'Protoss Reaver',
 184         Pvs => 'Protoss Stargate',
 185         Pvsc => 'Protoss Carrier',
 186         Pvsa => 'Protoss Arbiter',
 187         Pvso => 'Protoss Corsair',
 188         Pvt => 'Protoss Templar Archives',
 189         Pvo => 'Protoss Observatory',
 190         Pva => 'Protoss Arbiter Tribunal',
 191
 192         Z => 'Zerg Larva',
 193         Zd => 'Zerg Drone',
 194         Zdb => 'Zerg basic Drone mutation',
 195         Zdbh => 'Zerg Hatchery',
 196         Zdbhl => 'Zerg Lair',
 197         Zdbhlh => 'Zerg Hive',
 198         Zdbs => 'Zerg Spawning Pool',
 199         Zdbd => 'Zerg Hydralisk Den',
 200         Zdv => 'Zerg advanced Drone mutation',
 201 },
 202
 203 }