User:Fred Gandt/Scripts/Continued 2

LSL Portal

My Contributions

Other Pages

Free Scripts

More Free Scripts

Legal Stuff

The legal stuff about contributing to this wiki (worth reading).

Tuition

Tuition scripts, notes, videos and screenshots etc. (hardly any content yet)

Free Scripts

Online Status Display & Pager

This will display the owners profile picture and a color coded and text texture sign that changes depending on the owners online status.

Just drop the script into a fresh prim.

<lsl>key owner_id;

string owner_name;

key ON_OFF_line = "124cfcec-6b8d-552c-42b8-6a1179884e74";

string profile_url = "http://world.secondlife.com/resident/";

key name_id;

key online_id;

key touch_request_id;

integer lis;

integer channel;

key requester;

OnlineStatus(integer ol, integer tr) {

   list ol_params = [];
   if(ol)
   ol_params = [17, 5, ON_OFF_line, <1.4,0.25,0.0>, <0.0,0.375,0.0>, (90*DEG_TO_RAD),
                18, 5, <0.0,1.0,0.0>, 1.0,
                18, 6, <1.0,1.0,1.0>, 1.0];
   else
   ol_params = [17, 5, ON_OFF_line, <1.4,0.25,0.0>, <0.0,0.625,0.0>, (90*DEG_TO_RAD),
                18, 5, <1.0,0.0,0.0>, 1.0,
                18, 6, <0.5,0.5,0.5>, 1.0];
   llSetPrimitiveParams(ol_params);
   if(tr)
   {
       llSetTimerEvent(30.0);
       if(ol)
       {
           lis = llListen(channel, "", requester, "");
           llDialog(requester, ("\nWould you like to page " + owner_name + "?"), ["YES", "NO"], channel);
       }
       else
       llInstantMessage(requester, (owner_name + " is currently offline."));
   }

}

default {

   state_entry()
   {
       owner_id = llGetOwner();
       name_id = llRequestAgentData(owner_id, DATA_NAME);
       channel = -5647;
   }
   dataserver(key q, string data)
   {
       if(q == name_id)
       {
           owner_name = data;
           llSetObjectName(owner_name + "'s Online Status");
           llHTTPRequest((profile_url + ((string)owner_id)), [], "");
       }
       else if(q == online_id)
       OnlineStatus(((integer)data), FALSE);
       else if(q == touch_request_id)
       OnlineStatus(((integer)data), TRUE);
   }
   http_response(key q, integer status, list metadata, string body)
   {
       integer tex_key_start = (llSubStringIndex(body, "imageid") + 18);
       integer tex_key_end = (tex_key_start + 35);
       key profile_image = ((key)llGetSubString(body, tex_key_start, tex_key_end));
       llSetPrimitiveParams([9, 0, 0, <0.6,0.875,0.0>, 0.02, ZERO_VECTOR, <1.0,1.0,0.0>, ZERO_VECTOR,
                             8, llEuler2Rot(<0.0,90.0,0.0>*DEG_TO_RAD),
                             7, <0.85,0.01,0.6>,
                             17, -1, TEXTURE_BLANK, <1.0,1.0,0.0>, ZERO_VECTOR, 0.0,
                             18, -1, ZERO_VECTOR, 1.0]);
       llSetPrimitiveParams([17, 6, profile_image, <1.0,1.0,0.0>, ZERO_VECTOR, (90*DEG_TO_RAD),
                             17, 5, ON_OFF_line, <1.4,0.25,0.0>, <0.0,0.375,0.0>, (90*DEG_TO_RAD),
                             19, 5, 0, 1,
                             18, 6, <1.0,1.0,1.0>, 1.0,
                             18, 5, <0.0,1.0,0.0>, 1.0,
                             20, 5, 1,
                             20, 6, 1]);
       llSetTimerEvent(0.1);
   }
   timer()
   {
       llListenRemove(lis);
       llSetTimerEvent(10.0);
       online_id = llRequestAgentData(owner_id, DATA_ONLINE);
   }
   touch_start(integer nd)
   {
       llSetTimerEvent(0.0);
       requester = llDetectedKey(0);
       touch_request_id = llRequestAgentData(owner_id, DATA_ONLINE);
   }
   listen(integer chan, string name, key id, string msg)
   {
       llListenRemove(lis);
       llSetTimerEvent(10.0);
       if(msg == "YES")
       {
           llInstantMessage(owner_id, ("secondlife:///app/agent/" + ((string)requester) + "/about has requested to message you."));
           llInstantMessage(requester, owner_name + " has been paged.");
       }
   }

}</lsl>

