countries: hardcode codes reserved for WIPO
[sheet.git] / starcraft.eng.inc.pl
index ae231ea878b0d185ae93e1d45f999323a4a958f6..0dd96e3ebc561c34a175266750e108af191be6bc 100644 (file)
 use utf8;
 
 my %CONS = (
-       r => ["rally point"],
+       r => "rally point",
 );
 my %UNIT = (
-       m => ["move"],
-       s => ["stop"],
-       p => ["patrol"],
-       h => ["hold"],
-       a => ["attack"],
-       b => ["burrow"],
-       g => ["gather"],
-       c => ["return cargo"],
+       m => "move",
+       s => "stop",
+       p => "patrol",
+       h => "hold",
+       a => "attack",
+       b => "burrow",
+       g => "gather",
+       c => "return cargo",
 );
 
 {
 
 key => {
        (map { 'P'.$_ => $UNIT{$_} } qw'm s a g c'),
-       Pb => ["build structure"],
-       Pv => ["build adv$sign{_}anced structure"],
-
-       Pbn => ["nexus"],
-       Pbp => ["pylon"],
-       Pba => ["assimi$sign{_}lator"],
-       Pbg => ["gate$sign{_}way"],
-       Pbf => ["forge"],
-       Pbc => ["photon cannon"],
-       Pby => ["cyber$sign{_}netics core"],
-       Pbb => ["shield batt$sign{_}ery"],
+       Pb => "build structure",
+       Pv => "build adv$sign{_}anced structure",
+
+       Pbn => "nexus",
+       Pbp => "pylon",
+       Pba => "assimi$sign{_}lator",
+       Pbg => "gate$sign{_}way",
+       Pbf => "forge",
+       Pbc => "photon cannon",
+       Pby => "cyber$sign{_}netics core",
+       Pbb => "shield batt$sign{_}ery",
 
        (map { 'Pbn'.$_ => $CONS{$_} } 'r'),
-       Pbnp => ["probe"],
+       Pbnp => "probe",
 
        (map { 'Pbg'.$_ => $CONS{$_} } 'r'),
-       Pbgz => ["zealot"],
-       Pbgd => ["dragoon"],
-       Pbgt => ["high templar"],
-       Pbgk => ["dark templar"],
+       Pbgz => "zealot",
+       Pbgd => "dragoon",
+       Pbgt => "high templar",
+       Pbgk => "dark templar",
 
        (map { 'Pbgt'.$_ => $UNIT{$_} } qw'm s p h'),
-       t => ["psionic storm"],
-       l => ["halluci$sign{_}nation"],
-       r => ["archon warp"],
+       t => "psionic storm",
+       l => "halluci$sign{_}nation",
+       r => "archon warp",
 
        (map { 'Pbgk'.$_ => $UNIT{$_} } qw'm s p h a'),
-       Pbgkr => ["dark archon meld"],
+       Pbgkr => "dark archon meld",
 
        (map { 'Pbgkr'.$_ => $UNIT{$_} } qw'm s p h'),
-       Pbgkrf => ["feed$sign{_}back"],
-       Pbgkrc => ["mind control"],
-       Pbgkre => ["mael$sign{_}strom"],
+       Pbgkrf => "feed$sign{_}back",
+       Pbgkrc => "mind control",
+       Pbgkre => "mael$sign{_}strom",
 
-       Pbfw => ["ground weap$sign{_}on$sign{_}s"],
-       Pbfa => ["ground armor"],
-       Pbfs => ["plasma shields"],
+       Pbfw => "ground weap$sign{_}on$sign{_}s",
+       Pbfa => "ground armor",
+       Pbfs => "plasma shields",
 
-       Pbyw => ["air weap$sign{_}on$sign{_}s"],
-       Pbya => ["air armor"],
-       Pbys => ["dragoon range"],
+       Pbyw => "air weap$sign{_}on$sign{_}s",
+       Pbya => "air armor",
+       Pbys => "dragoon range",
 
-       Pbbr => ["recharge shields"],
+       Pbbr => "recharge shields",
 
-       Pvr => ["robotics facility"],
-       Pvs => ["stargate"],
-       Pvc => ["citadel of adun"],
-       Pvb => ["support bay"],
-       Pvf => ["fleet beacon"],
-       Pvt => ["templar archives"],
-       Pvo => ["observa$sign{_}tory"],
-       Pva => ["arbiter tribunal"],
+       Pvr => "robotics facility",
+       Pvs => "stargate",
+       Pvc => "citadel of adun",
+       Pvb => "support bay",
+       Pvf => "fleet beacon",
+       Pvt => "templar archives",
+       Pvo => "observa$sign{_}tory",
+       Pva => "arbiter tribunal",
 
        (map { 'Pvr'.$_ => $CONS{$_} } 'r'),
-       Pvrs => ["shuttle"],
-       Pvro => ["observer"],
-       Pvrv => ["reaver"],
+       Pvrs => "shuttle",
+       Pvro => "observer",
+       Pvrv => "reaver",
 
        (map { 'Pvrv'.$_ => $UNIT{$_} } qw'm s p h a'),
-       Pvrvr => ["scarab"],
+       Pvrvr => "scarab",
 
        (map { 'Pvs'.$_ => $CONS{$_} } 'r'),
-       Pvss => ["scout"],
-       Pvsc => ["carrier"],
-       Pvsa => ["arbiter"],
-       Pvso => ["corsair"],
+       Pvss => "scout",
+       Pvsc => "carrier",
+       Pvsa => "arbiter",
+       Pvso => "corsair",
 
        (map { 'Pvsc'.$_ => $UNIT{$_} } qw'm s p h a'),
-       Pvsci => ["inter$sign{_}ceptor"],
+       Pvsci => "inter$sign{_}ceptor",
 
        (map { 'Pvsa'.$_ => $UNIT{$_} } qw'm s p h a'),
-       Pvsar => ["recall"],
-       Pvsat => ["statis field"],
+       Pvsar => "recall",
+       Pvsat => "statis field",
 
        (map { 'Pvso'.$_ => $UNIT{$_} } qw'm s p h a'),
-       Pvsod => ["disrup$sign{_}tion web"],
+       Pvsod => "disrup$sign{_}tion web",
 
-       Pvcl => ["leg en$sign{_}hancem$sign{_}ent$sign{_}s"],
+       Pvcl => "leg en$sign{_}hancem$sign{_}ent$sign{_}s",
 
-       Pvbs => ["scarab damage"],
-       Pvbc => ["reaver capacity"],
-       Pvbg => ["gravitic drive"],
+       Pvbs => "scarab damage",
+       Pvbc => "reaver capacity",
+       Pvbg => "gravitic drive",
 
-       Pvfa => ["apial sensors"],
-       Pvfg => ["gravitic thrust$sign{_}ers"],
-       Pvfc => ["carrier capacity"],
-       Pvfd => ["disrup$sign{_}tion web"],
-       Pvfj => ["argus jewel"],
+       Pvfa => "apial sensors",
+       Pvfg => "gravitic thrust$sign{_}ers",
+       Pvfc => "carrier capacity",
+       Pvfd => "disrup$sign{_}tion web",
+       Pvfj => "argus jewel",
 
-       Pvtt => ["psionic storm"],
-       Pvth => ["halluci$sign{_}nation"],
-       Pvtk => ["khayda$sign{_}rin amul$sign{_}et"],
-#      Pvtc => ["mind control?"], #TODO
-       Pvte => ["mael$sign{_}strom"],
-       Pvtt => ["argus talisman"],
+       Pvtt => "psionic storm",
+       Pvth => "halluci$sign{_}nation",
+       Pvtk => "khayda$sign{_}rin amul$sign{_}et",
+#      Pvtc => "mind control?", #TODO
+       Pvte => "mael$sign{_}strom",
+       Pvtt => "argus talisman",
 
-       Pvog => ["gravitic booster"],
-       Pvos => ["sensor array"],
+       Pvog => "gravitic booster",
+       Pvos => "sensor array",
 
-       Pvar => ["recall"],
-       Pvas => ["stasis field"],
-       Pvak => ["khayda$sign{_}rin core"],
+       Pvar => "recall",
+       Pvas => "stasis field",
+       Pvak => "khayda$sign{_}rin core",
 
-       Zd => ["drone"],
-       Zz => ["zergling"],
-       Zo => ["overlord"],
-       Zh => ["hydra$sign{_}lisk"],
-       Zq => ["queen"],
+       Zd => "drone",
+       Zz => "zergling",
+       Zo => "overlord",
+       Zh => "hydra$sign{_}lisk",
+       Zq => "queen",
 
        (map { 'Zd'.$_ => $UNIT{$_} } qw'm s a g c b'),
-       Zdb => ["basic mutat$sign{_}ion"],
-       Zdv => ["advance$sign{_}d mutat$sign{_}ion"],
+       Zdb => "basic mutat$sign{_}ion",
+       Zdv => "advance$sign{_}d mutat$sign{_}ion",
 
-       Zdbh => ["hatche$sign{_}ry"],
-       Zdbc => ["creep colony"],
-       Zdbe => ["extrac$sign{_}tor"],
-       Zdbs => ["spawning pool"],
-       Zdbv => ["evolution chamber"],
-       Zdbd => ["hydra$sign{_}lisk den"],
+       Zdbh => "hatche$sign{_}ry",
+       Zdbc => "creep colony",
+       Zdbe => "extrac$sign{_}tor",
+       Zdbs => "spawning pool",
+       Zdbv => "evolution chamber",
+       Zdbd => "hydra$sign{_}lisk den",
 
        (map { 'Zdbh'.$_ => $CONS{$_} } 'r'),
-       Zdbhb => ["burrow"],
-       Zdbhs => ["select larvae"],
-       Zdbhl => ["lair"],
+       Zdbhb => "burrow",
+       Zdbhs => "select larvae",
+       Zdbhl => "lair",
 
        (map { 'Zdbhl'.$_ => $CONS{$_} } 'r'),
-       Zdbhlb => ["burrow"],
-       Zdbhlv => ["ventral sacs"],
-       Zdbhla => ["antennae"],
-       Zdbhlp => ["pneumatized carapace"],
-       Zdbhlh => ["hive"],
+       Zdbhlb => "burrow",
+       Zdbhlv => "ventral sacs",
+       Zdbhla => "antennae",
+       Zdbhlp => "pneumatized carapace",
+       Zdbhlh => "hive",
 
        (map { 'Zdbhlh'.$_ => $CONS{$_} } 'r'),
-       Zdbhlhb => ["burrow"],
-       Zdbhlhv => ["ventral sacs"],
-       Zdbhlha => ["antennae"],
-       Zdbhlhp => ["pneumatized carapace"],
-
-       Zdbsm => ["metabol boost"],
-       Zdbsa => ["adrenal glands"],
-
-       Zdbvm => ["melee attack$sign{_}s"],
-       Zdbva => ["missile attack$sign{_}s"],
-       Zdbvc => ["carapace"],
-       Zdbdm => ["muscular augments"],
-       Zdbdg => ["grooved spines"],
-       Zdbdl => ["lurker aspect"],
+       Zdbhlhb => "burrow",
+       Zdbhlhv => "ventral sacs",
+       Zdbhlha => "antennae",
+       Zdbhlhp => "pneumatized carapace",
+
+       Zdbsm => "metabol boost",
+       Zdbsa => "adrenal glands",
+
+       Zdbvm => "melee attack$sign{_}s",
+       Zdbva => "missile attack$sign{_}s",
+       Zdbvc => "carapace",
+       Zdbdm => "muscular augments",
+       Zdbdg => "grooved spines",
+       Zdbdl => "lurker aspect",
 },
 
 mode => {