view release on metacpan or  search on metacpan

Sprite.pm  view on Meta::CPAN

=item $sprites->destroy( $sprite_number );

Completely destroys a sprite.

=cut

sub destroy
	{
	}

sub update_sprite
	{
		my ($self, $item) = @_;
		my $cg = $self->{sprite}->{$item};
		$cg->{cx} = $cg->{x} + $cg->{width}/2;
		$cg->{cy} = $cg->{y} + $cg->{height}/2;
	}
		
		

=item $sprites->move_to( $sprite_number, 10, 20 );