/usr/share/perl5/Games/PangZero/Meltdown.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 | ##########################################################################
package Games::PangZero::Meltdown;
##########################################################################
@ISA = qw(Games::PangZero::GameObject);
use strict;
use warnings;
sub new {
my ($class) = @_;
my ($self, $surface);
$self = Games::PangZero::GameObject->new();
$surface = SDL::Image::load( "$Games::PangZero::DataDir/meltdown.png" );
%{$self} = ( %{$self},
'x' => ($Games::PangZero::ScreenWidth - $surface->w) / 2,
'y' => -$surface->h,
'w' => $surface->w,
'h' => $surface->h,
'speedY' => 0,
'surface' => $surface,
'bounce' => 0,
);
bless $self, $class;
}
sub Advance {
my $self = shift;
$self->{speedY} += 0.1;
$self->{y} += $self->{speedY};
if ($self->{bounce} == 0 and $self->{y} > $Games::PangZero::ScreenHeight - $self->{h}) {
$self->{bounce} = 1;
$self->{speedY} = -5;
$self->{y} = $Games::PangZero::ScreenHeight - $self->{h};
}
if ($self->{bounce} and $self->{y} > $Games::PangZero::PhysicalScreenHeight) {
$self->Delete;
}
}
sub Draw {
my $self = shift;
$self->TransferRect();
SDL::Video::blit_surface($self->{surface}, SDL::Rect->new(0, 0, $self->{surface}->w, $self->{surface}->h), $Games::PangZero::App, $self->{rect} );
}
1;
|