<:
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)
Esc normal mode
<:
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]);
:>
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 :>