+- Second Life Copybot (https://secondlifecopybot.com)
+-- Forum: SECOND LIFE PRODUCTS (https://secondlifecopybot.com/forum-1.html)
+--- Forum: SCRIPTS (https://secondlifecopybot.com/forum-1022.html)
+---- Forum: SCRIPTS (https://secondlifecopybot.com/forum-8.html)
+----- Forum: Avatar Augmentation Scripts (https://secondlifecopybot.com/forum-51.html)
+----- Thread: Flight Script - Final Flight 2.2 (/thread-8127.html)
Flight Script - Final Flight 2.2 - machinecode - 09-19-2014
Put in a prim and wear.
[To see links please register here]
PHP Code:
//Final Flight 2.2
float speed=10000;
default
{
attach(key on)
{
if (on != NULL_KEY)
{
llListen(0,"",llGetOwner(),"");
integer perm = llGetPermissions();
if (perm != (PERMISSION_TAKE_CONTROLS))
{
llRequestPermissions(on, PERMISSION_TAKE_CONTROLS);
}
else
{
llTakeControls(CONTROL_FWD , TRUE, TRUE);
}
}
}
listen(integer channel, string name, key id, string m)
{
list test = llCSV2List(m);
if(llGetListLength(test)==2&&llList2String(test,0)=="speed")
speed=llList2Float(test,1);
}
run_time_permissions(integer perm)
{
if (perm)
{
llTakeControls(CONTROL_FWD, TRUE, TRUE);
}
}
control(key owner, integer level, integer edge)
{
if (!(level & CONTROL_FWD) || !(llGetAgentInfo(llGetOwner())&AGENT_FLYING))
{
llSetForce(<0,0,0>, FALSE);
}
else
{
vector fwd= llRot2Fwd(llGetRot());
fwd = llVecNorm(fwd);
fwd *= speed;
llSetForce(fwd, FALSE);
}
}
}