starcraft: remove keyboard page

Outdated attempt to map game controls, but not really useful anyway.

diff --git a/starcraft.eng.inc.pl b/starcraft.eng.inc.pl
deleted file mode 100644 (file)
index 0dd96e3..0000000
--- a/starcraft.eng.inc.pl
+++ /dev/null
@@ -1,203 +0,0 @@
-use utf8;
-
-my %CONS = (
-       r => "rally point",
-);
-my %UNIT = (
-       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",
-
-       (map { 'Pbn'.$_ => $CONS{$_} } 'r'),
-       Pbnp => "probe",
-
-       (map { 'Pbg'.$_ => $CONS{$_} } 'r'),
-       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",
-
-       (map { 'Pbgk'.$_ => $UNIT{$_} } qw'm s p h a'),
-       Pbgkr => "dark archon meld",
-
-       (map { 'Pbgkr'.$_ => $UNIT{$_} } qw'm s p h'),
-       Pbgkrf => "feed$sign{_}back",
-       Pbgkrc => "mind control",
-       Pbgkre => "mael$sign{_}strom",
-
-       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",
-
-       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",
-
-       (map { 'Pvr'.$_ => $CONS{$_} } 'r'),
-       Pvrs => "shuttle",
-       Pvro => "observer",
-       Pvrv => "reaver",
-
-       (map { 'Pvrv'.$_ => $UNIT{$_} } qw'm s p h a'),
-       Pvrvr => "scarab",
-
-       (map { 'Pvs'.$_ => $CONS{$_} } 'r'),
-       Pvss => "scout",
-       Pvsc => "carrier",
-       Pvsa => "arbiter",
-       Pvso => "corsair",
-
-       (map { 'Pvsc'.$_ => $UNIT{$_} } qw'm s p h a'),
-       Pvsci => "inter$sign{_}ceptor",
-
-       (map { 'Pvsa'.$_ => $UNIT{$_} } qw'm s p h a'),
-       Pvsar => "recall",
-       Pvsat => "statis field",
-
-       (map { 'Pvso'.$_ => $UNIT{$_} } qw'm s p h a'),
-       Pvsod => "disrup$sign{_}tion web",
-
-       Pvcl => "leg en$sign{_}hancem$sign{_}ent$sign{_}s",
-
-       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",
-
-       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",
-
-       Pvar => "recall",
-       Pvas => "stasis field",
-       Pvak => "khayda$sign{_}rin core",
-
-       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",
-
-       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",
-
-       (map { 'Zdbhl'.$_ => $CONS{$_} } 'r'),
-       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",
-},
-
-mode => {
-       P => 'Protoss Probe',
-       Pb => 'Protoss Probe build',
-       Pbn => 'Protoss Nexus',
-       Pbg => 'Protoss Gateway',
-       Pbgt => 'Protoss High Templar',
-       Pbgk => 'Protoss Dark Templar',
-       Pbgkr => 'Protoss Dark Archon',
-       Pbf => 'Protoss Forge',
-       Pby => 'Protoss Cybernetics Core',
-       Pbb => 'Protoss Shield Battery',
-       Pv => 'Protoss Probe advanced build',
-       Pvr => 'Protoss Robotics facility',
-       Pvrv => 'Protoss Reaver',
-       Pvs => 'Protoss Stargate',
-       Pvsc => 'Protoss Carrier',
-       Pvsa => 'Protoss Arbiter',
-       Pvso => 'Protoss Corsair',
-       Pvt => 'Protoss Templar Archives',
-       Pvo => 'Protoss Observatory',
-       Pva => 'Protoss Arbiter Tribunal',
-
-       Z => 'Zerg Larva',
-       Zd => 'Zerg Drone',
-       Zdb => 'Zerg basic Drone mutation',
-       Zdbh => 'Zerg Hatchery',
-       Zdbhl => 'Zerg Lair',
-       Zdbhlh => 'Zerg Hive',
-       Zdbs => 'Zerg Spawning Pool',
-       Zdbd => 'Zerg Hydralisk Den',
-       Zdv => 'Zerg advanced Drone mutation',
-},
-
-}

