charset: utf-8 byte function table

[sheet.git] / nethack.inc.pl

diff --git a/nethack.inc.pl b/nethack.inc.pl
index 82fed9c1955e196e8531f4e8c8d7ad314f878674..050e3b2f7b87e33a9b61180a37a4197fc5199994 100644 (file)
--- a/nethack.inc.pl
+++ b/nethack.inc.pl
@@ -21,14 +21,14 @@ use utf8;
        'K' => ["go up",           'po', 'shift numpad 8'],
        'U' => ["go right up",     'po', 'shift numpad 9'],
 
        'K' => ["go up",           'po', 'shift numpad 8'],
        'U' => ["go right up",     'po', 'shift numpad 9'],
 

-       '^b'=> ["run left down",   'po', 'numpad 1'],
-       '^j'=> ["run down",        'po', 'numpad 2'],
-       '^n'=> ["run right down",  'po', 'numpad 3'],
-       '^h'=> ["run left",        'po', 'numpad 4'],
-       '^l'=> ["run right",       'po', 'numpad 6'],
-       '^y'=> ["run left up",     'po', 'numpad 7'],
-       '^k'=> ["run up",          'po', 'numpad 8'],
-       '^u'=> ["run right up",    'po', 'numpad 9'],
+       '^b'=> ["run left down",   'po', 'numpad 5 1'],
+       '^j'=> ["run down",        'po', 'numpad 5 2'],
+       '^n'=> ["run right down",  'po', 'numpad 5 3'],
+       '^h'=> ["run left",        'po', 'numpad 5 4'],
+       '^l'=> ["run right",       'po', 'numpad 5 6'],
+       '^y'=> ["run left up",     'po', 'numpad 5 7'],
+       '^k'=> ["run up",          'po', 'numpad 5 8'],
+       '^u'=> ["run right up",    'po', 'numpad 5 9'],

 
        'g' => ["run until interest", 'po argm'],
        'm' => ["move blind", 'po argm', 'no pickup'],
 
        'g' => ["run until interest", 'po argm'],
        'm' => ["move blind", 'po argm', 'no pickup'],


@@ -38,8 +38,8 @@ use utf8;
        '+?'=> ["more help", 'mv'],
        '/' => ["explain symbol", 'mi arg mode/'], #whatis
        '&' => ["explain comm$sign{_}and", 'mi arg'],
        '+?'=> ["more help", 'mv'],
        '/' => ["explain symbol", 'mi arg mode/'], #whatis
        '&' => ["explain comm$sign{_}and", 'mi arg'],

-       '<' => ["climb up a ladder",   'pm'], #up
-       '>' => ["climb down a ladder", 'pm'], #down
+       '<' => ["climb up ladder", 'pm'], #up
+       '>' => ["desc$sign{_}ent ladder", 'pm'], #down

        '.' => ["rest (noop)", 'pm'], #rest
        '_' => ["travel to", 'po argM'], #travel
 
        '.' => ["rest (noop)", 'pm'], #rest
        '_' => ["travel to", 'po argM'], #travel
 


@@ -52,7 +52,7 @@ use utf8;
        'C' => ["call monster", 'co arg'], #call
        '+c'=> ["chat", 'co arg'], #chat
        'd' => ["drop item", 'co argi'], #drop
        'C' => ["call monster", 'co arg'], #call
        '+c'=> ["chat", 'co arg'], #chat
        'd' => ["drop item", 'co argi'], #drop

-       'D' => ["Drop items", 'co arg'], #Drop
+       'D' => ["drop items", 'co arg modeD'], #Drop

        '^d'=> ["kick", 'co argm'], #kick
        '+d'=> ["dip", 'co argi'], #dip
        'e' => ["eat food", 'co argi'], #eat
        '^d'=> ["kick", 'co argm'], #kick
        '+d'=> ["dip", 'co argi'], #dip
        'e' => ["eat food", 'co argi'], #eat


@@ -62,7 +62,7 @@ use utf8;
        'F' => ["fight monster", 'co argm'], #fight
        '+f'=> ["force lock", 'co'], #force
        'i' => ["invent$sign{_}ory", 'mo'], #invent
        'F' => ["fight monster", 'co argm'], #fight
        '+f'=> ["force lock", 'co'], #force
        'i' => ["invent$sign{_}ory", 'mo'], #invent

-       'I' => ["invent$sign{_}ory part", 'mo arg'], #Invent
+       'I' => ["invent$sign{_}ory part", 'mo arg modeI'], #Invent

        '+i'=> ["invoke object", 'co argi'], #invoke
        '+j'=> ["jump", 'co'], #jump
        '+l'=> ["loot", 'co'], #loot
        '+i'=> ["invoke object", 'co argi'], #invoke
        '+j'=> ["jump", 'co'], #jump
        '+l'=> ["loot", 'co'], #loot


@@ -116,8 +116,27 @@ use utf8;
        '*' => ["show equipment", 'mo'],
        '$' => ["count gold", 'mi'], #gold
        '+' => ["list spells", 'mo'], #spells
        '*' => ["show equipment", 'mo'],
        '$' => ["count gold", 'mi'], #gold
        '+' => ["list spells", 'mo'], #spells

-       '\\'=> ["discovered objects", 'mo'], #known
+       '\\'=> ["discover$sign{_}ed obj$sign{_}ects", 'mo'], #known

        '!' => ["shell escape", 'mi'], #sh
        '#' => ["more comm$sign{_}ands", 'mv'],
 },
 
        '!' => ["shell escape", 'mi'], #sh
        '#' => ["more comm$sign{_}ands", 'mv'],
 },
 

+'D' => {
+       'B' => ['drop blessed', 'co'],
+       'U' => ['drop uncursed', 'co'],
+       'C' => ['drop cursed', 'co'],
+       'X' => ['drop unknown', 'co'],
+       'a' => ['drop all', 'co'],
+       'i' => ["invent$sign{_}ory", 'mi'],
+       'u' => ['drop unpaid', 'co'],
+       'm' => ['drop any', 'co argi'],
+       '%' => ['drop more', 'co arg'],
+},
+
+'I' => {
+       '*' => ['list gems', 'mi'],
+       'u' => ['list unpaid', 'mi'],
+       'x' => ['list billed', 'mi'],
+       '$' => ['count money', 'mi'],
+},
+