/usr/share/perl5/Games/PangZero/DemoPlaybackGame.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 | ##########################################################################
package Games::PangZero::DemoPlaybackGame;
##########################################################################
@ISA = qw(Games::PangZero::DemoGame Games::PangZero::PlaybackGame);
use strict;
use warnings;
sub new {
my $class = shift;
my $self = Games::PangZero::PlaybackGame->new(@_);
bless $self, $class;
}
sub DrawScoreBoard {
my $self = shift;
my $x = 10;
my $y = $Games::PangZero::ScreenHeight + 2 * $Games::PangZero::ScreenMargin + 5;
if ($self->{anim} < 1) {
SDLx::SFont::print_text( $Games::PangZero::Background, $x, $y, "Press F to fast forward" );
SDLx::SFont::print_text( $Games::PangZero::App, $x, $y, "Press F to fast forward" );
} return;
SDL::Video::fill_rect($Games::PangZero::App, SDL::Rect->new(0, $y, $Games::PangZero::PhysicalScreenWidth, $Games::PangZero::PhysicalScreenHeight - $y), SDL::Color->new(0, 0, 0) );
SDLx::SFont::print_text( $Games::PangZero::App, $x, $y, $self->{recordpointer} );
}
|