integer locked = 0; //0=FALSE=unlocked, 1=TRUE=locked. Start this as unlocked, so if you run into trouble a simple script reset will clear RLV commands.
integer menuchan = 12345; //Easy way to set the menu channel.
integer menulisten;
key LockerID; //stores who locked the restraint
key ToucherID;

default {
    state_entry(){
    //Debug message, lets you know the script is started and is working. Comment it out or delete it when you're done. Hell, comment the whole state_entry event, you don't need it besides this.
    llSay(0, "Debug: Script Started");
    }

    on_rez(integer start_param){
        //This is necessary to apply your RLV commands at object rez. Without this, the restrictions won't survive a relog.
        if (locked){
            RLVLock();
        }

        else {
            RLVUnlock();
        }
    }

    touch_start(integer total) {
        ToucherID = llDetectedKey(0); //uses llDetectedKey to set ToucherID to the key of the person who touched the object.

        if (!locked){
        // That's "if not locked"

            llDialog(
                ToucherID,
                "Locking the device will prevent the wearer from detaching it. Only the person that locks can unlock.",
                ["Lock"], menuchan);
            //Mir uses a special formatting to pretty up the dialog command. I like this, because otherwise the dialog command gets to be roughly the width of Alaska. Here's what it looks like unformatted:
            //llDialog(llDetectedKey(0),"Locking the device will prevent the wearer from detaching it. Only the person that locks can unlock.",["Lock],menuchan);
            //Lemme step you through what's happening here:
            //The first item is the key of the person you want to send the dialog box to. It uses the variable set above.
            //The second item is a string that shows as the dialog box caption. It's the block of text at the top of the box.
            //Third is the array that determines what the buttons are. If you were to have more than one button, it would go like so: ["button1","button2","button3"] and so on. You can have 12 buttons max in a 3x4 block. Buttons fill out left-to-right, bottom-to-top.
            //Fourth is the integer for the listen channel. You'll be setting up a listen command keyed to this channel.

            menulisten = LLlisten(menuchan, "", ToucherID, "");
            //And this sets up your companion listen to the above llDialog command.
            //First item is the menu channel, using the menuchan variable we've set at the beginning.
            //Second item is a string for the name it'll be listening to. We'll be listening to a specific key instead of name, so we can leave this to any name.
            //Third item is the key it'll be listening for. We set it to listen for the key of the person that touched the object. Otherwise it would just listen to everything, which is laggy and bad.
            //Fourth item is the message it will be listening for. Since our dialog is only one item you could set this to only listen for "Lock" but since we've already keyed it only to the toucher's ID that's not really necessary. If you have a dialog with multiple items you want to leave this blank.
            //Also going on is we're keying the listen command to a variable. This lets us end it later and not have open listens lagging up the place.
        }

        else if(locked && ToucherID != lockerID){
        //That is "If locked and toucher's ID doesn't match locker's ID"

            llDialog{
                ToucherID,
                "You don't have access to this restraint!",
                ["Oh, ok"], menuchan);
            //Just a basic dialog to let the non-locker know they don't have access. We don't even bother with a companion listen for this one.
        }

        else if(locked && ToucherID == LockerID){
        // "If locked and toucher ID matches locker ID"

            llDialog{
                ToucherID,
                "Unlocking the device will allow the wearer to detach it. Only the person that locked it can unlock."
                [".", "Hud 3", "Hud 4", "Unlock", "Hud 1", "Hud 2"],
                menuchan);
            //Remember what I said about it filling bottom-to-top? Well that means to format it right you sometimes need to be kinda wierd about it. Look at the button array, that's the stuff between the [] brackets.
            //The first three items are the BOTTOM line of the dialog box. The next three are the second-to-bottom, and so on.

            menulisten = llListen(menuchat, "", ToucherID, "");
            //Pretty much identical to the unlocked states' listen call.
        }

        llSetTimerEvent(300); //Menu cliker has 5 minutes to use the menu before it times out.

    }

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

    if (message == lock){
        LockerID = ToucherID
        RLVLock();
        llListenRemove(menulisten); //Being responsible and cleaning up our listens after we are done
        }

    if (message == unlock){
        LockerID = 0
        RLVUnlock();
        llListenRemove(menulisten); //Being responsible and cleaning up our listens after we are done
        }
    }

    timer() {
    //Here we are being responsible and setting a timer to stop our listen if there's no response after 5 minutes.

        llListenRemove(menulisten);
        llSetTimerEvent(0.0); //Stops the timer from repeating.
    }
}

RLVLock(){
    // Clothing Restrictions
    llOwnerSay( "@defaultwear=n");
    llOwnerSay( "@detach=n");
    llOwnerSay( "@addoutfit=n");
    llOwnerSay( "@remoutfit=n");

    // Attachment Restrictions
    llOwnerSay( "@detach:center 2=n");
    llOwnerSay( "@detach:spine=n");
    llOwnerSay( "@detach:chest=n");
    llOwnerSay( "@detach:stomach=n");
    llOwnerSay( "@remattach:center 2=n");
    llOwnerSay( "@remattach:spine=n");
    llOwnerSay( "@remattach:chest=n");
    llOwnerSay( "@remattach:stomach=n");

    // Movement Restrictions
    llOwnerSay( "@fly=n");
    llOwnerSay( "@alwaysrun=n");
    llOwnerSay( "@temprunz=n");

    // Talking Restrictions
    llOwnerSay( "@chatnormal=n");
    llOwnerSay( "@chatshout=n");
    llOwnerSay( "@chatwhisper=y");

    // Other Restrictions
    llOwnerSay( "@touchfar=n");
    llOwnerSay( "@fartouch=n");

    // Message
    llOwnerSay ( "You are now locked" );
}

RLVUnlock(){
    llOwnerSay( "@clear" );
    llOwnerSay ( "/me is now unlocked");
}