view release on metacpan or  search on metacpan

lib/Chandra/Game/Tetris/Engine.pm  view on Meta::CPAN

}

sub reset_game {
	my ($self) = @_;
	$self->grid->reset;
	$self->score(0);
	$self->lines(0);
	$self->level(1);
}

sub update_score {
	my ($self, $cleared) = @_;
	return unless $cleared;
	my @points = (0, 100, 300, 500, 800);
	my $pts = ($points[$cleared] // 800) * $self->level;
	$self->score($self->score + $pts);
	$self->lines($self->lines + $cleared);
	$self->level(int($self->lines / 10) + 1);
}