warn 'No File Loaded' if($self->{play}==0);

##</code><code>##

warn 'No File Loaded' if($self->{play}==0);

##</code><code>##

sub load {
my $self = shift;
my $file = shift;
$result = doMM("open \"$file\" type mpegvideo alias ".$self->{alias});
return $result;
}

##</code><code>##

sub play {
my $self = shift;
my $pos = shift || $self->{pos};
$self->{play} = 1;
$result = doMM("play ".$self->{alias}." from $pos");
return $result;
}