| … | |
… | |
| 32 | @_ |
32 | @_ |
| 33 | ); |
33 | ); |
| 34 | |
34 | |
| 35 | $self->{completer} = new CFPlus::MapWidget::Command:: |
35 | $self->{completer} = new CFPlus::MapWidget::Command:: |
| 36 | command => $self->{command}, |
36 | command => $self->{command}, |
| 37 | tooltip => "<b>The Command Completer</b>\n\n" |
37 | tooltip => "#completer_help", |
| 38 | . "This is your central interface to send text commands to the server. " |
|
|
| 39 | . "To enter a verbatim command to send to the server, just type the command, " |
|
|
| 40 | . "followed by a space, and press return. " |
|
|
| 41 | . "Typing the initial letters of words (or just any letters) displays guesses " |
|
|
| 42 | . "for commands you might want to use.\n" |
|
|
| 43 | . "You can use the cursor-up and cursor-down keys to select between those guesses.\n" |
|
|
| 44 | . "<b>Right-Click</b> opens a menu where you cna select further options, sich as redefining key bindings.", |
|
|
| 45 | ; |
38 | ; |
| 46 | |
39 | |
| 47 | $self |
40 | $self |
| 48 | } |
41 | } |
| 49 | |
42 | |
| … | |
… | |
| 212 | my ($mod, $sym, $cmds) = @_; |
205 | my ($mod, $sym, $cmds) = @_; |
| 213 | $::BIND_EDITOR->cfg_bind ($mod, $sym, $cmds); |
206 | $::BIND_EDITOR->cfg_bind ($mod, $sym, $cmds); |
| 214 | }); |
207 | }); |
| 215 | $::BIND_EDITOR->start; |
208 | $::BIND_EDITOR->start; |
| 216 | $::BIND_EDITOR->show; |
209 | $::BIND_EDITOR->show; |
|
|
210 | #TODO: elmex, what was this supposed to do? it currently crashes the client. |
| 217 | } elsif ($sym == CFPlus::SDLK_INSERT && not ($mod & CFPlus::KMOD_CTRL)) { |
211 | # } elsif ($sym == CFPlus::SDLK_INSERT && not ($mod & CFPlus::KMOD_CTRL)) { |
| 218 | $::BIND_EDITOR->stop; |
212 | # $::BIND_EDITOR->stop; |
| 219 | $::BIND_EDITOR->ask_for_bind_and_commit; |
213 | # $::BIND_EDITOR->ask_for_bind_and_commit; |
| 220 | $::BIND_EDITOR->hide; |
214 | # $::BIND_EDITOR->hide; |
| 221 | } elsif (!$::CONN) { |
215 | } elsif (!$::CONN) { |
| 222 | return 0; # bindings further down need a valid connection |
216 | return 0; # bindings further down need a valid connection |
| 223 | |
217 | |
| 224 | } elsif ($sym == CFPlus::SDLK_KP5 && !$mod) { |
218 | } elsif ($sym == CFPlus::SDLK_KP5 && !$mod) { |
| 225 | $::CONN->user_send ("stay fire"); |
219 | $::CONN->user_send ("stay fire"); |
| 226 | } elsif ($uni == ord ",") { |
220 | } elsif ($uni == ord ",") { |
| 227 | $::CONN->user_send ("take"); |
221 | $::CONN->user_send ("take"); |
| 228 | } elsif ($uni == ord " ") { |
222 | } elsif ($uni == ord " ") { |
| 229 | $::CONN->user_send ("apply"); |
223 | $::CONN->user_send ("apply"); |
|
|
224 | } elsif ($uni == 13) { |
|
|
225 | $::CONN->user_send ("examine"); |
| 230 | } elsif ($uni == ord ".") { |
226 | } elsif ($uni == ord ".") { |
| 231 | $::CONN->user_send ($self->{completer}{last_command}) |
227 | $::CONN->user_send ($self->{completer}{last_command}) |
| 232 | if exists $self->{completer}{last_command}; |
228 | if exists $self->{completer}{last_command}; |
| 233 | } elsif (my $bind_cmd = $::CFG->{profile}{default}{bindings}{$mod}{$sym}) { |
229 | } elsif (my $bind_cmd = $::CFG->{profile}{default}{bindings}{$mod}{$sym}) { |
| 234 | $::CONN->user_send ($_) for @$bind_cmd; |
230 | $::CONN->user_send ($_) for @$bind_cmd; |
