X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/47116fb6310c7d865cc701f3f9d7370d72f7c79f..0272c8638bb34d479a27f30f43a6db5e372b79b3:/starcraft.plp?ds=sidebyside
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)
+
+
+
+-
+
+
+
+<:
+use Shiar_Sheet::Keyboard;
+my $keys = Shiar_Sheet::Keyboard->new({do 'starcraft.inc.pl'});
+$keys->map($get{map}) or undef $get{map};
+$keys->print_rows($get{rows} || '1 =P1 Z1', [0]);
+:>
+
+
+
+
+
+
+
+ - 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 :>
+
+
+