nethack cheat sheet

X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/29b80033c249b03db4391eb284d543a0d68a8e5a..3aab2658e078a4f424343fb10817f8d0eab9343b:/nethack.plp diff --git a/nethack.plp b/nethack.plp index b73a765..fe20c52 100644 --- a/nethack.plp +++ b/nethack.plp @@ -5,29 +5,19 @@ 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; +use Shiar_Sheet::KeySigns qw(%sign); + +our $VERSION = 'v1.0'; + +$header{content_type} = "text/html; charset=$sign{charset}"; :> + nethack cheat sheet - <: @@ -38,37 +28,11 @@ $header{content_type} = $ctype; ) for keys %styles; our $showkeys = exists $get{keys} && $get{keys} ne '0'; - print "\n" unless $showkeys; - print "\n" + print "\n".'' unless $showkeys; + print "\n".'' if $showkeys and $get{keys} eq 'ghost'; :> - - + @@ -80,31 +44,16 @@ function setmode(classname) {

Esc - +
Esc +

<: -our %sign = ( - arg => $ascii ? '.' : 'Â·', # described as 'dot' - argi => $ascii ? ':' : ':', - motion => $ascii ? '|' : 'â', - alias => $ascii ? 'see: ' : 'Â»', - up => $ascii ? 'up' : 'â²', - right => $ascii ? 'right' : 'â¶', - down => $ascii ? 'down' : 'â¼', - left => $ascii ? 'left' : 'â', - sep => $ascii ? '*' : 'â¢', - _ => exists $get{ascii} && !$ascii ? "\x{200b}" : '', - # use the correct ZWNJ only when unicode is forced on - # default to use unofficial html for best support -); - use Shiar_Sheet::Keyboard; my $keys = Shiar_Sheet::Keyboard->new({do 'nethack.inc.pl'}); $keys->map($get{map}) or undef $get{map}; -$keys->print_rows($get{static}); +$keys->print_rows($get{rows} || '4321-421', [3,2,1,0]); :> @@ -113,8 +62,6 @@ $keys->print_rows($get{static});

-
direction: Direction to move to or target a command (<:= $sign{motion} :>).
move @@ -127,8 +74,6 @@ $keys->print_rows($get{static});: Display invertory menu.
menu: Enters some other menu. -
-

@@ -136,18 +81,18 @@ $keys->print_rows($get{static});

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. +
key<:= $sign{argm} :> +: Requires a direction afterwards.

keyboard map is <:= $get{map} ? 'set to ' : '' :><:= $keys->{map} :>
ascii mode is - <:= exists $get{ascii} && 'forced ' :><:= - $ascii ? 'on' : 'off' :> + <:= defined $sign{-ascii} && 'forced ' :><:= + $sign{-ascii} ? 'on' : 'off' :>
keys are <:= $showkeys ? 'always shown' : 'hidden if unassigned' :><:= !exists $get{keys} && ' by default' :> @@ -158,15 +103,11 @@ $keys->print_rows($get{static});