From 0272c8638bb34d479a27f30f43a6db5e372b79b3 Mon Sep 17 00:00:00 2001 From: Mischa POSLAWSKY Date: Wed, 6 May 2009 03:09:46 +0000 Subject: [PATCH] starcraft: preliminary game key emulator --- starcraft.inc.pl | 243 +++++++++++++++++++++++++++++++++++++++++++++++ starcraft.plp | 117 +++++++++++++++++++++++ 2 files changed, 360 insertions(+) create mode 100644 starcraft.inc.pl create mode 100644 starcraft.plp diff --git a/starcraft.inc.pl b/starcraft.inc.pl new file mode 100644 index 0000000..8c4af9c --- /dev/null +++ b/starcraft.inc.pl @@ -0,0 +1,243 @@ +use utf8; + +my %CONS = ( # producing building + r => ["rally point", 'pm'], +); +my %UNIT = ( # any unit + m => ["move", 'pm'], + s => ["stop", 'pm'], +); +my %UNITF = ( # fighter + p => ["patrol", 'pm'], + h => ["hold", 'pm'], +); +my %UNITA = ( + a => ["attack", 'pm'], +); +my %UNITB = ( + b => ["burrow", 'ci'], +); +my %UNITH = ( + %UNITA, + g => ["gather", 'pm'], + c => ["return cargo", 'pm'], +); + +'' => { +}, + +P => { + desc => 'Protoss Probe', + %UNIT, %UNITH, + b => ["build structure", 'me modePb'], + v => ["build adv$sign{_}anced structure", 'me modePv'], +}, +Pb => { + desc => 'Protoss Probe build', + n => ["nexus", 'mo modePbn'], + p => ["pylon", 'me'], + a => ["assimi$sign{_}lator", 'me'], + g => ["gate$sign{_}way", 'mo modePbg'], + f => ["forge", 'mv modePbf'], + c => ["photon cannon", 'me'], + y => ["cyber$sign{_}netics core", 'mv modePby'], + b => ["shield batt$sign{_}ery", 'me modePbb'], +}, +Pbn => { + desc => 'Protoss Nexus', + %CONS, + p => ["probe", 'co modeP'], +}, +Pbg => { + desc => 'Protoss Gateway', + %CONS, + z => ["zealot", 'co'], + d => ["dragoon", 'cp'], + t => ["high templar", 'cp modePbgt'], + k => ["dark templar", 'cp modePbgk'], +}, +Pbgt => { + desc => 'Protoss High Templar', + %UNIT, %UNITF, + t => ["psionic storm", 'ci'], + l => ["halluci$sign{_}nation", 'ci'], + r => ["archon warp", 'cp'], +}, +Pbgk => { + desc => 'Protoss Dark Templar', + %UNIT, %UNITF, %UNITA, + r => ["dark archon meld", 'cp modePbgkr'], +}, +Pbgkr => { + desc => 'Protoss Dark Archon', + %UNIT, %UNITF, + f => ["feed$sign{_}back", 'pm'], + c => ["mind control", 'ci'], + e => ["mael$sign{_}strom", 'ci'], +}, +Pbf => { + desc => 'Protoss Forge', + w => ["ground weap$sign{_}on$sign{_}s", 'mv'], + a => ["ground armor", 'mv'], + s => ["plasma shields", 'mv'], +}, +Pby => { + desc => 'Protoss Cybernetics Core', + w => ["air weap$sign{_}on$sign{_}s", 'mv'], + a => ["air armor", 'mv'], + s => ["dragoon range", 'mv'], +}, +Pbb => { + desc => 'Protoss Shield Battery', + r => ["recharge shields", 'pm'], +}, +Pv => { + desc => 'Protoss Probe advanced build', + r => ["robotics facility", 'mo modePvr'], + s => ["stargate", 'mo modePvs'], + c => ["citadel of adun", 'mv modePvc'], + b => ["support bay", 'mv modePvb'], + f => ["fleet beacon", 'mv modePvf'], + t => ["templar archives", 'mv modePvt'], + o => ["observa$sign{_}tory", 'mv modePvo'], + a => ["arbiter tribunal", 'mv modePva'], +}, +Pvr => { + desc => 'Protoss Robotics facility', + %CONS, + s => ["shuttle", 'co'], + o => ["observer", 'cp'], + v => ["reaver", 'cp modePvrv'], +}, +Pvrv => { + desc => 'Protoss Reaver', + %UNIT, %UNITF, %UNITA, + r => ["scarab", 'co'], +}, +Pvs => { + desc => 'Protoss Stargate', + %CONS, + s => ["scout", 'co'], + c => ["carrier", 'cp modePvsc'], + a => ["arbiter", 'cp modePvsa'], + o => ["corsair", 'co modePvso ext'], +}, +Pvsc => { + desc => 'Protoss Carrier', + %UNIT, %UNITF, %UNITA, + i => ["inter$sign{_}ceptor", 'co'], +}, +Pvsa => { + desc => 'Protoss Arbiter', + %UNIT, %UNITF, %UNITA, + r => ["recall"], + t => ["statis field"], +}, +Pvso => { + desc => 'Protoss Corsair', + %UNIT, %UNITF, %UNITA, + d => ["disrup$sign{_}tion web", 'ci'], +}, +Pvc => { + l => ["leg en$sign{_}hancem$sign{_}ent$sign{_}s", 'mv'], +}, +Pvb => { + s => ["scarab damage", 'mv'], + c => ["reaver capacity", 'mv'], + g => ["gravitic drive", 'mv'], +}, +Pvf => { + a => ["apial sensors", 'mv'], + g => ["gravitic thrust$sign{_}ers", 'mv'], + c => ["carrier capacity", 'mv'], + d => ["disrup$sign{_}tion web", 'mv ext'], + j => ["argus jewel", 'mv'], +}, +Pvt => { + desc => 'Protoss Templar Archives', + t => ["psionic storm", 'mv'], + h => ["halluci$sign{_}nation", 'mv'], + k => ["khayda$sign{_}rin amul$sign{_}et", 'mv'], +# c => ["mind control?", 'mv'], #TODO + e => ["mael$sign{_}strom", 'mv'], + t => ["argus talisman", 'mv'], +}, +Pvo => { + desc => 'Protoss Observatory', + g => ["gravitic booster", 'mv'], + s => ["sensor array", 'mv'], +}, +Pva => { + desc => 'Protoss Arbiter Tribunal', + r => ["recall", 'mv'], + s => ["stasis field", 'mv'], + k => ["khayda$sign{_}rin core", 'mv'], +}, + +Z => { + desc => 'Zerg Larva', + d => ["drone", 'co modeZd'], + z => ["zergling", 'cp'], + o => ["overlord", 'co modeZo'], + h => ["hydra$sign{_}lisk", 'cp modeZh'], + q => ["queen", 'mv modeZq'], +}, +Zd => { + desc => 'Zerg Drone', + %UNIT, %UNITH, %UNITB, + b => ["basic mutat$sign{_}ion", 'me modeZdb'], + v => ["advance$sign{_}d mutat$sign{_}ion", 'me modeZdv'], +}, +Zdb => { + desc => 'Zerg basic Drone mutation', + h => ["hatche$sign{_}ry", 'mo modeZdbh'], + c => ["creep colony", 'mo modeZdbc'], + e => ["extrac$sign{_}tor", 'me'], + s => ["spawning pool", 'mv modeZdbs'], + v => ["evolution chamber", 'mv modeZdbv'], + d => ["hydra$sign{_}lisk den", 'mv modeZdbd'], +}, +Zdbh => { + desc => 'Zerg Hatchery', + %CONS, + b => ["burrow", 'me'], + s => ["select larvae", 'pm modeZ'], + l => ["lair", 'mo modeZdbhl'], +}, +Zdbhl => { + desc => 'Zerg Lair', + %CONS, + b => ["burrow", 'me'], + v => ["ventral sacs", 'mv'], + a => ["antennae", 'mv'], + p => ["pneumatized carapace", 'mv'], + h => ["hive", 'mo modeZdbhlh'], +}, +modeZdbhlh => { + desc => 'Zerg Hive', + %CONS, + b => ["burrow", 'me'], + v => ["ventral sacs", 'mv'], + a => ["antennae", 'mv'], + p => ["pneumatized carapace", 'mv'], +}, +Zdbs => { + desc => 'Zerg Spawning Pool', + m => ["metabol boost", 'mv'], + a => ["adrenal glands", 'mv'], +}, +Zdbv => { + m => ["melee attack$sign{_}s", 'mv'], + a => ["missile attack$sign{_}s", 'mv'], + c => ["carapace", 'mv'], +}, +Zdbd => { + desc => 'Zerg Hydralisk Den', + m => ["muscular augments", 'mv'], + g => ["grooved spines", 'mv'], + l => ["lurker aspect", 'mv'], +}, +Zdv => { + desc => 'Zerg advanced Drone mutation', +}, + diff --git a/starcraft.plp b/starcraft.plp new file mode 100644 index 0000000..8279df3 --- /dev/null +++ b/starcraft.plp @@ -0,0 +1,117 @@ +<: +use utf8; +use strict; +use warnings; +no warnings 'qw'; # you know what you doing +no warnings 'uninitialized'; # save some useless checks for more legible code + +use Shiar_Sheet::KeySigns qw(%sign); + +our $VERSION = 'v1.0'; + +$header{content_type} = "text/html; charset=$sign{charset}"; + +:> + + + +starcraft cheat sheet + + + +<: + my %styles = map {$_ => $_} qw(dark circus mono red terse); + our $style = exists $get{style} && $styles{$get{style}} || 'light'; + printf(qq{\n}, + $_ eq $style ? 'stylesheet' : 'alternate stylesheet', "$_.css", $_ + ) for keys %styles; + + our $showkeys = exists $get{keys} && $get{keys} ne '0'; + print "\n" unless $showkeys; + print "\n" + if $showkeys and $get{keys} eq 'ghost'; +:> + + + + +

StarCraft cheat sheet

+ +

normal mode (default)

+ + + +
+ +
+
+
+
ability +
Unit action available after upgrade. +
action +
Default unit action. +
+
+
unit +
Unit available at all times. +
dep unit +
Unit with dependencies. +
+
+
build +
Unit producing construction. +
upgrade +
Building or research providing unit upgrade. +
other +
Miscellaneous facility. +
+
+ +
+
+
key<:= $sign{arg} :> +
Commands with a dot need a char argument afterwards. +
key<:= $sign{args} :> +
Commands with two dots require variable arguments afterwards. +
+ +
    +
  • keyboard map is + <:= $get{map} ? 'set to ' : '' :><:= $keys->{map} :> +
  • ascii mode is + <:= defined $sign{-ascii} && 'forced ' :><:= + $sign{-ascii} ? 'on' : 'off' :> +
  • keys are + <:= $showkeys ? 'always shown' : 'hidden if unassigned' :><:= + !exists $get{keys} && ' by default' :> +
  • default style is + <:= defined $get{style} && 'set to ' :><:= $style :> +
+
+
+ +

+ sheet.shiar.nl/starcraft + <:= $VERSION :> + created by <:= $sign{sep} :> + AGPLv3 +

+ + -- 2.30.0