Difference between revisions of "AntiDelay Node"

From Second Life Wiki
Jump to navigation Jump to search
m
(Changed code to be in <lsl>.)
Line 6: Line 6:
Use llMessageLinked - the integer is -123, the string is the list of arguments seperated by <nowiki>"~~~"</nowiki>, and the key is the name of the function.
Use llMessageLinked - the integer is -123, the string is the list of arguments seperated by <nowiki>"~~~"</nowiki>, and the key is the name of the function.


<pre>
<lsl>
default {
default {
     touch_start(integer total_number) {
     touch_start(integer total_number) {
Line 13: Line 13:
     }
     }
}
}
</pre>
</lsl>


<pre>
<lsl>
default {
default {
     touch_start(integer total_number) {
     touch_start(integer total_number) {
Line 29: Line 29:
     }
     }
}
}
</pre>
</lsl>


And now for the full and complete power of this code *drum roll*. Only 2 scripts are needed for the following code to work.
And now for the full and complete power of this code *drum roll*. Only 2 scripts are needed for the following code to work.
<pre>
<lsl>
default {
default {
     touch_start(integer total_number) {
     touch_start(integer total_number) {
Line 45: Line 45:
     }
     }
}
}
</pre>
</lsl>


The code to make it all work:
The code to make it all work:
Line 51: Line 51:


AntiDelay Node Manager:
AntiDelay Node Manager:
<pre>
<lsl>
list l = [];
list l = [];
list functions = ["email", "loadurl", "teleportagenthome", "remoteloadscriptpin", "remotedatareply", "giveinventorylist",  
list functions = ["email", "loadurl", "teleportagenthome", "remoteloadscriptpin", "remotedatareply", "giveinventorylist",  
Line 108: Line 108:
     }
     }
}
}
</pre>
</lsl>






AntiDelay Node:
AntiDelay Node:
<pre>
<lsl>
integer myId;
integer myId;
default {
default {
Line 212: Line 212:
     }
     }
}
}
</pre>
</lsl>
{{LSLC|Library}}
{{LSLC|Library}}

Revision as of 11:37, 8 February 2008

Almost every function in Second Life has a delay associated with it. Ranging from 20 seconds to .2 seconds - delays can get on anyones' nerves. Even the most basic scripters know the easy way to get around this is to have a script and use llMessageLinked to tell it to do something. Below is a more advanced version of that code - that allows for one script to handle almost any type of function with a delay.

How To Use: Use llMessageLinked - the integer is -123, the string is the list of arguments seperated by "~~~", and the key is the name of the function.

<lsl> default { 

   touch_start(integer total_number) {
       string s = llGetOwner();
       llMessageLinked(LINK_SET, -123, s + "~~~This is a dialog~~~With, Three, Options~~~0", "dialog");
   }

} </lsl>

<lsl> default { 

   touch_start(integer total_number) {
       vector v =  <128,128,300>;
       integer i = 0;
       float vecDist = llVecDist(llGetPos(), v);
       vecDist /= 5;
       vecDist += 1;
       while (i < vecDist) {
           llMessageLinked(LINK_SET, -123, (string)v, "setpos");
           i++;
       }
   }

} </lsl>

And now for the full and complete power of this code *drum roll*. Only 2 scripts are needed for the following code to work. <lsl> default { 

   touch_start(integer total_number) {
       string s = llGetOwner();
       llMessageLinked(LINK_SET, -123, s + "~~~This is a dialog~~~With, Three, Options~~~0", "dialog");
       llMessageLinked(LINK_SET, -123, "youemail@theaddress.com~~~Subj~~~Body", "email");
       llSleep(1);
       llMessageLinked(LINK_SET, -123, s + "~~~This is a dialog~~~With, Three, Options~~~0", "dialog");
       llSleep(1);
       llMessageLinked(LINK_SET, -123, "youemail@theaddress.com~~~Subj~~~Body", "email");
       
   }

} </lsl>

The code to make it all work:


AntiDelay Node Manager: <lsl> list l = []; list functions = ["email", "loadurl", "teleportagenthome", "remoteloadscriptpin", "remotedatareply", "giveinventorylist", 

                 "setparcelmusicurl", "instantmessage", "preloadsound", "mapdestination", "dialog", "createlink", "setpos",
                 "setrot", "settexture", "rezobject"];

list delays = [20000, 10000, 5000, 3000, 3000, 2000, 2000, 1000, 1000, 1000, 1000, 1000, 200, 200, 200, 100]; integer count = 1; integer time() { 

   string stamp = llGetTimestamp();
   return (integer) llGetSubString(stamp, 11, 12) * 3600000 +
          (integer) llGetSubString(stamp, 14, 15) * 60000 +
          llRound((float)llGetSubString(stamp, 17, -2) * 1000000.0)/1000;

} integer nextFreeScript() { 

   integer i = 0;
   integer curTime = time();
   while (i < llGetListLength(l)) {
       if (llList2Integer(l, i) - curTime <= 0) {
           return i;
       }
       ++i;
   }
   return -1;

}

