Push All Scripts

1337_Translator/1337_Translator.sol

@@ -0,0 +1,3 @@
+<Solution name="1337_Translator">
+	<Project name="1337_Translator" path="1337_Translator\1337_Translator.prj" active="true"/>
+</Solution>

1337_Translator/1337_Translator/1337_Translator.prj

@@ -0,0 +1,6 @@
+<Project name="1337_Translator" guid="d80d1156-6c00-1014-b904-200204c60a89">
+	<Object name="Object" guid="d80d1238-6c00-1014-b904-200204c60a89">
+		<Script name="1337_Translator_1.lsl" guid="d80d32d6-6c00-1014-b904-200204c60a89">
+		</Script>
+	</Object>
+</Project>

1337_Translator/1337_Translator/Object/1337_Translator_1.lsl

@@ -0,0 +1,93 @@
+// :CATEGORY:Translator
+// :NAME:1337_Translator
+// :AUTHOR:Davy Maltz
+// :KEYWORDS:
+// :CREATED:2010-01-10 05:20:56.000
+// :EDITED:2014-02-15
+// :ID:994
+// :NUM:1489
+// :REV:1.0
+// :WORLD:Second Life
+// :DESCRIPTION:
+// Leet speak translator
+// :CODE:
+list alphabet = ["a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z"," "];
+list encode;
+
+list leet = ["4","8","(","|)","3","ƒ","6","#","|","]","|<","1","]V[","/\/","0","¶","0_","®","5","7","(_)","\/","vv","×","`/","2"," "];
+
+list haxxorz = ["4","b","c","d","e","f","g","h","i","j","k","|","m","n","0","p","q","r","5","t","u","v","w","x","y","2"," "];
+
+list sounds = ["ayh","bee","cey","dey","eey","eff","gee","ehch","eye","jay","kay","el","em","en","oh","pee","quew","are","ehs","tey","yoo","vee","double-yew","ecks","wayh","zee"," "];
+string convertedtext;
+default
+{
+    on_rez(integer start_parm)
+    {
+        llOwnerSay("Talk on channel '777' to encode text. Say '.1337', '.h4xx0r2', or '.sounds' To change the type of text encoding.");
+        llResetScript();   
+    }
+    state_entry()
+    {
+        if(llGetObjectDesc() == "leet")
+        {
+        encode = leet;
+        }
+         if(llGetObjectDesc() == "haxxorz")
+        {
+        encode = haxxorz;
+        }
+         if(llGetObjectDesc() == "sounds")
+        {
+        encode = sounds;
+        }
+        else
+        {
+            encode = haxxorz;
+        }
+        llListen(777,"",llGetOwner(),"");
+        llListen(0,"",llGetOwner(),"");
+    }
+    listen(integer channel, string name, key id, string message)
+    {
+        convertedtext = "";
+        if(channel == 777)
+        {
+            integer i;
+            for(i == 0; i < llStringLength(llToLower(message)); ++ i)
+            {
+                if(llListFindList(alphabet,[llGetSubString(llToLower(message),i,i)]) != -1)
+                {
+                    convertedtext = convertedtext + llList2String(encode,llListFindList(alphabet,[llGetSubString(llToLower(message),i,i)]));
+                }
+                else
+                {
+                    convertedtext = convertedtext + llGetSubString(llToLower(message),i,i);
+                }
+            }
+
+            llSay(0,convertedtext);
+        }
+        if(channel == 0)
+        {
+            if(message == ".1337")
+            {
+                llOwnerSay("Encoding Now Set To '1337'.");
+                encode = leet;
+                llSetObjectDesc("leet");
+            }
+            if(message == ".h4xx0r2")
+            {
+                llOwnerSay("Encoding Now Set To 'h4xx0r2'.");
+                encode = haxxorz;
+                llSetObjectDesc("haxxorz");
+            }
+            if(message == ".sounds")
+            {
+                llOwnerSay("Encoding Now Set To 'Sounds'.");
+                encode = sounds;
+                llSetObjectDesc("sounds");
+            }
+        }
+    }
+}

1st_necessity_of_SL/1st_necessity_of_SL.sol

