X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/aba1357633e2f377e38961d379cf072aa7462afd..2a99bcdadec88d7483903e2c8420ad3e78fcb805:/nethack.inc.pl

diff --git a/nethack.inc.pl b/nethack.inc.pl
index 5c58008..466cf0c 100644
--- a/nethack.inc.pl
+++ b/nethack.inc.pl
@@ -1,142 +1,142 @@
 use utf8;
+{
 
 '' => {
-	desc => 'normal gameplay',
+	'b' => 'g2',
+	'j' => 'g2',
+	'n' => 'g2',
+	'h' => 'g2',
+	'l' => 'g2',
+	'y' => 'g2',
+	'k' => 'g2',
+	'u' => 'g2',
 
-	'b' => ["step left down",  'pm', 'numpad 1'],
-	'j' => ["step down",       'pm', 'numpad 2'],
-	'n' => ["step right down", 'pm', 'numpad 3'],
-	'h' => ["step left",       'pm', 'numpad 4'],
-	'l' => ["step right",      'pm', 'numpad 6'],
-	'y' => ["step left up",    'pm', 'numpad 7'],
-	'k' => ["step up",         'pm', 'numpad 8'],
-	'u' => ["step right up",   'pm', 'numpad 9'],
+	'B' => 'g3',
+	'J' => 'g3',
+	'N' => 'g3',
+	'H' => 'g3',
+	'L' => 'g3',
+	'Y' => 'g3',
+	'K' => 'g3',
+	'U' => 'g3',
 
-	'B' => ["go left down",    'po', 'shift numpad 1'],
-	'J' => ["go down",         'po', 'shift numpad 2'],
-	'N' => ["go right down",   'po', 'shift numpad 3'],
-	'H' => ["go left",         'po', 'shift numpad 4'],
-	'L' => ["go right",        'po', 'shift numpad 6'],
-	'Y' => ["go left up",      'po', 'shift numpad 7'],
-	'K' => ["go up",           'po', 'shift numpad 8'],
-	'U' => ["go right up",     'po', 'shift numpad 9'],
+	'^b'=> 'g3',
+	'^j'=> 'g3',
+	'^n'=> 'g3',
+	'^h'=> 'g3',
+	'^l'=> 'g3',
+	'^y'=> 'g3',
+	'^k'=> 'g3',
+	'^u'=> 'g3',
 
-	'^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' => 'g3 argm',
+	'm' => 'g3 argm',
+	'G' => 'g3 argm',
 
-	'g' => ["run until interest", 'po argm'],
-	'm' => ["move blind", 'po argm', 'no pickup'],
-	'G' => ["g any$sign{_}where", 'po argm', "follow branches"],
+	'?' => 'g8 mode?', #help
+	'+?'=> 'g8',
+	'/' => 'g6 arg mode/', #whatis
+	'&' => 'g6 arg',
+	'<' => 'g2', #up
+	'>' => 'g2', #down
+	'.' => 'g2', #rest
+	'_' => 'g3 argM', #travel
 
-	'?' => ["help menu", 'mv mode?'], #help
-	'+?'=> ["more help", 'mv'],
-	'/' => ["explain symbol", 'mi arg mode/'], #whatis
-	'&' => ["explain comm$sign{_}and", 'mi arg'],
-	'<' => ["climb up ladder", 'pm'], #up
-	'>' => ["desc$sign{_}ent ladder", 'pm'], #down
-	'.' => ["rest (noop)", 'pm'], #rest
-	'_' => ["travel to", 'po argM'], #travel
+	'+2'=> 'g4', #twoweapon
+	'a' => 'g4 argi', #apply
+	'A' => 'g4', #armor
+	'^a'=> 'g4', #again
+	'+a'=> 'g6', #adjust
+	'c' => 'g4 argm', #close
+	'C' => 'g4 arg', #call
+	'+c'=> 'g4 arg', #chat
+	'd' => 'g4 argi', #drop
+	'D' => 'g4 arg modeD', #Drop
+	'^d'=> 'g4 argm', #kick
+	'+d'=> 'g4 argi', #dip
+	'e' => 'g4 argi', #eat
+	'E' => 'g4 argi', #engrave
+	'+e'=> 'g4', #enhance
+	'f' => 'g4 argm', #fire
+	'F' => 'g4 argm', #fight
+	'+f'=> 'g4', #force
+	'i' => 'g7', #invent
+	'I' => 'g7 arg modeI', #Invent
+	'+i'=> 'g4 argi', #invoke
+	'+j'=> 'g4', #jump
+	'+l'=> 'g4', #loot
+	'+m'=> 'g4', #monster
+	'+n'=> 'g7 arg', #name
+	'o' => 'g4 argm', #open
+	'O' => 'g8 modeO', #options
+	'+o'=> 'g4 argi', #offer
+	'p' => 'g4', #pay
+	'P' => 'g4 argi', #puton
+	'^p'=> 'g6', #prevmsg
+	'+p'=> 'g4 arg', #pray
+	'q' => 'g4 argi', #quaff
+	'Q' => 'g4 argi', #quiver
+	'+q'=> 'g6', #quit
+	'r' => 'g4 argi', #read
+	'R' => 'g4 argi', #remove
+	'^r'=> 'g6', #redraw
+	'+r'=> 'g4 argi', #rub
+	's' => 'g4', #search
+	'S' => 'g6', #save
+	'+s'=> 'g4', #sit
+	't' => 'g4 argm', #throw
+	'T' => 'g4 argi', #takeoff
+	'^t'=> 'g4', #'port
+	'+t'=> 'g4', #turn
+	'+u'=> 'g4', #untrap
+	'v' => 'g6',
+	'V' => 'g6', #history
+	'+v'=> 'g6', #version
+	'w' => 'g4 argi', #wield
+	'W' => 'g4 argi', #wear
+	'+w'=> 'g4', #wipe
+	'x' => 'g4', #xchange
+	'X' => 'g6', #explore
+	'^x'=> 'g6', #show
+	'z' => 'g4 argm', #zap
+	'Z' => 'g4 argi', #Zap
+	'^z'=> 'g6', #suspend
 
-	'+2'=> ["two$sign{_}weapon toggle", 'co'], #twoweapon
-	'a' => ["apply tool", 'co argi'], #apply
-	'A' => ["remove all armor", 'co'], #armor
-	'^a'=> ["redo comm$sign{_}and", 'co', 'Again'], #again
-	'+a'=> ["adjust inv$sign{_}ent$sign{_}ory", 'mi'], #adjust
-	'c' => ["close door", 'co argm'], #close
-	'C' => ["call monster", 'co arg'], #call
-	'+c'=> ["chat", 'co arg'], #chat
-	'd' => ["drop item", 'co argi'], #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'=> ["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 modeI'], #Invent
-	'+i'=> ["invoke object", 'co argi'], #invoke
-	'+j'=> ["jump", 'co'], #jump
-	'+l'=> ["loot", 'co'], #loot
-	'+m'=> ["monster ability", 'co'], #monster
-	'+n'=> ["name item$sign{_}(s)", 'mo arg'], #name
-	'o' => ["open door", 'co argm'], #open
-	'O' => ["options", 'mv modeO'], #options
-	'+o'=> ["offer sacrifice", 'co argi'], #offer
-	'p' => ["pay bill", 'co'], #pay
-	'P' => ["put on", 'co argi'], #puton
-	'^p'=> ["repeat message", 'mi'], #prevmsg
-	'+p'=> ["pray", 'co arg'], #pray
-	'q' => ["drink", 'co argi', 'Quaff'], #quaff
-	'Q' => ["quiver ammo", 'co argi'], #quiver
-	'+q'=> ["exit game", 'mi', 'Quit'], #quit
-	'r' => ["read scroll", 'co argi'], #read
-	'R' => ["put off", 'co argi', 'Remove accessory'], #remove
-	'^r'=> ["redraw", 'mi'], #redraw
-	'+r'=> ["rub object", 'co argi'], #rub
-	's' => ["search secrets", 'co'], #search
-	'S' => ["save game", 'mi'], #save
-	'+s'=> ["sit down", 'co'], #sit
-	't' => ["throw$sign{_}/shoot", 'co argm'], #throw
-	'T' => ["remove armor", 'co argi'], #takeoff
-	'^t'=> ["teleport", 'co'], #'port
-	'+t'=> ["turn undead", 'co'], #turn
-	'+u'=> ["untrap", 'co'], #untrap
-	'v' => ["version", 'mi'],
-	'V' => ["verbose version", 'mi'], #history
-	'+v'=> ["compile details", 'mi'], #version
-	'w' => ["wield weapon", 'co argi'], #wield
-	'W' => ["wear armor", 'co argi'], #wear
-	'+w'=> ["wipe face", 'co'], #wipe
-	'x' => ["swap weapons", 'co', 'Xchange'], #xchange
-	'X' => ["explore mode", 'mi'], #explore
-	'^x'=> ["show stats", 'mi'], #show
-	'z' => ["zap wand", 'co argm'], #zap
-	'Z' => ["cast spell", 'co argi'], #Zap
-	'^z'=> ["suspend game", 'mi'], #suspend
-
-	':' => ["look here", 'mi'], #look
-	';' => ["look else$sign{_}where", 'mi argM'], #farlook
-	',' => ["pick up", 'co'], #pickup
-	'@' => ["toggle pick$sign{_}up", 'mi'],
-	'^' => ["show trap", 'mi argm'], #trap_id
-	')' => ["show weapon", 'mo'],
-	'[' => ["show armor", 'mo'],
-	'=' => ["show rings", 'mo'],
-	'"' => ["show amulet", 'mo'],
-	'(' => ["show tools", 'mo'],
-	'*' => ["show equipment", 'mo'],
-	'$' => ["count gold", 'mi'], #gold
-	'+' => ["list spells", 'mo'], #spells
-	'\\'=> ["discovered objects", 'mo'], #known
-	'!' => ["shell escape", 'mi'], #sh
-	'#' => ["more comm$sign{_}ands", 'mv'],
+	':' => 'g6', #look
+	';' => 'g6 argM', #farlook
+	',' => 'g4', #pickup
+	'@' => 'g6',
+	'^' => 'g6 argm', #trap_id
+	')' => 'g7',
+	'[' => 'g7',
+	'=' => 'g7',
+	'"' => 'g7',
+	'(' => 'g7',
+	'*' => 'g7',
+	'$' => 'g6', #gold
+	'+' => 'g7', #spells
+	'\\'=> 'g7', #known
+	'!' => 'g6', #sh
+	'#' => 'g8',
 },
 
 'D' => {
-	'B' => ['drop blessed', 'co'],
-	'U' => ['drop uncursed', 'co'],
-	'C' => ['drop cursed', 'co'],
-	'X' => ['drop unknown', 'co'],
-	'a' => ['drop all', 'co'],
-	'i' => ['inventory', 'mi'],
-	'u' => ['drop unpaid', 'co'],
-	'm' => ['drop any', 'co argi'],
-	'%' => ['drop more', 'co arg'],
+	'B' => 'g4',
+	'U' => 'g4',
+	'C' => 'g4',
+	'X' => 'g4',
+	'a' => 'g4',
+	'i' => 'g6',
+	'u' => 'g4',
+	'm' => 'g4 argi',
+	'%' => 'g4 arg',
 },
 
 'I' => {
-	'*' => ['list gems', 'mi'],
-	'u' => ['list unpaid', 'mi'],
-	'x' => ['list billed', 'mi'],
-	'$' => ['count money', 'mi'],
+	'*' => 'g6',
+	'u' => 'g6',
+	'x' => 'g6',
+	'$' => 'g6',
 },
 
+}