charset: check ucplanes for modification date
[sheet.git] / nethack.inc.pl
index 3162e92febc966749f53cea545dde52c26666bbc..466cf0c3bfd9ad05e063914f3a67f50f55991be2 100644 (file)
 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' => ["m$sign{_}ove 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
-       '&' => ["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
+       '+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' => ["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 modeI'], #Invent
-       '+i'=> ["invoke object", 'co argi'], #invoke
-       '+j'=> ["jump", 'co'], #jump
-       '+l'=> ["loot", 'co'], #loot
-       '+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
-       '+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 weap$sign{_}on", '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 equip$sign{_}ment", 'mo'],
-       '$' => ["count gold", 'mi'], #gold
-       '+' => ["list spells", 'mo'], #spells
-       '\\'=> ["discover$sign{_}ed obj$sign{_}ects", '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' => ["invent$sign{_}ory", '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',
 },
 
+}