@@ -0,0 +1,3 @@
+<Solution name="1st_necessity_of_SL">
+	<Project name="1st_necessity_of_SL" path="1st_necessity_of_SL\1st_necessity_of_SL.prj" active="true"/>
+</Solution>

1st_necessity_of_SL/1st_necessity_of_SL/1st_necessity_of_SL.prj

@@ -0,0 +1,6 @@
+<Project name="1st_necessity_of_SL" guid="d8a31ec3-6c00-1014-b904-200204c60a89">
+	<Object name="Object" guid="d8a31fb9-6c00-1014-b904-200204c60a89">
+		<Script name="1st_necessity_of_SL_1.lsl" guid="d8a3435d-6c00-1014-b904-200204c60a89">
+		</Script>
+	</Object>
+</Project>

1st_necessity_of_SL/1st_necessity_of_SL/Object/1st_necessity_of_SL_1.lsl

@@ -0,0 +1,122 @@
+// :CATEGORY:Sensor
+// :NAME:1st_necessity_of_SL
+// :AUTHOR:Beer Dailey
+// :KEYWORDS:
+// :CREATED:2011-01-22 12:11:17.717
+// :EDITED:2014-02-15
+// :ID:2
+// :NUM:2
+// :REV:1.0
+// :WORLD:Second Life
+// :DESCRIPTION:
+// Ever since I noticed that many sims contain 1000's of wonderful objects with fancy effects and 1000's active scripts that use valuable simresources while no-one is around to enjoy it, I wanted to script something simple to offload those resources and give the visitor a better experience.// // That's why I made this little script: '1st necessity of SL' that could and should be used in any project that doesn't need to be active all the time.// // We are building a better place, together :)// 
+// [Beer Dailey] 
+// :CODE:
+// Improve SecondLife's performance!
+// Start with your own(ned) modifyable scripts/objects.
+//
+// This will disable your rootprim's script(s) when no-one is around to use/admire it
+// thus stop wasting valuable sim-resources
+// 
+// Measured script time is 0.002 ms on average. 
+//
+// - don't use it for rental stuff or sorts, not everything is suitable -
+//
+// Free to use, please use it. Improvements are welcome.
+// // Thank you Norton Burns for the testing and feedback :)
+//
+// Beer Dailey
+//
+// Don't reset this script or take it back in inventory when you're not within the set distance 
+// or you'll get unpredictable results !!
+// 
+// modify below to suit your needs
+
+//////////////////////////////////
+float   distance = 48.0;   // scan range 
+integer delay = 10;      // repeat scan every 10 seconds.
+
+// added 
+// (gnore specific scripts, some scripts need to be off after initial setups
+// There's a bug that resets scripts in off state after a sim restart, so when activated again they re-initialise.
+// I've no fix for that.
+//
+list ignore_scripts = ["major script", "even worse script"]; 
+
+integer debug = FALSE;   // for debugging purposes, set it to TRUE to see what it's controlling
+
+
+//////////////////////////////////////
+// no need to modify the code below //
+//////////////////////////////////////
+
+integer g_active = FALSE;  // if FALSE disable all other scripts  
+                           // changed TRUE into FALSE cos of some bug with rezzing, thank you LordGregGreg Back :)
+list control_scripts;      // list for all scriptnames
+
+active_scripts( integer active )
+{
+    if(g_active == active) return; else g_active = active;  //flip TRUE/FALSE
+
+    integer a;
+    for ( a = 0; a < llGetListLength(control_scripts); a++)
+    {
+        llSetScriptState(llList2String(control_scripts, a), g_active); //(de)activate scripts 
+
+    }  
+    if (debug) llOwnerSay("Changed: " + llList2CSV(control_scripts) + " to: " + (string)g_active );  
+}
+
+default
+{
+    state_entry()
+    {
+        string myname = llGetScriptName(); //don't add myself into the list 
+        control_scripts = [];  
+
+        integer i;
+        integer n = llGetInventoryNumber(INVENTORY_SCRIPT); //count scripts
+
+        if (n == 1) { llOwnerSay("No other scripts found!"); } else //dont be silly ;)
+
+        for(i = 0; i < n; ++i)
+        {
+            string name = llGetInventoryName(INVENTORY_SCRIPT, i); //parse scriptnames 
+            if(name != myname) //not my name then continue
+            {
+               //catch states
+               if ( llGetScriptState(name) == TRUE) //not on ignore list & running add it
+               {
+                   control_scripts += [name];  
+               }
+               else ignore_scripts += [name];
+            }
+        }
+        if (debug) llOwnerSay("Controlling: " + llList2CSV(control_scripts) + "\nIgnoring: " + llList2CSV(ignore_scripts));
+        llSensorRepeat("", NULL_KEY, AGENT, distance, PI, delay); // how far and how often we scan for avatars
+    }
+
+    on_rez(integer s) 
+    { 
+        if (llGetListLength(control_scripts)== 0 && g_active == TRUE) llResetScript(); 
+        //first time use or reset only when scripts are still active or they'll be added to the ignorelist
+    } 
+
+    changed(integer change)
+    {
+        if (change & CHANGED_OWNER) llResetScript(); // catch new owner
+        if (change & CHANGED_INVENTORY) llResetScript(); // catch new scripts
+    }
+
+    sensor(integer num_detected)
+    {
+       active_scripts(TRUE); //activate the scripts
+    }
+
+    no_sensor()  //no-one around? turn off all controlled scripts except myself
+    {
+       active_scripts(FALSE); //deactivate the scripts
+    }
+
+}
+

