Difference between revisions of "User:Void Singer/Programs"

From Second Life Wiki
Jump to navigation Jump to search
m (updated landmark2map)
m (minor changes)
Line 15: Line 15:


=== Script ===
=== Script ===
<lsl> /*//( v7-D Enh. Color Picker v1.2 )//*/
<lsl> /*//( v7-D Enh. Color Picker v1.3 )//*/
 
/*//-- IMPORTANT NOTE
/*//-- IMPORTANT NOTE
  This Script MUST be
  This Script MUST be
Line 23: Line 23:
  modify or it will not
  modify or it will not
  work properly!
  work properly!
 
  All Prims that are to
  All Prims that are to
  be modified at the
  be modified at the
Line 30: Line 30:
//*/
//*/


key     gKeyOwner;
//-- Stores owner key
integer gIdxPanel;
key     gKeyOwn;
integer gChnDialog;
//-- Stores Owner Based Channel
list    gLstTargets;
integer gIntChn;
integer gIntTargets;
//-- Stores User Defined Color
vector gColDefault = <0.0, 0.0, 0.0>;
vector  gColSav;
string gStrProduct = "v7-D Adv Color Picker v1.2";
//-- Stores which color(s) to modify
list   gLstButtons = ["-1", "-8", "-64", "+1", "+8", "+64",
integer gIdxPnl;
                      "Recall", "Done!", "Save",
  //-- Stores the link number of all linked prims with the same name
                      "All Colors", "Red Only", "Green Only", "Blue Only"];
list    gLstTgt;
list   gLstBValues = [-0.003922, -0.031373, -0.250980, 0.003922, 0.031373, 0.250980,
//-- Stores Name of Product
                      <1.0, 1.0, 1.0>, <1.0, 0.0, 0.0>, <0.0, 1.0, 0.0>, <0.0, 0.0, 1.0>];
string   gStrPID = "v7-D Adv Color Picker v1.3";
//-- Stores buttons for the dialog
list     gLstBtn = ["-1", "-8", "-64", "+1", "+8", "+64",
                    "Reset", "Done!", "Save",
                    "All Colors", "Red Only", "Green Only", "Blue Only"];
//-- Stores programatic values of buttons
list     gLstVal = [-0.003922, -0.031373, -0.250980, 0.003922, 0.031373, 0.250980,
                    <1.0, 1.0, 1.0>, <1.0, 0.0, 0.0>, <0.0, 1.0, 0.0>, <0.0, 0.0, 1.0>];


 
//-- builds the dialog to send to the owner
fColorDialog(){
uDialog(){
  vector vColTemp = llGetColor( ALL_SIDES ) * 255;
//-- GetThe Current Color of this sets base in 0-255 range
  //-- build the dialog to send
vector vColTmp = llGetColor( ALL_SIDES ) * 255;
  llDialog( gKeyOwner,
//-- build and send dialog to owner
            gStrProduct + "\n\nModifying "
llDialog( gKeyOwn,
            + llList2String( gLstButtons, gIdxPanel )
          gStrPID + "\n\nModifying "
            + "\n\nCurrent Values (0-255):\n"
          + llList2String( gLstBtn, gIdxPnl )
            + "R:" + (string)llRound( vColTemp.x )
          + "\n\nCurrent Values (0-255):\n"
            + ", G:" + (string)llRound( vColTemp.y )
          + "R:" + (string)llRound( vColTmp.x )
            + ", B:" + (string)llRound( vColTemp.z )
          + ", G:" + (string)llRound( vColTmp.y )
            + " = #" + fFloat2HexStr( vColTemp.x )
          + ", B:" + (string)llRound( vColTmp.z )
            + fFloat2HexStr( vColTemp.y )
          + " = #" + uFlt2Byt( (integer)vColTmp.x )
            + fFloat2HexStr( vColTemp.x ),
          + uFlt2Byt( (integer)vColTmp.y )
            llDeleteSubList( gLstButtons, gIdxPanel, gIdxPanel ),
          + uFlt2Byt( (integer)vColTmp.z ),
            gChnDialog );
          llDeleteSubList( gLstBtn, gIdxPnl, gIdxPnl ),
  llSetTimerEvent( 45.0 );
          gIntChn );
//-- set timeout to close listen
llSetTimerEvent( 60.0 );
}
}


