/usr/share/perl5/Games/PangZero/HalfCutter.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 | ##########################################################################
package Games::PangZero::HalfCutter;
##########################################################################
@ISA = qw(Games::PangZero::Harpoon);
use strict;
use warnings;
sub Create {
return Games::PangZero::HalfCutter->new(@_);
}
sub new {
my $class = shift;
my $self = Games::PangZero::Harpoon->new(@_);
$self->{popEffect} = 'HalfCutter';
$self->{originalSurface} = $self->{surface};
bless $self, $class;
}
sub Advance {
my $self = shift;
$self->{surface} = (($Games::PangZero::Game->{anim} % 15) < 3) ? $Games::PangZero::WhiteHarpoonSurface : $self->{originalSurface};
$self->SUPER::Advance();
}
1;
|