… | |
… | |
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]"); |