string fFloat2HexStr( float vFltInput ){
//-- convert float byte to hex byte
  integer vBitInput = llRound( vFltInput );
string uFlt2Byt( float vFltByt ){
  string vStrValue = "0123456789ABCDEF";
integer vIntByt = llRound( vFltByt );
  return llGetSubString( vStrValue, gIntTargets = vBitInput / 16, gIntTargets )
string vStrHex = "0123456789ABCDEF";
        + llGetSubString( vStrValue, gIntTargets = vBitInput % 16, gIntTargets );
return llGetSubString( vStrHex, vIntByt >> 4, vIntByt >> 4 ) +
      llGetSubString( vStrHex, vIntByt & 15, vIntByt & 15 );
}
}


fSetColor( vector vColUse ){
uSetCol( vector vColUse ){
  //-- loop through target list of linked prims
//-- Clamp Color ranges
  gIntTargets = gLstTargets != [];
vColUse = <(vColUse.x * (vColUse.x > 0.0) - 1.0) * (vColUse.x < 1.0) + 1.0,
  @Loop;
          (vColUse.y * (vColUse.y > 0.0) - 1.0) * (vColUse.y < 1.0) + 1.0,
    llSetLinkColor( llList2Integer( gLstTargets, --gIntTargets ), vColUse, ALL_SIDES );
          (vColUse.z * (vColUse.z > 0.0) - 1.0) * (vColUse.z < 1.0) + 1.0>;
  if (gIntTargets) jump Loop;
//-- loop through all prims with our name and set them
integer vIntTmp = gLstTgt != [];
do{
llSetLinkColor( llList2Integer( gLstTgt, --vIntTmp ), vColUse, ALL_SIDES );
}while (vIntTmp);
}
}




default{
default{
  state_entry(){
state_entry(){
    gKeyOwner = llGetOwner();
gKeyOwn = llGetOwner();
    gChnDialog = (integer)("0xF" + llGetSubString( gKeyOwner, 1, 7 ));
gIntChn = (integer)("0xF" + llGetSubString( (string)gKeyOwn, 1, 7 ));
 
//-- get the target prim name from current prim
    string vStrTargetID = llGetObjectName();
string vStrTID = llGetObjectName();
    gIntTargets = llGetNumberOfPrims();
//-- get the number of prims in the sets
    @Loop;
integer vIntTmp = llGetNumberOfPrims();
      if (llGetLinkName( gIntTargets ) == vStrTargetID){
//-- Check all prims; store ones with our name
          gLstTargets += (list)gIntTargets;
do{
      }
if (llGetLinkName( vIntTmp ) == vStrTID){
    if (~(--gIntTargets)) jump Loop;
gLstTgt += (list)vIntTmp;
    state sReady;
}
  }
}while (~(--vIntTmp));
 
//-- avoid dumping the changed event if one is queued
  changed( integer vBitChanges ){
llSetTimerEvent( 0.01 );
    if ((CHANGED_OWNER | CHANGED_LINK) & vBitChanges){
}
      llResetScript();
    }
//-- reset script to prevent errors from link or owner changes
  }
changed( integer vBitChg ){
if ((CHANGED_LINK | CHANGED_OWNER) & vBitChg){
llResetScript();
}
}
timer(){
//-- stop timer and exit state
llSetTimerEvent( 0.0 );
state sRdy;
}
}
}


state sReady{
state sRdy{
  state_entry(){
//-- touch trigger for the dialog (remove next five lines if not needed)
    gIdxPanel = 9;
touch_end( integer vIntNul ){
  }
if (llDetectedKey( 0 ) == gKeyOwn){
 
state sRun;
  touch_end( integer vIntTotal ){
}
    if (llDetectedKey( 0 ) == gKeyOwner){
}
      state sRunning;
    }
//-- link message trigger for the dialog (remove next seven lines if not needed)
  }
link_message( integer vIntNul, integer vIntNull, string vStrCmd, key vKeyOwn ){
 
if (gStrPID == vStrCmd){ //-- string must match product name
  changed( integer vBitChanges ){
if (gKeyOwn == vKeyOwn){ //-- key must match owner
    if ((CHANGED_OWNER | CHANGED_LINK) & vBitChanges){
state sRun;
      state default;
}
    }
}
  }
}
//-- reset script to prevent errors from link or owner changes
changed( integer vBitChg ){
if ((CHANGED_LINK | CHANGED_OWNER) & vBitChg){
llResetScript();
}
}
}
}
 


