PreRollScript.mel

// pre roll script for Astra 
// Coded by Justin Pedersen 
if (`window -ex PreRollScript`)
    deleteUI PreRollScript;
    
window -wh 200 200 -s 1 PreRollScript; 

frameLayout -l "Pre Roll Script";

    columnLayout -cw 1;
    intFieldGrp -l "Pre roll Amount" -cal 1 left -cat 1 right 5 PreRollInt;
    button -c AddPreRoll -l "Add PreRoll" -w 225 -h 30;
 
             
showWindow PreRollScript;

proc AddPreRoll(){
    
    
    
    string $objects[] = `ls -dagObjects`;
    select -cl;
    
    for ($i=0; $i < `size $objects`; $i++)
    {
        if(`keyframe -query -keyframeCount $objects[$i]` != 0)
            {
            print ($objects[$i] + " ");
            select -tgl $objects[$i];
        }
    }
    
    string $sel[] = `ls-sl`;
    int $PR = `intFieldGrp -q -v1 PreRollInt`;
    // finding the current time slider range
    int $minSlider = `playbackOptions -q -min`;
    int $maxSlider = `playbackOptions -q -max`;
    // Moving all the keys for selected by amount of preroll required.
    keyframe -edit -relative -timeChange $PR -time ($minSlider + ":" + $maxSlider);
    //adding amount of preroll added to end of time slider
    playbackOptions -max ($maxSlider + $PR);
    
}