Swing Door

I have yet to test and debug this. I'll be doing it pretty soon though.

btw ... there will be a breakdown of the who's, what's, why's and wherefore's when I have debugged.

<lsl>key LL_Brazillian_Rosewood = "a25bebc8-4739-453d-d44e-fc522cf95488";

key Door_Opening = "99236139-075b-3057-7c6f-0f68bb2af001";

key Door_Closing = "43e46041-25fa-0a03-7be8-78297f579d53";

key Doorbell = "213aae54-6093-7fcc-118f-3039a5435986";

integer notecard_length;

string dia_msg = "\n";

list dia_buttons = [];

list whitelist = [];

list blacklist = [];

string owner_name;

integer sound_on = TRUE;

integer dia_chan;

integer dia_lis;

integer t_count;

integer global;

integer locked;

integer group;

integer IGAN;

integer nop;

integer mln;

integer count_NCL;

integer dead;

integer open;

integer ot;

string NCN;

float time = 6.0;

key bell_id;

key owner;

key NoNL;

key NCK;

key OLC;

key NL;

OperateDoor(integer o, integer lm) {

   if(nop > 2 && (!lm))
   llMessageLinked(LINK_ALL_OTHERS, dia_chan, owner_name, owner);
   if(sound_on)
   {
       key door_sound;
       if(o)
       door_sound = Door_Closing;
       else
       door_sound = Door_Opening;
       llPlaySound(door_sound, 1.0);
   }
   vector v = (llRot2Euler(llGetLocalRot())*RAD_TO_DEG);
   float x = llFabs(v.x);
   float z = v.z;
   float d;
   if(x < 1.0)
   d = 1.0;
   else
   d = -1.0;
   float a = 90.0;
   if(o)
   {
       if(x < 1.0)
       d = -1.0;
       else
       d = 1.0;
       a = -90.0;
       llSetTimerEvent(0.0);
   }
   else
   llSetTimerEvent(time);
   llTargetOmega(<0.0,0.0,d>, 1.0, 1.0);
   llSleep(1.5);
   llTargetOmega(ZERO_VECTOR, 0.0, 0.0);
   llSetLocalRot(llEuler2Rot(<x,0.0,(z + a)>*DEG_TO_RAD));
   open = (!open);

}

TouchMeAllOver(key id, integer t, integer te) {

   if(t && id == owner)
   {
       ot = TRUE;
       global = FALSE;
       dia_msg = "\n\"Global\" - Instruct all doors linked to this.\n\n\"Local\" - Instruct only locally linked doors.";
       dia_buttons = ["Global", "CANCEL", "Local"];
       dia_lis = llListen(dia_chan, owner_name, owner, "");
       llDialog(owner, dia_msg, dia_buttons, dia_chan);
   }
   if(te)
   {
       if(t_count < 10)
       {
           if(!dead)
           {
               if(!Whitelist(id))
               {
                   bell_id = id;
                   OLC = llRequestAgentData(owner, DATA_ONLINE);
                   return;
               } 
           }
           else
           {
               if(id != owner)
               return;
           }
           OperateDoor(open, FALSE);
       }
       t_count = 0;
   }

}

integer Whitelist(key id) {

   integer w = TRUE;
   integer index;
   if(id == NULL_KEY)
   {
       whitelist = [];
       blacklist = [];
       count_NCL = 0;
       NCN = llGetInventoryName(INVENTORY_NOTECARD, 0);
       if(llStringLength(NCN))
       {
           IGAN = TRUE;
           NCK = llGetInventoryKey(NCN);
           llMessageLinked(LINK_ALL_OTHERS, dia_chan, "IGAN", NCK);
           NoNL = llGetNumberOfNotecardLines(NCN);
       }
       else
       {
           IGAN = FALSE;
           if(nop > 1)
           llMessageLinked(LINK_ALL_OTHERS, dia_chan, "IGAN", owner);
       }
   }
   else
   {
       if(id != owner)
       {
           if(locked)
           {
               index = llListFindList(whitelist, [llKey2Name(id)]);
               if(index == -1)
               w = FALSE;
               if(group)
               {
                   if(!w)
                   {
                       if(!llSameGroup(id))
                       w = FALSE;
                   }
               }
           }
           index = llListFindList(blacklist, [llKey2Name(id)]);
           if(index != -1)
           w = FALSE;
       }
   }
   return w;

}