まだ未完成ですが、とりあえず設置してみたところ。
Legal injection table

プリム節約のため細かい部分を省略しつつ、ウソなんだが本物っぽく見せるのは難しい。台座部分などどうでもいいかもしれないが、このために1日悩みました。。
integer RLVRS_CHANNEL = -1812221819;
string cmd_name = "test";
key subject_key = (対象となるアバターのkey);
if (ロックする場合) {
llSay(RLVRS_CHANNEL,cmd_name + "," + (string)subject_key +
",@tploc=n|@sittp=n|@unsit=n");
} else {
llSay(RLVRS_CHANNEL,cmd_name + "," + (string)subject_key +
",@tploc=y|@sittp=y|@unsit=y");
}
listen(integer ch, string n, key id, string message)
{
list tokens = llParseString2List (message, [","], []);
if (ch == RLVRS_CHANNEL)
{
if (llList2Key(tokens, 1) == llGetKey()) {
if (llList2String(tokens, 3) == "ping") {
llSay(RLVRS_CHANNEL,"ping," +
(string)subject_key + ",!pong");
}
}
}
}