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