… | |
… | |
76 | sub post_load { |
76 | sub post_load { |
77 | my ($self) = @_; |
77 | my ($self) = @_; |
78 | |
78 | |
79 | my ($x, $y) = $self->wxwy; |
79 | my ($x, $y) = $self->wxwy; |
80 | |
80 | |
|
|
81 | return |
|
|
82 | unless $x >= $WORLD->{minx} && $x <= $WORLD->{maxx} |
|
|
83 | && $y >= $WORLD->{miny} && $y <= $WORLD->{maxy}; |
|
|
84 | |
81 | my $stride = ($WORLD->{maxx} - $WORLD->{minx} + 1) * $WORLD->{tilew}; |
85 | my $stride = ($WORLD->{maxx} - $WORLD->{minx} + 1) * $WORLD->{tilew}; |
82 | my $top = ($y - $WORLD->{miny}) * $WORLD->{tileh} * $stride |
86 | my $top = ($y - $WORLD->{miny}) * $WORLD->{tileh} * $stride |
83 | + ($x - $WORLD->{minx}) * $WORLD->{tilew}; |
87 | + ($x - $WORLD->{minx}) * $WORLD->{tilew}; |
84 | |
88 | |
85 | for my $Y (0 .. $WORLD->{tileh} - 1) { |
89 | for my $Y (0 .. $WORLD->{tileh} - 1) { |