:
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}";
:>
<:
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 :>