+++ /dev/null
-use utf8;
-{
-
-key => {
- 'b' => "step left down\nnumpad 1",
- 'j' => "step down\nnumpad 2",
- 'n' => "step right down\nnumpad 3",
- 'h' => "step left\nnumpad 4",
- 'l' => "step right\nnumpad 6",
- 'y' => "step left up\nnumpad 7",
- 'k' => "step up\nnumpad 8",
- 'u' => "step right up\nnumpad 9",
-
- 'B' => "go left down\nshift numpad 1",
- 'J' => "go down\nshift numpad 2",
- 'N' => "go right down\nshift numpad 3",
- 'H' => "go left\nshift numpad 4",
- 'L' => "go right\nshift numpad 6",
- 'Y' => "go left up\nshift numpad 7",
- 'K' => "go up\nshift numpad 8",
- 'U' => "go right up\nshift numpad 9",
-
- '^b'=> "run left down\nnumpad 5 1",
- '^j'=> "run down\nnumpad 5 2",
- '^n'=> "run right down\nnumpad 5 3",
- '^h'=> "run left\nnumpad 5 4",
- '^l'=> "run right\nnumpad 5 6",
- '^y'=> "run left up\nnumpad 5 7",
- '^k'=> "run up\nnumpad 5 8",
- '^u'=> "run right up\nnumpad 5 9",
-
- 'g' => "run until interest",
- 'm' => "m$sign{_}ove blind\nno pickup",
- 'G' => "g any$sign{_}where\nfollow branches",
-
- '?' => "help menu",
- '+?'=> "more help",
- '/' => "explain symbol",
- '&' => "tell com$sign{_}m$sign{_}and",
- '<' => "climb up ladder",
- '>' => "desc$sign{_}ent ladder",
- '.' => "rest (noop)",
- '_' => "travel to",
-
- '+2'=> "two$sign{_}weapon toggle",
- 'a' => "apply tool",
- 'A' => "remove all armor",
- '^a'=> "redo comm$sign{_}and\nAgain",
- '+a'=> "adjust inv$sign{_}ent$sign{_}ory",
- 'c' => "close door",
- 'C' => "call monster",
- '+c'=> "chat",
- 'd' => "drop item",
- 'D' => "drop items",
- '^d'=> "kick",
- '+d'=> "dip",
- 'e' => "eat food",
- 'E' => "en$sign{_}grave",
- '+e'=> "weapon skills\nEnhance",
- 'f' => "fire quiver",
- 'F' => "fight monster",
- '+f'=> "force lock",
- 'i' => "invent$sign{_}ory",
- 'I' => "invent$sign{_}ory part",
- '+i'=> "invoke object",
- '+j'=> "jump",
- '+l'=> "loot",
- '+m'=> "mons$sign{_}ter abil$sign{_}ity",
- '+n'=> "name item$sign{_}(s)",
- 'o' => "open door",
- 'O' => "options",
- '+o'=> "offer sacrifice",
- 'p' => "pay bill",
- 'P' => "put on",
- '^p'=> "repeat message",
- '+p'=> "pray",
- 'q' => "drink\nQuaff",
- 'Q' => "quiver ammo",
- '+q'=> "exit game\nQuit",
- 'r' => "read scroll",
- 'R' => "put off\nRemove accessory",
- '^r'=> "redraw",
- '+r'=> "rub object",
- 's' => "search secrets",
- 'S' => "save game",
- '+s'=> "sit down",
- 't' => "throw$sign{_}/shoot",
- 'T' => "remove armor",
- '^t'=> "teleport",
- '+t'=> "turn undead",
- '+u'=> "untrap",
- 'v' => "version",
- 'V' => "verbose version",
- '+v'=> "compile details",
- 'w' => "wield weap$sign{_}on",
- 'W' => "wear armor",
- '+w'=> "wipe face",
- 'x' => "swap weapons\nXchange",
- 'X' => "explore mode",
- '^x'=> "show stats",
- 'z' => "zap wand",
- 'Z' => "cast spell",
- '^z'=> "suspend game",
-
- ':' => "look here",
- ';' => "look else$sign{_}where",
- ',' => "pick up",
- '@' => "toggle pick$sign{_}up",
- '^' => "show trap",
- ')' => "show weapon",
- '[' => "show armor",
- '=' => "show rings",
- '"' => "show amulet",
- '(' => "show tools",
- '*' => "show equip$sign{_}ment",
- '$' => "count gold",
- '+' => "list spells",
- '\\'=> "discover$sign{_}ed obj$sign{_}ects",
- '!' => "shell escape",
- '#' => "more comm$sign{_}ands",
-
- 'DB' => 'drop blessed',
- 'DU' => 'drop uncursed',
- 'DC' => 'drop cursed',
- 'DX' => 'drop unknown',
- 'Da' => 'drop all',
- 'Di' => "invent$sign{_}ory",
- 'Du' => 'drop unpaid',
- 'Dm' => 'drop any',
- 'D%' => 'drop more',
-
- 'I*' => 'list gems',
- 'Iu' => 'list unpaid',
- 'Ix' => 'list billed',
- 'I$' => 'count money',
-},
-
-mode => {
- '' => 'normal gameplay',
-},
-
-flag => {
- pm => [direction => "Direction to move to or target a command ($sign{motion})."],
- po => [move => "Other character movement."],
- co => [act => "Direct action command: takes a turn."],
- mi => [info => "Informational command: shows/does something without ending the turn."],
- mo => [invertory => "Display invertory menu."],
- mv => [menu => "Enters some other menu."],
-
- arg => ["key$sign{arg}" => "Commands with a dot need at least one argument afterwards."],
- argi => ["key$sign{argi}" => "Asks for an inventory item."],
- argm => ["key$sign{argm}" => "Requires a direction afterwards."],
-},
-
-}