| … | |
… | |
| 1662 | $::CONN->user_send ("command stay fire"); |
1662 | $::CONN->user_send ("command stay fire"); |
| 1663 | } elsif ($sym == SDLK_a) { |
1663 | } elsif ($sym == SDLK_a) { |
| 1664 | $::CONN->user_send ("command apply"); |
1664 | $::CONN->user_send ("command apply"); |
| 1665 | } elsif ($sym == SDLK_QUOTE) { |
1665 | } elsif ($sym == SDLK_QUOTE) { |
| 1666 | $self->emit ('activate_console'); |
1666 | $self->emit ('activate_console'); |
|
|
1667 | } elsif ($sym == SDLK_SLASH) { |
|
|
1668 | $self->emit ('activate_console' => '/'); |
| 1667 | } elsif (exists $DIR{$sym}) { |
1669 | } elsif (exists $DIR{$sym}) { |
| 1668 | if ($mod & KMOD_SHIFT) { |
1670 | if ($mod & KMOD_SHIFT) { |
| 1669 | $self->{shft}++; |
1671 | $self->{shft}++; |
| 1670 | $::CONN->user_send ("command fire $DIR{$sym}[0]"); |
1672 | $::CONN->user_send ("command fire $DIR{$sym}[0]"); |
| 1671 | } elsif ($mod & KMOD_CTRL) { |
1673 | } elsif ($mod & KMOD_CTRL) { |
