##########################################################################
package Games::PangZero::TutorialGame;
##########################################################################

@ISA = qw(Games::PangZero::ChallengeGame);
use strict;
use warnings;

sub SetChallenge {
  my ($self, $challenge) = @_;
  
  $self->{challenge} = $challenge;
}

sub SetGameLevel {
  my ($self, $level) = @_;

  $self->Games::PangZero::PlayableGameBase::SetGameLevel($level);
  $self->SpawnChallenge();
}

sub AdvanceGame {
  my ($self) = @_;

  if ($self->{nextlevel}) {
    $self->{countDown} = 200;
    delete $self->{nextlevel};
  }
  if ($self->{playerspawned}) {
    $self->SpawnChallenge();
    $self->{playerspawned} = 0;
  }
  if ($self->{countDown}) {
    if (--$self->{countDown} < 1) {
      $self->{abortgame} = 1;
    }
  }
  $self->Games::PangZero::PlayableGameBase::AdvanceGame();
}

1;