X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/29b80033c249b03db4391eb284d543a0d68a8e5a..77ac3d52d89913a79cca834d882c54a58c15a488:/nethack.plp diff --git a/nethack.plp b/nethack.plp index b73a765..9c4c62d 100644 --- a/nethack.plp +++ b/nethack.plp @@ -1,153 +1,47 @@ -<: -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 - -our $VERSION = '1.0'; - -our $ascii = 0; -if (exists $get{ascii}) { - $ascii = $get{ascii} ne '0'; # manual override -} elsif (defined $ENV{HTTP_ACCEPT_CHARSET}) { - $ascii = 1; - for (split q{,}, $ENV{HTTP_ACCEPT_CHARSET}) { - $ascii = 0, last if $_ eq '*' or m{utf-?8}i; - } -} - -my $charset = $ascii ? 'us-ascii' : 'utf-8'; -my $ctype = "text/html; charset=$charset"; -$header{content_type} = $ctype; +<(common.inc.plp)><: + +Html({ + title => 'nethack cheat sheet', + version => '1.1', + description => [ + "Keyboard overview sheet for the Nethack console RPG game,", + "describing the default controls.", + ], + keywords => [qw' + nethack rogue game control controls sheet reference overview keyboard + '], + stylesheet => [qw( light dark circus mono red )], + keys => 1, +}); -:> - - - -nethack 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'; :> - - - - -

NetHack cheat sheet

normal gameplay

-
-
-
-
-
direction -
Direction to move to or target a command (<:= $sign{motion} :>). -
move -
Other character movement. -
act -
Direct action command: takes a turn. -
info -
Informational command: shows/does something without ending the turn. -
invertory -
Display invertory menu. -
menu -
Enters some other menu. -
-
-
+<: $keys->print_legend('legend-types', ['g2' .. 'g4', 'g6' .. 'g8']) :>
-
-
key<:= $sign{arg} :> -
Commands with a dot need at least one argument afterwards. -
key<:= $sign{motion} :> -
Requires a direction afterwards. -
key<:= $sign{argi} :> -
Asks for an inventory item. -
+<: $keys->print_legend('legend-options', [qw( arg argi argm )]) :>
-

- sheet.shiar.nl/nethack - <:= "v$VERSION" :> - created by Shiar <:= $sign{sep} :> - AGPLv3 <:= $sign{sep} :> - last update <: - use Time::Format qw(time_format); - print time_format('yyyy-mm-dd', (stat 'nethack.inc.pl')[9]); - :> -

- -