/usr/share/perl5/Games/PangZero/SuperBall.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::SuperBall;
##########################################################################
@ISA = qw(Games::PangZero::Ball);
use strict;
use warnings;
sub new {
my $class = shift;
my $self = Games::PangZero::Ball->new(@_);
$self->{effect} = 1; # 0 : superpause; 1 : superkill
bless $self, $class;
$self->SwitchEffect();
return $self;
}
sub SwitchEffect {
my $self = shift;
$self->{effect} = 1 - $self->{effect};
$self->{surface} = $Games::PangZero::BallSurfaces{($self->{effect} ? 'gold' : 'green') . ($self->{w} > 64 ? 1 : 2)};
}
sub Bounce {
my $self = shift;
$self->SwitchEffect();
}
sub SpawnChildren {
return ();
}
sub Pop {
my $self = shift;
my ($poppedBy) = @_;
$self->SUPER::Pop(@_);
if ($self->{effect} == 0) {
$Games::PangZero::GameEvents{superpause} = 1;
} else {
$Games::PangZero::GameEvents{superkill} = 1;
$Games::PangZero::GameEvents{superkillguy} = $poppedBy;
}
}
sub GiveMagic {
}
1;
|