aboutsummaryrefslogtreecommitdiffstatshomepage
path: root/bin/assets/ScriptsAssetSet
diff options
context:
space:
mode:
authorBrian McBee2008-01-07 01:03:46 +0000
committerBrian McBee2008-01-07 01:03:46 +0000
commit35b0c2e9dfbbf811c12c9e3e7d4359a13b987977 (patch)
tree42e91b37aa581006dc9defb6780ff15319049d3f /bin/assets/ScriptsAssetSet
parentFactor out inventory code in SceneObjectGroup into seperate class. (diff)
downloadopensim-SC_OLD-35b0c2e9dfbbf811c12c9e3e7d4359a13b987977.zip
opensim-SC_OLD-35b0c2e9dfbbf811c12c9e3e7d4359a13b987977.tar.gz
opensim-SC_OLD-35b0c2e9dfbbf811c12c9e3e7d4359a13b987977.tar.bz2
opensim-SC_OLD-35b0c2e9dfbbf811c12c9e3e7d4359a13b987977.tar.xz
More inventory work for CharlieO. Final patch to make it all work yet to come.
Diffstat (limited to 'bin/assets/ScriptsAssetSet')
-rw-r--r--bin/assets/ScriptsAssetSet/ScriptsAssetSet.xml135
-rw-r--r--bin/assets/ScriptsAssetSet/llAbs.lsl7
-rw-r--r--bin/assets/ScriptsAssetSet/llAcos.lsl8
-rw-r--r--bin/assets/ScriptsAssetSet/llAddToLandBanList.lsl84
-rw-r--r--bin/assets/ScriptsAssetSet/llAddToLandPassList.lsl84
-rw-r--r--bin/assets/ScriptsAssetSet/llAdjustSoundVolume.lsl13
-rw-r--r--bin/assets/ScriptsAssetSet/llAllowInventoryDrop.lsl17
-rw-r--r--bin/assets/ScriptsAssetSet/llAngleBetween.lsl11
-rw-r--r--bin/assets/ScriptsAssetSet/llApplyImpulse.lsl16
-rw-r--r--bin/assets/ScriptsAssetSet/llAsin.lsl9
-rw-r--r--bin/assets/ScriptsAssetSet/llAtan2.lsl11
-rw-r--r--bin/assets/ScriptsAssetSet/llAvatarOnSitTarget.lsl20
-rw-r--r--bin/assets/ScriptsAssetSet/llBase64ToString.lsl8
-rw-r--r--bin/assets/ScriptsAssetSet/llRemoveFromLandBanList.lsl84
-rw-r--r--bin/assets/ScriptsAssetSet/llRemoveFromLandPassList.lsl84
-rw-r--r--bin/assets/ScriptsAssetSet/llResetLandBanList.lsl84
-rw-r--r--bin/assets/ScriptsAssetSet/llResetLandPassList.lsl84
-rw-r--r--bin/assets/ScriptsAssetSet/llSay.lsl7
-rw-r--r--bin/assets/ScriptsAssetSet/llSetParcelMusicURL.lsl7
-rw-r--r--bin/assets/ScriptsAssetSet/llSetRot.lsl13
20 files changed, 786 insertions, 0 deletions
diff --git a/bin/assets/ScriptsAssetSet/ScriptsAssetSet.xml b/bin/assets/ScriptsAssetSet/ScriptsAssetSet.xml
new file mode 100644
index 0000000..bd82a12
--- /dev/null
+++ b/bin/assets/ScriptsAssetSet/ScriptsAssetSet.xml
@@ -0,0 +1,135 @@
1<Nini>
2 <Section Name="llAbs">
3 <Key Name="assetID" Value="3b055e3f-b19d-11dc-8314-0800200c9a66" />
4 <Key Name="name" Value="llAbs" />
5 <Key Name="assetType" Value="10" />
6 <Key Name="inventoryType" Value="10" />
7 <Key Name="fileName" Value="llAbs.lsl" />
8 </Section>
9 <Section Name="llAcos">
10 <Key Name="assetID" Value="6519bf39-b19f-11dc-8314-0800200c9a66" />
11 <Key Name="name" Value="llAcos" />
12 <Key Name="assetType" Value="10" />
13 <Key Name="inventoryType" Value="10" />
14 <Key Name="fileName" Value="llAcos.lsl" />
15 </Section>
16 <Section Name="llAddToLandBanList">
17 <Key Name="assetID" Value="7ceba3f1-b1a0-11dc-8314-0800200c9a66" />
18 <Key Name="name" Value="llAddToLandBanList" />
19 <Key Name="assetType" Value="10" />
20 <Key Name="inventoryType" Value="10" />
21 <Key Name="fileName" Value="llAddToLandBanList.lsl" />
22 </Section>
23 <Section Name="llAddToLandPassList">
24 <Key Name="assetID" Value="609047e7-b390-11dc-8314-0800200c9a66" />
25 <Key Name="name" Value="llAddToLandPassList" />
26 <Key Name="assetType" Value="10" />
27 <Key Name="inventoryType" Value="10" />
28 <Key Name="fileName" Value="llAddToLandPassList.lsl" />
29 </Section>
30 <Section Name="llAdjustSoundVolume">
31 <Key Name="assetID" Value="56df4bcd-b393-11dc-8314-0800200c9a66" />
32 <Key Name="name" Value="llAdjustSoundVolume" />
33 <Key Name="assetType" Value="10" />
34 <Key Name="inventoryType" Value="10" />
35 <Key Name="fileName" Value="llAdjustSoundVolume.lsl" />
36 </Section>
37 <Section Name="llAllowInventoryDrop">
38 <Key Name="assetID" Value="54d6962d-b394-11dc-8314-0800200c9a66" />
39 <Key Name="name" Value="llAllowInventoryDrop" />
40 <Key Name="assetType" Value="10" />
41 <Key Name="inventoryType" Value="10" />
42 <Key Name="fileName" Value="llAllowInventoryDrop.lsl" />
43 </Section>
44 <Section Name="llAngleBetween">
45 <Key Name="assetID" Value="6b341609-b34e-11dc-8314-0800200c9a66" />
46 <Key Name="name" Value="llAngleBetween" />
47 <Key Name="assetType" Value="10" />
48 <Key Name="inventoryType" Value="10" />
49 <Key Name="fileName" Value="llAngleBetween.lsl" />
50 </Section>
51 <Section Name="llAsin">
52 <Key Name="assetID" Value="7e7422ed-b425-11dc-8314-0800200c9a66" />
53 <Key Name="name" Value="llAsin" />
54 <Key Name="assetType" Value="10" />
55 <Key Name="inventoryType" Value="10" />
56 <Key Name="fileName" Value="llAsin.lsl" />
57 </Section>
58 <Section Name="llAtan2">
59 <Key Name="assetID" Value="7e7422ef-b425-11dc-8314-0800200c9a66" />
60 <Key Name="name" Value="llAtan2" />
61 <Key Name="assetType" Value="10" />
62 <Key Name="inventoryType" Value="10" />
63 <Key Name="fileName" Value="llAtan2.lsl" />
64 </Section>
65 <Section Name="llApplyImpulse">
66 <Key Name="assetID" Value="714ec679-b419-11dc-8314-0800200c9a66" />
67 <Key Name="name" Value="llApplyImpulse" />
68 <Key Name="assetType" Value="10" />
69 <Key Name="inventoryType" Value="10" />
70 <Key Name="fileName" Value="llApplyImpulse.lsl" />
71 </Section>
72 <Section Name="llAvatarOnSitTarget">
73 <Key Name="assetID" Value="579fc821-b426-11dc-8314-0800200c9a66" />
74 <Key Name="name" Value="llAvatarOnSitTarget" />
75 <Key Name="assetType" Value="10" />
76 <Key Name="inventoryType" Value="10" />
77 <Key Name="fileName" Value="llAvatarOnSitTarget.lsl" />
78 </Section>
79 <Section Name="llBase64ToString">
80 <Key Name="assetID" Value="1d4c71d9-b428-11dc-8314-0800200c9a66" />
81 <Key Name="name" Value="llBase64ToString" />
82 <Key Name="assetType" Value="10" />
83 <Key Name="inventoryType" Value="10" />
84 <Key Name="fileName" Value="llBase64ToString.lsl" />
85 </Section>
86 <Section Name="llRemoveFromLandBanList">
87 <Key Name="assetID" Value="299b2101-b392-11dc-8314-0800200c9a66" />
88 <Key Name="name" Value="llRemoveFromLandBanList" />
89 <Key Name="assetType" Value="10" />
90 <Key Name="inventoryType" Value="10" />
91 <Key Name="fileName" Value="llRemoveFromLandBanList.lsl" />
92 </Section>
93 <Section Name="llRemoveFromLandPassList">
94 <Key Name="assetID" Value="299b2103-b392-11dc-8314-0800200c9a66" />
95 <Key Name="name" Value="llRemoveFromLandPassList" />
96 <Key Name="assetType" Value="10" />
97 <Key Name="inventoryType" Value="10" />
98 <Key Name="fileName" Value="llRemoveFromLandPassList.lsl" />
99 </Section>
100 <Section Name="llResetLandBanList">
101 <Key Name="assetID" Value="366ac8e7-b391-11dc-8314-0800200c9a66" />
102 <Key Name="name" Value="llResetLandBanList" />
103 <Key Name="assetType" Value="10" />
104 <Key Name="inventoryType" Value="10" />
105 <Key Name="fileName" Value="llResetLandBanList.lsl" />
106 </Section>
107 <Section Name="llResetLandPassList">
108 <Key Name="assetID" Value="366ac8e9-b391-11dc-8314-0800200c9a66" />
109 <Key Name="name" Value="llResetLandPassList" />
110 <Key Name="assetType" Value="10" />
111 <Key Name="inventoryType" Value="10" />
112 <Key Name="fileName" Value="llResetLandPassList.lsl" />
113 </Section>
114 <Section Name="llSay">
115 <Key Name="assetID" Value="3af51d21-b38f-11dc-8314-0800200c9a66" />
116 <Key Name="name" Value="llSay" />
117 <Key Name="assetType" Value="10" />
118 <Key Name="inventoryType" Value="10" />
119 <Key Name="fileName" Value="llSay.lsl" />
120 </Section>
121 <Section Name="llSetParcelMusicURL">
122 <Key Name="assetID" Value="3603a4f8-b360-11dc-8314-0800200c9a66" />
123 <Key Name="name" Value="llSetParcelMusicURL" />
124 <Key Name="assetType" Value="10" />
125 <Key Name="inventoryType" Value="10" />
126 <Key Name="fileName" Value="llSetParcelMusicURL.lsl" />
127 </Section>
128 <Section Name="llSetRot">
129 <Key Name="assetID" Value="220baef9-b376-11dc-8314-0800200c9a66" />
130 <Key Name="name" Value="llSetRot" />
131 <Key Name="assetType" Value="10" />
132 <Key Name="inventoryType" Value="10" />
133 <Key Name="fileName" Value="llSetRot.lsl" />
134 </Section>
135</Nini>
diff --git a/bin/assets/ScriptsAssetSet/llAbs.lsl b/bin/assets/ScriptsAssetSet/llAbs.lsl
new file mode 100644
index 0000000..aa39395
--- /dev/null
+++ b/bin/assets/ScriptsAssetSet/llAbs.lsl
@@ -0,0 +1,7 @@
1default
2{
3 state_entry()
4 {
5 llOwnerSay("The absolute value of -4 is: "+(string)llAbs(-4) );
6 }
7}
diff --git a/bin/assets/ScriptsAssetSet/llAcos.lsl b/bin/assets/ScriptsAssetSet/llAcos.lsl
new file mode 100644
index 0000000..da30a0d
--- /dev/null
+++ b/bin/assets/ScriptsAssetSet/llAcos.lsl
@@ -0,0 +1,8 @@
1default
2{
3 state_entry()
4 {
5 float r = llFrand(2) - 1.0;
6 llOwnerSay("The arccosine of " + (string)r + " is " + llAcos(r));
7 }
8}
diff --git a/bin/assets/ScriptsAssetSet/llAddToLandBanList.lsl b/bin/assets/ScriptsAssetSet/llAddToLandBanList.lsl
new file mode 100644
index 0000000..19ad704
--- /dev/null
+++ b/bin/assets/ScriptsAssetSet/llAddToLandBanList.lsl
@@ -0,0 +1,84 @@
1//Commands are:
2///5 ban:full_avatar_name
3///5 tempban:full_avatar_name
4///5 unban:full_avatar_name
5///5 pass:full_avatar_name
6///5 unpass:full_avatar_name
7///5 clearban
8///5 clearpass
9
10string command;
11
12default
13{
14 state_entry()
15 {
16 llListen(5, "", llGetOwner(), "");
17 }
18
19 on_rez(integer param)
20 {
21 llResetScript();
22 }
23
24 listen(integer chan, string name, key id, string message)
25 {
26 if (command != "")
27 {
28 llOwnerSay("Sorry, still processing last command, try again in a second.");
29 }
30
31 list args = llParseString2List(message,[":"],[]);
32 command = llToLower(llList2String(args,0));
33
34 if (command == "clearbans")
35 {
36 llResetLandBanList();
37 }
38 if (command == "clearpass")
39 {
40 llResetLandPassList();
41 }
42 else
43 {
44 llSensor(llList2String(args,1),NULL_KEY,AGENT,96,PI);
45 }
46 }
47
48 no_sensor()
49 {
50 command = "";
51 }
52
53 sensor(integer num)
54 {
55 integer i;
56 for (i=0; i< num; ++i)
57 {
58 if (command == "ban")
59 {
60 // Ban indefinetely
61 llAddToLandBanList(llDetectedKey(i),0.0);
62 }
63 if (command == "tempban")
64 {
65 // Ban for 1 hour.
66 llAddToLandBanList(llDetectedKey(i),1.0);
67 }
68 if (command == "unban")
69 {
70 llRemoveFromLandBanList(llDetectedKey(i));
71 }
72 if (command == "pass")
73 {
74 // Add to land pass list for 1 hour
75 llAddToLandPassList(llDetectedKey(i),1.0);
76 }
77 if (command == "unpass")
78 {
79 llRemoveFromLandPassList(llDetectedKey(i));
80 }
81 }
82 command = "";
83 }
84}
diff --git a/bin/assets/ScriptsAssetSet/llAddToLandPassList.lsl b/bin/assets/ScriptsAssetSet/llAddToLandPassList.lsl
new file mode 100644
index 0000000..19ad704
--- /dev/null
+++ b/bin/assets/ScriptsAssetSet/llAddToLandPassList.lsl
@@ -0,0 +1,84 @@
1//Commands are:
2///5 ban:full_avatar_name
3///5 tempban:full_avatar_name
4///5 unban:full_avatar_name
5///5 pass:full_avatar_name
6///5 unpass:full_avatar_name
7///5 clearban
8///5 clearpass
9
10string command;
11
12default
13{
14 state_entry()
15 {
16 llListen(5, "", llGetOwner(), "");
17 }
18
19 on_rez(integer param)
20 {
21 llResetScript();
22 }
23
24 listen(integer chan, string name, key id, string message)
25 {
26 if (command != "")
27 {
28 llOwnerSay("Sorry, still processing last command, try again in a second.");
29 }
30
31 list args = llParseString2List(message,[":"],[]);
32 command = llToLower(llList2String(args,0));
33
34 if (command == "clearbans")
35 {
36 llResetLandBanList();
37 }
38 if (command == "clearpass")
39 {
40 llResetLandPassList();
41 }
42 else
43 {
44 llSensor(llList2String(args,1),NULL_KEY,AGENT,96,PI);
45 }
46 }
47
48 no_sensor()
49 {
50 command = "";
51 }
52
53 sensor(integer num)
54 {
55 integer i;
56 for (i=0; i< num; ++i)
57 {
58 if (command == "ban")
59 {
60 // Ban indefinetely
61 llAddToLandBanList(llDetectedKey(i),0.0);
62 }
63 if (command == "tempban")
64 {
65 // Ban for 1 hour.
66 llAddToLandBanList(llDetectedKey(i),1.0);
67 }
68 if (command == "unban")
69 {
70 llRemoveFromLandBanList(llDetectedKey(i));
71 }
72 if (command == "pass")
73 {
74 // Add to land pass list for 1 hour
75 llAddToLandPassList(llDetectedKey(i),1.0);
76 }
77 if (command == "unpass")
78 {
79 llRemoveFromLandPassList(llDetectedKey(i));
80 }
81 }
82 command = "";
83 }
84}
diff --git a/bin/assets/ScriptsAssetSet/llAdjustSoundVolume.lsl b/bin/assets/ScriptsAssetSet/llAdjustSoundVolume.lsl
new file mode 100644
index 0000000..25e90c0
--- /dev/null
+++ b/bin/assets/ScriptsAssetSet/llAdjustSoundVolume.lsl
@@ -0,0 +1,13 @@
1default
2{
3 state_entry()
4 {
5 llListen(42, "", llGetOwner(), "");
6 }
7 listen(integer chan, string name, key id, string msg)
8 {
9 float value = (float)msg;
10 llAdjustSoundVolume(value);
11 llOwnerSay("Volume set to: " + (string)value + " of 1.0");
12 }
13}
diff --git a/bin/assets/ScriptsAssetSet/llAllowInventoryDrop.lsl b/bin/assets/ScriptsAssetSet/llAllowInventoryDrop.lsl
new file mode 100644
index 0000000..162396a
--- /dev/null
+++ b/bin/assets/ScriptsAssetSet/llAllowInventoryDrop.lsl
@@ -0,0 +1,17 @@
1integer allow;
2
3default
4{
5 touch_start(integer num)
6 {
7 llAllowInventoryDrop(allow = !allow);
8 llOwnerSay("llAllowInventoryDrop == "+llList2String(["FALSE","TRUE"],allow));
9 }
10 changed(integer change)
11 {
12 if (change & CHANGED_ALLOWED_DROP) //note that it's & and not &&... it's bitwise!
13 {
14 llOwnerSay("The inventory has changed as a result of a user without mod permissions dropping an item on the prim and it being allowed by the script.");
15 }
16 }
17}
diff --git a/bin/assets/ScriptsAssetSet/llAngleBetween.lsl b/bin/assets/ScriptsAssetSet/llAngleBetween.lsl
new file mode 100644
index 0000000..441be1b
--- /dev/null
+++ b/bin/assets/ScriptsAssetSet/llAngleBetween.lsl
@@ -0,0 +1,11 @@
1default
2{
3 state_entry()
4 {
5 rotation aRot = ZERO_ROTATION;
6 rotation bRot = llGetRot();
7 float aBetween = llAngleBetween( aRot, bRot );
8 llOwnerSay((string)aBetween);
9 //llGetRot() being < 0, 0, 90 > this should report 1.570796
10 }
11}
diff --git a/bin/assets/ScriptsAssetSet/llApplyImpulse.lsl b/bin/assets/ScriptsAssetSet/llApplyImpulse.lsl
new file mode 100644
index 0000000..6b2461f
--- /dev/null
+++ b/bin/assets/ScriptsAssetSet/llApplyImpulse.lsl
@@ -0,0 +1,16 @@
1//Rez an object, and drop this script in it.
2//This will launch it at the owner.
3default
4{
5 state_entry()
6 {
7 list p = llGetObjectDetails(llGetOwner(), [OBJECT_POS]);
8 if(p != [])
9 {
10 llSetStatus(STATUS_PHYSICS, TRUE);
11 vector pos = llList2Vector(p, 0);
12 vector direction = llVecNorm(pos - llGetPos());
13 llApplyImpulse(direction * 100, 0);
14 }
15 }
16}
diff --git a/bin/assets/ScriptsAssetSet/llAsin.lsl b/bin/assets/ScriptsAssetSet/llAsin.lsl
new file mode 100644
index 0000000..02e9bd5
--- /dev/null
+++ b/bin/assets/ScriptsAssetSet/llAsin.lsl
@@ -0,0 +1,9 @@
1// Touch the object with this script in it to see the arcsine of random numbers!
2default
3{
4 touch_start(integer num)
5 {
6 float r = llFrand(2) - 1.0;
7 llOwnerSay("The arcsine of " + (string)r + " is " + llAsin(r));
8 }
9}
diff --git a/bin/assets/ScriptsAssetSet/llAtan2.lsl b/bin/assets/ScriptsAssetSet/llAtan2.lsl
new file mode 100644
index 0000000..95e0877
--- /dev/null
+++ b/bin/assets/ScriptsAssetSet/llAtan2.lsl
@@ -0,0 +1,11 @@
1default
2{
3 state_entry()
4 {
5 float num1 = llFrand(100.0);
6 float num2 = llFrand(100.0);
7 llOwnerSay("y = " + (string)num1);
8 llOwnerSay("x = " + (string)num2);
9 llOwnerSay("The tangent of y divided by x is " + (string)llAtan2(num1, num2));
10 }
11}
diff --git a/bin/assets/ScriptsAssetSet/llAvatarOnSitTarget.lsl b/bin/assets/ScriptsAssetSet/llAvatarOnSitTarget.lsl
new file mode 100644
index 0000000..b4ab532
--- /dev/null
+++ b/bin/assets/ScriptsAssetSet/llAvatarOnSitTarget.lsl
@@ -0,0 +1,20 @@
1default
2{
3 state_entry()
4 {
5 // set sit target, otherwise this will not work
6 llSitTarget(<0.0, 0.0, 0.1>, ZERO_ROTATION);
7 }
8 changed(integer change)
9 {
10 if (change & CHANGED_LINK)
11 {
12 key av = llAvatarOnSitTarget();
13 //evaluated as true if not NULL_KEY or invalid
14 if (av)
15 {
16 llSay(0, "Hello " + llKey2Name(av) + ", thank you for sitting down");
17 }
18 }
19 }
20}
diff --git a/bin/assets/ScriptsAssetSet/llBase64ToString.lsl b/bin/assets/ScriptsAssetSet/llBase64ToString.lsl
new file mode 100644
index 0000000..f8d4978
--- /dev/null
+++ b/bin/assets/ScriptsAssetSet/llBase64ToString.lsl
@@ -0,0 +1,8 @@
1default
2{
3 state_entry()
4 {
5 string test = llBase64ToString("U2VjcmV0Ok9wZW4=");
6 llOwnerSay(test);
7 }
8}
diff --git a/bin/assets/ScriptsAssetSet/llRemoveFromLandBanList.lsl b/bin/assets/ScriptsAssetSet/llRemoveFromLandBanList.lsl
new file mode 100644
index 0000000..19ad704
--- /dev/null
+++ b/bin/assets/ScriptsAssetSet/llRemoveFromLandBanList.lsl
@@ -0,0 +1,84 @@
1//Commands are:
2///5 ban:full_avatar_name
3///5 tempban:full_avatar_name
4///5 unban:full_avatar_name
5///5 pass:full_avatar_name
6///5 unpass:full_avatar_name
7///5 clearban
8///5 clearpass
9
10string command;
11
12default
13{
14 state_entry()
15 {
16 llListen(5, "", llGetOwner(), "");
17 }
18
19 on_rez(integer param)
20 {
21 llResetScript();
22 }
23
24 listen(integer chan, string name, key id, string message)
25 {
26 if (command != "")
27 {
28 llOwnerSay("Sorry, still processing last command, try again in a second.");
29 }
30
31 list args = llParseString2List(message,[":"],[]);
32 command = llToLower(llList2String(args,0));
33
34 if (command == "clearbans")
35 {
36 llResetLandBanList();
37 }
38 if (command == "clearpass")
39 {
40 llResetLandPassList();
41 }
42 else
43 {
44 llSensor(llList2String(args,1),NULL_KEY,AGENT,96,PI);
45 }
46 }
47
48 no_sensor()
49 {
50 command = "";
51 }
52
53 sensor(integer num)
54 {
55 integer i;
56 for (i=0; i< num; ++i)
57 {
58 if (command == "ban")
59 {
60 // Ban indefinetely
61 llAddToLandBanList(llDetectedKey(i),0.0);
62 }
63 if (command == "tempban")
64 {
65 // Ban for 1 hour.
66 llAddToLandBanList(llDetectedKey(i),1.0);
67 }
68 if (command == "unban")
69 {
70 llRemoveFromLandBanList(llDetectedKey(i));
71 }
72 if (command == "pass")
73 {
74 // Add to land pass list for 1 hour
75 llAddToLandPassList(llDetectedKey(i),1.0);
76 }
77 if (command == "unpass")
78 {
79 llRemoveFromLandPassList(llDetectedKey(i));
80 }
81 }
82 command = "";
83 }
84}
diff --git a/bin/assets/ScriptsAssetSet/llRemoveFromLandPassList.lsl b/bin/assets/ScriptsAssetSet/llRemoveFromLandPassList.lsl
new file mode 100644
index 0000000..19ad704
--- /dev/null
+++ b/bin/assets/ScriptsAssetSet/llRemoveFromLandPassList.lsl
@@ -0,0 +1,84 @@
1//Commands are:
2///5 ban:full_avatar_name
3///5 tempban:full_avatar_name
4///5 unban:full_avatar_name
5///5 pass:full_avatar_name
6///5 unpass:full_avatar_name
7///5 clearban
8///5 clearpass
9
10string command;
11
12default
13{
14 state_entry()
15 {
16 llListen(5, "", llGetOwner(), "");
17 }
18
19 on_rez(integer param)
20 {
21 llResetScript();
22 }
23
24 listen(integer chan, string name, key id, string message)
25 {
26 if (command != "")
27 {
28 llOwnerSay("Sorry, still processing last command, try again in a second.");
29 }
30
31 list args = llParseString2List(message,[":"],[]);
32 command = llToLower(llList2String(args,0));
33
34 if (command == "clearbans")
35 {
36 llResetLandBanList();
37 }
38 if (command == "clearpass")
39 {
40 llResetLandPassList();
41 }
42 else
43 {
44 llSensor(llList2String(args,1),NULL_KEY,AGENT,96,PI);
45 }
46 }
47
48 no_sensor()
49 {
50 command = "";
51 }
52
53 sensor(integer num)
54 {
55 integer i;
56 for (i=0; i< num; ++i)
57 {
58 if (command == "ban")
59 {
60 // Ban indefinetely
61 llAddToLandBanList(llDetectedKey(i),0.0);
62 }
63 if (command == "tempban")
64 {
65 // Ban for 1 hour.
66 llAddToLandBanList(llDetectedKey(i),1.0);
67 }
68 if (command == "unban")
69 {
70 llRemoveFromLandBanList(llDetectedKey(i));
71 }
72 if (command == "pass")
73 {
74 // Add to land pass list for 1 hour
75 llAddToLandPassList(llDetectedKey(i),1.0);
76 }
77 if (command == "unpass")
78 {
79 llRemoveFromLandPassList(llDetectedKey(i));
80 }
81 }
82 command = "";
83 }
84}
diff --git a/bin/assets/ScriptsAssetSet/llResetLandBanList.lsl b/bin/assets/ScriptsAssetSet/llResetLandBanList.lsl
new file mode 100644
index 0000000..19ad704
--- /dev/null
+++ b/bin/assets/ScriptsAssetSet/llResetLandBanList.lsl
@@ -0,0 +1,84 @@
1//Commands are:
2///5 ban:full_avatar_name
3///5 tempban:full_avatar_name
4///5 unban:full_avatar_name
5///5 pass:full_avatar_name
6///5 unpass:full_avatar_name
7///5 clearban
8///5 clearpass
9
10string command;
11
12default
13{
14 state_entry()
15 {
16 llListen(5, "", llGetOwner(), "");
17 }
18
19 on_rez(integer param)
20 {
21 llResetScript();
22 }
23
24 listen(integer chan, string name, key id, string message)
25 {
26 if (command != "")
27 {
28 llOwnerSay("Sorry, still processing last command, try again in a second.");
29 }
30
31 list args = llParseString2List(message,[":"],[]);
32 command = llToLower(llList2String(args,0));
33
34 if (command == "clearbans")
35 {
36 llResetLandBanList();
37 }
38 if (command == "clearpass")
39 {
40 llResetLandPassList();
41 }
42 else
43 {
44 llSensor(llList2String(args,1),NULL_KEY,AGENT,96,PI);
45 }
46 }
47
48 no_sensor()
49 {
50 command = "";
51 }
52
53 sensor(integer num)
54 {
55 integer i;
56 for (i=0; i< num; ++i)
57 {
58 if (command == "ban")
59 {
60 // Ban indefinetely
61 llAddToLandBanList(llDetectedKey(i),0.0);
62 }
63 if (command == "tempban")
64 {
65 // Ban for 1 hour.
66 llAddToLandBanList(llDetectedKey(i),1.0);
67 }
68 if (command == "unban")
69 {
70 llRemoveFromLandBanList(llDetectedKey(i));
71 }
72 if (command == "pass")
73 {
74 // Add to land pass list for 1 hour
75 llAddToLandPassList(llDetectedKey(i),1.0);
76 }
77 if (command == "unpass")
78 {
79 llRemoveFromLandPassList(llDetectedKey(i));
80 }
81 }
82 command = "";
83 }
84}
diff --git a/bin/assets/ScriptsAssetSet/llResetLandPassList.lsl b/bin/assets/ScriptsAssetSet/llResetLandPassList.lsl
new file mode 100644
index 0000000..19ad704
--- /dev/null
+++ b/bin/assets/ScriptsAssetSet/llResetLandPassList.lsl
@@ -0,0 +1,84 @@
1//Commands are:
2///5 ban:full_avatar_name
3///5 tempban:full_avatar_name
4///5 unban:full_avatar_name
5///5 pass:full_avatar_name
6///5 unpass:full_avatar_name
7///5 clearban
8///5 clearpass
9
10string command;
11
12default
13{
14 state_entry()
15 {
16 llListen(5, "", llGetOwner(), "");
17 }
18
19 on_rez(integer param)
20 {
21 llResetScript();
22 }
23
24 listen(integer chan, string name, key id, string message)
25 {
26 if (command != "")
27 {
28 llOwnerSay("Sorry, still processing last command, try again in a second.");
29 }
30
31 list args = llParseString2List(message,[":"],[]);
32 command = llToLower(llList2String(args,0));
33
34 if (command == "clearbans")
35 {
36 llResetLandBanList();
37 }
38 if (command == "clearpass")
39 {
40 llResetLandPassList();
41 }
42 else
43 {
44 llSensor(llList2String(args,1),NULL_KEY,AGENT,96,PI);
45 }
46 }
47
48 no_sensor()
49 {
50 command = "";
51 }
52
53 sensor(integer num)
54 {
55 integer i;
56 for (i=0; i< num; ++i)
57 {
58 if (command == "ban")
59 {
60 // Ban indefinetely
61 llAddToLandBanList(llDetectedKey(i),0.0);
62 }
63 if (command == "tempban")
64 {
65 // Ban for 1 hour.
66 llAddToLandBanList(llDetectedKey(i),1.0);
67 }
68 if (command == "unban")
69 {
70 llRemoveFromLandBanList(llDetectedKey(i));
71 }
72 if (command == "pass")
73 {
74 // Add to land pass list for 1 hour
75 llAddToLandPassList(llDetectedKey(i),1.0);
76 }
77 if (command == "unpass")
78 {
79 llRemoveFromLandPassList(llDetectedKey(i));
80 }
81 }
82 command = "";
83 }
84}
diff --git a/bin/assets/ScriptsAssetSet/llSay.lsl b/bin/assets/ScriptsAssetSet/llSay.lsl
new file mode 100644
index 0000000..c64a355
--- /dev/null
+++ b/bin/assets/ScriptsAssetSet/llSay.lsl
@@ -0,0 +1,7 @@
1default
2{
3 state_entry()
4 {
5 llSay(0,"This is an incredibly useless program." );
6 }
7}
diff --git a/bin/assets/ScriptsAssetSet/llSetParcelMusicURL.lsl b/bin/assets/ScriptsAssetSet/llSetParcelMusicURL.lsl
new file mode 100644
index 0000000..fb5d035
--- /dev/null
+++ b/bin/assets/ScriptsAssetSet/llSetParcelMusicURL.lsl
@@ -0,0 +1,7 @@
1default
2{
3 state_entry()
4 {
5 llSetParcelMusicURL("http://www.crossstitchpatterngall.com/Enya_-_Watermark.mp3");
6 }
7}
diff --git a/bin/assets/ScriptsAssetSet/llSetRot.lsl b/bin/assets/ScriptsAssetSet/llSetRot.lsl
new file mode 100644
index 0000000..ce3009c
--- /dev/null
+++ b/bin/assets/ScriptsAssetSet/llSetRot.lsl
@@ -0,0 +1,13 @@
1default
2{
3 state_entry()
4 {
5 llOwnerSay("Touch me");
6 }
7 touch_start(integer total_number)
8 {
9 rotation Y_10 = llEuler2Rot( < 0, 0, 30 * DEG_TO_RAD > );
10 rotation newRotation = llGetRot() * Y_10;
11 llSetRot( newRotation );
12 }
13}
generated by cgit v1.1 at 2024-10-28 23:57:01 +0000