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 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'],
+ '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 a ladder", 'pm'], #up
- '>' => ["climb down a 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'], #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'], #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
+ ':' => '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' => 'g4',
+ 'U' => 'g4',
+ 'C' => 'g4',
+ 'X' => 'g4',
+ 'a' => 'g4',
+ 'i' => 'g6',
+ 'u' => 'g4',
+ 'm' => 'g4 argi',
+ '%' => 'g4 arg',
+},
- ':' => ["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'],
+'I' => {
+ '*' => 'g6',
+ 'u' => 'g6',
+ 'x' => 'g6',
+ '$' => 'g6',
},
+}