X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/02aff73f80ccbf7d050280af1114f0e663c6d4dd..84f6f39be4ffeb6307756b97126ad993bef367a8:/nethack.plp diff --git a/nethack.plp b/nethack.plp index 9b8606b..add0370 100644 --- a/nethack.plp +++ b/nethack.plp @@ -1,91 +1,45 @@ -<: -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}"; - -:> - - - -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; +<(common.inc.plp)><: + +Html({ + title => 'nethack cheat sheet', + version => 'v1.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 + '], + charset => $sign{charset}, + stylesheet => [qw'light dark circus mono red terse'], + keys => 1, +}); - 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

-
- Esc - -
-

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', [qw( pm po co mi mo mv )]) :>

key<:= $sign{arg} :> -: Commands with a dot need at least one argument afterwards. -
key<:= $sign{argi} :> -: Asks for an inventory item. -
key<:= $sign{argm} :> -: Requires a direction afterwards. -

+<: $keys->print_legend('legend-options', [qw( arg argi argm )]) :>

keyboard map is @@ -102,12 +56,3 @@ $keys->print_rows($get{rows} || '4321-421', [3,2,1,0]);

- - -