From 35b0c2e9dfbbf811c12c9e3e7d4359a13b987977 Mon Sep 17 00:00:00 2001
From: Brian McBee
Date: Mon, 7 Jan 2008 01:03:46 +0000
Subject: More inventory work for CharlieO. Final patch to make it all work yet
 to come.

---
 .../ScriptsAssetSet/llRemoveFromLandPassList.lsl   | 84 ++++++++++++++++++++++
 1 file changed, 84 insertions(+)
 create mode 100644 bin/assets/ScriptsAssetSet/llRemoveFromLandPassList.lsl

(limited to 'bin/assets/ScriptsAssetSet/llRemoveFromLandPassList.lsl')

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 @@
+//Commands are:
+///5 ban:full_avatar_name
+///5 tempban:full_avatar_name
+///5 unban:full_avatar_name
+///5 pass:full_avatar_name
+///5 unpass:full_avatar_name
+///5 clearban
+///5 clearpass
+
+string command;
+
+default
+{
+    state_entry()
+    {
+        llListen(5, "", llGetOwner(), "");
+    }
+    
+    on_rez(integer param)
+    {
+        llResetScript();
+    }
+
+    listen(integer chan, string name, key id, string message)
+    {
+        if (command != "")
+        {
+            llOwnerSay("Sorry, still processing last command, try again in a second.");
+        }
+        
+        list args = llParseString2List(message,[":"],[]);
+        command = llToLower(llList2String(args,0));
+        
+        if (command == "clearbans")
+        {
+            llResetLandBanList();
+        }
+        if (command == "clearpass")
+        {
+            llResetLandPassList();
+        }
+        else
+        {
+            llSensor(llList2String(args,1),NULL_KEY,AGENT,96,PI);
+        }
+    }
+    
+    no_sensor()
+    {
+        command = "";
+    }
+    
+    sensor(integer num)
+    {
+        integer i;
+        for (i=0; i< num; ++i)
+        {
+            if (command == "ban")
+            {
+                // Ban indefinetely 
+                llAddToLandBanList(llDetectedKey(i),0.0);
+            }
+            if (command == "tempban")
+            {
+                // Ban for 1 hour.
+                llAddToLandBanList(llDetectedKey(i),1.0);
+            }
+            if (command == "unban")
+            {
+                llRemoveFromLandBanList(llDetectedKey(i));
+            }
+            if (command == "pass")
+            {
+                // Add to land pass list for 1 hour
+                llAddToLandPassList(llDetectedKey(i),1.0);
+            }
+            if (command == "unpass")
+            {
+                llRemoveFromLandPassList(llDetectedKey(i));
+            }
+        }
+        command = "";
+    }
+}
-- 
cgit v1.1