/*

This script is companion to Copy missing Animations TARGET
Add this script in the source opject (which contains the missing animations). 

*/


default
{
    state_entry()
    {
        llListen(837192171, "", "", "");
        llOwnerSay("Waiting to send animations...");
    }
    
    listen(integer c, string nm, key id, string m)
    {
        list tok = llParseString2List(m, ["|"], []);
        string cmd = llList2String(tok, 0);
        if ( cmd== "SFGIVEANIMS" || cmd == "SFCHECKANIMS")
        {
            integer n;
            for (n=1; n < llGetListLength(tok); n++)
            {
                string an = llList2String(tok, n);
                if (llGetInventoryType(an) != INVENTORY_ANIMATION)
                {
                    llOwnerSay("!!Anim not found: "+an);
                }
                else
                {
                    if (cmd == "SFGIVEANIMS")
                    {
                        llGiveInventory(id, an);
                        llOwnerSay("Sending: "+an);
                    }
                    else 
                        llOwnerSay("Found: "+an);
                }
            }
            llOwnerSay("Finished");
        }
        else if (cmd == "SFGIVER_REMOVE")
        {
            llOwnerSay("Removing myself");
            llRemoveInventory(llGetScriptName());
        }
    }
}