| … | |
… | |
| 27 | "return" => "!activate-chat", |
27 | "return" => "!activate-chat", |
| 28 | "." => "!repeat-command", |
28 | "." => "!repeat-command", |
| 29 | |
29 | |
| 30 | "," => "take", |
30 | "," => "take", |
| 31 | "space" => "apply", |
31 | "space" => "apply", |
|
|
32 | "enter" => "examine", |
| 32 | "[+]" => "rotateshoottype +", |
33 | "[+]" => "rotateshoottype +", |
| 33 | "[-]" => "rotateshoottype -", |
34 | "[-]" => "rotateshoottype -", |
| 34 | "LAlt-s" => "ready_skill find traps", |
35 | "LAlt-s" => "ready_skill find traps", |
| 35 | "LAlt-d" => "ready_skill disarm traps", |
36 | "LAlt-d" => "ready_skill disarm traps", |
| 36 | "LAlt-p" => "ready_skill praying", |
37 | "LAlt-p" => "ready_skill praying", |
| … | |
… | |
| 243 | } |
244 | } |
| 244 | |
245 | |
| 245 | sub find_default($) { |
246 | sub find_default($) { |
| 246 | my ($ev) = @_; |
247 | my ($ev) = @_; |
| 247 | |
248 | |
| 248 | if (my $cmd = $DEFAULT_KEYMAP->{U}{$ev->{unicode}}) { |
|
|
| 249 | return $cmd; |
|
|
| 250 | } |
|
|
| 251 | |
|
|
| 252 | for my $m (reverse grep $_, @{ $DEFAULT_KEYMAP->{K} }) { |
249 | for my $m (reverse grep $_, @{ $DEFAULT_KEYMAP->{K} }) { |
| 253 | for (keys %$m) { |
250 | for (keys %$m) { |
| 254 | if ($_ == ($ev->{mod} & $_)) { |
251 | if ($_ == ($ev->{mod} & $_)) { |
| 255 | if (defined (my $cmd = $m->{$_}{$ev->{sym}})) { |
252 | if (defined (my $cmd = $m->{$_}{$ev->{sym}})) { |
| 256 | return $cmd; |
253 | return $cmd; |
| 257 | } |
254 | } |
| 258 | } |
255 | } |
| 259 | } |
256 | } |
|
|
257 | } |
|
|
258 | |
|
|
259 | if (my $cmd = $DEFAULT_KEYMAP->{U}{$ev->{unicode}}) { |
|
|
260 | return $cmd; |
| 260 | } |
261 | } |
| 261 | |
262 | |
| 262 | () |
263 | () |
| 263 | } |
264 | } |
| 264 | |
265 | |
