| … | |
… | |
| 178 | ); |
178 | ); |
| 179 | |
179 | |
| 180 | sub key_down { |
180 | sub key_down { |
| 181 | my ($self, $ev) = @_; |
181 | my ($self, $ev) = @_; |
| 182 | |
182 | |
|
|
183 | return unless $::CONN; |
|
|
184 | |
| 183 | my $mod = $ev->{mod}; |
185 | my $mod = $ev->{mod}; |
| 184 | my $sym = $ev->{sym}; |
186 | my $sym = $ev->{sym}; |
|
|
187 | my $uni = $ev->{unicode}; |
| 185 | |
188 | |
| 186 | if ($sym == CFClient::SDLK_KP5) { |
189 | if ($sym == CFClient::SDLK_KP5) { |
| 187 | $::CONN->user_send ("stay fire"); |
190 | $::CONN->user_send ("stay fire"); |
| 188 | } elsif ($sym == ord ",") { |
191 | } elsif ($uni == ord ",") { |
| 189 | $::CONN->user_send ("take"); |
192 | $::CONN->user_send ("take"); |
| 190 | } elsif ($sym == ord "a") { |
193 | } elsif ($uni == ord "a") { |
| 191 | $::CONN->user_send ("apply"); |
194 | $::CONN->user_send ("apply"); |
| 192 | } elsif ($sym == ord "'") { |
195 | } elsif ($uni == ord "'") { |
| 193 | $self->emit ('activate_console'); |
196 | $self->emit ('activate_console'); |
| 194 | } elsif ($sym == ord "/") { |
197 | } elsif ($uni == ord "/") { |
| 195 | $self->emit (activate_console => '/'); |
198 | $self->emit (activate_console => '/'); |
| 196 | } elsif (exists $DIR{$sym}) { |
199 | } elsif (exists $DIR{$sym}) { |
| 197 | if ($mod & CFClient::KMOD_SHIFT) { |
200 | if ($mod & CFClient::KMOD_SHIFT) { |
| 198 | $self->{shft}++; |
201 | $self->{shft}++; |
| 199 | $::CONN->user_send ("fire $DIR{$sym}[0]"); |
202 | $::CONN->user_send ("fire $DIR{$sym}[0]"); |
