LSL Script : SetScale Slave

// 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); }  }