| … | |
… | |
| 12 | use base 'Crossfire::Protocol::Base'; |
12 | use base 'Crossfire::Protocol::Base'; |
| 13 | |
13 | |
| 14 | sub new { |
14 | sub new { |
| 15 | my $class = shift; |
15 | my $class = shift; |
| 16 | |
16 | |
| 17 | my $self = $class->SUPER::new (@_, setup_req => { extmap => 0 }); |
17 | my $self = $class->SUPER::new (@_, setup_req => { extmap => 1 }); |
| 18 | |
18 | |
| 19 | $self->{map_widget}->clr_commands; |
19 | $self->{map_widget}->clr_commands; |
| 20 | |
20 | |
| 21 | my @cmd_help = map { |
21 | my @cmd_help = map { |
| 22 | $_->{kw}[0] =~ /^(\S+) (?:\s+ \( ([^\)]*) \) )?/x |
22 | $_->{kw}[0] =~ /^(\S+) (?:\s+ \( ([^\)]*) \) )?/x |
