… | |
… | |
17 | our $TEX_DIALOGUE = new_from_resource DC::Texture |
17 | our $TEX_DIALOGUE = new_from_resource DC::Texture |
18 | "dialogue.png", minify => 1, mipmap => 1; |
18 | "dialogue.png", minify => 1, mipmap => 1; |
19 | |
19 | |
20 | our $TEX_NOFACE = new_from_resource DC::Texture |
20 | our $TEX_NOFACE = new_from_resource DC::Texture |
21 | "noface.png", minify => 1, mipmap => 1; |
21 | "noface.png", minify => 1, mipmap => 1; |
|
|
22 | |
|
|
23 | our $TEX_HIDDEN = new_from_resource DC::Texture |
|
|
24 | "hidden.png", minify => 1, mipmap => 1; |
22 | |
25 | |
23 | sub MIN_TEXTURE_UNUSED() { 1 }#d# |
26 | sub MIN_TEXTURE_UNUSED() { 1 }#d# |
24 | |
27 | |
25 | sub new { |
28 | sub new { |
26 | my ($class, %arg) = @_; |
29 | my ($class, %arg) = @_; |
… | |
… | |
91 | } |
94 | } |
92 | |
95 | |
93 | { |
96 | { |
94 | $self->{noface} = my $tex = $TEX_NOFACE; |
97 | $self->{noface} = my $tex = $TEX_NOFACE; |
95 | $self->{map}->set_texture (2, @$tex{qw(name w h s t)}, @{$tex->{minified}}); |
98 | $self->{map}->set_texture (2, @$tex{qw(name w h s t)}, @{$tex->{minified}}); |
|
|
99 | } |
|
|
100 | |
|
|
101 | { |
|
|
102 | $self->{hidden} = my $tex = $TEX_HIDDEN; |
|
|
103 | $self->{map}->set_texture (3, @$tex{qw(name w h s t)}, @{$tex->{minified}}); |
96 | } |
104 | } |
97 | |
105 | |
98 | # $self->{expire_count} = DC::DB::FIRST_TILE_ID; # minimum non-fixed tile id |
106 | # $self->{expire_count} = DC::DB::FIRST_TILE_ID; # minimum non-fixed tile id |
99 | # $self->{expire_w} = EV::timer 1, 1, sub { |
107 | # $self->{expire_w} = EV::timer 1, 1, sub { |
100 | # my $count = (int @{ $self->{texture} } / MIN_TEXTURE_UNUSED) || 1; |
108 | # my $count = (int @{ $self->{texture} } / MIN_TEXTURE_UNUSED) || 1; |