Stop Running Animations (for 1.4)

//Coded by Strife Onizuka
//Public Domain

default
{
    state_entry()
    {
        llSetText("Stop All Running Animations",<1,1,1>,1);
    }
    touch_start(integer total_number)
    {
        llRequestPermissions(llDetectedKey(0), PERMISSION_TRIGGER_ANIMATION);
    }
    run_time_permissions(integer a)
    {
        if (a & PERMISSION_TRIGGER_ANIMATION)
        {
            list a=llGetAnimationList(llGetPermissionsKey());
            integer b;
            key c;
            for (b;b<llGetListLength(a);b++)
                //sometimes it gives you a null key, it's a bug.
                if (c = llList2Key(a,b))
                    llStopAnimation((string)c);
        }
    }
}