3D_Radar/3D_Radar.sol

@@ -0,0 +1,3 @@
+<Solution name="3D_Radar">
+<Project name="3D_Radar" path="3D_Radar\3D_Radar.prj" active="true"/>
+</Solution>

3D_Radar/3D_Radar/3D_Radar.prj

@@ -0,0 +1,8 @@
+<Project name="3D_Radar" guid="D89A6A63-6C00-1014-B904-200204C60A89">
+	<Object name="Object" guid="D89A6B7F-6C00-1014-B904-200204C60A89">
+		<Script name="3D_Radar_1.lsl" guid="D89A9039-6C00-1014-B904-200204C60A89">
+		</Script>
+		<Script name="3D_Radar_2.lsl" guid="D89AB007-6C00-1014-B904-200204C60A89">
+		</Script>
+	</Object>
+</Project>

3D_Radar/3D_Radar/Object/3D_Radar_1.lsl

@@ -0,0 +1,71 @@
+// :CATEGORY:Radar
+// :NAME:3D_Radar
+// :AUTHOR:Jesse Barnett
+// :KEYWORDS:
+// :CREATED:2010-12-27 12:41:03.763
+// :EDITED:2013-09-18 15:38:46
+// :ID:4
+// :NUM:6
+// :REV:1.0
+// :WORLD:Second Life
+// :DESCRIPTION:
+// Rezzes a ball for each avatar in range. Each ball tracks it's on AV and displays distance.
+// :CODE:
+// 
+// This formula: vector avDivPos = (avPos - rPos) * 0.010417; Takes the (avatars position - position of scanner) & multiplies by (radius of the distance you want the balls to go(2 meter sphere = 1 meter radius)/scan range(96meters)):
+// 
+// 1/96 = approximately 0.010417. 
+
+//////////////////////////////////////////////////////////////////////////////////////////////////////
+//				3D Radar 2.5
+// 				"Oct 15 2008", "18:43:28"
+// 				Creator: Jesse Barnett
+//				Released into the Public Domain
+//////////////////////////////////////////////////////////////////////////////////////////////////////
+ 
+integer Scan = TRUE;
+string avKey;
+integer list_pos;
+list key_list;
+integer key_chan;	//Key channel is generated randomly and passed to the scan ball
+integer die_chan = -9423753;	//Hey pick your own channels and be sure to paste them into
+						//the scan balls too!
+integer key_rem_chan = -49222879;
+default {
+	state_entry() {
+		llSetObjectName("3D Radar");
+	}
+	touch_start(integer total_number) {
+		if (Scan) {
+			llSensorRepeat("", "", AGENT, 96, PI, 1);
+			key_list =[];
+			llListen(key_rem_chan, "", "", "");
+			llOwnerSay("on");
+			Scan = FALSE;
+		}
+		else {
+			llSensorRemove();
+			llRegionSay(die_chan, "die");
+			llOwnerSay("off");
+			Scan = TRUE;
+		}
+	}
+	sensor(integer iNum) {
+		integer p = 0;
+		for (p = 0; p < iNum; ++p) {
+			avKey = llDetectedKey(p);
+			list_pos = llListFindList(key_list, (list)avKey);
+			if (list_pos == -1) {
+				key_list += (list) avKey;
+				key_chan = (integer) llFrand(-1000000) - 1000000;
+				llRezObject("scan ball", llGetPos(), ZERO_VECTOR, ZERO_ROTATION, key_chan);
+				llSleep(.25);
+				llRegionSay(key_chan, avKey);
+			}
+		}
+	}
+	listen(integer c, string name, key id, string msg) {
+		integer r = llListFindList(key_list,[(key)msg]);
+		key_list = llDeleteSubList(key_list, r, r);
+	}
+}

