--- deliantra/Deliantra-Client/DC/MapWidget.pm	2007/07/19 14:54:50	1.111
+++ deliantra/Deliantra-Client/DC/MapWidget.pm	2007/07/20 18:42:45	1.112
@@ -303,20 +303,24 @@
 }
 
 my %DIR = (
-   CFPlus::SDLK_KP5, [0, "stay fire"],
-   CFPlus::SDLK_KP8, [1, "north"],
-   CFPlus::SDLK_KP9, [2, "northeast"],
-   CFPlus::SDLK_KP6, [3, "east"],
-   CFPlus::SDLK_KP3, [4, "southeast"],
-   CFPlus::SDLK_KP2, [5, "south"],
-   CFPlus::SDLK_KP1, [6, "southwest"],
-   CFPlus::SDLK_KP4, [7, "west"],
-   CFPlus::SDLK_KP7, [8, "northwest"],
-
-   CFPlus::SDLK_UP,    [1, "north"],
-   CFPlus::SDLK_RIGHT, [3, "east"],
-   CFPlus::SDLK_DOWN,  [5, "south"],
-   CFPlus::SDLK_LEFT,  [7, "west"],
+   ( "," . CFPlus::SDLK_KP5  ), [0, "stay fire"],
+   ( "," . CFPlus::SDLK_KP8  ), [1, "north"],
+   ( "," . CFPlus::SDLK_KP9  ), [2, "northeast"],
+   ( "," . CFPlus::SDLK_KP6  ), [3, "east"],
+   ( "," . CFPlus::SDLK_KP3  ), [4, "southeast"],
+   ( "," . CFPlus::SDLK_KP2  ), [5, "south"],
+   ( "," . CFPlus::SDLK_KP1  ), [6, "southwest"],
+   ( "," . CFPlus::SDLK_KP4  ), [7, "west"],
+   ( "," . CFPlus::SDLK_KP7  ), [8, "northwest"],
+
+   ( "," . CFPlus::SDLK_UP   ), [1, "north"],
+   ("1," . CFPlus::SDLK_UP   ), [2, "northeast"],
+   ( "," . CFPlus::SDLK_RIGHT), [3, "east"],
+   ("1," . CFPlus::SDLK_RIGHT), [4, "southeast"],
+   ( "," . CFPlus::SDLK_DOWN ), [5, "south"],
+   ("1," . CFPlus::SDLK_DOWN ), [6, "southwest"],
+   ( "," . CFPlus::SDLK_LEFT ), [7, "west"],
+   ("1," . CFPlus::SDLK_LEFT ), [8, "northwest"],
 );
 
 sub invoke_key_down {
@@ -369,18 +373,18 @@
    } elsif ($uni == ord "'") {
       $self->{completer}->set_prefix ("");
       $self->{completer}->show;
-   } elsif (exists $DIR{$sym}) {
+   } elsif (my $dir = $DIR{(!!($mod & CFPlus::KMOD_ALT)) . ",$sym"}) {
       if ($mod & CFPlus::KMOD_SHIFT) {
          $self->{shft}++;
-         if ($DIR{$sym}[0] != $self->{fire_dir}) {
-            $::CONN->user_send ("fire $DIR{$sym}[0]");
+         if ($dir->[0] != $self->{fire_dir}) {
+            $::CONN->user_send ("fire $dir->[0]");
          }
          $self->{fire_dir} = $DIR{$sym}[0];
       } elsif ($mod & CFPlus::KMOD_CTRL) {
          $self->{ctrl}++;
-         $::CONN->user_send ("run $DIR{$sym}[0]");
+         $::CONN->user_send ("run $dir->[0]");
       } else {
-         $::CONN->user_send ("$DIR{$sym}[1]");
+         $::CONN->user_send ("$dir->[1]");
       }
    } elsif ((ord 'a') <= $uni && $uni <= (ord 'z')) {
       $self->{completer}->inject_key_down ($ev);