MLPV2 RLV Capture Plugin

• MLPV2
• MLPV2_Addons

This is another RLV plugin I wrote. It is used in a Ball. On touch it allows to choose an avatar within a range and tries to capture the selected avatar, forcing them to sit on the ball.

<lsl>// ~capture Script V1.0 // drop into a ball // // constants integer DEBUG = FALSE;

float TIMER_TIMEOUT = 60.0; float TIMER_LOCKED = 900.0; integer RANGE_CAPTURE = 20;

integer RELAY_CHANNEL = -1812221819;

// texts string MSG_NO_SENSOR = "No avatars in sensor range."; string MSG_MENU_IN_USE = " is using the menu. Please try again in a while."; string MSG_CHOOSE_AV = "Choose avatar:"; string MSG_TIMEOUT = "Dialog timeout. Please touch again to retry.";

// internal use integer dialog_handle; integer dialog_channel; key avatar_victim = NULL_KEY; integer channel;

list sensor_keys; list sensor_names; key avatar_menu;

// write a log message in DEBUG mode log(string message) {

   if (DEBUG) llOwnerSay("MENU: " + message);

}

// out a message to the user out(string message) {

   llSay(0, message);

}

capture(key avatar) {

   relay(avatar, "@sit:" + (string)llGetKey() + "=force");

}

lock(key avatar) {

   relay(avatar, "@unsit=n");

}

release(key avatar) {

   relay(avatar, "@unsit=y");
   relay(avatar, "!release");

}

// write a message to the RLV Relay relay(key avatar, string message) {

   if (avatar != NULL_KEY)
   {
       llSay(RELAY_CHANNEL, llGetObjectName() + "," + (string) avatar + "," + message);
       log("RLV: " + llGetObjectName() + "," + (string) avatar + "," + message);
   }

}

init() {

   dialog_channel= -(integer)(llFrand(100000 - 10000) + 10000);
   dialog_handle = llListen(dialog_channel, "", NULL_KEY, "");
   llListenControl(dialog_handle, FALSE);
   avatar_menu = NULL_KEY;

}

// default state default {

   // on state entry: show dialog
   state_entry()
   {
       init();
   }

   on_rez(integer start_param)
   {
       channel = start_param;
       init();
   }

   // av touched me
   touch_start(integer total_number)
   {
       key id = llDetectedKey(0);

       // check if menu is in use
       if (avatar_menu != NULL_KEY && id != avatar_menu)
       {
           out(llKey2Name(avatar_menu) + MSG_MENU_IN_USE);
           return;
       }

       avatar_menu = id;
       llSensor("", NULL_KEY, AGENT, RANGE_CAPTURE, PI);
   }

   // no av in sensor range
   no_sensor()
   {
       out(MSG_NO_SENSOR);
   }

   // some av in sensor range
   sensor(integer total_number)
   {
       sensor_keys = [];
       sensor_names = [];
       integer i;
       for(i=0; i < total_number; i++)
       {
           key id = llDetectedKey(i);
           string name = llKey2Name(id);

           sensor_keys += [id];
           sensor_names += [name];
           log("found: " + name);

       }

       // show dialog if list contains names
       if (llGetListLength(sensor_names) > 0)
       {
           llListenControl(dialog_handle, TRUE);
           llSetTimerEvent(TIMER_TIMEOUT);
           llDialog(avatar_menu, MSG_CHOOSE_AV, sensor_names, dialog_channel);
       }
   }

   // menu selected
   listen(integer channel, string name, key id, string message)
   {
       llListenControl(dialog_handle, FALSE);
       integer index = llListFindList(sensor_names, [message]);
       if (index != -1)
       {
           key selected = llList2Key(sensor_keys, index);
           log ("capture " + llKey2Name(selected));
           capture(selected);
       }
       avatar_menu = NULL_KEY;
   }

   // dialog timeout
   timer()
   {
       if (avatar_menu != NULL_KEY)
       {
           out(MSG_TIMEOUT);
           avatar_menu = NULL_KEY;
           llListenControl(dialog_handle, FALSE);
       }

       llSetTimerEvent(0);
   }

   changed(integer change) {
       if(change & CHANGED_LINK)
       {
           key id = llAvatarOnSitTarget();
           if (id != NULL_KEY)
           {
               avatar_victim = id;
               lock(avatar_victim);
               log ("sitting: " + llKey2Name(avatar_victim));
               state locked;
           }
       }
   }

}

state locked {

   state_entry()
   {
       llListen(channel, "", NULL_KEY, "DIE");
       llSetTimerEvent(TIMER_LOCKED);
   }

   listen(integer channel, string name, key id, string message)
   {
       if (message == "DIE")
       {
           log ("DIE");
           release(avatar_victim);
       }
   }

   changed(integer change) {
       if(change & CHANGED_LINK)
       {
           key id = llAvatarOnSitTarget();
           if (id == NULL_KEY)
           {
               log ("unsitting " + llKey2Name(avatar_victim));
               release(avatar_victim);
               avatar_victim = id;
               state default;
           }
       }
   }

   timer()
   {
       release(avatar_victim);
   }

}</lsl>

See also:

• LSL Protocol/RestrainedLoveAPI
• LSL_Protocol/Restrained_Life_Relay/Specification