integer testingmode = 1;
find_links() {
        integer MaxLinks = llGetNumberOfPrims()+1;

        // Link numbers are not reliable, so let's search the linkset for our "Door"
        for(;--MaxLinks;) {
            string primName=llGetLinkName(MaxLinks);
            if (llGetSubString(primName, 0, 3) == "Seat") {
                llLinkSitTarget(MaxLinks, <0.25,0.0,0.358965>, ZERO_ROTATION);
            } else if (llGetSubString(primName, 0, 4) == "Chair") {
                llLinkSitTarget(MaxLinks, <0.25, 0.0, 0.439043>, ZERO_ROTATION);
            } else if (llGetSubString(primName, 0, 3) == "Back") {
                llLinkSitTarget(MaxLinks, <-0.39373, 0.0, 0.146872>, llEuler2Rot(<0.0, 270.0, 0.0> * DEG_TO_RAD));
            }
        }
}

FindLastLink()
{

}
default
{
    state_entry()
    {
        //llSay(0, "Hello, Avatar!");
        //llSay(0, llGetSubString("Seat01", 0, 3));
        find_links();
        if (testingmode == 1)
        {
            llSay(0, "I has been started");
        }
    }

    changed(integer change)
    {
        if (change & CHANGED_LINK)
        {
            integer i = 0;
            integer endi = llGetObjectPrimCount(llGetKey());
            for (;i<=endi;i++)
                {
                    if (testingmode == 1)
                        {
                            llSay(0, (string)i);
                            key str = llAvatarOnLinkSitTarget(i);
                            llSay(0, (string)str);
                        }
                }
        }

        if (change & CHANGED_INVENTORY) {
            llResetScript();
        }
    }
}