| … | |
… | |
| 39 | map ["$cmd$_", $text], |
39 | map ["$cmd$_", $text], |
| 40 | sort { (length $a) <=> (length $b) } |
40 | sort { (length $a) <=> (length $b) } |
| 41 | @args |
41 | @args |
| 42 | } sort { $a->{par} <=> $b->{par} } |
42 | } sort { $a->{par} <=> $b->{par} } |
| 43 | CFPlus::Pod::find command => "*"; |
43 | CFPlus::Pod::find command => "*"; |
|
|
44 | |
|
|
45 | $self->connect_ext (event_capabilities => sub { |
|
|
46 | my ($cap) = @_; |
|
|
47 | |
|
|
48 | if (my $ts = $cap->{tileset}) { |
|
|
49 | if (my ($default) = grep $_->[2] & 1, @$ts) { |
|
|
50 | $self->{tileset} = $default; |
|
|
51 | $self->{tilesize} = $default->[3]; |
|
|
52 | $self->setup_req (tileset => $default->[0]); |
|
|
53 | |
|
|
54 | my $w = int $self->{mapw} * 32 / $self->{tilesize}; |
|
|
55 | my $h = int $self->{maph} * 32 / $self->{tilesize}; |
|
|
56 | |
|
|
57 | $self->setup_req (mapsize => "${w}x${h}"); |
|
|
58 | } |
|
|
59 | } |
|
|
60 | }); |
| 44 | |
61 | |
| 45 | $self->{map_widget}->add_command (@$_) |
62 | $self->{map_widget}->add_command (@$_) |
| 46 | for @cmd_help; |
63 | for @cmd_help; |
| 47 | |
64 | |
| 48 | $self->{noface} = new_from_file CFPlus::Texture |
65 | $self->{noface} = new_from_file CFPlus::Texture |
| … | |
… | |
| 679 | } |
696 | } |
| 680 | |
697 | |
| 681 | sub setup { |
698 | sub setup { |
| 682 | my ($self, $setup) = @_; |
699 | my ($self, $setup) = @_; |
| 683 | |
700 | |
|
|
701 | $self->{map_widget}->set_tilesize ($self->{tilesize}); |
| 684 | $::MAP->resize ($self->{mapw}, $self->{maph}); |
702 | $::MAP->resize ($self->{mapw}, $self->{maph}); |
| 685 | } |
703 | } |
| 686 | |
704 | |
| 687 | sub addme_success { |
705 | sub addme_success { |
| 688 | my ($self) = @_; |
706 | my ($self) = @_; |