diff --git a/starcraft.inc.pl b/starcraft.inc.pl
deleted file mode 100644 (file)
index b18542b..0000000
--- a/starcraft.inc.pl
+++ /dev/null
@@ -1,217 +0,0 @@
-use utf8;
-
-my %CONS = ( # producing building
-       r => ['pm'],
-);
-my %UNIT = ( # any unit
-       m => ['pm'],
-       s => ['pm'],
-);
-my %UNITF = ( # fighter
-       p => ['pm'],
-       h => ['pm'],
-);
-my %UNITA = (
-       a => ['pm'],
-);
-my %UNITB = (
-       b => ['ci'],
-);
-my %UNITH = (
-       %UNITA,
-       g => ['pm'],
-       c => ['pm'],
-);
-
-{
-
-'' => {
-},
-
-P => {
-       %UNIT, %UNITH,
-       b => ['me modePb'],
-       v => ['me modePv'],
-},
-Pb => {
-       n => ['mo modePbn'],
-       p => ['me'],
-       a => ['me'],
-       g => ['mo modePbg'],
-       f => ['mv modePbf'],
-       c => ['me'],
-       y => ['mv modePby'],
-       b => ['me modePbb'],
-},
-Pbn => {
-       %CONS,
-       p => ['co modeP'],
-},
-Pbg => {
-       %CONS,
-       z => ['co'],
-       d => ['cp'],
-       t => ['cp modePbgt'],
-       k => ['cp modePbgk'],
-},
-Pbgt => {
-       %UNIT, %UNITF,
-       t => ['ci'],
-       l => ['ci'],
-       r => ['cp'],
-},
-Pbgk => {
-       %UNIT, %UNITF, %UNITA,
-       r => ['cp modePbgkr'],
-},
-Pbgkr => {
-       %UNIT, %UNITF,
-       f => ['pm'],
-       c => ['ci'],
-       e => ['ci'],
-},
-Pbf => {
-       w => ['mv'],
-       a => ['mv'],
-       s => ['mv'],
-},
-Pby => {
-       w => ['mv'],
-       a => ['mv'],
-       s => ['mv'],
-},
-Pbb => {
-       r => ['pm'],
-},
-Pv => {
-       r => ['mo modePvr'],
-       s => ['mo modePvs'],
-       c => ['mv modePvc'],
-       b => ['mv modePvb'],
-       f => ['mv modePvf'],
-       t => ['mv modePvt'],
-       o => ['mv modePvo'],
-       a => ['mv modePva'],
-},
-Pvr => {
-       %CONS,
-       s => ['co'],
-       o => ['cp'],
-       v => ['cp modePvrv'],
-},
-Pvrv => {
-       %UNIT, %UNITF, %UNITA,
-       r => ['co'],
-},
-Pvs => {
-       %CONS,
-       s => ['co'],
-       c => ['cp modePvsc'],
-       a => ['cp modePvsa'],
-       o => ['co modePvso ext'],
-},
-Pvsc => {
-       %UNIT, %UNITF, %UNITA,
-       i => ['co'],
-},
-Pvsa => {
-       %UNIT, %UNITF, %UNITA,
-       r => [undef],
-       t => [undef],
-},
-Pvso => {
-       %UNIT, %UNITF, %UNITA,
-       d => ['ci'],
-},
-Pvc => {
-       l => ['mv'],
-},
-Pvb => {
-       s => ['mv'],
-       c => ['mv'],
-       g => ['mv'],
-},
-Pvf => {
-       a => ['mv'],
-       g => ['mv'],
-       c => ['mv'],
-       d => ['mv ext'],
-       j => ['mv'],
-},
-Pvt => {
-       t => ['mv'],
-       h => ['mv'],
-       k => ['mv'],
-#      c => ['mv'], #TODO
-       e => ['mv'],
-       t => ['mv'],
-},
-Pvo => {
-       g => ['mv'],
-       s => ['mv'],
-},
-Pva => {
-       r => ['mv'],
-       s => ['mv'],
-       k => ['mv'],
-},
-
-Z => {
-       d => ['co modeZd'],
-       z => ['cp'],
-       o => ['co modeZo'],
-       h => ['cp modeZh'],
-       q => ['mv modeZq'],
-},
-Zd => {
-       %UNIT, %UNITH, %UNITB,
-       b => ['me modeZdb'],
-       v => ['me modeZdv'],
-},
-Zdb => {
-       h => ['mo modeZdbh'],
-       c => ['mo modeZdbc'],
-       e => ['me'],
-       s => ['mv modeZdbs'],
-       v => ['mv modeZdbv'],
-       d => ['mv modeZdbd'],
-},
-Zdbh => {
-       %CONS,
-       b => ['me'],
-       s => ['pm modeZ'],
-       l => ['mo modeZdbhl'],
-},
-Zdbhl => {
-       %CONS,
-       b => ['me'],
-       v => ['mv'],
-       a => ['mv'],
-       p => ['mv'],
-       h => ['mo modeZdbhlh'],
-},
-modeZdbhlh => {
-       %CONS,
-       b => ['me'],
-       v => ['mv'],
-       a => ['mv'],
-       p => ['mv'],
-},
-Zdbs => {
-       m => ['mv'],
-       a => ['mv'],
-},
-Zdbv => {
-       m => ['mv'],
-       a => ['mv'],
-       c => ['mv'],
-},
-Zdbd => {
-       m => ['mv'],
-       g => ['mv'],
-       l => ['mv'],
-},
-Zdv => {
-},
-
-}

