| … | |
… | |
| 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 |
| … | |
… | |
| 41 | $self->{map_widget}->add_command (@$_) |
41 | $self->{map_widget}->add_command (@$_) |
| 42 | for @cmd_help; |
42 | for @cmd_help; |
| 43 | |
43 | |
| 44 | $self->{noface} = new_from_file CFPlus::Texture |
44 | $self->{noface} = new_from_file CFPlus::Texture |
| 45 | CFPlus::find_rcfile "noface.png", minify => 1, mipmap => 1; |
45 | CFPlus::find_rcfile "noface.png", minify => 1, mipmap => 1; |
|
|
46 | |
|
|
47 | { |
|
|
48 | $self->{dialogue} = my $tex = new_from_file CFPlus::Texture |
|
|
49 | CFPlus::find_rcfile "dialogue.png", minify => 1, mipmap => 1; |
|
|
50 | $self->{map}->set_texture (1, @$tex{qw(name w h s t)}, @{$tex->{minified}}); |
|
|
51 | } |
| 46 | |
52 | |
| 47 | $self->{open_container} = 0; |
53 | $self->{open_container} = 0; |
| 48 | |
54 | |
| 49 | # "global" |
55 | # "global" |
| 50 | $self->{tilecache} = CFPlus::db_table "tilecache" |
56 | $self->{tilecache} = CFPlus::db_table "tilecache" |
