… | |
… | |
20 | "f2" => "!toggle-stats", |
20 | "f2" => "!toggle-stats", |
21 | "f3" => "!toggle-skills", |
21 | "f3" => "!toggle-skills", |
22 | "f4" => "!toggle-spells", |
22 | "f4" => "!toggle-spells", |
23 | "f5" => "!toggle-inventory", |
23 | "f5" => "!toggle-inventory", |
24 | "f9" => "!toggle-setup", |
24 | "f9" => "!toggle-setup", |
|
|
25 | |
25 | (map +("LAlt-$_" => "!switch-tab $_"), 0..9), |
26 | (map +("LRAM-$_" => "!switch-tab $_"), 0..9), |
26 | (map +("RAlt-$_" => "!switch-tab $_"), 0..9), |
|
|
27 | "LAlt-x" => "!close-current-tab", |
27 | "LRAM-x" => "!close-current-tab", |
|
|
28 | |
28 | "return" => "!activate-chat", |
29 | "return" => "!activate-chat", |
29 | "." => "!repeat-command", |
30 | "." => "!repeat-command", |
30 | |
31 | |
31 | "," => "take", |
32 | "," => "take", |
32 | "space" => "apply", |
33 | "space" => "apply", |
33 | "enter" => "examine", |
34 | "enter" => "examine", |
34 | "[+]" => "rotateshoottype +", |
35 | "[+]" => "rotateshoottype +", |
35 | "[-]" => "rotateshoottype -", |
36 | "[-]" => "rotateshoottype -", |
|
|
37 | |
36 | "LAlt-e" => "examine", |
38 | "LRAM-e" => "examine", |
37 | "LAlt-s" => "ready_skill find traps", |
39 | "LRAM-s" => "ready_skill find traps", |
38 | "LAlt-d" => "ready_skill disarm traps", |
40 | "LRAM-d" => "ready_skill disarm traps", |
39 | "LAlt-p" => "ready_skill praying", |
41 | "LRAM-p" => "ready_skill praying", |
40 | ); |
42 | ); |
41 | |
43 | |
42 | # allowed modifiers |
44 | # allowed modifiers |
43 | our %MODIFIER = ( |
45 | our %MODIFIER = ( |
44 | "LShift" => DC::KMOD_LSHIFT, |
46 | "LShift" => DC::KMOD_LSHIFT, |
… | |
… | |
107 | |
109 | |
108 | our $DEFAULT_KEYMAP; |
110 | our $DEFAULT_KEYMAP; |
109 | |
111 | |
110 | sub init { |
112 | sub init { |
111 | $DEFAULT_KEYMAP ||= do { |
113 | $DEFAULT_KEYMAP ||= do { |
|
|
114 | local $MODIFIER{LRAM} = DC::KMOD_LRAM; # hack to enable internal LRAM modifer |
|
|
115 | |
112 | my %sym = map +(DC::SDL_GetKeyName $_, $_), DC::SDLK_FIRST .. DC::SDLK_LAST; |
116 | my %sym = map +(DC::SDL_GetKeyName $_, $_), DC::SDLK_FIRST .. DC::SDLK_LAST; |
113 | my $map; |
117 | my $map; |
114 | |
118 | |
115 | while (my ($k, $v) = each %DEFAULT_KEYMAP) { |
119 | while (my ($k, $v) = each %DEFAULT_KEYMAP) { |
116 | if ($k =~ /^\((.)\)$/) { |
120 | if ($k =~ /^\((.)\)$/) { |