Second Life Wiki - User contributions [en]

LSL Protocol/Restrained Love Open Relay Group/vision

2009-10-29T09:23:31Z

Julia Banshee:

{{ ORG Restrained Life Relay Specs TOC }}

== !x-vision ==

''Implemented in THINK KINK's tkPBA v30k and above, and in Dominatech Relay 2.1''

; Description : meta command to control what the victim can see while under restraint. This will allow a full range of vision control of the victim. Full blindness, partial, color, textures, etc..
; Implementation : using a small microprim that hides on the back of our RelayHUD, we can expand and texture this to control the sight of the victim. Put them in a dark cell, they go blind. Or in a forcefield change the color, make it partially transparant, put up a texture, etc. We are/will also be using this as a "MouseLook" enforcer to punish a victim when they won't stay in mouselook (get out of mouselook, go totally blind). Currently being implemented in devices from THINK KINK.
; Syntax : '''!x-vision/(color)/(alpha)/(texture)/(repeats)/(offsets)/(rotation)'''
: '''!x-vision/clear'''
::(color) = color for the HUD covering prim in RGB format <r'g'b> 0-255 (NOTE: the ' is the seperator instead of , to avoid parsing issues with the rest of the RLV command string)
::(alpha) = % transparent to make the HUD prim cover (in alpha format 0.0-1.0)
::(texture) = UUID for a texture to apply to the prim
::(repeats) = x/y repeats for the texture, same format as the texture tab on an prim 1.0'1.0
::(offsets) = x/y offsets for the texture, same format as the texture tab on an prim 0.0'0.0
::(rotation) = rotation of the texture

:: SPECIAL ENTRY, any of the parameters can be replaced with "*" for 'do not change existing value'

:: NOTE: the 'default' value of the HUD prim is 100% transparent, white, TEXTURE_BLANK. ie. !vision/0.0/<255'255'255>/TEXTURE_BLANK/1.0'1.0/0.0'0.0
:: if all you want to do is 'blind' someone, then !vision/<0'0'0>/1.0/*/*/*/*

:: The second form clears the vision restriction set.

; Examples
: Total blackout "!x-vision/<0'0'0>/1.0/TEXTURE_BLANK/1.0'1.0/0.0'0.0/0.0
: Light fog "!x-vision/<128'128'128>/0.5/TEXTURE_BLANK/1.0'1.0/0.0'0.0/0.0"
: In a plywood box no matter where they look "!x-vision/<255'255'255>/1.0/TEXTURE_PLYWOOD/1.0'1.0/0.0'0.0"

; Discussion
Although this feature has been extensively discussed elsewhere, that discussion was unnecessarily contentious and is not repeated here.

LSL Protocol/Restrained Living Relay/Other Implementations/Dominatech RLV Relay

2009-02-14T08:39:37Z

Julia Banshee: /* Dominatech RLV Relay */

{{Restrained Life Relay Specs TOC}}

== Dominatech RLV Relay ==
© 2009 Julia Banshee

This is an open source RLV relay script that supports relaying from multiple devices.

It it fully compatible with version 1.030 of the RLV Relay Specification, but has one non-standard extention, a "!getstatus" command that returns the restrictions held only by the one device requesting the status. This (or similar functionality) has been proposed for inclusion in a future version of the official specification.

See the [[Talk:LSL_Protocol/Restrained_Life_Relay/Other_Implementations/Dominatech_RLV_Relay|discussion page]] for some issues with multi-device relays.

So without further ado...

<lsl>
// Dominatech RLV Relay Script 2.0
// Copyright (C) 2009 Julia Banshee
//
// This program is free software: you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU General Public License for more details.
//
// See http://www.gnu.org/licenses/gpl.html for terms of this license.

integer relayChannel = -1812221819;
string version = "1030";
string implversion = "Dominatech Relay 2.0";

integer backChannel; // for @getsitid
key sitting;

list objects;
list restrictions;

list pingObjects;
list pingRestrictions;
key pingSitting;
integer pingSitRetry;

integer lit;

integer askMode;
list allowedObjects;
list rejectedObjects;
list pendingObjects;
list pendingCommands;

integer permChannel;
integer permListener;
integer permClose;

updateStatus(integer r)
{
if ( r )
{
if ( ! lit )
{
llMessageLinked(LINK_SET, TRUE, "relay-lock", NULL_KEY);
llSetColor(<1.0, 0.0, 0.0>, ALL_SIDES);
lit = TRUE;
}
}
else
{
if ( lit )
{
llMessageLinked(LINK_SET, FALSE, "relay-lock", NULL_KEY);
llSetColor(<0.0, 1.0, 0.0>, ALL_SIDES);
lit = FALSE;
}
}
}

clear(key obj)
{
integer o = llListFindList(objects, [obj]);
if ( o >= 0 )
{
integer i;
while ( (i = llListFindList(restrictions, [o])) >= 0 )
{
string restr = llList2String(restrictions, i + 1);
restrictions = llDeleteSubList(restrictions, i, i + 1);
if ( llListFindList(restrictions, [restr]) < 0 )
llOwnerSay("@" + restr + "=y");
}
}
if ( llGetListLength(restrictions) == 0 )
{
objects = [];
updateStatus(FALSE);
}
}

clearSome(key obj, string param)
{
integer o = llListFindList(objects, [obj]);
if ( o >= 0 )
{
integer len = llGetListLength(restrictions);
integer i;
for ( i = 0 ; i < len ; i += 2 )
{
if ( llList2Integer(restrictions, i) == o )
{
string restr = llList2String(restrictions, i + 1);
if ( llSubStringIndex(restr, param) >= 0 )
{
restrictions = llDeleteSubList(restrictions, i, i + 1);
if ( llListFindList(restrictions, [restr]) < 0 )
llOwnerSay("@" + restr + "=y");
i -= 2;
len -= 2;
}
}
}
}
if ( llGetListLength(restrictions) == 0 )
{
objects = [];
updateStatus(FALSE);
}
}

rlvCommand(key id, string cmd)
{
integer e = llSubStringIndex(cmd, "=");
if ( e >= 0 )
{
string restr = llGetSubString(cmd, 1, e - 1);
string param = llGetSubString(cmd, e + 1, -1);
if ( param == "n" || param == "add" )
{
llOwnerSay(cmd);
integer i;
integer o = llListFindList(objects, [id]);
if ( o < 0 )
{
o = llGetListLength(objects);
objects += id;
i = -1;
}
else i = llListFindList(restrictions, [o, restr]);
if ( i < 0 )
{
restrictions += [o, restr];
updateStatus(TRUE);
}
if ( restr == "unsit" )
llOwnerSay("@getsitid=" + (string)backChannel);
}
else if ( param == "y" || param == "rem" )
{
integer o = llListFindList(objects, [id]);
if ( o >= 0 )
{
integer i = llListFindList(restrictions, [o, restr]);
if ( i >= 0 )
{
restrictions = llDeleteSubList(restrictions, i, i + 1);
if ( llGetListLength(restrictions) == 0 )
{
objects = [];
updateStatus(FALSE);
}
}
}
if ( llListFindList(restrictions, [restr]) < 0 )
llOwnerSay(cmd);
}
else
{
if ( restr == "clear" )
clearSome(id, param);
else
llOwnerSay(cmd);
}
}
else
{
if ( cmd == "@clear" )
clear(id);
else
llOwnerSay(cmd);
}
}

string getStatus(integer o) // it's okay if o is not an existing object, or -1, we just result an empty string
{
string result = "";
integer len = llGetListLength(restrictions);
integer i;
for ( i = 0 ; i < len ; i += 2 )
if ( llList2Integer(restrictions, i) == o )
result += "/" + llList2String(restrictions, i + 1);
return result;
}

integer allowCommand(key id, string cmd)
{
if ( ! askMode ) return TRUE; // not in ask mode, automatically allow
if ( llListFindList(allowedObjects, [id]) >= 0 ) return TRUE; // this object has permission
if ( llGetOwnerKey(id) == llGetOwner() ) return TRUE; // owner's own objects always have permission
if ( llGetSubString(cmd, -2, -1) == "=n" ) return FALSE; // adding restrictions not allowed without permission
if ( llGetSubString(cmd, -4, -1) == "=add" ) return FALSE; // adding restrictions not allowed without permission
if ( llGetSubString(cmd, -6, -1) == "=force" ) return FALSE; // forcing actions not allowed without permission
return TRUE; // anything else is okay (e.g. @version)
}

default
{
state_entry()
{
llSetObjectName(implversion);

lit = TRUE;
updateStatus(FALSE);

llListen(relayChannel, "", NULL_KEY, "");
llListen(backChannel = 16777216 + (integer)llFrand(16777216.0), "", llGetOwner(), "");
llSetTimerEvent(5.0);

llMessageLinked(LINK_SET, -123, llGetScriptName() + " free: " + (string)llGetFreeMemory(), NULL_KEY);
}

listen(integer ch, string name, key id, string msg)
{
if ( ch == relayChannel )
{
list pack = llCSV2List(msg);
key target = llList2String(pack, 1);
if ( target == llGetOwner() )
{
string cmdid = llList2String(pack, 0);
list cmds = llParseString2List(llList2String(pack, 2), ["|"], []);
integer len = llGetListLength(cmds);
integer i;
for ( i = 0 ; i < len ; ++i )
{
string cmd = llList2String(cmds, i);
if ( llGetSubString(cmd, 0, 0) == "@" )
{
if ( allowCommand(id, cmd) )
{
rlvCommand(id, cmd);
llShout(relayChannel, cmdid + "," + (string)id + "," + cmd + ",ok");
}
else if ( llListFindList(rejectedObjects, [id]) >= 0 )
{
llShout(relayChannel, cmdid + "," + (string)id + "," + cmd + ",ko");
}
else
{
integer p = llListFindList(pendingObjects, [id]);
if ( p < 0 )
{
p = llGetListLength(pendingObjects);
pendingObjects += id;

list buttons;
if ( p )
buttons = ["Yes " + (string)p, "No " + (string)p];
else
buttons = ["Yes", "No"];
string object = llKey2Name(id);
string ownedby = llKey2Name(llGetOwnerKey(id));
if ( ownedby ) object += " (owned by " + ownedby + ")";
if ( ! permListener )
permListener = llListen(permChannel = -16777216 - (integer)llFrand(16777216.0), "", llGetOwner(), "");
llDialog(llGetOwner(), "The object " + object
+ " is attempting to use your Restrained Life Viewer relay. Do you wish to allow it?", buttons, permChannel);
permClose = llGetUnixTime() + 120;
}
if ( llListFindList(pendingCommands, [p, cmdid, cmd]) < 0 ) // some devices spam the same command over and over, don't keep growing list
pendingCommands += [p, cmdid, cmd];
}
}
else if ( cmd == "!release" )
{
clear(id);
llShout(relayChannel, cmdid + "," + (string)id + "," + cmd + ",ok");
}
else if ( cmd == "!getstatus" )
{
integer o = llListFindList(objects, [id]);
llShout(relayChannel, cmdid + "," + (string)id + "," + cmd + "," + getStatus(o));
}
else if ( cmd == "!version" )
{
llShout(relayChannel, cmdid + "," + (string)id + "," + cmd + "," + version);
}
else if ( cmd == "!implversion" )
{
llShout(relayChannel, cmdid + "," + (string)id + "," + cmd + "," + implversion);
}
else if ( cmd == "!pong" )
{
integer p = llListFindList(pingObjects, [id]);
if ( p >= 0 )
{
llOwnerSay("Got pong, you're out of luck. Reapplying restrictions from " + name + "...");
integer o = llListFindList(objects, [id]);
if ( o < 0 )
{
o = llGetListLength(objects);
objects += id;
}
string cmd = "";
string pre = "@";
integer i;
while ( (i = llListFindList(pingRestrictions, [p])) >= 0 )
{
string restr = llList2String(pingRestrictions, i + 1);
if ( restr == "unsit" )
{
if ( pingSitting )
{
llOwnerSay("@sit:" + (string)pingSitting + "=force");
pingSitRetry = 12; // keep trying for a minute -- it can take that long for things to rez
}
}
cmd += pre + restr + "=n";
pre = ",";
restrictions += [o, restr];
pingRestrictions = llDeleteSubList(pingRestrictions, i, i + 1);
}
if ( cmd )
llOwnerSay(cmd);
updateStatus(TRUE);
if ( llGetListLength(pingRestrictions) == 0 )
pingObjects = [];
}
}
}
}
else if ( target == llGetKey() )
{
string cmdid = llList2String(pack, 0);
if ( cmdid == "uniquecheck" )
llOwnerSay("You are wearing another RLV relay (" + name + "). Remove it. You should never wear more than one RLV relay at a time.");
}
return;
}

if ( ch == permChannel )
{
integer o = (integer) llGetSubString(msg, -2, -1);
key obj = llList2Key(pendingObjects, o);
if ( llGetSubString(msg, 0, 2) == "Yes" )
{
allowedObjects = obj + llList2List(allowedObjects, 0, 8);
integer i;
while ( (i = llListFindList(pendingCommands, [o])) >= 0 )
{
string cmd = llList2String(pendingCommands, i + 2);
rlvCommand(obj, cmd);
llShout(relayChannel, llList2String(pendingCommands, i + 1) + "," + (string)obj + "," + cmd + ",ok");
pendingCommands = llDeleteSubList(pendingCommands, i, i + 2);
}
if ( llGetListLength(pendingCommands) == 0 )
pendingObjects = [];
}
else
{
rejectedObjects = obj + llList2List(rejectedObjects, 0, 8);
integer i;
while ( (i = llListFindList(pendingCommands, [o])) >= 0 )
{
string cmd = llList2String(pendingCommands, i + 2);
llShout(relayChannel, llList2String(pendingCommands, i + 1) + "," + (string)obj + "," + cmd + ",ko");
pendingCommands = llDeleteSubList(pendingCommands, i, i + 2);
}
if ( llGetListLength(pendingCommands) == 0 )
pendingObjects = [];
}
return;
}

if ( ch == backChannel )
{
sitting = msg;
return;
}
}

on_rez(integer param)
{
if ( objects )
{
integer len = llGetListLength(objects);
integer i;
for ( i = 0 ; i < len ; ++i )
if ( llListFindList(restrictions, [i]) >= 0 )
llShout(relayChannel, "ping," + (string)llList2Key(objects, i) + ",ping,ping");
}

pingObjects = objects;
pingRestrictions = restrictions;
pingSitting = sitting;
pingSitRetry = 0;

objects = [];
restrictions = [];
sitting = NULL_KEY;
updateStatus(FALSE);

allowedObjects = [];
rejectedObjects = [];
pendingObjects = [];
pendingCommands = [];
}

timer()
{
if ( llGetAgentInfo(llGetOwner()) & AGENT_ON_OBJECT )
{
llOwnerSay("@getsitid=" + (string)backChannel);
pingSitRetry = 0;
}
else
{
sitting = NULL_KEY;
if ( pingSitRetry )
{
llOwnerSay("@sit:" + (string)pingSitting + "=force");
--pingSitRetry;
}
}

if ( permListener )
{
if ( llGetUnixTime() >= permClose )
{
pendingObjects = [];
pendingCommands = [];
llListenRemove(permListener);
permListener = 0;
}
}
}

link_message(integer src, integer num, string msg, key id)
{
if ( msg == "relay-ask" )
{
askMode = num;
if ( askMode )
{
allowedObjects = objects;
rejectedObjects = [];
pendingObjects = [];
pendingCommands = [];
}
else if ( permListener )
{
allowedObjects = [];
rejectedObjects = [];
pendingObjects = [];
pendingCommands = [];
llListenRemove(permListener);
permListener = 0;
}
return;
}

if ( msg == "relay-status" )
{
integer len = llGetListLength(objects);
if ( len )
{
integer i;
for ( i = 0 ; i < len ; ++i )
llMessageLinked(LINK_SET, num, getStatus(i), llList2Key(objects, i));
}
else
llMessageLinked(LINK_SET, num, "", NULL_KEY);
return;
}

if ( msg == "relay-reset" )
{
integer len = llGetListLength(objects);
integer i;
for ( i = 0 ; i < len ; ++i )
llShout(relayChannel, "safeword," + (string)llList2Key(objects, i) + ",!release,ok");
llResetScript();
return;
}
}

attach(key id)
{
if ( id )
llWhisper(relayChannel, "uniquecheck," + (string)id + ",!version");
}

changed(integer change)
{
if ( change & CHANGED_OWNER )
llResetScript();
}
}
</lsl>

Talk:LSL Protocol/Restrained Living Relay/Other Implementations/Dominatech RLV Relay

2009-02-14T08:37:04Z

Julia Banshee: New page: == Issues with multi-device relays == There's a couple of issues that people need to consider now that multi-device relays are becoming available. First, it used to be you could assume t...

== Issues with multi-device relays ==

There's a couple of issues that people need to consider now that multi-device relays are becoming available.

First, it used to be you could assume that if someone's relay would talk to you and take commands, they were not otherwise restricted. This is obviously no longer the case. Don't assume someone has no restrictions just because their relay responds to you.

Second, any relay that supports an arbitrary number of devices using a finite number of prims ought to have some way to report the status back to a device of only the restrictions coming from that device. The usual @getstatus is insufficient for this task, since that will tell you every restriction from the relay, not from the device, since the reply will come from the client rather than the relay. And a relay can't simply intercept and reply to @getstatus itself since will be listening for the response to come from the avatar. Hence, my proposed !getstatus command. Using multiple prims on the relay works only to a point. No matter what N you choose, sooner or later someone's going to want N+1, and having all those scripts running at once to handle a task that could just as well be handled by one doesn't strike me as Grid-friendly.

Thoughts?

--[[User:Julia Banshee|Julia Banshee]] 08:37, 14 February 2009 (UTC)

LSL Protocol/Restrained Living Relay/Other Implementations/Dominatech RLV Relay

2009-02-14T08:21:00Z

Julia Banshee:

{{Restrained Life Relay Specs TOC}}

== Dominatech RLV Relay ==
© 2009 Julia Banshee

This is an open source RLV relay script that supports relaying from multiple devices.

It it fully compatible with version 1.030 of the RLV Relay Specification, but has one non-standard extention, a "!getstatus" command that returns the restrictions held only by the one device requesting the status. This (or similar functionality) has been proposed for inclusion in a future version of the official specification.

So without further ado...

<lsl>
// Dominatech RLV Relay Script 2.0
// Copyright (C) 2009 Julia Banshee
//
// This program is free software: you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU General Public License for more details.
//
// See http://www.gnu.org/licenses/gpl.html for terms of this license.

integer relayChannel = -1812221819;
string version = "1030";
string implversion = "Dominatech Relay 2.0";

integer backChannel; // for @getsitid
key sitting;

list objects;
list restrictions;

list pingObjects;
list pingRestrictions;
key pingSitting;
integer pingSitRetry;

integer lit;

integer askMode;
list allowedObjects;
list rejectedObjects;
list pendingObjects;
list pendingCommands;

integer permChannel;
integer permListener;
integer permClose;

updateStatus(integer r)
{
if ( r )
{
if ( ! lit )
{
llMessageLinked(LINK_SET, TRUE, "relay-lock", NULL_KEY);
llSetColor(<1.0, 0.0, 0.0>, ALL_SIDES);
lit = TRUE;
}
}
else
{
if ( lit )
{
llMessageLinked(LINK_SET, FALSE, "relay-lock", NULL_KEY);
llSetColor(<0.0, 1.0, 0.0>, ALL_SIDES);
lit = FALSE;
}
}
}

clear(key obj)
{
integer o = llListFindList(objects, [obj]);
if ( o >= 0 )
{
integer i;
while ( (i = llListFindList(restrictions, [o])) >= 0 )
{
string restr = llList2String(restrictions, i + 1);
restrictions = llDeleteSubList(restrictions, i, i + 1);
if ( llListFindList(restrictions, [restr]) < 0 )
llOwnerSay("@" + restr + "=y");
}
}
if ( llGetListLength(restrictions) == 0 )
{
objects = [];
updateStatus(FALSE);
}
}

clearSome(key obj, string param)
{
integer o = llListFindList(objects, [obj]);
if ( o >= 0 )
{
integer len = llGetListLength(restrictions);
integer i;
for ( i = 0 ; i < len ; i += 2 )
{
if ( llList2Integer(restrictions, i) == o )
{
string restr = llList2String(restrictions, i + 1);
if ( llSubStringIndex(restr, param) >= 0 )
{
restrictions = llDeleteSubList(restrictions, i, i + 1);
if ( llListFindList(restrictions, [restr]) < 0 )
llOwnerSay("@" + restr + "=y");
i -= 2;
len -= 2;
}
}
}
}
if ( llGetListLength(restrictions) == 0 )
{
objects = [];
updateStatus(FALSE);
}
}

rlvCommand(key id, string cmd)
{
integer e = llSubStringIndex(cmd, "=");
if ( e >= 0 )
{
string restr = llGetSubString(cmd, 1, e - 1);
string param = llGetSubString(cmd, e + 1, -1);
if ( param == "n" || param == "add" )
{
llOwnerSay(cmd);
integer i;
integer o = llListFindList(objects, [id]);
if ( o < 0 )
{
o = llGetListLength(objects);
objects += id;
i = -1;
}
else i = llListFindList(restrictions, [o, restr]);
if ( i < 0 )
{
restrictions += [o, restr];
updateStatus(TRUE);
}
if ( restr == "unsit" )
llOwnerSay("@getsitid=" + (string)backChannel);
}
else if ( param == "y" || param == "rem" )
{
integer o = llListFindList(objects, [id]);
if ( o >= 0 )
{
integer i = llListFindList(restrictions, [o, restr]);
if ( i >= 0 )
{
restrictions = llDeleteSubList(restrictions, i, i + 1);
if ( llGetListLength(restrictions) == 0 )
{
objects = [];
updateStatus(FALSE);
}
}
}
if ( llListFindList(restrictions, [restr]) < 0 )
llOwnerSay(cmd);
}
else
{
if ( restr == "clear" )
clearSome(id, param);
else
llOwnerSay(cmd);
}
}
else
{
if ( cmd == "@clear" )
clear(id);
else
llOwnerSay(cmd);
}
}

string getStatus(integer o) // it's okay if o is not an existing object, or -1, we just result an empty string
{
string result = "";
integer len = llGetListLength(restrictions);
integer i;
for ( i = 0 ; i < len ; i += 2 )
if ( llList2Integer(restrictions, i) == o )
result += "/" + llList2String(restrictions, i + 1);
return result;
}

integer allowCommand(key id, string cmd)
{
if ( ! askMode ) return TRUE; // not in ask mode, automatically allow
if ( llListFindList(allowedObjects, [id]) >= 0 ) return TRUE; // this object has permission
if ( llGetOwnerKey(id) == llGetOwner() ) return TRUE; // owner's own objects always have permission
if ( llGetSubString(cmd, -2, -1) == "=n" ) return FALSE; // adding restrictions not allowed without permission
if ( llGetSubString(cmd, -4, -1) == "=add" ) return FALSE; // adding restrictions not allowed without permission
if ( llGetSubString(cmd, -6, -1) == "=force" ) return FALSE; // forcing actions not allowed without permission
return TRUE; // anything else is okay (e.g. @version)
}

default
{
state_entry()
{
llSetObjectName(implversion);

lit = TRUE;
updateStatus(FALSE);

llListen(relayChannel, "", NULL_KEY, "");
llListen(backChannel = 16777216 + (integer)llFrand(16777216.0), "", llGetOwner(), "");
llSetTimerEvent(5.0);

llMessageLinked(LINK_SET, -123, llGetScriptName() + " free: " + (string)llGetFreeMemory(), NULL_KEY);
}

listen(integer ch, string name, key id, string msg)
{
if ( ch == relayChannel )
{
list pack = llCSV2List(msg);
key target = llList2String(pack, 1);
if ( target == llGetOwner() )
{
string cmdid = llList2String(pack, 0);
list cmds = llParseString2List(llList2String(pack, 2), ["|"], []);
integer len = llGetListLength(cmds);
integer i;
for ( i = 0 ; i < len ; ++i )
{
string cmd = llList2String(cmds, i);
if ( llGetSubString(cmd, 0, 0) == "@" )
{
if ( allowCommand(id, cmd) )
{
rlvCommand(id, cmd);
llShout(relayChannel, cmdid + "," + (string)id + "," + cmd + ",ok");
}
else if ( llListFindList(rejectedObjects, [id]) >= 0 )
{
llShout(relayChannel, cmdid + "," + (string)id + "," + cmd + ",ko");
}
else
{
integer p = llListFindList(pendingObjects, [id]);
if ( p < 0 )
{
p = llGetListLength(pendingObjects);
pendingObjects += id;

list buttons;
if ( p )
buttons = ["Yes " + (string)p, "No " + (string)p];
else
buttons = ["Yes", "No"];
string object = llKey2Name(id);
string ownedby = llKey2Name(llGetOwnerKey(id));
if ( ownedby ) object += " (owned by " + ownedby + ")";
if ( ! permListener )
permListener = llListen(permChannel = -16777216 - (integer)llFrand(16777216.0), "", llGetOwner(), "");
llDialog(llGetOwner(), "The object " + object
+ " is attempting to use your Restrained Life Viewer relay. Do you wish to allow it?", buttons, permChannel);
permClose = llGetUnixTime() + 120;
}
if ( llListFindList(pendingCommands, [p, cmdid, cmd]) < 0 ) // some devices spam the same command over and over, don't keep growing list
pendingCommands += [p, cmdid, cmd];
}
}
else if ( cmd == "!release" )
{
clear(id);
llShout(relayChannel, cmdid + "," + (string)id + "," + cmd + ",ok");
}
else if ( cmd == "!getstatus" )
{
integer o = llListFindList(objects, [id]);
llShout(relayChannel, cmdid + "," + (string)id + "," + cmd + "," + getStatus(o));
}
else if ( cmd == "!version" )
{
llShout(relayChannel, cmdid + "," + (string)id + "," + cmd + "," + version);
}
else if ( cmd == "!implversion" )
{
llShout(relayChannel, cmdid + "," + (string)id + "," + cmd + "," + implversion);
}
else if ( cmd == "!pong" )
{
integer p = llListFindList(pingObjects, [id]);
if ( p >= 0 )
{
llOwnerSay("Got pong, you're out of luck. Reapplying restrictions from " + name + "...");
integer o = llListFindList(objects, [id]);
if ( o < 0 )
{
o = llGetListLength(objects);
objects += id;
}
string cmd = "";
string pre = "@";
integer i;
while ( (i = llListFindList(pingRestrictions, [p])) >= 0 )
{
string restr = llList2String(pingRestrictions, i + 1);
if ( restr == "unsit" )
{
if ( pingSitting )
{
llOwnerSay("@sit:" + (string)pingSitting + "=force");
pingSitRetry = 12; // keep trying for a minute -- it can take that long for things to rez
}
}
cmd += pre + restr + "=n";
pre = ",";
restrictions += [o, restr];
pingRestrictions = llDeleteSubList(pingRestrictions, i, i + 1);
}
if ( cmd )
llOwnerSay(cmd);
updateStatus(TRUE);
if ( llGetListLength(pingRestrictions) == 0 )
pingObjects = [];
}
}
}
}
else if ( target == llGetKey() )
{
string cmdid = llList2String(pack, 0);
if ( cmdid == "uniquecheck" )
llOwnerSay("You are wearing another RLV relay (" + name + "). Remove it. You should never wear more than one RLV relay at a time.");
}
return;
}

if ( ch == permChannel )
{
integer o = (integer) llGetSubString(msg, -2, -1);
key obj = llList2Key(pendingObjects, o);
if ( llGetSubString(msg, 0, 2) == "Yes" )
{
allowedObjects = obj + llList2List(allowedObjects, 0, 8);
integer i;
while ( (i = llListFindList(pendingCommands, [o])) >= 0 )
{
string cmd = llList2String(pendingCommands, i + 2);
rlvCommand(obj, cmd);
llShout(relayChannel, llList2String(pendingCommands, i + 1) + "," + (string)obj + "," + cmd + ",ok");
pendingCommands = llDeleteSubList(pendingCommands, i, i + 2);
}
if ( llGetListLength(pendingCommands) == 0 )
pendingObjects = [];
}
else
{
rejectedObjects = obj + llList2List(rejectedObjects, 0, 8);
integer i;
while ( (i = llListFindList(pendingCommands, [o])) >= 0 )
{
string cmd = llList2String(pendingCommands, i + 2);
llShout(relayChannel, llList2String(pendingCommands, i + 1) + "," + (string)obj + "," + cmd + ",ko");
pendingCommands = llDeleteSubList(pendingCommands, i, i + 2);
}
if ( llGetListLength(pendingCommands) == 0 )
pendingObjects = [];
}
return;
}

if ( ch == backChannel )
{
sitting = msg;
return;
}
}

on_rez(integer param)
{
if ( objects )
{
integer len = llGetListLength(objects);
integer i;
for ( i = 0 ; i < len ; ++i )
if ( llListFindList(restrictions, [i]) >= 0 )
llShout(relayChannel, "ping," + (string)llList2Key(objects, i) + ",ping,ping");
}

pingObjects = objects;
pingRestrictions = restrictions;
pingSitting = sitting;
pingSitRetry = 0;

objects = [];
restrictions = [];
sitting = NULL_KEY;
updateStatus(FALSE);

allowedObjects = [];
rejectedObjects = [];
pendingObjects = [];
pendingCommands = [];
}

timer()
{
if ( llGetAgentInfo(llGetOwner()) & AGENT_ON_OBJECT )
{
llOwnerSay("@getsitid=" + (string)backChannel);
pingSitRetry = 0;
}
else
{
sitting = NULL_KEY;
if ( pingSitRetry )
{
llOwnerSay("@sit:" + (string)pingSitting + "=force");
--pingSitRetry;
}
}

if ( permListener )
{
if ( llGetUnixTime() >= permClose )
{
pendingObjects = [];
pendingCommands = [];
llListenRemove(permListener);
permListener = 0;
}
}
}

link_message(integer src, integer num, string msg, key id)
{
if ( msg == "relay-ask" )
{
askMode = num;
if ( askMode )
{
allowedObjects = objects;
rejectedObjects = [];
pendingObjects = [];
pendingCommands = [];
}
else if ( permListener )
{
allowedObjects = [];
rejectedObjects = [];
pendingObjects = [];
pendingCommands = [];
llListenRemove(permListener);
permListener = 0;
}
return;
}

if ( msg == "relay-status" )
{
integer len = llGetListLength(objects);
if ( len )
{
integer i;
for ( i = 0 ; i < len ; ++i )
llMessageLinked(LINK_SET, num, getStatus(i), llList2Key(objects, i));
}
else
llMessageLinked(LINK_SET, num, "", NULL_KEY);
return;
}

if ( msg == "relay-reset" )
{
integer len = llGetListLength(objects);
integer i;
for ( i = 0 ; i < len ; ++i )
llShout(relayChannel, "safeword," + (string)llList2Key(objects, i) + ",!release,ok");
llResetScript();
return;
}
}

attach(key id)
{
if ( id )
llWhisper(relayChannel, "uniquecheck," + (string)id + ",!version");
}

changed(integer change)
{
if ( change & CHANGED_OWNER )
llResetScript();
}
}
</lsl>

LSL Protocol/Restrained Living Relay/Other Implementations/Dominatech RLV Relay

2009-02-14T08:13:03Z

Julia Banshee:

{{Restrained Life Relay Specs TOC}}

<lsl>
// Dominatech RLV Relay Script 2.0
// Copyright (C) 2009 Julia Banshee
//
// This program is free software: you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU General Public License for more details.
//
// See http://www.gnu.org/licenses/gpl.html for terms of this license.

integer relayChannel = -1812221819;
string version = "1030";
string implversion = "Dominatech Relay 2.0";

integer backChannel; // for @getsitid
key sitting;

list objects;
list restrictions;

list pingObjects;
list pingRestrictions;
key pingSitting;
integer pingSitRetry;

integer lit;

integer askMode;
list allowedObjects;
list rejectedObjects;
list pendingObjects;
list pendingCommands;

integer permChannel;
integer permListener;
integer permClose;

updateStatus(integer r)
{
if ( r )
{
if ( ! lit )
{
llMessageLinked(LINK_SET, TRUE, "relay-lock", NULL_KEY);
llSetColor(<1.0, 0.0, 0.0>, ALL_SIDES);
lit = TRUE;
}
}
else
{
if ( lit )
{
llMessageLinked(LINK_SET, FALSE, "relay-lock", NULL_KEY);
llSetColor(<0.0, 1.0, 0.0>, ALL_SIDES);
lit = FALSE;
}
}
}

clear(key obj)
{
integer o = llListFindList(objects, [obj]);
if ( o >= 0 )
{
integer i;
while ( (i = llListFindList(restrictions, [o])) >= 0 )
{
string restr = llList2String(restrictions, i + 1);
restrictions = llDeleteSubList(restrictions, i, i + 1);
if ( llListFindList(restrictions, [restr]) < 0 )
llOwnerSay("@" + restr + "=y");
}
}
if ( llGetListLength(restrictions) == 0 )
{
objects = [];
updateStatus(FALSE);
}
}

clearSome(key obj, string param)
{
integer o = llListFindList(objects, [obj]);
if ( o >= 0 )
{
integer len = llGetListLength(restrictions);
integer i;
for ( i = 0 ; i < len ; i += 2 )
{
if ( llList2Integer(restrictions, i) == o )
{
string restr = llList2String(restrictions, i + 1);
if ( llSubStringIndex(restr, param) >= 0 )
{
restrictions = llDeleteSubList(restrictions, i, i + 1);
if ( llListFindList(restrictions, [restr]) < 0 )
llOwnerSay("@" + restr + "=y");
i -= 2;
len -= 2;
}
}
}
}
if ( llGetListLength(restrictions) == 0 )
{
objects = [];
updateStatus(FALSE);
}
}

rlvCommand(key id, string cmd)
{
integer e = llSubStringIndex(cmd, "=");
if ( e >= 0 )
{
string restr = llGetSubString(cmd, 1, e - 1);
string param = llGetSubString(cmd, e + 1, -1);
if ( param == "n" || param == "add" )
{
llOwnerSay(cmd);
integer i;
integer o = llListFindList(objects, [id]);
if ( o < 0 )
{
o = llGetListLength(objects);
objects += id;
i = -1;
}
else i = llListFindList(restrictions, [o, restr]);
if ( i < 0 )
{
restrictions += [o, restr];
updateStatus(TRUE);
}
if ( restr == "unsit" )
llOwnerSay("@getsitid=" + (string)backChannel);
}
else if ( param == "y" || param == "rem" )
{
integer o = llListFindList(objects, [id]);
if ( o >= 0 )
{
integer i = llListFindList(restrictions, [o, restr]);
if ( i >= 0 )
{
restrictions = llDeleteSubList(restrictions, i, i + 1);
if ( llGetListLength(restrictions) == 0 )
{
objects = [];
updateStatus(FALSE);
}
}
}
if ( llListFindList(restrictions, [restr]) < 0 )
llOwnerSay(cmd);
}
else
{
if ( restr == "clear" )
clearSome(id, param);
else
llOwnerSay(cmd);
}
}
else
{
if ( cmd == "@clear" )
clear(id);
else
llOwnerSay(cmd);
}
}

string getStatus(integer o) // it's okay if o is not an existing object, or -1, we just result an empty string
{
string result = "";
integer len = llGetListLength(restrictions);
integer i;
for ( i = 0 ; i < len ; i += 2 )
if ( llList2Integer(restrictions, i) == o )
result += "/" + llList2String(restrictions, i + 1);
return result;
}

integer allowCommand(key id, string cmd)
{
if ( ! askMode ) return TRUE; // not in ask mode, automatically allow
if ( llListFindList(allowedObjects, [id]) >= 0 ) return TRUE; // this object has permission
if ( llGetOwnerKey(id) == llGetOwner() ) return TRUE; // owner's own objects always have permission
if ( llGetSubString(cmd, -2, -1) == "=n" ) return FALSE; // adding restrictions not allowed without permission
if ( llGetSubString(cmd, -4, -1) == "=add" ) return FALSE; // adding restrictions not allowed without permission
if ( llGetSubString(cmd, -6, -1) == "=force" ) return FALSE; // forcing actions not allowed without permission
return TRUE; // anything else is okay (e.g. @version)
}

default
{
state_entry()
{
llSetObjectName(implversion);

lit = TRUE;
updateStatus(FALSE);

llListen(relayChannel, "", NULL_KEY, "");
llListen(backChannel = 16777216 + (integer)llFrand(16777216.0), "", llGetOwner(), "");
llSetTimerEvent(5.0);

llMessageLinked(LINK_SET, -123, llGetScriptName() + " free: " + (string)llGetFreeMemory(), NULL_KEY);
}

listen(integer ch, string name, key id, string msg)
{
if ( ch == relayChannel )
{
list pack = llCSV2List(msg);
key target = llList2String(pack, 1);
if ( target == llGetOwner() )
{
string cmdid = llList2String(pack, 0);
list cmds = llParseString2List(llList2String(pack, 2), ["|"], []);
integer len = llGetListLength(cmds);
integer i;
for ( i = 0 ; i < len ; ++i )
{
string cmd = llList2String(cmds, i);
if ( llGetSubString(cmd, 0, 0) == "@" )
{
if ( allowCommand(id, cmd) )
{
rlvCommand(id, cmd);
llShout(relayChannel, cmdid + "," + (string)id + "," + cmd + ",ok");
}
else if ( llListFindList(rejectedObjects, [id]) >= 0 )
{
llShout(relayChannel, cmdid + "," + (string)id + "," + cmd + ",ko");
}
else
{
integer p = llListFindList(pendingObjects, [id]);
if ( p < 0 )
{
p = llGetListLength(pendingObjects);
pendingObjects += id;

list buttons;
if ( p )
buttons = ["Yes " + (string)p, "No " + (string)p];
else
buttons = ["Yes", "No"];
string object = llKey2Name(id);
string ownedby = llKey2Name(llGetOwnerKey(id));
if ( ownedby ) object += " (owned by " + ownedby + ")";
if ( ! permListener )
permListener = llListen(permChannel = -16777216 - (integer)llFrand(16777216.0), "", llGetOwner(), "");
llDialog(llGetOwner(), "The object " + object
+ " is attempting to use your Restrained Life Viewer relay. Do you wish to allow it?", buttons, permChannel);
permClose = llGetUnixTime() + 120;
}
if ( llListFindList(pendingCommands, [p, cmdid, cmd]) < 0 ) // some devices spam the same command over and over, don't keep growing list
pendingCommands += [p, cmdid, cmd];
}
}
else if ( cmd == "!release" )
{
clear(id);
llShout(relayChannel, cmdid + "," + (string)id + "," + cmd + ",ok");
}
else if ( cmd == "!getstatus" )
{
integer o = llListFindList(objects, [id]);
llShout(relayChannel, cmdid + "," + (string)id + "," + cmd + "," + getStatus(o));
}
else if ( cmd == "!version" )
{
llShout(relayChannel, cmdid + "," + (string)id + "," + cmd + "," + version);
}
else if ( cmd == "!implversion" )
{
llShout(relayChannel, cmdid + "," + (string)id + "," + cmd + "," + implversion);
}
else if ( cmd == "!pong" )
{
integer p = llListFindList(pingObjects, [id]);
if ( p >= 0 )
{
llOwnerSay("Got pong, you're out of luck. Reapplying restrictions from " + name + "...");
integer o = llListFindList(objects, [id]);
if ( o < 0 )
{
o = llGetListLength(objects);
objects += id;
}
string cmd = "";
string pre = "@";
integer i;
while ( (i = llListFindList(pingRestrictions, [p])) >= 0 )
{
string restr = llList2String(pingRestrictions, i + 1);
if ( restr == "unsit" )
{
if ( pingSitting )
{
llOwnerSay("@sit:" + (string)pingSitting + "=force");
pingSitRetry = 12; // keep trying for a minute -- it can take that long for things to rez
}
}
cmd += pre + restr + "=n";
pre = ",";
restrictions += [o, restr];
pingRestrictions = llDeleteSubList(pingRestrictions, i, i + 1);
}
if ( cmd )
llOwnerSay(cmd);
updateStatus(TRUE);
if ( llGetListLength(pingRestrictions) == 0 )
pingObjects = [];
}
}
}
}
else if ( target == llGetKey() )
{
string cmdid = llList2String(pack, 0);
if ( cmdid == "uniquecheck" )
llOwnerSay("You are wearing another RLV relay (" + name + "). Remove it. You should never wear more than one RLV relay at a time.");
}
return;
}

if ( ch == permChannel )
{
integer o = (integer) llGetSubString(msg, -2, -1);
key obj = llList2Key(pendingObjects, o);
if ( llGetSubString(msg, 0, 2) == "Yes" )
{
allowedObjects = obj + llList2List(allowedObjects, 0, 8);
integer i;
while ( (i = llListFindList(pendingCommands, [o])) >= 0 )
{
string cmd = llList2String(pendingCommands, i + 2);
rlvCommand(obj, cmd);
llShout(relayChannel, llList2String(pendingCommands, i + 1) + "," + (string)obj + "," + cmd + ",ok");
pendingCommands = llDeleteSubList(pendingCommands, i, i + 2);
}
if ( llGetListLength(pendingCommands) == 0 )
pendingObjects = [];
}
else
{
rejectedObjects = obj + llList2List(rejectedObjects, 0, 8);
integer i;
while ( (i = llListFindList(pendingCommands, [o])) >= 0 )
{
string cmd = llList2String(pendingCommands, i + 2);
llShout(relayChannel, llList2String(pendingCommands, i + 1) + "," + (string)obj + "," + cmd + ",ko");
pendingCommands = llDeleteSubList(pendingCommands, i, i + 2);
}
if ( llGetListLength(pendingCommands) == 0 )
pendingObjects = [];
}
return;
}

if ( ch == backChannel )
{
sitting = msg;
return;
}
}

on_rez(integer param)
{
if ( objects )
{
integer len = llGetListLength(objects);
integer i;
for ( i = 0 ; i < len ; ++i )
if ( llListFindList(restrictions, [i]) >= 0 )
llShout(relayChannel, "ping," + (string)llList2Key(objects, i) + ",ping,ping");
}

pingObjects = objects;
pingRestrictions = restrictions;
pingSitting = sitting;
pingSitRetry = 0;

objects = [];
restrictions = [];
sitting = NULL_KEY;
updateStatus(FALSE);

allowedObjects = [];
rejectedObjects = [];
pendingObjects = [];
pendingCommands = [];
}

timer()
{
if ( llGetAgentInfo(llGetOwner()) & AGENT_ON_OBJECT )
{
llOwnerSay("@getsitid=" + (string)backChannel);
pingSitRetry = 0;
}
else
{
sitting = NULL_KEY;
if ( pingSitRetry )
{
llOwnerSay("@sit:" + (string)pingSitting + "=force");
--pingSitRetry;
}
}

if ( permListener )
{
if ( llGetUnixTime() >= permClose )
{
pendingObjects = [];
pendingCommands = [];
llListenRemove(permListener);
permListener = 0;
}
}
}

link_message(integer src, integer num, string msg, key id)
{
if ( msg == "relay-ask" )
{
askMode = num;
if ( askMode )
{
allowedObjects = objects;
rejectedObjects = [];
pendingObjects = [];
pendingCommands = [];
}
else if ( permListener )
{
allowedObjects = [];
rejectedObjects = [];
pendingObjects = [];
pendingCommands = [];
llListenRemove(permListener);
permListener = 0;
}
return;
}

if ( msg == "relay-status" )
{
integer len = llGetListLength(objects);
if ( len )
{
integer i;
for ( i = 0 ; i < len ; ++i )
llMessageLinked(LINK_SET, num, getStatus(i), llList2Key(objects, i));
}
else
llMessageLinked(LINK_SET, num, "", NULL_KEY);
return;
}

if ( msg == "relay-reset" )
{
integer len = llGetListLength(objects);
integer i;
for ( i = 0 ; i < len ; ++i )
llShout(relayChannel, "safeword," + (string)llList2Key(objects, i) + ",!release,ok");
llResetScript();
return;
}
}

attach(key id)
{
if ( id )
llWhisper(relayChannel, "uniquecheck," + (string)id + ",!version");
}

changed(integer change)
{
if ( change & CHANGED_OWNER )
llResetScript();
}
}
</lsl>

LSL Protocol/Restrained Living Relay/Other Implementations/Dominatech RLV Relay

2009-02-14T08:11:10Z

Julia Banshee: New page: <lsl> // Dominatech RLV Relay Script 2.0 // Copyright (C) 2009 Julia Banshee // // This program is free software: you can redistribute it and/or modify // it under the terms of the GNU Gen...

<lsl>
// Dominatech RLV Relay Script 2.0
// Copyright (C) 2009 Julia Banshee
//
// This program is free software: you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU General Public License for more details.
//
// See http://www.gnu.org/licenses/gpl.html for terms of this license.

integer relayChannel = -1812221819;
string version = "1030";
string implversion = "Dominatech Relay 2.0";

integer backChannel; // for @getsitid
key sitting;

list objects;
list restrictions;

list pingObjects;
list pingRestrictions;
key pingSitting;
integer pingSitRetry;

integer lit;

integer askMode;
list allowedObjects;
list rejectedObjects;
list pendingObjects;
list pendingCommands;

integer permChannel;
integer permListener;
integer permClose;

updateStatus(integer r)
{
if ( r )
{
if ( ! lit )
{
llMessageLinked(LINK_SET, TRUE, "relay-lock", NULL_KEY);
llSetColor(<1.0, 0.0, 0.0>, ALL_SIDES);
lit = TRUE;
}
}
else
{
if ( lit )
{
llMessageLinked(LINK_SET, FALSE, "relay-lock", NULL_KEY);
llSetColor(<0.0, 1.0, 0.0>, ALL_SIDES);
lit = FALSE;
}
}
}

clear(key obj)
{
integer o = llListFindList(objects, [obj]);
if ( o >= 0 )
{
integer i;
while ( (i = llListFindList(restrictions, [o])) >= 0 )
{
string restr = llList2String(restrictions, i + 1);
restrictions = llDeleteSubList(restrictions, i, i + 1);
if ( llListFindList(restrictions, [restr]) < 0 )
llOwnerSay("@" + restr + "=y");
}
}
if ( llGetListLength(restrictions) == 0 )
{
objects = [];
updateStatus(FALSE);
}
}

clearSome(key obj, string param)
{
integer o = llListFindList(objects, [obj]);
if ( o >= 0 )
{
integer len = llGetListLength(restrictions);
integer i;
for ( i = 0 ; i < len ; i += 2 )
{
if ( llList2Integer(restrictions, i) == o )
{
string restr = llList2String(restrictions, i + 1);
if ( llSubStringIndex(restr, param) >= 0 )
{
restrictions = llDeleteSubList(restrictions, i, i + 1);
if ( llListFindList(restrictions, [restr]) < 0 )
llOwnerSay("@" + restr + "=y");
i -= 2;
len -= 2;
}
}
}
}
if ( llGetListLength(restrictions) == 0 )
{
objects = [];
updateStatus(FALSE);
}
}

rlvCommand(key id, string cmd)
{
integer e = llSubStringIndex(cmd, "=");
if ( e >= 0 )
{
string restr = llGetSubString(cmd, 1, e - 1);
string param = llGetSubString(cmd, e + 1, -1);
if ( param == "n" || param == "add" )
{
llOwnerSay(cmd);
integer i;
integer o = llListFindList(objects, [id]);
if ( o < 0 )
{
o = llGetListLength(objects);
objects += id;
i = -1;
}
else i = llListFindList(restrictions, [o, restr]);
if ( i < 0 )
{
restrictions += [o, restr];
updateStatus(TRUE);
}
if ( restr == "unsit" )
llOwnerSay("@getsitid=" + (string)backChannel);
}
else if ( param == "y" || param == "rem" )
{
integer o = llListFindList(objects, [id]);
if ( o >= 0 )
{
integer i = llListFindList(restrictions, [o, restr]);
if ( i >= 0 )
{
restrictions = llDeleteSubList(restrictions, i, i + 1);
if ( llGetListLength(restrictions) == 0 )
{
objects = [];
updateStatus(FALSE);
}
}
}
if ( llListFindList(restrictions, [restr]) < 0 )
llOwnerSay(cmd);
}
else
{
if ( restr == "clear" )
clearSome(id, param);
else
llOwnerSay(cmd);
}
}
else
{
if ( cmd == "@clear" )
clear(id);
else
llOwnerSay(cmd);
}
}

string getStatus(integer o) // it's okay if o is not an existing object, or -1, we just result an empty string
{
string result = "";
integer len = llGetListLength(restrictions);
integer i;
for ( i = 0 ; i < len ; i += 2 )
if ( llList2Integer(restrictions, i) == o )
result += "/" + llList2String(restrictions, i + 1);
return result;
}

integer allowCommand(key id, string cmd)
{
if ( ! askMode ) return TRUE; // not in ask mode, automatically allow
if ( llListFindList(allowedObjects, [id]) >= 0 ) return TRUE; // this object has permission
if ( llGetOwnerKey(id) == llGetOwner() ) return TRUE; // owner's own objects always have permission
if ( llGetSubString(cmd, -2, -1) == "=n" ) return FALSE; // adding restrictions not allowed without permission
if ( llGetSubString(cmd, -4, -1) == "=add" ) return FALSE; // adding restrictions not allowed without permission
if ( llGetSubString(cmd, -6, -1) == "=force" ) return FALSE; // forcing actions not allowed without permission
return TRUE; // anything else is okay (e.g. @version)
}

default
{
state_entry()
{
llSetObjectName(implversion);

lit = TRUE;
updateStatus(FALSE);

llListen(relayChannel, "", NULL_KEY, "");
llListen(backChannel = 16777216 + (integer)llFrand(16777216.0), "", llGetOwner(), "");
llSetTimerEvent(5.0);

llMessageLinked(LINK_SET, -123, llGetScriptName() + " free: " + (string)llGetFreeMemory(), NULL_KEY);
}

listen(integer ch, string name, key id, string msg)
{
if ( ch == relayChannel )
{
list pack = llCSV2List(msg);
key target = llList2String(pack, 1);
if ( target == llGetOwner() )
{
string cmdid = llList2String(pack, 0);
list cmds = llParseString2List(llList2String(pack, 2), ["|"], []);
integer len = llGetListLength(cmds);
integer i;
for ( i = 0 ; i < len ; ++i )
{
string cmd = llList2String(cmds, i);
if ( llGetSubString(cmd, 0, 0) == "@" )
{
if ( allowCommand(id, cmd) )
{
rlvCommand(id, cmd);
llShout(relayChannel, cmdid + "," + (string)id + "," + cmd + ",ok");
}
else if ( llListFindList(rejectedObjects, [id]) >= 0 )
{
llShout(relayChannel, cmdid + "," + (string)id + "," + cmd + ",ko");
}
else
{
integer p = llListFindList(pendingObjects, [id]);
if ( p < 0 )
{
p = llGetListLength(pendingObjects);
pendingObjects += id;

list buttons;
if ( p )
buttons = ["Yes " + (string)p, "No " + (string)p];
else
buttons = ["Yes", "No"];
string object = llKey2Name(id);
string ownedby = llKey2Name(llGetOwnerKey(id));
if ( ownedby ) object += " (owned by " + ownedby + ")";
if ( ! permListener )
permListener = llListen(permChannel = -16777216 - (integer)llFrand(16777216.0), "", llGetOwner(), "");
llDialog(llGetOwner(), "The object " + object
+ " is attempting to use your Restrained Life Viewer relay. Do you wish to allow it?", buttons, permChannel);
permClose = llGetUnixTime() + 120;
}
if ( llListFindList(pendingCommands, [p, cmdid, cmd]) < 0 ) // some devices spam the same command over and over, don't keep growing list
pendingCommands += [p, cmdid, cmd];
}
}
else if ( cmd == "!release" )
{
clear(id);
llShout(relayChannel, cmdid + "," + (string)id + "," + cmd + ",ok");
}
else if ( cmd == "!getstatus" )
{
integer o = llListFindList(objects, [id]);
llShout(relayChannel, cmdid + "," + (string)id + "," + cmd + "," + getStatus(o));
}
else if ( cmd == "!version" )
{
llShout(relayChannel, cmdid + "," + (string)id + "," + cmd + "," + version);
}
else if ( cmd == "!implversion" )
{
llShout(relayChannel, cmdid + "," + (string)id + "," + cmd + "," + implversion);
}
else if ( cmd == "!pong" )
{
integer p = llListFindList(pingObjects, [id]);
if ( p >= 0 )
{
llOwnerSay("Got pong, you're out of luck. Reapplying restrictions from " + name + "...");
integer o = llListFindList(objects, [id]);
if ( o < 0 )
{
o = llGetListLength(objects);
objects += id;
}
string cmd = "";
string pre = "@";
integer i;
while ( (i = llListFindList(pingRestrictions, [p])) >= 0 )
{
string restr = llList2String(pingRestrictions, i + 1);
if ( restr == "unsit" )
{
if ( pingSitting )
{
llOwnerSay("@sit:" + (string)pingSitting + "=force");
pingSitRetry = 12; // keep trying for a minute -- it can take that long for things to rez
}
}
cmd += pre + restr + "=n";
pre = ",";
restrictions += [o, restr];
pingRestrictions = llDeleteSubList(pingRestrictions, i, i + 1);
}
if ( cmd )
llOwnerSay(cmd);
updateStatus(TRUE);
if ( llGetListLength(pingRestrictions) == 0 )
pingObjects = [];
}
}
}
}
else if ( target == llGetKey() )
{
string cmdid = llList2String(pack, 0);
if ( cmdid == "uniquecheck" )
llOwnerSay("You are wearing another RLV relay (" + name + "). Remove it. You should never wear more than one RLV relay at a time.");
}
return;
}

if ( ch == permChannel )
{
integer o = (integer) llGetSubString(msg, -2, -1);
key obj = llList2Key(pendingObjects, o);
if ( llGetSubString(msg, 0, 2) == "Yes" )
{
allowedObjects = obj + llList2List(allowedObjects, 0, 8);
integer i;
while ( (i = llListFindList(pendingCommands, [o])) >= 0 )
{
string cmd = llList2String(pendingCommands, i + 2);
rlvCommand(obj, cmd);
llShout(relayChannel, llList2String(pendingCommands, i + 1) + "," + (string)obj + "," + cmd + ",ok");
pendingCommands = llDeleteSubList(pendingCommands, i, i + 2);
}
if ( llGetListLength(pendingCommands) == 0 )
pendingObjects = [];
}
else
{
rejectedObjects = obj + llList2List(rejectedObjects, 0, 8);
integer i;
while ( (i = llListFindList(pendingCommands, [o])) >= 0 )
{
string cmd = llList2String(pendingCommands, i + 2);
llShout(relayChannel, llList2String(pendingCommands, i + 1) + "," + (string)obj + "," + cmd + ",ko");
pendingCommands = llDeleteSubList(pendingCommands, i, i + 2);
}
if ( llGetListLength(pendingCommands) == 0 )
pendingObjects = [];
}
return;
}

if ( ch == backChannel )
{
sitting = msg;
return;
}
}

on_rez(integer param)
{
if ( objects )
{
integer len = llGetListLength(objects);
integer i;
for ( i = 0 ; i < len ; ++i )
if ( llListFindList(restrictions, [i]) >= 0 )
llShout(relayChannel, "ping," + (string)llList2Key(objects, i) + ",ping,ping");
}

pingObjects = objects;
pingRestrictions = restrictions;
pingSitting = sitting;
pingSitRetry = 0;

objects = [];
restrictions = [];
sitting = NULL_KEY;
updateStatus(FALSE);

allowedObjects = [];
rejectedObjects = [];
pendingObjects = [];
pendingCommands = [];
}

timer()
{
if ( llGetAgentInfo(llGetOwner()) & AGENT_ON_OBJECT )
{
llOwnerSay("@getsitid=" + (string)backChannel);
pingSitRetry = 0;
}
else
{
sitting = NULL_KEY;
if ( pingSitRetry )
{
llOwnerSay("@sit:" + (string)pingSitting + "=force");
--pingSitRetry;
}
}

if ( permListener )
{
if ( llGetUnixTime() >= permClose )
{
pendingObjects = [];
pendingCommands = [];
llListenRemove(permListener);
permListener = 0;
}
}
}

link_message(integer src, integer num, string msg, key id)
{
if ( msg == "relay-ask" )
{
askMode = num;
if ( askMode )
{
allowedObjects = objects;
rejectedObjects = [];
pendingObjects = [];
pendingCommands = [];
}
else if ( permListener )
{
allowedObjects = [];
rejectedObjects = [];
pendingObjects = [];
pendingCommands = [];
llListenRemove(permListener);
permListener = 0;
}
return;
}

if ( msg == "relay-status" )
{
integer len = llGetListLength(objects);
if ( len )
{
integer i;
for ( i = 0 ; i < len ; ++i )
llMessageLinked(LINK_SET, num, getStatus(i), llList2Key(objects, i));
}
else
llMessageLinked(LINK_SET, num, "", NULL_KEY);
return;
}

if ( msg == "relay-reset" )
{
integer len = llGetListLength(objects);
integer i;
for ( i = 0 ; i < len ; ++i )
llShout(relayChannel, "safeword," + (string)llList2Key(objects, i) + ",!release,ok");
llResetScript();
return;
}
}

attach(key id)
{
if ( id )
llWhisper(relayChannel, "uniquecheck," + (string)id + ",!version");
}

changed(integer change)
{
if ( change & CHANGED_OWNER )
llResetScript();
}
}
</lsl>

LSL Protocol/Restrained Love Relay/Other Implementations

2009-02-14T08:09:58Z

Julia Banshee:

{{Restrained Life Relay Specs TOC}}

Want to share your own relay script?

Please create a new page and add a link here.

== Amethyst Plugin version by Felis Darwin ==
An edited version of the Reference Implementation meant to be used as a plugin for Amethyst collars. '''WARNING: This is currently a work in progress, and can cause conflicts (''specifically, nullifying restrictions on release'') with the standard Amethyst Restrained Life Plugin.'''

Adds an actual timeout for the ask dialog, periodic pinging, and locking support.

[[LSL Protocol/Restrained Life Relay/Other Implementations/Felis Darwin's Amethyst Plugin|This version's subpage]]

== Maike Short's Version ==

[[LSL Protocol/Restrained Life Relay/Other Implementations/Maike Short's Relay|Maike Short's Relay]]

== Dominatech RLV Relay ==

[[LSL Protocol/Restrained Life Relay/Other Implementations/Dominatech RLV Relay|Julia Banshee's relay]], with multiple device support.

LSL Protocol/Restrained Love Relay/Bugs and Pending Features

2008-09-18T08:05:09Z

Julia Banshee: /* Foreign Channel Chat */

{{Restrained Life Relay Specs TOC}}

== 1.02 ==

Version 1.02 reintroduces all the problems listed in 1.014.

=== Foreign Channel Chat ===

; Description : An object can force the agent to say any lower case text on any channel using @getstatus
; Note : Relays which do not add any restriction on their own (like @detach=n) may be abused using @gestatus to trigger dialog responses, gag talk or other scripts like "to buy as gift, say the name of the receiver on channel /''x''". Any version of the reference implementation smaller than (not including) 1.015 (but including 1.020 which is based on 1.014) are affected by this.
; Workaround : none
; Fixed : in [[LSL Protocol/Restrained Life Relay/Other Implementations/Maike Short's Relay|Maike Short's Relay]]
; Proposed fixed : Add "this-is-a-script-generated-message-beyond-the-control-of-the-agent/" at the beginning of @getstatus-replies on all channel by issuing this as the very first restriction. This still allows to trigger gags but it will include a human readable warning (if you speak Gagish well enough). The usual "to buy as gift, say the name of the receiver on channel /''x''" scripts will try to resolve this text as part of the name and will fail because such long avatar names are not allowed. Other scripts waiting for commands are very likely not to accept this text either. A more secure solution would be to define one single channel which must be used for such queries but that would break a lot of content.

It would probably be sufficient to "ko" @getstatus=x requests where x < 1000. Most gags or other scripts that expect human-typed channel numbers stick to < 1000, whereas most furniture looking for status use much larger channel numbers (mine use random channels, but with a minimum of 1000000, for example).

=== Foreign Public Chat ===

; Description : An object can force the agent to say any text in public chat using @getstatus=0 and use similar functions (like @version) to spam other text there.
; Note : This allows the same abuse mentioned in the above entry, too. But being public chat makes even non abusable cases very annoying.
; Workaround : none
; Fixed : in [[LSL Protocol/Restrained Life Relay/Other Implementations/Maike Short's Relay|Maike Short's Relay]]
; Proposed fixed : The relay should filter all queries directed to answer on channel 0. Add this at the end of the huge if / else if / else if block in executeRLVCommand
<lsl>
else if ((integer) param == 0) {
// this is either an unknown param (not "n", "add", "y", "rem", "force")
// or a query which should be answered on the public chat channel 0.
ack(cmd_id, id, command, "ko");
return;
}
</lsl>

=== Relay Crash in Ask mode ===

; Description : A malicious objects scans for all avatars within the sensor range. For each avatar a new object is rezes out of the content. This objects sends 10 messages to the relay each of about 1000 characters causing sPendingMessage to overflow. After the 10 messages are send these objects die making tracking very difficult.
; Note : Some relays accept commands from objects more than <del>20</del>100 meters away so the attacking objects can be hidden far away.
; Workaround : None
; Open : although fixed in version 1.15 it was reintroduced by the revert in version 1.02

== 1.015 ==

The below problems are fixed [[LSL_Protocol/Restrained_Life_Relay/Other_Implementations/Maike_Short's_Relay|here]], except for the forced sit issue below.

== 1.014 ==

The following problems occured in version 1.014 and have been fixed:

=== Stuck: Accepting Permission Dialog after !release ===
; Discovered by : Maike Short
; Workaround : Don't accept requests after you have been freed. In case it happend, reenter the cage / sit down again; relog.
; Fixed : in 1.015

=== Force Sit during Login on the control object instead of the forced-sit one ===

; Discovered by : Azoth Amat
; Workaround : Always send a "@sit:<id>=force" command if you want a forced sit on relog, even if the victim is already sitting.
; Fix : change in <code>timer()</code>: <code>sendRLCmd ("@sit:"+(string)kSource+"=force");</code> to <code>sendRLCmd ("@sit:"+(string)lastForceSitDestination+"=force");</code>
; Note : This prevents @unsit to work in case the person set down without being forced if the furniture in question hasn't sent a @sit:<id>=force command. (This should probably be considered a bug in the furniture, not the relay.)
; Fixed : in 1.015 (but that fix breaks other things, forcing sits when not appropriate), and 1.02 (that fix always works, assuming the furniture is properly setting the @sit destination)

:: Sending a bogus force sit on sit as you suggested may not work if force-sits are filtered. As far as I know there is no way for an attachment to detect the object the avatar is sitting on. So the relay will not be able to tell real force-sits (which should be subjected to the filter) and bogus force-sits for this problem apart.
:: It could accept a force-sit on the control-object but this would allow to kidnap an agent sitting on an other object. Well, the same can happen with my approach of using the sending object as fall back. Could you give an example for a forced sit when not appropriate with my approach? This may reveal other aspects of the problem.
:: The specification says "Force sit if unsit is prevented when relogging" in "Relay requirements" so I think objects that just send @unsit=n without force-sit should not be called buggy. If it turns out the current approach does cause more problems than it fixes it may be worth to adjust the spec. But this will cause existing world object to break so should not be taken lightly. --[[User:Maike Short|Maike Short]] 12:55, 17 September 2008 (PDT)

=== Stuck on crash/relog with objects asking for relay upon being sat on ===

; Discovered by : Gregor Mougin
; Problem : Many objects check for presence of a relay and the RR viewer by asking for the !version when sat on. If the user crashes, and the object was used by someone else in the meantime (or, for testing, reset), the relay enforces all previous restrictions whereas the object doesn't know of them.
; Workaround : none
; Suggested fix :
<lsl>
--- RLV_v1.014a 2008-07-06 23:17:14.000000000 +0200
+++ RLV_v1.014a-xxx 2008-07-06 23:18:32.000000000 +0200
@@ -545,10 +545,16 @@
loginPendingForceSit = FALSE;
releaseRestrictions();
}
- else
- {
- sendRLCmd ("@sit:"+(string)kSource+"=force");
- }
+ // XXX
+ // DON'T do it here
+ // Some (many?) objects ask the relay for the !version upon
+ // sitting on it. Since the !version is interpreted the same
+ // as !pong, the relay would think the object is still available
+ // and put all restrictions on the wearer unconditionally.
+ //else
+ //{
+ // sendRLCmd ("@sit:"+(string)kSource+"=force");
+ //}
}

if (!loginPendingForceSit && !loginWaitingForPong)
@@ -583,6 +589,18 @@

loginWaitingForPong = FALSE; // whatever the message, it is for me => it satisfies the ping request

+ // XXX
+ // force sit here instead of unconditionally in the timer event
+ if (loginPendingForceSit)
+ {
+ integer agentInfo = llGetAgentInfo(llGetOwner());
+
+ loginPendingForceSit = FALSE;
+ if (!(agentInfo & AGENT_SITTING))
+ sendRLCmd ("@sit:"+(string)kSource+"=force");
+ }
+ // end XXX
+
if (!isObjectKnow(id))
{
debug("asking for permission because kSource is NULL_KEY");
</lsl>
; Fixed : in 1.015 by specially looking for the !pong reply so that the fix works for cages as well (no "force sit" in this situation but a collision detection which is triggered on login, too).

LSL Protocol/Restrained Love Relay/Bugs and Pending Features

2008-09-16T18:51:01Z

Julia Banshee: /* 1.015 */

{{Restrained Life Relay Specs TOC}}

== 1.02 ==

Version 1.02 reintroduces all the problems listed in 1.014.

=== Relay Crash in Ask mode ===

; Description : A malicious objects scans for all avatars within the sensor range. For each avatar a new object is rezes out of the content. This objects sends 10 messages to the relay each of about 1000 characters causing sPendingMessage to overflow. After the 10 messages are send these objects die making tracking very difficult.
; Note : Some relays accept commands from objects more than <del>20</del>100 meters away so the attacking objects can be hidden far away.
; Workaround : None
; Open : although fixed in version 1.15 it was reintroduced by the revert in version 1.02

== 1.015 ==

The below problems are fixed [[LSL_Protocol/Restrained_Life_Relay/Other_Implementations/Maike_Short's_Relay|here]], except for the forced sit issue below.

== 1.014 ==

The following problems occured in version 1.014 and have been fixed:

=== Stuck: Accepting Permission Dialog after !release ===
; Discovered by : Maike Short
; Workaround : Don't accept requests after you have been freed. In case it happend, reenter the cage / sit down again; relog.
; Fixed : in 1.015

=== Force Sit during Login on the control object instead of the forced-sit one ===

; Discovered by : Azoth Amat
; Workaround : Always send a "@sit:<id>=force" command if you want a forced sit on relog, even if the victim is already sitting.
; Fix : change in <code>timer()</code>: <code>sendRLCmd ("@sit:"+(string)kSource+"=force");</code> to <code>sendRLCmd ("@sit:"+(string)lastForceSitDestination+"=force");</code>
; Note : This prevents @unsit to work in case the person set down without being forced if the furniture in question hasn't sent a @sit:<id>=force command. (This should probably be considered a bug in the furniture, not the relay.)
; Fixed : in 1.015 (but that fix breaks other things, forcing sits when not appropriate), and 1.02 (that fix always works, assuming the furniture is properly setting the @sit destination)

=== Stuck on crash/relog with objects asking for relay upon being sat on ===

; Discovered by : Gregor Mougin
; Problem : Many objects check for presence of a relay and the RR viewer by asking for the !version when sat on. If the user crashes, and the object was used by someone else in the meantime (or, for testing, reset), the relay enforces all previous restrictions whereas the object doesn't know of them.
; Workaround : none
; Suggested fix :
<lsl>
--- RLV_v1.014a 2008-07-06 23:17:14.000000000 +0200
+++ RLV_v1.014a-xxx 2008-07-06 23:18:32.000000000 +0200
@@ -545,10 +545,16 @@
loginPendingForceSit = FALSE;
releaseRestrictions();
}
- else
- {
- sendRLCmd ("@sit:"+(string)kSource+"=force");
- }
+ // XXX
+ // DON'T do it here
+ // Some (many?) objects ask the relay for the !version upon
+ // sitting on it. Since the !version is interpreted the same
+ // as !pong, the relay would think the object is still available
+ // and put all restrictions on the wearer unconditionally.
+ //else
+ //{
+ // sendRLCmd ("@sit:"+(string)kSource+"=force");
+ //}
}

if (!loginPendingForceSit && !loginWaitingForPong)
@@ -583,6 +589,18 @@

loginWaitingForPong = FALSE; // whatever the message, it is for me => it satisfies the ping request

+ // XXX
+ // force sit here instead of unconditionally in the timer event
+ if (loginPendingForceSit)
+ {
+ integer agentInfo = llGetAgentInfo(llGetOwner());
+
+ loginPendingForceSit = FALSE;
+ if (!(agentInfo & AGENT_SITTING))
+ sendRLCmd ("@sit:"+(string)kSource+"=force");
+ }
+ // end XXX
+
if (!isObjectKnow(id))
{
debug("asking for permission because kSource is NULL_KEY");
</lsl>
; Fixed : in 1.015 by specially looking for the !pong reply so that the fix works for cages as well (no "force sit" in this situation but a collision detection which is triggered on login, too).

LSL Protocol/Restrained Love Relay/Bugs and Pending Features

2008-09-16T18:45:46Z

Julia Banshee: /* Force Sit during Login on the control object instead of the forced-sit one */

{{Restrained Life Relay Specs TOC}}

== 1.02 ==

Version 1.02 reintroduces all the problems listed in 1.014.

=== Relay Crash in Ask mode ===

; Description : A malicious objects scans for all avatars within the sensor range. For each avatar a new object is rezes out of the content. This objects sends 10 messages to the relay each of about 1000 characters causing sPendingMessage to overflow. After the 10 messages are send these objects die making tracking very difficult.
; Note : Some relays accept commands from objects more than <del>20</del>100 meters away so the attacking objects can be hidden far away.
; Workaround : None
; Open : although fixed in version 1.15 it was reintroduced by the revert in version 1.02

== 1.015 ==

The below problems are fixed [[LSL_Protocol/Restrained_Life_Relay/Other_Implementations/Maike_Short's_Relay|here]]

== 1.014 ==

The following problems occured in version 1.014 and have been fixed:

=== Stuck: Accepting Permission Dialog after !release ===
; Discovered by : Maike Short
; Workaround : Don't accept requests after you have been freed. In case it happend, reenter the cage / sit down again; relog.
; Fixed : in 1.015

=== Force Sit during Login on the control object instead of the forced-sit one ===

; Discovered by : Azoth Amat
; Workaround : Always send a "@sit:<id>=force" command if you want a forced sit on relog, even if the victim is already sitting.
; Fix : change in <code>timer()</code>: <code>sendRLCmd ("@sit:"+(string)kSource+"=force");</code> to <code>sendRLCmd ("@sit:"+(string)lastForceSitDestination+"=force");</code>
; Note : This prevents @unsit to work in case the person set down without being forced if the furniture in question hasn't sent a @sit:<id>=force command. (This should probably be considered a bug in the furniture, not the relay.)
; Fixed : in 1.015 (but that fix breaks other things, forcing sits when not appropriate), and 1.02 (that fix always works, assuming the furniture is properly setting the @sit destination)

=== Stuck on crash/relog with objects asking for relay upon being sat on ===

; Discovered by : Gregor Mougin
; Problem : Many objects check for presence of a relay and the RR viewer by asking for the !version when sat on. If the user crashes, and the object was used by someone else in the meantime (or, for testing, reset), the relay enforces all previous restrictions whereas the object doesn't know of them.
; Workaround : none
; Suggested fix :
<lsl>
--- RLV_v1.014a 2008-07-06 23:17:14.000000000 +0200
+++ RLV_v1.014a-xxx 2008-07-06 23:18:32.000000000 +0200
@@ -545,10 +545,16 @@
loginPendingForceSit = FALSE;
releaseRestrictions();
}
- else
- {
- sendRLCmd ("@sit:"+(string)kSource+"=force");
- }
+ // XXX
+ // DON'T do it here
+ // Some (many?) objects ask the relay for the !version upon
+ // sitting on it. Since the !version is interpreted the same
+ // as !pong, the relay would think the object is still available
+ // and put all restrictions on the wearer unconditionally.
+ //else
+ //{
+ // sendRLCmd ("@sit:"+(string)kSource+"=force");
+ //}
}

if (!loginPendingForceSit && !loginWaitingForPong)
@@ -583,6 +589,18 @@

loginWaitingForPong = FALSE; // whatever the message, it is for me => it satisfies the ping request

+ // XXX
+ // force sit here instead of unconditionally in the timer event
+ if (loginPendingForceSit)
+ {
+ integer agentInfo = llGetAgentInfo(llGetOwner());
+
+ loginPendingForceSit = FALSE;
+ if (!(agentInfo & AGENT_SITTING))
+ sendRLCmd ("@sit:"+(string)kSource+"=force");
+ }
+ // end XXX
+
if (!isObjectKnow(id))
{
debug("asking for permission because kSource is NULL_KEY");
</lsl>
; Fixed : in 1.015 by specially looking for the !pong reply so that the fix works for cages as well (no "force sit" in this situation but a collision detection which is triggered on login, too).

LSL Protocol/Restrained Love Relay/Bugs and Pending Features

2008-09-16T18:43:42Z

Julia Banshee: /* Force Sit during Login on the control object instead of the forced-sit one */

{{Restrained Life Relay Specs TOC}}

== 1.02 ==

Version 1.02 reintroduces all the problems listed in 1.014.

=== Relay Crash in Ask mode ===

; Description : A malicious objects scans for all avatars within the sensor range. For each avatar a new object is rezes out of the content. This objects sends 10 messages to the relay each of about 1000 characters causing sPendingMessage to overflow. After the 10 messages are send these objects die making tracking very difficult.
; Note : Some relays accept commands from objects more than <del>20</del>100 meters away so the attacking objects can be hidden far away.
; Workaround : None
; Open : although fixed in version 1.15 it was reintroduced by the revert in version 1.02

== 1.015 ==

The below problems are fixed [[LSL_Protocol/Restrained_Life_Relay/Other_Implementations/Maike_Short's_Relay|here]]

== 1.014 ==

The following problems occured in version 1.014 and have been fixed:

=== Stuck: Accepting Permission Dialog after !release ===
; Discovered by : Maike Short
; Workaround : Don't accept requests after you have been freed. In case it happend, reenter the cage / sit down again; relog.
; Fixed : in 1.015

=== Force Sit during Login on the control object instead of the forced-sit one ===

; Discovered by : Azoth Amat
; Workaround : Always send a "@sit:<id>=force" command if you want a forced sit on relog, even if the victim is already sitting.
; Fix : change in <code>timer()</code>: <code>sendRLCmd ("@sit:"+(string)kSource+"=force");</code> to <code>sendRLCmd ("@sit:"+(string)lastForceSitDestination+"=force");</code>
; Note : This prevents @unsit to work in case the person set down without being forced if the furniture in question hasn't sent a @sit:<id>=force command. (This should probably be considered a bug in the furniture, not the relay.)
; Fixed : in 1.015 (but that fix breaks other things, forcing sits when not appropriate), and 1.02 if the workaround above is used

=== Stuck on crash/relog with objects asking for relay upon being sat on ===

; Discovered by : Gregor Mougin
; Problem : Many objects check for presence of a relay and the RR viewer by asking for the !version when sat on. If the user crashes, and the object was used by someone else in the meantime (or, for testing, reset), the relay enforces all previous restrictions whereas the object doesn't know of them.
; Workaround : none
; Suggested fix :
<lsl>
--- RLV_v1.014a 2008-07-06 23:17:14.000000000 +0200
+++ RLV_v1.014a-xxx 2008-07-06 23:18:32.000000000 +0200
@@ -545,10 +545,16 @@
loginPendingForceSit = FALSE;
releaseRestrictions();
}
- else
- {
- sendRLCmd ("@sit:"+(string)kSource+"=force");
- }
+ // XXX
+ // DON'T do it here
+ // Some (many?) objects ask the relay for the !version upon
+ // sitting on it. Since the !version is interpreted the same
+ // as !pong, the relay would think the object is still available
+ // and put all restrictions on the wearer unconditionally.
+ //else
+ //{
+ // sendRLCmd ("@sit:"+(string)kSource+"=force");
+ //}
}

if (!loginPendingForceSit && !loginWaitingForPong)
@@ -583,6 +589,18 @@

loginWaitingForPong = FALSE; // whatever the message, it is for me => it satisfies the ping request

+ // XXX
+ // force sit here instead of unconditionally in the timer event
+ if (loginPendingForceSit)
+ {
+ integer agentInfo = llGetAgentInfo(llGetOwner());
+
+ loginPendingForceSit = FALSE;
+ if (!(agentInfo & AGENT_SITTING))
+ sendRLCmd ("@sit:"+(string)kSource+"=force");
+ }
+ // end XXX
+
if (!isObjectKnow(id))
{
debug("asking for permission because kSource is NULL_KEY");
</lsl>
; Fixed : in 1.015 by specially looking for the !pong reply so that the fix works for cages as well (no "force sit" in this situation but a collision detection which is triggered on login, too).

LSL Protocol/Restrained Love Relay/Bugs and Pending Features

2008-09-16T18:42:29Z

Julia Banshee: /* Force Sit during Login on the control object instead of the forced-sit one */

{{Restrained Life Relay Specs TOC}}

== 1.02 ==

Version 1.02 reintroduces all the problems listed in 1.014.

=== Relay Crash in Ask mode ===

; Description : A malicious objects scans for all avatars within the sensor range. For each avatar a new object is rezes out of the content. This objects sends 10 messages to the relay each of about 1000 characters causing sPendingMessage to overflow. After the 10 messages are send these objects die making tracking very difficult.
; Note : Some relays accept commands from objects more than <del>20</del>100 meters away so the attacking objects can be hidden far away.
; Workaround : None
; Open : although fixed in version 1.15 it was reintroduced by the revert in version 1.02

== 1.015 ==

The below problems are fixed [[LSL_Protocol/Restrained_Life_Relay/Other_Implementations/Maike_Short's_Relay|here]]

== 1.014 ==

The following problems occured in version 1.014 and have been fixed:

=== Stuck: Accepting Permission Dialog after !release ===
; Discovered by : Maike Short
; Workaround : Don't accept requests after you have been freed. In case it happend, reenter the cage / sit down again; relog.
; Fixed : in 1.015

=== Force Sit during Login on the control object instead of the forced-sit one ===

; Discovered by : Azoth Amat
; Workaround : Always send a "@sit:<id>=force" command if you want a forced sit on relog, even if the victim is already sitting.
; Fix : change in <code>timer()</code>: <code>sendRLCmd ("@sit:"+(string)kSource+"=force");</code> to <code>sendRLCmd ("@sit:"+(string)lastForceSitDestination+"=force");</code>
; Note : This prevents @unsit to work in case the person set down without being forced if the furniture in question hasn't sent a @sit:<id>=force command. (This should probably be considered a bug in the furniture, not the relay.)
; Fixed : in 1.015, and 1.02 if the workaround above is used

=== Stuck on crash/relog with objects asking for relay upon being sat on ===

; Discovered by : Gregor Mougin
; Problem : Many objects check for presence of a relay and the RR viewer by asking for the !version when sat on. If the user crashes, and the object was used by someone else in the meantime (or, for testing, reset), the relay enforces all previous restrictions whereas the object doesn't know of them.
; Workaround : none
; Suggested fix :
<lsl>
--- RLV_v1.014a 2008-07-06 23:17:14.000000000 +0200
+++ RLV_v1.014a-xxx 2008-07-06 23:18:32.000000000 +0200
@@ -545,10 +545,16 @@
loginPendingForceSit = FALSE;
releaseRestrictions();
}
- else
- {
- sendRLCmd ("@sit:"+(string)kSource+"=force");
- }
+ // XXX
+ // DON'T do it here
+ // Some (many?) objects ask the relay for the !version upon
+ // sitting on it. Since the !version is interpreted the same
+ // as !pong, the relay would think the object is still available
+ // and put all restrictions on the wearer unconditionally.
+ //else
+ //{
+ // sendRLCmd ("@sit:"+(string)kSource+"=force");
+ //}
}

if (!loginPendingForceSit && !loginWaitingForPong)
@@ -583,6 +589,18 @@

loginWaitingForPong = FALSE; // whatever the message, it is for me => it satisfies the ping request

+ // XXX
+ // force sit here instead of unconditionally in the timer event
+ if (loginPendingForceSit)
+ {
+ integer agentInfo = llGetAgentInfo(llGetOwner());
+
+ loginPendingForceSit = FALSE;
+ if (!(agentInfo & AGENT_SITTING))
+ sendRLCmd ("@sit:"+(string)kSource+"=force");
+ }
+ // end XXX
+
if (!isObjectKnow(id))
{
debug("asking for permission because kSource is NULL_KEY");
</lsl>
; Fixed : in 1.015 by specially looking for the !pong reply so that the fix works for cages as well (no "force sit" in this situation but a collision detection which is triggered on login, too).

LSL Protocol/Restrained Love Relay/Bugs and Pending Features

2008-09-16T18:41:35Z

Julia Banshee: /* Force Sit during Login on the control object instead of the forced-sit one */

{{Restrained Life Relay Specs TOC}}

== 1.02 ==

Version 1.02 reintroduces all the problems listed in 1.014.

=== Relay Crash in Ask mode ===

; Description : A malicious objects scans for all avatars within the sensor range. For each avatar a new object is rezes out of the content. This objects sends 10 messages to the relay each of about 1000 characters causing sPendingMessage to overflow. After the 10 messages are send these objects die making tracking very difficult.
; Note : Some relays accept commands from objects more than <del>20</del>100 meters away so the attacking objects can be hidden far away.
; Workaround : None
; Open : although fixed in version 1.15 it was reintroduced by the revert in version 1.02

== 1.015 ==

The below problems are fixed [[LSL_Protocol/Restrained_Life_Relay/Other_Implementations/Maike_Short's_Relay|here]]

== 1.014 ==

The following problems occured in version 1.014 and have been fixed:

=== Stuck: Accepting Permission Dialog after !release ===
; Discovered by : Maike Short
; Workaround : Don't accept requests after you have been freed. In case it happend, reenter the cage / sit down again; relog.
; Fixed : in 1.015

=== Force Sit during Login on the control object instead of the forced-sit one ===

; Discovered by : Azoth Amat
; Workaround : Always send a "@sit:<id>=force" command if you want a forced sit on relog, even if the victim is already sitting.
; Broken fix attempt : change in <code>timer()</code>: <code>sendRLCmd ("@sit:"+(string)kSource+"=force");</code> to <code>sendRLCmd ("@sit:"+(string)lastForceSitDestination+"=force");</code>
; Note : This prevents @unsit to work in case the person set down without being forced if the furniture in question hasn't sent a @sit:<id>=force command. (This should probably be considered a bug in the furniture, not the relay.)
; Fixed : in 1.015, and 1.02 if the workaround above is used

=== Stuck on crash/relog with objects asking for relay upon being sat on ===

; Discovered by : Gregor Mougin
; Problem : Many objects check for presence of a relay and the RR viewer by asking for the !version when sat on. If the user crashes, and the object was used by someone else in the meantime (or, for testing, reset), the relay enforces all previous restrictions whereas the object doesn't know of them.
; Workaround : none
; Suggested fix :
<lsl>
--- RLV_v1.014a 2008-07-06 23:17:14.000000000 +0200
+++ RLV_v1.014a-xxx 2008-07-06 23:18:32.000000000 +0200
@@ -545,10 +545,16 @@
loginPendingForceSit = FALSE;
releaseRestrictions();
}
- else
- {
- sendRLCmd ("@sit:"+(string)kSource+"=force");
- }
+ // XXX
+ // DON'T do it here
+ // Some (many?) objects ask the relay for the !version upon
+ // sitting on it. Since the !version is interpreted the same
+ // as !pong, the relay would think the object is still available
+ // and put all restrictions on the wearer unconditionally.
+ //else
+ //{
+ // sendRLCmd ("@sit:"+(string)kSource+"=force");
+ //}
}

if (!loginPendingForceSit && !loginWaitingForPong)
@@ -583,6 +589,18 @@

loginWaitingForPong = FALSE; // whatever the message, it is for me => it satisfies the ping request

+ // XXX
+ // force sit here instead of unconditionally in the timer event
+ if (loginPendingForceSit)
+ {
+ integer agentInfo = llGetAgentInfo(llGetOwner());
+
+ loginPendingForceSit = FALSE;
+ if (!(agentInfo & AGENT_SITTING))
+ sendRLCmd ("@sit:"+(string)kSource+"=force");
+ }
+ // end XXX
+
if (!isObjectKnow(id))
{
debug("asking for permission because kSource is NULL_KEY");
</lsl>
; Fixed : in 1.015 by specially looking for the !pong reply so that the fix works for cages as well (no "force sit" in this situation but a collision detection which is triggered on login, too).

LSL Protocol/Restrained Love Relay/Bugs and Pending Features

2008-09-16T18:40:34Z

Julia Banshee: /* Force Sit during Login on the control object instead of the forced-sit one */

{{Restrained Life Relay Specs TOC}}

== 1.02 ==

Version 1.02 reintroduces all the problems listed in 1.014.

=== Relay Crash in Ask mode ===

; Description : A malicious objects scans for all avatars within the sensor range. For each avatar a new object is rezes out of the content. This objects sends 10 messages to the relay each of about 1000 characters causing sPendingMessage to overflow. After the 10 messages are send these objects die making tracking very difficult.
; Note : Some relays accept commands from objects more than <del>20</del>100 meters away so the attacking objects can be hidden far away.
; Workaround : None
; Open : although fixed in version 1.15 it was reintroduced by the revert in version 1.02

== 1.015 ==

The below problems are fixed [[LSL_Protocol/Restrained_Life_Relay/Other_Implementations/Maike_Short's_Relay|here]]

== 1.014 ==

The following problems occured in version 1.014 and have been fixed:

=== Stuck: Accepting Permission Dialog after !release ===
; Discovered by : Maike Short
; Workaround : Don't accept requests after you have been freed. In case it happend, reenter the cage / sit down again; relog.
; Fixed : in 1.015

=== Force Sit during Login on the control object instead of the forced-sit one ===

; Discovered by : Azoth Amat
; Workaround : Always send a "@sit:<id>=force" command if you want a forced sit on relog, even if the victim is already sitting.
; Broken fix attempt : change in <code>timer()</code>: <code>sendRLCmd ("@sit:"+(string)kSource+"=force");</code> to <code>sendRLCmd ("@sit:"+(string)lastForceSitDestination+"=force");</code>
; Note : This prevents @unsit to work in case the person set down without being forced if the furniture in question hasn't sent a @sit:<id>=force command. (This should probably be considered a bug in the furniture, not the relay.)
; Fixed : in 1.015

=== Stuck on crash/relog with objects asking for relay upon being sat on ===

; Discovered by : Gregor Mougin
; Problem : Many objects check for presence of a relay and the RR viewer by asking for the !version when sat on. If the user crashes, and the object was used by someone else in the meantime (or, for testing, reset), the relay enforces all previous restrictions whereas the object doesn't know of them.
; Workaround : none
; Suggested fix :
<lsl>
--- RLV_v1.014a 2008-07-06 23:17:14.000000000 +0200
+++ RLV_v1.014a-xxx 2008-07-06 23:18:32.000000000 +0200
@@ -545,10 +545,16 @@
loginPendingForceSit = FALSE;
releaseRestrictions();
}
- else
- {
- sendRLCmd ("@sit:"+(string)kSource+"=force");
- }
+ // XXX
+ // DON'T do it here
+ // Some (many?) objects ask the relay for the !version upon
+ // sitting on it. Since the !version is interpreted the same
+ // as !pong, the relay would think the object is still available
+ // and put all restrictions on the wearer unconditionally.
+ //else
+ //{
+ // sendRLCmd ("@sit:"+(string)kSource+"=force");
+ //}
}

if (!loginPendingForceSit && !loginWaitingForPong)
@@ -583,6 +589,18 @@

loginWaitingForPong = FALSE; // whatever the message, it is for me => it satisfies the ping request

+ // XXX
+ // force sit here instead of unconditionally in the timer event
+ if (loginPendingForceSit)
+ {
+ integer agentInfo = llGetAgentInfo(llGetOwner());
+
+ loginPendingForceSit = FALSE;
+ if (!(agentInfo & AGENT_SITTING))
+ sendRLCmd ("@sit:"+(string)kSource+"=force");
+ }
+ // end XXX
+
if (!isObjectKnow(id))
{
debug("asking for permission because kSource is NULL_KEY");
</lsl>
; Fixed : in 1.015 by specially looking for the !pong reply so that the fix works for cages as well (no "force sit" in this situation but a collision detection which is triggered on login, too).