state sRunning{
state sRun{
  state_entry(){
state_entry(){
    llListen( gChnDialog, "", gKeyOwner, "" );
//-- set default color to modify (9=all, 10=red, 11=green, 12=blue)
    fColorDialog();
gIdxPnl = 9;
  }
//-- Open Listen to owner only
 
llListen( gIntChn, "", gKeyOwn, "" );
  listen( integer vIntChannel, string vStrName, key vKeySpeaker, string vStrHeard ){
//-- send dialog
    //-- get the index of the reply from our button list
uDialog();
    integer vIdxReply = llListFindList( gLstButtons, (list)vStrHeard );
}
    //-- is it a valid index? ~(-1) = FALSE
    if (~vIdxReply){
listen( integer vIntNul, string vStrNul, key vKeyNul, string vStrCmd ){
      //-- reply index 0 -5
//-- check which button was pressed
      if (6 > vIdxReply){
integer vIntCmd = llListFindList( gLstBtn, (list)vStrCmd );
        //-- get current color add change amount form dialog
if (~vIntCmd){ //-- if input matches a valid button
        vector vColCalc = llGetColor( ALL_SIDES )
if (6 > vIntCmd){ //-- Cmd 0-5 (add or subtract a color amount)
                          + llList2Vector( gLstBValues, gIdxPanel - 3 )
//-- multiply to change, by the modification filter, and apply it to the current color
                          * llList2Float( gLstBValues, vIdxReply );
uSetCol( llList2Float( gLstVal, vIntCmd ) * llList2Vector( gLstVal, gIdxPnl - 3 ) + llGetColor( ALL_SIDES ) );
        //-- Clamp color values to [0, 1]
}else if (9 > vIntCmd){ //-- Cmd 6-8
        fSetColor( <(0.0 < vColCalc.x && vColCalc.x < 1.0) * vColCalc.x,
if (6 == vIntCmd){
                    (0.0 < vColCalc.y && vColCalc.y < 1.0) * vColCalc.y,
//-- reset to last saved color
                    (0.0 < vColCalc.z && vColCalc.z < 1.0) * vColCalc.z>
uSetCol( gColSav );
                    + <(vColCalc.x >= 1.0),
}else if (7 == vIntCmd){
                      (vColCalc.y >= 1.0),
//-- claer the dialog tiemout and return to ready state (this removes the listen)
                      (vColCalc.z >= 1.0)> );
llSetTimerEvent( 0.0 );
      //-- reply index 6-8
state sRdy;
      }else if (9 > vIdxReply){
}else{
        //-- Apply Saved Color
//-- save current color and inform user
        if (6 == vIdxReply){
gColSav = llGetColor( ALL_SIDES );
          fSetColor( gColDefault );
llOwnerSay( gStrPID + ": Color saved." );
        //-- done, go back to waiting
}
        }else if (7 == vIdxReply){
}else if (13 > vIntCmd){ //-- Cmd 9-12 (change modification filter)
          llSetTimerEvent( 0.0 );
gIdxPnl = vIntCmd;
          state sReady;
}
        //-- save current color
//-- reopen the dialog for further changes
        }else{
uDialog();
          gColDefault = llGetColor( ALL_SIDES );
}
          llWhisper( 0, "Color saved." );
}
        }
      //-- reply index 9-12
timer(){
      }else if (13 > vIdxReply){
//-- timeout the dialog so that the listen isn't left open, return to ready state (this removes the listen)
      //-- change dialog panel
llSetTimerEvent( 0.0 );
        gIdxPanel = vIdxReply;
llOwnerSay( gStrPID + ": Color Dialog Timed Out." );
      }
state sRdy;
      fColorDialog();
}
    }
  }
//-- reset script to prevent errors from link or owner changes
 
changed( integer vBitChg ){
  timer(){
if ((CHANGED_LINK | CHANGED_OWNER) & vBitChg){
    //-- timeout to kill listens
llResetScript();
    llSetTimerEvent( 0.0 );
}
    llOwnerSay( gStrProduct + " Dialog Timed Out." );
}
    state sReady;
  }
 
  changed( integer vBitChanges ){
    if ((CHANGED_OWNER | CHANGED_LINK) & vBitChanges){
      state default;
    }
  }
}
}


