git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
common: fix utf8 io layer of cgi output
[sheet.git]
/
nethack.plp
diff --git
a/nethack.plp
b/nethack.plp
index eaea76c0af882c8b2de811123df90d61d24daaf5..3115e28d696a12121aad0da7a55218a169c3b31e 100644
(file)
--- a/
nethack.plp
+++ b/
nethack.plp
@@
-2,7
+2,7
@@
Html({
title => 'nethack cheat sheet',
Html({
title => 'nethack cheat sheet',
- version => 'v1.
0
',
+ version => 'v1.
1
',
description => [
"Keyboard overview sheet for the Nethack console RPG game,",
"describing the default controls.",
description => [
"Keyboard overview sheet for the Nethack console RPG game,",
"describing the default controls.",
@@
-30,8
+30,10
@@
Html({
</li>
<:
</li>
<:
-use Shiar_Sheet::Keyboard;
-my $keys = Shiar_Sheet::Keyboard->new({do 'nethack.inc.pl'});
+use Shiar_Sheet::Keyboard 2;
+my $info = do 'nethack.eng.inc.pl' or die $@;
+$info->{def} = do 'nethack.inc.pl';
+my $keys = Shiar_Sheet::Keyboard->new($info);
$keys->map($get{map}) or undef $get{map};
$keys->print_rows($get{rows} || '4321-421', [3,2,1,0]);
:>
$keys->map($get{map}) or undef $get{map};
$keys->print_rows($get{rows} || '4321-421', [3,2,1,0]);
:>