LSL Script : SetScale Slave

From Micasim

// Name this script something like "Scale 1", "Scale 2", etc.  Reset the script.
//   Send a Link Message with the script number (the thing after Pos)
//   in the integer, and a vector in the string, and this will call
//   SetScale on the vector.

integer mynum;

default
{
    state_entry()
    {
        string name = llGetScriptName();
        list nameparts = llParseString2List(name, [" "], []);
        mynum = llList2Integer(nameparts, 1);
        llSay(0, "Scaler " + (string)mynum);
    }

    link_message(integer sender, integer num, string str, key id)
    {
        if (num != mynum) return;
        vector scale = (vector)str;
        llSetScale(scale);
    }   
}