//Currently, this script will choose a random animation from inventory to play upon sit.
//The animations are named with this convention: name#;time  Ex: dance19;23.0 dance24;19.5 dance32;27.8
//What I would like to do is (after the first random animation has played) set a timer to play each animation for its given length of time, then choose another animation at random.  And the process repeats itself.

string old_anim;
float anim_duration;

random_anim()
{   all_animations = llListRandomize(all_animations, 1);
    list this = llParseString2List(llList2String(all_animations,0),";");//parses the string to find the duration
    animation = llList2String(all_animations,0);
    anim_duration = (float)llList2String(this,1);//assigns the duration as a variable float
}

rotation  my_rotation;
list all_animations;
string animation;

default
{   state_entry()
    {   llSetSitText( "sit");
        integer i;
        for (i=0; i< llGetInventoryNumber(INVENTORY_ANIMATION);i++)
        {   all_animations += [llGetInventoryName(INVENTORY_ANIMATION, i)];
        }
        vector offset = <0.0, 0.0, 0.25>; // x, y, z
        vector rot = <0, 0, 0>; // x, y, z (degrees)
        llSitTarget(offset, llEuler2Rot(rot * DEG_TO_RAD));
    }
    touch_start(integer total_number)
    {   my_rotation = llGetRot();
        llSay(0, "Rotation = " + (string) my_rotation);
    }
    changed(integer change)
    {   if (change & CHANGED_LINK)
        {   key agent = llAvatarOnSitTarget();
            if (agent)
            {   llRequestPermissions(agent, PERMISSION_TRIGGER_ANIMATION);
            }
            else
            {   llStopAnimation(animation);
                llResetScript();
            }
        }
        else if (change & CHANGED_INVENTORY)
        {   llOwnerSay("ball resets in 10 seconds");
            llSleep(10);
            llResetScript();
        }
    }
    timer()
    {
         random_anim();//chooses a new
         llStartAnimation(animation);//starts it
     llSetTimerEvent(anim_duration);//sets the time
     llStopAnimation(old_anim);//stops the old
         old_anim=animation;//reassigns the name to stop the next one
     }
    run_time_permissions(integer perm)
    {   if (perm)
        {   llStopAnimation("sit");
            random_anim();
            llStartAnimation(animation);
        llSetTimerEvent(anim_duration);
        old_anim=animation;
        }
    }
}