Miko/LSL-Scripts
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

No _vti

Browse Source
This commit is contained in:
Fred Beckhusen
2015-08-07 15:34:30 -05:00
parent ce47ec2f3e
commit fde850293c
8080 changed files with 0 additions and 2443112 deletions
Download Patch File Download Diff File Expand all files Collapse all files

247
control/control/Object/control_1.lsl
View File

@@ -1,247 +0,0 @@
// :CATEGORY:Building
// :NAME:control
// :AUTHOR:Anonymous
// :CREATED:2010-01-10 05:20:56.000
// :EDITED:2013-09-18 15:38:51
// :ID:202
// :NUM:276
// :REV:1.0
// :WORLD:Second Life
// :DESCRIPTION:
// control.lsl
// :CODE:
// MultiMove Controller Script
//
// Manages pilot seat and movement for the whole set
integer unichan = -28091988; // this is the channel used by the controller and
// objects to sync and move
float deltat = 0.125; // interval between updates
integer controlstaken; // control keys taken by the script, initialised later
integer listener;
integer maxl = 4;
vector sitoffset = <0.2,0,-0.2>; // sitting position
vector camoffset = <-24,0,9>; // camera position
vector camtarget = <12,0,0>; // camera direction
float speed = 1.0; // distance to move within deltat
float vspeed = 0.5; // vertical distance to move within deltat
integer rspeed = 3; // angle in degrees to rotate left or right within deltat
integer azimut; // direction in degrees around the Z axis (vertical)
default
{
on_rez(integer c)
{
llResetScript();
}
state_entry()
{
llMinEventDelay(deltat);
llSitTarget(sitoffset, ZERO_ROTATION);
llSetCameraAtOffset(camtarget);
llSetCameraEyeOffset(camoffset);
controlstaken = CONTROL_FWD|CONTROL_BACK|CONTROL_ROT_LEFT|CONTROL_ROT_RIGHT|CONTROL_LEFT|CONTROL_RIGHT|CONTROL_UP|CONTROL_DOWN;
}
changed(integer c)
{
if (c & CHANGED_LINK)
{
key id = llAvatarOnSitTarget();
if (id != NULL_KEY)
{
if (id == llGetOwner())
{
llRequestPermissions(id, PERMISSION_TAKE_CONTROLS);
} else llUnSit(id);
} else {
llReleaseControls();
}
}
}
run_time_permissions(integer p)
{
if (p & PERMISSION_TAKE_CONTROLS)
{
integer n;
for (n=0; n<maxl; ++n)
llShout(unichan + n, (string)(llGetRootPosition() + llGetRegionCorner()) + "*" + (string)azimut);
llSleep(1.0);
llTakeControls(controlstaken, TRUE, FALSE);
} else {
llReleaseControls();
llShout(unichan, (string)llGetRootPosition() + "*" + (string)azimut);
}
}
control(key id, integer pressed, integer change)
{
vector target = llGetRootPosition() + llGetRegionCorner();
rotation rtarget = llGetRootRotation();
if (pressed & (CONTROL_LEFT|CONTROL_ROT_LEFT))
{
// turning left
azimut = (azimut + rspeed) % 360;
rtarget *= llEuler2Rot(<0,0,DEG_TO_RAD * (float)rspeed>);
} else if (pressed & (CONTROL_RIGHT|CONTROL_ROT_RIGHT))
{
// turning right
azimut = (azimut - rspeed) % 360;
rtarget *= llEuler2Rot(<0,0,-DEG_TO_RAD * (float)rspeed>);
}
if (pressed & CONTROL_FWD)
{
// going forward
target += speed * llRot2Fwd(rtarget);
} else if (pressed & CONTROL_BACK)
{
// going backward
target += -speed * llRot2Fwd(rtarget);
}
if (pressed & CONTROL_UP)
{
// going forward
target += vspeed * llRot2Up(rtarget);
} else if (pressed & CONTROL_DOWN)
{
// going backward
target += -vspeed * llRot2Up(rtarget);
}
if (pressed | change)
{
listener = (listener + 1) % maxl;
llShout(unichan + listener, (string)target + "*" + (string)azimut);
}
}
}// END //

6
control/control/control.prj
View File

@@ -1,6 +0,0 @@
<Project name="control" guid="D7029265-6C00-1014-B904-200204C60A89">
<Object name="Object" guid="D7029358-6C00-1014-B904-200204C60A89">
<Script name="control_1.lsl" guid="D702B672-6C00-1014-B904-200204C60A89">
</Script>
</Object>
</Project>