diff --git a/starcraft.plp b/starcraft.plp
deleted file mode 100644 (file)
index dba4a7d..0000000
--- a/starcraft.plp
+++ /dev/null
@@ -1,79 +0,0 @@
-<(common.inc.plp)><:
-
-Html({
-       title => 'starcraft cheat sheet',
-       version => 'v1.0',
-       stylesheet => [qw'light dark circus mono red terse'],
-       keys => 1,
-});
-
-:>
-<h1>StarCraft cheat sheet</h1>
-
-<h2>normal mode (default)</h2>
-
-<ul id="rows">
-
-<li class="row">
-       <ul class="keys omni">
-       <li class="mv chr27" onclick="setmode()"><b>Esc</b> normal mode
-               <!-- not as static anymore, but never bothered; just see ^[ -->
-       </ul>
-</li>
-
-<:
-use Shiar_Sheet::Keyboard 2;
-my $info = do 'starcraft.eng.inc.pl' or die $@;
-$info->{def} = do 'starcraft.inc.pl';
-my $keys = Shiar_Sheet::Keyboard->new($info);
-$keys->map($get{map}) or undef $get{map};
-$keys->print_rows($get{rows} || '1 =P1 Z1', [0]);
-:>
-</ul>
-
-<hr>
-
-<div class="help">
-       <div class="left">
-               <dl class="legend legend-types">
-               <dt class="ci">ability
-                       <dd>Unit action available after upgrade.
-               <dt class="pm">action
-                       <dd>Default unit action.
-               <dt class="po">
-                       <dd>
-               <dt class="co">unit
-                       <dd>Unit available at all times.
-               <dt class="cp">dep unit
-                       <dd>Unit with dependencies.
-               <dt class="mi">
-                       <dd>
-               <dt class="mo">build
-                       <dd>Unit producing construction.
-               <dt class="mv">upgrade
-                       <dd>Building or research providing unit upgrade.
-               <dt class="me">other
-                       <dd>Miscellaneous facility.
-               </dl>
-       </div>
-
-       <div class="right">
-               <dl class="legend legend-options">
-               <dt>key<:= $sign{arg} :>
-                       <dd>Commands with a dot need a char argument afterwards.
-               <dt>key<:= $sign{args} :>
-                       <dd>Commands with two dots require variable arguments afterwards.
-               </dl>
-
-               <ul class="legend legend-set">
-               <li>keyboard <strong>map</strong> is
-                       <:= $get{map} ? 'set to ' : '' :><em><:= $keys->{map} :></em>
-               <li><strong>keys</strong> are
-                       <em><:= $showkeys ? 'always shown' : 'hidden if unassigned' :></em><:=
-                               !exists $get{keys} && ' by default' :>
-               <li>default <strong>style</strong> is
-                       <:= defined $get{style} && 'set to ' :><em><:= $style :></em>
-               </ul>
-       </div>
-</div>
-