… | |
… | |
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) { |