Difference between revisions of "User:Strife Onizuka/UpdateLinkSitTarget"
Jump to navigation
Jump to search
m |
m |
||
| Line 1: | Line 1: | ||
{{LSL Header}} | {{LSL Header}} | ||
< | <source lang="lsl2">//Sets / Updates the sit target moving the avatar on it if necessary. | ||
UpdateLinkSitTarget(integer link, vector pos, rotation rot) | UpdateLinkSitTarget(integer link, vector pos, rotation rot) | ||
{//Using this while the object is moving may give unpredictable results. | {//Using this while the object is moving may give unpredictable results. | ||
| Line 34: | Line 34: | ||
} | } | ||
@end; | @end; | ||
}//Written by Strife Onizuka, size adjustment provided by Talarus Luan</ | }//Written by Strife Onizuka, size adjustment provided by Talarus Luan</source> | ||
< | <source lang="lsl2">list GetSitTarget(integer prim, key av) | ||
{//WARNING: The accuracy of the position vector is very good if av is seated upon the object | {//WARNING: The accuracy of the position vector is very good if av is seated upon the object | ||
//but greatly reduced otherwise. | //but greatly reduced otherwise. | ||
| Line 61: | Line 61: | ||
} | } | ||
return []; | return []; | ||
}//Written by Strife Onizuka, size adjustment provided by Talarus Luan</ | }//Written by Strife Onizuka, size adjustment provided by Talarus Luan</source> | ||
Latest revision as of 16:48, 18 June 2015
| LSL Portal | Functions | Events | Types | Operators | Constants | Flow Control | Script Library | Categorized Library | Tutorials |
//Sets / Updates the sit target moving the avatar on it if necessary.
UpdateLinkSitTarget(integer link, vector pos, rotation rot)
{//Using this while the object is moving may give unpredictable results.
llLinkSitTarget(link, pos, rot);//Set the sit target
key user = llAvatarOnLinkSitTarget(link);
if(user)//true if there is a user seated on the sittarget, if so update their position
{
vector size = llGetAgentSize(user);
if(size)//This tests to make sure the user really exists.
{
integer linkNum = llGetNumberOfPrims();
do
{
if(user == llGetLinkKey( linkNum ))//just checking to make sure the index is valid.
{
//We need to make the position and rotation local to the current prim
list local;
if(llGetLinkKey(link) != llGetLinkKey(1))//only need the local rot if it's not the root.
local = llGetLinkPrimitiveParams(link, [PRIM_POS_LOCAL, PRIM_ROT_LOCAL]);
float fAdjust = ((((0.008906 * size.z) + -0.049831) * size.z) + 0.088967) * size.z;
llSetLinkPrimitiveParamsFast(linkNum, [
PRIM_POS_LOCAL, ((pos + <0.0,0.0,0.4> - (llRot2Up(rot) * fAdjust)) * llList2Rot(local, 1)) + llList2Vector(local, 0),
PRIM_ROT_LOCAL, rot * llList2Rot(local, 1)
]);
jump end;//cheaper but a tad slower then return
}
}while( --linkNum );
}
else
{//It is rare that the sit target will bork but it does happen, this can help to fix it.
llUnSit(user);
}
}
@end;
}//Written by Strife Onizuka, size adjustment provided by Talarus Luan
list GetSitTarget(integer prim, key av)
{//WARNING: The accuracy of the position vector is very good if av is seated upon the object
//but greatly reduced otherwise.
vector tp = llGetAgentSize(av);
if(tp)
{
list details;
integer linkNum = llGetNumberOfPrims();
do {//if it's part of the link set accuracy is higher
if(av == llGetLinkKey(linkNum)) {
list read = [PRIM_POS_LOCAL, PRIM_ROT_LOCAL];
details = llGetLinkPrimitiveParams(linkNum, read);
if(llGetLinkKey(prim) != llGetLinkKey(1))//no root prim! Easiest way to check imho
details += llGetLinkPrimitiveParams(prim, read);
jump next;
}
} while( --linkNum );
details = [OBJECT_POS, OBJECT_ROT]
details = llGetObjectDetails(av, details) + llGetObjectDetails(llGetLinkKey(prim), details);
@next;
rotation f = llList2Rot(details, 1);
rotation r = llList2Rot(details, 3) / f;
float fAdjust = ((((0.008906 * tp.z) + -0.049831) * tp.z) + 0.088967) * tp.z;
return [((llList2Vector(details, 2) - llList2Vector(details, 0)) / f) + (llRot2Up(r) * fAdjust) - <0.0, 0.0, 0.4>, r];
}
return [];
}//Written by Strife Onizuka, size adjustment provided by Talarus Luan