/usr/share/perl5/Games/PangZero/EarthquakeBall.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 | ##########################################################################
package Games::PangZero::EarthquakeBall;
##########################################################################
@ISA = qw(Games::PangZero::Ball);
use strict;
use warnings;
sub new {
my $class = shift;
my $self = Games::PangZero::Ball->new(@_);
bless $self, $class;
}
sub CountEarthquakeBalls {
my $count = 0;
foreach my $ball (@Games::PangZero::GameObjects) {
if (ref($ball) eq 'Games::PangZero::EarthquakeBall') { ++$count; }
}
return $count;
}
sub Bounce {
my $self = shift;
unless ($Games::PangZero::GameEvents{earthquake} and $Games::PangZero::GameEvents{earthquake} > $self->{desc}->{quake}) {
$Games::PangZero::GameEvents{earthquake} = [$self->{desc}->{quake}, $self->{x}];
}
}
1;
|