X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/232290cdd9e78a7a49416c2f6840bd3e5dd10d5d..0ce340cab76ae8f6d0450f513843c80901dd5eb3:/nethack.inc.pl

diff --git a/nethack.inc.pl b/nethack.inc.pl
index 82fed9c..3162e92 100644
--- a/nethack.inc.pl
+++ b/nethack.inc.pl
@@ -21,25 +21,25 @@ use utf8;
 	'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'],
+	'm' => ["m$sign{_}ove blind", 'po argm', 'no pickup'],
 	'G' => ["g any$sign{_}where", 'po argm', "follow branches"],
 
 	'?' => ["help menu", 'mv mode?'], #help
 	'+?'=> ["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
+	'&' => ["tell com$sign{_}m$sign{_}and", 'mi arg'],
+	'<' => ["climb up ladder", 'pm'], #up
+	'>' => ["desc$sign{_}ent ladder", 'pm'], #down
 	'.' => ["rest (noop)", 'pm'], #rest
 	'_' => ["travel to", 'po argM'], #travel
 
@@ -52,21 +52,21 @@ use utf8;
 	'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
-	'E' => ["engrave", 'co argi'], #engrave
+	'E' => ["en$sign{_}grave", 'co argi'], #engrave
 	'+e'=> ["weapon skills", 'co', 'Enhance'], #enhance
 	'f' => ["fire quiver", 'co argm'], #fire
 	'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
-	'+m'=> ["monster ability", 'co'], #monster
+	'+m'=> ["mons$sign{_}ter abil$sign{_}ity", 'co'], #monster
 	'+n'=> ["name item$sign{_}(s)", 'mo arg'], #name
 	'o' => ["open door", 'co argm'], #open
 	'O' => ["options", 'mv modeO'], #options
@@ -93,7 +93,7 @@ use utf8;
 	'v' => ["version", 'mi'],
 	'V' => ["verbose version", 'mi'], #history
 	'+v'=> ["compile details", 'mi'], #version
-	'w' => ["wield weapon", 'co argi'], #wield
+	'w' => ["wield weap$sign{_}on", 'co argi'], #wield
 	'W' => ["wear armor", 'co argi'], #wear
 	'+w'=> ["wipe face", 'co'], #wipe
 	'x' => ["swap weapons", 'co', 'Xchange'], #xchange
@@ -113,11 +113,30 @@ use utf8;
 	'=' => ["show rings", 'mo'],
 	'"' => ["show amulet", 'mo'],
 	'(' => ["show tools", 'mo'],
-	'*' => ["show equipment", 'mo'],
+	'*' => ["show equip$sign{_}ment", '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'],
 },
 
+'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'],
+},
+