3D_Radar/3D_Radar/Object/3D_Radar_2.lsl

@@ -0,0 +1,62 @@
+// :CATEGORY:Radar
+// :NAME:3D_Radar
+// :AUTHOR:Jesse Barnett
+// :KEYWORDS:
+// :CREATED:2010-12-27 12:41:03.763
+// :EDITED:2013-09-18 15:38:46
+// :ID:4
+// :NUM:7
+// :REV:1.0
+// :WORLD:Second Life
+// :DESCRIPTION:
+// DESCRIPTION: []::Rezzes a ball for each avatar in range. Each ball tracks it's on AV and displays distance
+// :CODE:
+// Place this script in a prim and then place the prim into the inventory of the Scanner/Rezzer. It will automatically name itself.// // Suggestion; Create a sphere prim of 0.05 diameter with glow set about .80. 
+//////////////////////////////////////////////////////////////////////////////////////////////////////
+//				3D Radar 2.5
+// 				"Oct 15 2008", "18:44:36"
+// 				Creator: Jesse Barnett
+//				Released into the Public Domain
+//////////////////////////////////////////////////////////////////////////////////////////////////////
+ 
+string avName;
+integer avDistance;
+key avKey;
+integer avListen;
+integer key_chan;
+integer die_chan = -9423753;
+integer key_rem_chan = -49222879;
+vector avPos;
+vector rPos;
+default {
+	state_entry() {
+		llSetObjectName("scan ball");
+	}
+	on_rez(integer start_param) {
+		rPos = llGetPos();
+		key_chan = start_param;
+		llListen(die_chan, "", "", "");
+		avListen = llListen(key_chan, "", "", "");
+	}
+	listen(integer c, string n, key id, string msg) {
+		if (c == die_chan)
+			llDie();
+		else {
+			avKey = (key) msg;
+			avName = llKey2Name(avKey);
+			llSensorRepeat("", avKey, AGENT, 96, PI, 1.0);
+			llListenRemove(avListen);
+		}
+	}
+	sensor(integer n) {
+		avPos = llDetectedPos(0);
+		vector avDivPos = (avPos - rPos) / (96 / 1);	//Scan range/Radius of large sphere
+		avDistance = (integer) llVecDist(rPos, llDetectedPos(0));
+		llSetPos(rPos + avDivPos);
+		llSetText(avName + "[" + (string) avDistance + "]", <1, 1, 1 >, 1);
+	}
+	no_sensor() {
+		llRegionSay(key_rem_chan, avKey);
+		llDie();
+	}
+}

3_scripts_for_Fun_With_Dynamic_Came/3_scripts_for_Fun_With_Dynamic_Came.sol

@@ -0,0 +1,3 @@
+<Solution name="3_scripts_for_Fun_With_Dynamic_Came">
+<Project name="3_scripts_for_Fun_With_Dynamic_Came" path="3_scripts_for_Fun_With_Dynamic_Came\3_scripts_for_Fun_With_Dynamic_Came.prj" active="true"/>
+</Solution>