default { 

   state_entry() {
       llMessageLinked(LINK_SET, -112, "", "");
       llSleep(1);
       llMessageLinked(LINK_SET, -111, "", "");
   }
   link_message(integer send, integer i, string s, key k) {
       if (i == -2) {
           llMessageLinked(LINK_SET, (integer)s, (string)count, "");
           ++count;
           l += time();
           llSetTimerEvent(6);
       }
   }
   timer() {
       state run;
   }

}

state run { 

   state_entry() {
   }
   link_message(integer send, integer i, string s, key k) {
       if (i == -123) {
           llOwnerSay("A");
           integer d = llList2Integer(delays, llListFindList(functions, [(string)k]));
           integer ii = nextFreeScript();
           l = llListReplaceList(l, [time() + d], ii, ii);
           llMessageLinked(LINK_SET, ii+1, s, k);
       }
   }

} </lsl>


AntiDelay Node: <lsl> integer myId; default { 

   link_message(integer send, integer i, string s, key k) {
       if (i == myId && myId) {
           myId = (integer)s;
           state run;
       }
       if (i == -111) {
           myId = (integer)llFrand(0x7FFFFFFF);
           llSleep(llFrand(5));
           llMessageLinked(LINK_SET, -2, (string)myId, "");
       }
   }

}

state run { 

   link_message(integer send, integer i, string s, key k) {
       list params = llParseString2List(s, ["~~~"], []);
       if (i == myId && myId) {
           if (llToLower(k) == "email") {
               llEmail(llList2String(params, 0),
                   llList2String(params, 1),
                   llList2String(params, 2));
           }
           if (llToLower(k) == "loadurl") {
               llLoadURL((key)llList2String(params, 0),
                   llList2String(params, 1),
                   llList2String(params, 2));
           }
           if (llToLower(k) == "teleportagenthome") {
               llTeleportAgentHome((key)llList2String(params, 0));
           }
           if (llToLower(k) == "remoteloadscriptpin") {
               llRemoteLoadScriptPin((key)llList2String(params, 0),
                   llList2String(params, 1),
                   (integer)llList2String(params, 2),
                   (integer)llList2String(params, 3),
                   (integer)llList2String(params, 4));
           }
           if (llToLower(k) == "remotedatareply") {
               llRemoteDataReply((key)llList2String(params, 0),
                   (key)llList2String(params, 1),
                   llList2String(params, 2),
                   (integer)llList2String(params, 3));
           }
           if (llToLower(k) == "giveinventorylist") {
               llGiveInventoryList((key)llList2String(params, 0),
                   llList2String(params, 1),
                   llCSV2List(llList2String(params, 2)));
           }
           if (llToLower(k) == "setparcelmusicurl") {
               llSetParcelMusicURL(llList2String(params, 0));
           }
           if (llToLower(k) == "instantmessage") {
               llInstantMessage((key)llList2String(params, 0),
                   llList2String(params, 1));
           }
           if (llToLower(k) == "preloadsound") {
               llPreloadSound(llList2String(params, 0));
           }
           if (llToLower(k) == "mapdestination") {
               llMapDestination(llList2String(params, 0),
                   (vector)llList2String(params, 1),
                   (vector)llList2String(params, 2));
           }
           if (llToLower(k) == "dialog") {
               llDialog((key)llList2String(params, 0),
                   llList2String(params, 1),
                   llCSV2List(llList2String(params, 2)),
                   (integer)llList2String(params, 3));
           }
           if (llToLower(k) == "createlink") {
               llCreateLink((key)llList2String(params, 0),
                   (integer)llList2String(params, 1));
           }
           if (llToLower(k) == "setpos") {
               llSetPos((vector)llList2String(params, 0));
           }
           if (llToLower(k) == "setrot") {
               llSetRot((rotation)llList2String(params, 0));
           }
           if (llToLower(k) == "settexture") {
               llSetTexture(llList2String(params, 0),
                   (integer)llList2String(params, 1));
           }
           if (llToLower(k) == "rezobject") {
               llRezObject(llList2String(params, 0),
                   (vector)llList2String(params, 1), 
                   (vector)llList2String(params, 2), 
                   (rotation)llList2String(params, 3), 
                   (integer)llList2String(params, 4));
           }
       }
       if (i == -112) {
           llResetScript();
       }
   }

} </lsl>

Retrieved from "https://wiki.secondlife.com/w/index.php?title=AntiDelay_Node&oldid=53122"