#
# GetMediaItemTake_Item.pl
#
 
use strict;
use warnings;
 
use constant CURR_PROJ => 0;
use constant FIRST_SEL_ITEM => 0;
use constant FIRST_TAKE => 0;
 
# Bit artificial this, I have to start off from where I'm going to end up,
# at the Media Item - but not to worry, I'll check it out at the end
 
# Get the first selected media item in the current project
my $it = RPR_GetSelectedMediaItem(CURR_PROJ,FIRST_SEL_ITEM);
 
# and now the take in that item
my $take = RPR_GetMediaItemTake($it, FIRST_TAKE);
 
# now back up to the Media Item
my $item = RPR_GetMediaItemTake_Item($take);
 
# check if they match...
my $result;
 
if( $it == $item ){
    $result = 'Woo Hoo!'
} else {
    $result = 'Ah...';
}
 
RPR_ShowConsoleMsg("$result\n");