/usr/share/perl5/Games/PangZero/DemoGame.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 | ##########################################################################
package Games::PangZero::DemoGame;
##########################################################################
@ISA = qw(Games::PangZero::PanicGame);
sub ResetGame {
my $self = shift;
Games::PangZero::Config::SetDifficultyLevel(1);
Games::PangZero::Config::SetWeaponDuration(0);
$Games::PangZero::Slippery = 0;
$self->SUPER::ResetGame();
my $ball = Games::PangZero::Ball::Create($Games::PangZero::BallDesc[4], 400, 0, -10, 0);
$ball->GiveMagic();
push @Games::PangZero::GameObjects, (
Games::PangZero::Ball::Create($Games::PangZero::BallDesc[0], 100, 0, 1),
Games::PangZero::Ball::Create($Games::PangZero::BallDesc{super0}, 300, 0, 0),
Games::PangZero::Ball::Create($Games::PangZero::BallDesc{super1}, 500, 0, 1),
$ball,
);
$Games::PangZero::GamePause = 0;
$Games::PangZero::GameSpeed = 0.8;
$self->{spawndelay} = $self->{superballdelay} = 1000000;
$self->{ballcounter} = 0;
$self->{balls} = [ qw(b0 h0 w1 quake death seeker) ];
}
sub SetGameSpeed {
$Games::PangZero::GameSpeed = 0.8;
}
sub SpawnBalls {
my $self = shift;
return if (--$self->{spawndelay} > 0);
my $ballName = $self->{balls}->[$self->{ballcounter}];
return unless $ballName;
push @Games::PangZero::GameObjects, ( Games::PangZero::Ball::Spawn($Games::PangZero::BallDesc{$ballName}, 100, 1, 0) );
$self->{spawndelay} = 1000000;
++$self->{ballcounter};
}
sub RespawnPlayers {}
sub OnBallPopped {}
1;
|