/*//--                          License Text                          --//*/
/*//--                          License Text                          --//*/
/*//  Free to copy, use, modify, distribute, or sell, with attribution.  //*/
/*//  Free to copy, use, modify, distribute, or sell, with attribution.  //*/
/*//    (C)2009 (CC-BY) [ http://creativecommons.org/licenses/by/3.0 ]    //*/
/*//    (C)2010 (CC-BY) [ http://creativecommons.org/licenses/by/3.0 ]    //*/
/*//  Void Singer [ https://wiki.secondlife.com/wiki/User:Void_Singer ]  //*/
/*//  Void Singer [ https://wiki.secondlife.com/wiki/User:Void_Singer ]  //*/
/*//  All usages must contain a plain text copy of the previous 2 lines.  //*/
/*//  All usages must contain a plain text copy of the previous 2 lines.  //*/
Line 405: Line 427:
/*//-- NOTE:
/*//-- NOTE:
  Remove Any Instances Of "(gLstAvs = []) + " Or "(gLstTms = []) + " When Compiling This
  Remove Any Instances Of "(gLstAvs = []) + " Or "(gLstTms = []) + " When Compiling This
  Script To MONO. They Are Provided For LSO Memory Preservation And Do Nothing In MONO
  Script To MONO. They Are Provided For LSO Memory Conservation And Do Nothing In MONO
//*/
//*/


Revision as of 00:24, 29 May 2010

v7-D Enh. Color Picker

Features:

  • Dialog driven.
  • Save and Recall.
  • Full 16 million+ colors.
  • Colors multiple linked prims at once.
  • Compatible with standard color picker displays.

Script

<lsl> /*//( v7-D Enh. Color Picker v1.3 )//*/

/*//-- IMPORTANT NOTE 

This Script MUST be
placed in one  of the
prims it is going to
modify or it will not
work properly!

All Prims that are to
be modified at the
same time MUST have
the SAME NAME !!!

//*/ 

//-- Stores owner key

key gKeyOwn; 

//-- Stores Owner Based Channel

integer gIntChn; 

//-- Stores User Defined Color

vector gColSav; 

//-- Stores which color(s) to modify

integer gIdxPnl; 

//-- Stores the link number of all linked prims with the same name

list gLstTgt; 

//-- Stores Name of Product

string gStrPID = "v7-D Adv Color Picker v1.3"; 

//-- Stores buttons for the dialog

list gLstBtn = ["-1", "-8", "-64", "+1", "+8", "+64", 

                   "Reset", "Done!", "Save",
                   "All Colors", "Red Only", "Green Only", "Blue Only"];
//-- Stores programatic values of buttons

list gLstVal = [-0.003922, -0.031373, -0.250980, 0.003922, 0.031373, 0.250980, 

                   <1.0, 1.0, 1.0>, <1.0, 0.0, 0.0>, <0.0, 1.0, 0.0>, <0.0, 0.0, 1.0>];

//-- builds the dialog to send to the owner

