/usr/share/perl5/Games/PangZero/Pop.pm is in pangzero 1.4-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 | ##########################################################################
package Games::PangZero::Pop;
##########################################################################
@ISA = qw(Games::PangZero::GameObject);
@Description = (
{ 'xoffset' => 0, 'yoffset' => 0, 'srcx' => 128, 'srcy' => 0, 'sizex' => 128, 'sizey' => 106, },
{ 'xoffset' => 0, 'yoffset' => 0, 'srcx' => 96, 'srcy' => 0, 'sizex' => 96, 'sizey' => 80, },
{ 'xoffset' => 0, 'yoffset' => 0, 'srcx' => 64, 'srcy' => 0, 'sizex' => 64, 'sizey' => 53, },
{ 'xoffset' => 0, 'yoffset' => 0, 'srcx' => 32, 'srcy' => 0, 'sizex' => 32, 'sizey' => 28, },
{ 'xoffset' => 0, 'yoffset' => 0, 'srcx' => 16, 'srcy' => 0, 'sizex' => 16, 'sizey' => 15, },
{ 'xoffset' => 0, 'yoffset' => 0, 'srcx' => 192, 'srcy' => 0, 'sizex' => 64, 'sizey' => 52, },
{ 'xoffset' => 0, 'yoffset' => 0, 'srcx' => 96, 'srcy' => 0, 'sizex' => 32, 'sizey' => 28, },
{ 'xoffset' => 0, 'yoffset' => 0, 'srcx' => 48, 'srcy' => 0, 'sizex' => 16, 'sizey' => 14, },
);
sub new {
my ($class, $x, $y, $index, $surface) = @_;
my $desc = $Games::PangZero::Pop::Description[$index],
my $self = Games::PangZero::GameObject->new();
%{$self} = ( %{$self},
'x' => $x + $desc->{xoffset},
'y' => $y + $desc->{yoffset},
'w' => $desc->{sizex},
'h' => $desc->{sizey},
'desc' => $desc,
'anim' => 0,
'surface' => $surface,
);
bless $self, $class;
}
sub Advance {
my $self = shift;
if (++$self->{anim} >= 20) {
$self->Delete();
}
}
sub Draw {
my $self = shift;
$self->TransferRect();
my $phase = int($self->{anim} / 5);
$phase = 3 if $phase > 3;
my $srcrect = SDL::Rect->new(
$self->{desc}->{srcx} + $phase * $self->{w},
$self->{desc}->{srcy},
$self->{w},
$self->{h} );
SDL::Video::blit_surface($self->{surface}, $srcrect, $Games::PangZero::App, $self->{rect} );
}
1;
|