Jump to content
  • 0
Sign in to follow this  
Sunbleached

Teleport script private (for two users only)

Question

Hello! I have this teleport script by Eightball Magic. It's no config teleport. You place two teleports and go. So. Its possible to set limited destination access for group / owner only. How to set it for two avatars only (me and my friend). I guess its somekind UUID access limit. Thank's for any help!

 

This line gives limitation for owner only. I think to replace it for specific avatar UUID somehow... :

 

 else if (llSubStringIndex(llList2String(descriptions, 0), "!") == 0 && id != llGetOwner()) {

                        llRegionSayTo(id, 0, "Only the owner are allowed to teleport to locations marked with '!'");

                        llUnSit(id);

 

Or do i loose something else?..

 

 

 

Here's the script itself:

 

 

 

integer CHANNEL = -10001;

float INTERVAL = 10.0;

vector OFFSET = <0.0,0.0,1.2>;

 

integer number = 1;

list descriptions = [];

list positions = [];

list timestamps = [];

 

// Function present menu items in more logical ordering.

list orderButtons(list buttons)

{

    return(llList2List(buttons, -3, -1) + llList2List(buttons, -6, -4)

         + llList2List(buttons, -9, -7) + llList2List(buttons, -12, -10));

}

 

default

{

 

    state_entry()

    {

 

        // Announce teleporter and setup timer to maintain teleporter list.

        key owner = llGetOwner();

        string description = llGetObjectDesc();

        if (description == "<Location name>") {

            description = (string)number;

        }

        vector position = llGetPos();

        llRegionSay(CHANNEL, "teleporter\t" + (string)owner + "\t" + description + "\t" + (string)position);

        llSetTimerEvent(INTERVAL);

        

        // Setup listener to receive teleporter announcements and user dialog.

        llListen(CHANNEL, "", "", "");

        

        // Configure sit text and target.

        llSetSitText("Teleport");

        llSitTarget(OFFSET, ZERO_ROTATION);

        

    }

 

    changed(integer change)

    {

        

        // Check if someone sits on the teleporter.

        if (change & CHANGED_LINK) {

            key id = llAvatarOnSitTarget();

            if (id) {

                if (llGetInventoryNumber(INVENTORY_ANIMATION) >= 1) {

                    llRequestPermissions(id, PERMISSION_TRIGGER_ANIMATION);

                }

                if (llGetInventoryNumber(INVENTORY_SOUND) >= 1) {

                    llPlaySound(llGetInventoryName(INVENTORY_SOUND, 0), 1.0);

                }

                integer count = llGetListLength(descriptions);

                if (count >= 2) {

                    list buttons = orderButtons(llListSort(descriptions, 1, TRUE));

                    llDialog(id, "Select destination:", buttons, CHANNEL);

                }

                else if (count == 1) {

                    vector position = llGetPos();

                    llSleep(0.5);

                    if (llSubStringIndex(llList2String(descriptions, 0), "*") == 0 && !llSameGroup(id)) {

                        llRegionSayTo(id, 0, "Only group members are allowed to teleport to locations marked with '*'");

                        llUnSit(id);

                    }

                    else if (llSubStringIndex(llList2String(descriptions, 0), "!") == 0 && id != llGetOwner()) {

                        llRegionSayTo(id, 0, "Only the owner are allowed to teleport to locations marked with '!'");

                        llUnSit(id);

                    }

                    else {

                        llSetRegionPos(llList2Vector(positions, 0));

                        llUnSit(id);

                        llSetRegionPos(position);

                    }

                }

                else {

                    llSleep(0.5);

                    llUnSit(id);

                }

            }

        }

        

        // Reset the script if the teleporter has changed owner or been moved across a sim border.

        if (change & (CHANGED_OWNER|CHANGED_REGION)) {

            llResetScript();

        }

        

    }

 

    listen(integer channel, string name, key id, string message)

    {

        

        if (id == llAvatarOnSitTarget()) {

            

            // Teleport avatar to destination.

            integer index = llListFindList(descriptions, [message]);

            vector position = llGetPos();

            if (llSubStringIndex(llList2String(descriptions, index), "*") == 0 && !llSameGroup(id)) {

                llRegionSayTo(id, 0, "Only group members are allowed to teleport to locations marked with '*'");

                llUnSit(id);

            }

            else if (llSubStringIndex(llList2String(descriptions, index), "!") == 0 && id != llGetOwner()) {

                llRegionSayTo(id, 0, "Only the owner is allowed to teleport to locations marked with '!'");

                llUnSit(id);

            }

            else {

                llSetRegionPos(llList2Vector(positions, index));

                llUnSit(id);

                llSetRegionPos(position);

            }

            

        }

        else {

            

            // Parse the received message.

            list tokens = llParseString2List(message, ["\t"], []);

            string check = llList2String(tokens, 0);

            key owner = (key)llList2String(tokens, 1);

            string description = llList2String(tokens, 2);

            vector position = (vector)llList2String(tokens, 3);

            integer timestamp = llGetUnixTime();

            

            // Remove old data from the lists and add current data.

            if (check == "teleporter" && owner == llGetOwner()) {

                integer index = llListFindList(descriptions, [description]);

                if (~index) {

                    descriptions = llDeleteSubList(descriptions, index, index);

                    positions = llDeleteSubList(positions, index, index);

                    timestamps = llDeleteSubList(timestamps, index, index);

                }

                descriptions += description;

                positions += position;

                timestamps += timestamp;

            }

            

            // Renumber this teleporter if another has same number.

            if ((string)number == description) {

                number++;

                if (number > 12) {

                    number = 1;

                }

            }

            

        }

        

    }

 

    on_rez(integer n)

    {

        

        // Reset the script when the teleporter is rezzed.

        llResetScript();

        

    }

 

    run_time_permissions(integer perm)

    {

        

        // Play animation when permission has been granted.

        if (perm & PERMISSION_TRIGGER_ANIMATION) {

            llStartAnimation(llGetInventoryName(INVENTORY_ANIMATION,0));

        }

        

    }

 

    timer()

    {

        

        // Announce the teleporter.

        key owner = llGetOwner();

        string description = llGetObjectDesc();

        if (description == "<Location name>") {

            description = (string)number;

        }

        vector position = llGetPos();

        integer timestamp = llGetUnixTime();

        llRegionSay(CHANNEL, "teleporter\t" + (string)owner + "\t" + description + "\t" + (string)position);

        

        // Delete oldest teleporter from list if it is too old.

        if (llGetListLength(timestamps) && timestamp-llList2Integer(timestamps, 0) > INTERVAL+1.0) {

            descriptions = llDeleteSubList(descriptions, 0, 0);

            positions = llDeleteSubList(positions, 0, 0);

            timestamps = llDeleteSubList(timestamps, 0, 0);

        }

        

    }

 

}

Share this post


Link to post
Share on other sites

3 answers to this question

Recommended Posts

  • 0

We have a scripting forum: https://community.secondlife.com/forums/forum/304-lsl-scripting/

The ANSWERS section is a rational place to ask your question but, Answers is more about problems/bugs with the viewer and system. Yours is more of a "How To" scripting question. For that kind of help with scripting, you are more likely to get a good answer in the LSL section of the forum.

The script does not seem to be written to handle a user list for controlling access. Search for LSL Script Library on Google-Yahoo. There are several. Make sure you aren't reading an OpenSim script. OpenSim has options not available in SL.

If you MUST edit this script, you have found the correct part of the code.

else if (llSubStringIndex(llList2String(descriptions, 0), "!") == 0 && id != llGetOwner

That is the section you will need to alter. However, that section is a process to limit certain places the TP teleports to as restricted to the owner. It doesn't really work for checking a list of permitted travelers. So, it is going to be a rather extensive change and result in an inefficient script.

I suggest starting with a teleport that already provides for an 'authorized access list'.

Edited by Nalates Urriah
Clarified a sentence...
  • Like 1

Share this post


Link to post
Share on other sites
  • 0
21 hours ago, Alwin Alcott said:

are you sure you are allowed to publish this script?.... if it's only mod you can not just put it here!

Eightball Magic's teleport script is open source so yes, in this case it was ok. Not always though so it's a good reminder.

  • Like 2

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×