uDialog(){ //-- GetThe Current Color of this sets base in 0-255 range vector vColTmp = llGetColor( ALL_SIDES ) * 255; //-- build and send dialog to owner llDialog( gKeyOwn, gStrPID + "\n\nModifying " + llList2String( gLstBtn, gIdxPnl ) + "\n\nCurrent Values (0-255):\n" + "R:" + (string)llRound( vColTmp.x ) + ", G:" + (string)llRound( vColTmp.y ) + ", B:" + (string)llRound( vColTmp.z ) + " = #" + uFlt2Byt( (integer)vColTmp.x ) + uFlt2Byt( (integer)vColTmp.y ) + uFlt2Byt( (integer)vColTmp.z ), llDeleteSubList( gLstBtn, gIdxPnl, gIdxPnl ), gIntChn ); //-- set timeout to close listen llSetTimerEvent( 60.0 ); } 

//-- convert float byte to hex byte

string uFlt2Byt( float vFltByt ){ integer vIntByt = llRound( vFltByt ); string vStrHex = "0123456789ABCDEF"; return llGetSubString( vStrHex, vIntByt >> 4, vIntByt >> 4 ) + llGetSubString( vStrHex, vIntByt & 15, vIntByt & 15 ); }

uSetCol( vector vColUse ){ //-- Clamp Color ranges vColUse = <(vColUse.x * (vColUse.x > 0.0) - 1.0) * (vColUse.x < 1.0) + 1.0, (vColUse.y * (vColUse.y > 0.0) - 1.0) * (vColUse.y < 1.0) + 1.0, (vColUse.z * (vColUse.z > 0.0) - 1.0) * (vColUse.z < 1.0) + 1.0>; //-- loop through all prims with our name and set them integer vIntTmp = gLstTgt != []; do{ llSetLinkColor( llList2Integer( gLstTgt, --vIntTmp ), vColUse, ALL_SIDES ); }while (vIntTmp); }


default{ state_entry(){ gKeyOwn = llGetOwner(); gIntChn = (integer)("0xF" + llGetSubString( (string)gKeyOwn, 1, 7 )); //-- get the target prim name from current prim string vStrTID = llGetObjectName(); //-- get the number of prims in the sets integer vIntTmp = llGetNumberOfPrims(); //-- Check all prims; store ones with our name do{ if (llGetLinkName( vIntTmp ) == vStrTID){ gLstTgt += (list)vIntTmp; } }while (~(--vIntTmp)); //-- avoid dumping the changed event if one is queued llSetTimerEvent( 0.01 ); }

//-- reset script to prevent errors from link or owner changes changed( integer vBitChg ){

if ((CHANGED_LINK

v7-D Enh. Landmark-2-Map

Features

  • Next/Pevious Landmark Buttons.
  • Hovertext Display of Landmark Name.
  • Auto-Wrapping of Next/Previous Targets.
  • Works as a HUD or a Free-Standing Object.
  • Warning on No Landmarks Found (with safe default).

Script (Fast Response Version)

<lsl>/*//-- v7-D Enhanced Landmark Mapper v1.2f --//*/

/*//-- Requirements: 

3 linked Prims (minimum)
1 Named "prev" (this will be your previous landmark button)
1 Named "next" (this will be your next landmark button)
any other prim in the object will trigger the map destination for the
currently displayed Landmark name. Recommended to rename landmarks.

//*/

integer gIdxTgt; /*//-- Index of Target --//*/ list gLstLMs; /*//-- List of Landmarks --//*/ list gLstLoc; /*//-- List of Locations--//*/

key gKeySec; /*//-- Key for Security checking dataserver calls --//*/ float gFltTmt = 5.0; /*//-- Float for Timeout (dataserver calls & inventory changes) --//*/

default{ state_entry(){ llOwnerSay( "Rebuilding Database" ); gIdxTgt = llGetInventoryNumber( INVENTORY_LANDMARK ); /*//-- Grab Landmark Names For Display --//*/ if (gIdxTgt){ while(gIdxTgt){ gLstLMs = (list)llGetInventoryName( INVENTORY_LANDMARK, --gIdxTgt ) + gLstLMs; } /*//-- Get First LM Location --//*/ gKeySec = llRequestInventoryData( llList2String( gLstLMs, gIdxTgt = (gLstLMs != []) - 1 ) ); /*//-- (gLstLMs != []) == llGetListLength( gLstLMs ) --//*/ /*//-- negative indices would've been nice if they were supported by the Req.Inv.Data call --//*/ llSetTimerEvent( gFltTmt ); }else{ gLstLMs = (list)"Out Of Order, No Landmarks Present"; gLstLoc = (list)<128.0, 128.0, 0.0>; state sReady; } }

dataserver( key vKeySec, string vStrLoc ){ /*//-- verify we're getting our data, not another scripts --//*/ if (gKeySec == vKeySec){ /*//-- Store Location Vector --//*/ gLstLoc = (list)((vector)vStrLoc + llGetRegionCorner()) + gLstLoc; if (gIdxTgt){ /*//-- Get Next LM Location --//*/ gKeySec = llRequestInventoryData( llList2String( gLstLMs, --gIdxTgt ) ); llSetTimerEvent( gFltTmt ); }else{ /*//-- Clear Timeout Because Timers Cross States --//*/ llSetTimerEvent( 0.0 ); state sReady; } } }

timer(){ if (gKeySec){ llOwnerSay( "Dataserver Response Timed Out, auto retry in " + (string)((integer)gFltTmt) + " seconds" ); gKeySec = ""; }else{ llResetScript(); } } }

state sReady{ state_entry(){ /*//-- Set The Initial Display --//*/ llSetText( llList2String( gLstLMs, gIdxTgt ), <1.0, 0.0, 0.0>, 1.0 ); llOwnerSay( "Ready" ); }

touch_end( integer vIntNul ){ /*//-- Check if a prim named "prev" or "next" was touched --//*/ integer vIntTst = llSubStringIndex( "prevnext", llGetLinkName( llDetectedLinkNumber( 0 ) ) ); if (~vIntTst){ /*//-- Update Index Target --//*/ gIdxTgt += ((vIntTst > 0) - (vIntTst == 0)); /*//-- ((vIntTst > 0) - (vIntTst < 0)) same as: -1 for "prev", +1 for "next" --//*/

/*//-- Update Display --//*/ llSetText( llList2String( gLstLMs, (gIdxTgt %= (gLstLMs != [])) ), <1.0, 0.0, 0.0>, 1.0 ); /*//-- (gLstLMs != []) == llGetListLength( gLstLMs ) --//*/ /*//-- "gInCnt %= " allows us to wrap our references so they don't go out of range --//*/ }else{ /*//-- Trigger map for any other touched prim in this object --//*/ llMapDestination( llGetRegionName(), llList2Vector( gLstLoc, gIdxTgt ) - llGetRegionCorner(), ZERO_VECTOR ); } }

changed( integer vBitChg ){ if (CHANGED_INVENTORY & vBitChg){ /*//-- give the user more time to add new LMs before we recompile our database lists. --//*/ /*//-- We could check the count too, but don't in case the change was a change of name --//*/ llSetTimerEvent( gFltTmt ); } }

timer(){ llResetScript(); } }

/*//-- License Text --//*/ /*// Free to copy, use, modify, distribute, or sell, with attribution. //*/ /*// (C)2009 (CC-BY) [ http://creativecommons.org/licenses/by/3.0 ] //*/ /*// Void Singer [ https://wiki.secondlife.com/wiki/User:Void_Singer ] //*/ /*// All usages must contain a plain text copy of the previous 2 lines. //*/ /*//-- --//*/</lsl>

Return to top

Script (Small Code Version)

<lsl>/*//-- v7-D Enhanced Landmark Mapper v1.2s --//*/

/*//-- Requirements: 

3 linked Prims (minimum)
1 Named "prev" (this will be your previous landmark button)
1 Named "next" (this will be your next landmark button)
any other prim in the object will trigger the map destination for the
currently displayed Landmark name. Recommended to rename landmarks.

//*/

integer gIdxTgt; /*//-- Index of Target LM --//*/ string gStrLMN; /*//-- String of Landmark Name --//*/ vector gPosLoc; /*//-- Position of Location --//*/ key gKeySec; /*//-- Key for Security checking dataserver calls --//*/

uUpdateLM( integer vIntCng ){ integer vIntCnt = llGetInventoryNumber( INVENTORY_LANDMARK ); if (vIntCnt){ gIdxTgt = (vIntCnt + gIdxTgt + vIntCng) % vIntCnt; /*//-- " + vIntCnt" correct for positive index needed by Req.Inv.Dat. --//*/ /*//-- " % vIntCnt" range limit for current LM count --//*/ gStrLMN = llGetInventoryName( INVENTORY_LANDMARK, gIdxTgt ); gKeySec = llRequestInventoryData( gStrLMN ); llSetTimerEvent( 5.0 ); } else{ /*//-- Uh Oh, set a default of current sim, center, ground level --//*/ llSetText( "Out Of Order, No Landmarks Present", <1.0, 0.0, 0.0>, 1.0 ); gPosLoc = <128.0, 128.0, 0.0>; } }

default{ state_entry(){ uUpdateLM( 0 ); }

dataserver( key vKeySec, string vStrLoc ){ /*//-- verify we're getting our data, not another scripts --//*/ if (gKeySec == vKeySec){ /*//-- Clear the timeout --//*/ llSetTimerEvent( 0.0 ); /*//-- Store/Display New Target --//*/ gPosLoc = (vector)vStrLoc + llGetRegionCorner(); llSetText( gStrLMN, <1.0, 0.0, 0.0>, 1.0 ); } }

touch_end( integer vIntNul ){ /*//-- Check if a prim named "prev" or "next" was touched --//*/ integer vIntTst = llSubStringIndex( "prevnext", llGetLinkName( llDetectedLinkNumber( 0 ) ) ); if (~vIntTst){ uUpdateLM( (vIntTst > 0) - (vIntTst == 0) ); /*//-- ((vIntTst > 0) - (vIntTst < 0)) same as: -1 for "prev", +1 for "next" --//*/ }else{ /*//-- Trigger map for any other touched prim in this object --//*/ llMapDestination( llGetRegionName(), gPosLoc - llGetRegionCorner(), ZERO_VECTOR ); } }

timer(){ /*//-- Make Sure Landmark didn't get deleted before trying to to read it again --//*/ if (INVENTORY_LANDMARK == llGetInventoryType( gStrLM )){ llOwnerSay( "Dataserver Response Timed Out. Unable To Change Destination; Trying Again" ); gKeySec = llRequestInventoryData( gStrLMN ); }else{ /*//-- Landmark no longer exists in inventory, set a safe default --//*/ uUpdateLM( 0 ); } } }

/*//-- License Text --//*/ /*// Free to copy, use, modify, distribute, or sell, with attribution. //*/ /*// (C)2009 (CC-BY) [ http://creativecommons.org/licenses/by/3.0 ] //*/ /*// Void Singer [ https://wiki.secondlife.com/wiki/User:Void_Singer ] //*/ /*// All usages must contain a plain text copy of the previous 2 lines. //*/ /*//-- --//*/</lsl>

Return to top

v7-D Advanced Visitor Greeter

Features:

  • Reduced Spam
  • Easily Modified
  • Multiple Configurations

Script

<lsl>/*//( v7-D Advanced Avatar Greeter v1.4.1 Annotated )//*/

/*//-- NOTE: 

Remove Any Instances Of "(gLstAvs = []) + " Or "(gLstTms = []) + " When Compiling This
Script To MONO. They Are Provided For LSO Memory Conservation And Do Nothing In MONO

//*/

list gLstAvs; /*//-- List Of Avatars Keys Greeted --//*/ list vLstChk; /*//-- List Of Single Av Key Checked During Sensor Processing --//*/ integer vIdxLst; /*//-- Index Of Checked Item In List (reused) --//*/ integer gIntMax = 500; /*//-- Maximum Number of Names To Store --//*/ 

/*//-- Previous Code Line PreSet to Ease Removing Dynamic Memory Limitation Code --//*/

/*//-- Next Code Line  Belongs to Dynamic Memory Limitation Section --//*/

integer int_MEM = 1000; /*//-- memory to preserve for safety (Needs to be > ~700)--//*/ 

/*//-- Start Av Culling Section --//*/

integer gIntPrd = 172800; /*//-- Number Of Seconds After Detection To Store Av --//*/ integer vIntNow; /*//-- Integer To Store Current Time During Sensor Processing --//*/ list gLstTms; /*//-- List Of Most Recent Times Avs Were Greeted At --//*/ list vLstTmt; /*//-- List To Store Timeout During Sensor Processing --//*/ 

/*//-- End Av Culling Section --//*/

default{ state_entry(){ /*//-- Next Code Line Belongs To Dynamic Memory Limitation Section --//*/ gIntMax = int_MEM; /*//-- Override Max if Dynamic Memory Limitation is in use --//*/ llSensor( "", "", AGENT, 95.0, PI ); /*//-- Pre-Fire Sensor For Immediate Results --//*/ llSetTimerEvent( 30.0 ); /*//-- Sensor Repeat Frequency --//*/ }

timer(){ llSensor( "", "", AGENT, 95.0, PI ); /*//-- Look For Avatars --//*/ }

sensor( integer vIntTtl ){ /*//-- Save Current Timer to Now, Then Add Period and Save To Timeout--//*/ vLstTmt = (list)(gIntPrd + (vIntNow = llGetUnixTime())); /*//-- Previous Code Line Belongs to Av Culling Section --//*/ @Building;{ /*//-- Is This Av Already In Our List? --//*/ if (~(vIdxLst = llListFindList( gLstAvs, (vLstChk = (list)llDetectedKey( --vIntTtl )) ))){ /*//-- Delete The Old Entries & Add New Entries to Preserve Order --//*/ gLstAvs = llDeleteSubList( (gLstAvs = []) + gLstAvs, vIdxLst, vIdxLst ) + vLstChk; /*//-- Next Code Line Belongs to Av Culling Section --//*/ gLstTms = llDeleteSubList( (gLstTms = []) + gLstTms, vIdxLst, vIdxLst ) + vLstTmt; } else{ /*//-- Oo Goody, Hi New Av! Add Them To The Lists & Preserve Max List Size--//*/ llInstantMessage( (string)vLstChk, "Hello " + llDetectedName( vIntTtl ) ); gLstAvs = llList2List( (gLstAvs = []) + vLstChk + gLstAvs, 0, gIntMax ); /*//-- Next Code Line Belongs to Av Culling Section --//*/ gLstTms = llList2List( (gLstTms = []) + vLstTmt + gLstTms, 0, gIntMax ); } }if (vIntTtl) jump Building;

/*//-- Start Dynamic Memory Limitation Section --//*/ /*//-- Only lower Max List Size Once For Saftey --//*/ if (int_MEM == gIntMax){ /*//-- do we have plenty of room in the script? --//*/ if (int_MEM > llGetFreeMemory()){ /*//-- running out of room, set the Max list size lower --//*/ gIntMax = ~([] != gLstAvs); } } /*//-- End Dynamic Memory Limitation Section --//*/

/*//-- Start Av Culling Section --//*/ /*//-- do we have keys? --//*/ if (vIdxLst = llGetListLength( gLstTms )){ /*//-- Do Any Need Culled? --//*/ if (vIntNow > llList2Integer( gLstTms, --vIdxLst )){ /*//-- Find The Last Index that hasn't hit timeout status --//*/ @TheirBones; if (--vIdxLst) if (vIntNow > llList2Integer( gLstTms, vIdxLst )) jump TheirBones; /*//-- Thin the herd --//*/ gLstAvs = llList2List( (gLstAvs = []) + gLstAvs, 0, vIdxLst ); gLstTms = llList2List( (gLstTms = []) + gLstTms, 0, vIdxLst ); } } /*//-- End Av Culling Section --//*/ } }

/*//-- License Text --//*/ /*// Free to copy, use, modify, distribute, or sell, with attribution. //*/ /*// (C)2009 (CC-BY) [ http://creativecommons.org/licenses/by/3.0 ] //*/ /*// Void Singer [ https://wiki.secondlife.com/wiki/User:Void_Singer ] //*/ /*// All usages must contain a plain text copy of the previous 2 lines. //*/ /*//-- --//*/</lsl>

Return to top

Questions or Comments?

Feel free to leave me a note on my User Talk page.
Retrieved from "https://wiki.secondlife.com/w/index.php?title=User:Void_Singer/Programs&oldid=931422"