[ViewVC] Diff of: cvs/deliantra/Deliantra-Client/DC/Macro.pm

Comparing deliantra/Deliantra-Client/DC/Macro.pm (file contents):
Revision 1.9 by root, Tue Aug 28 01:23:47 2007 UTC vs.
Revision 1.12 by root, Sun Sep 2 09:48:41 2007 UTC

 use CFPlus::UI;
 our $REFRESH_MACRO_LIST;
 our %DEFAULT_KEYMAP = (
-   (map +($_ => "!completer $_"), "a" .. "z"),
+   (map +("($_)" => "!completer $_"), "a" .. "z"),
    "(!)"       => "!completer shout ",
    "(\")"      => "!completer say ",
    "(')"       => "!completer",
    "LShift-tab" => "!toggle-messagewindow",
    "return"     => "!activate-chat",
    "."          => "!repeat-command",
    ","          => "take",
    "space"      => "apply",
+   "enter"	=> "examine",
    "[+]"        => "rotateshoottype +",
    "[-]"        => "rotateshoottype -",
+   "LAlt-s"	=> "ready_skill find traps",
+   "LAlt-d"	=> "ready_skill disarm traps",
+   "LAlt-p"	=> "ready_skill praying",
 );
 # allowed modifiers
 our %MODIFIER = (
    "LShift" => CFPlus::KMOD_LSHIFT,
 }
 sub find_default($) {
    my ($ev) = @_;
-   if (my $cmd = $DEFAULT_KEYMAP->{U}{$ev->{unicode}}) {
-      return $cmd;
-   }
    for my $m (reverse grep $_, @{ $DEFAULT_KEYMAP->{K} }) {
       for (keys %$m) {
          if ($_ == ($ev->{mod} & $_)) {
             if (defined (my $cmd = $m->{$_}{$ev->{sym}})) {
                return $cmd;
             }
          }
       }
+   }
+   if (my $cmd = $DEFAULT_KEYMAP->{U}{$ev->{unicode}}) {
+      return $cmd;
    }
    ()
 }

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines