New Stuff

Top2000_Radio_Stations_Player/Top_Radio_Stations_Player/Object/Top_Radio_Stations_Player_1.lsl

@@ -22,7 +22,7 @@
 // License:
 // Creative Commons Attribution-NonCommercial-ShareAlike 3.0 Unported License
 // http://creativecommons.org/licenses/by-nc-sa/3.0/deed.en_US
-// That means this must always be free. 
+// That means this must always be free.
 // Revisions:
 // V1.1 allow longer names
 // V1.2 code added to transmit url to other parcels, additional script
@@ -63,7 +63,7 @@ authorize() // Conditional for Owner & Group Recognition
     {
         authorized = TRUE;
     } else {
-       authorized = FALSE;
+            authorized = FALSE;
     }
 }
 
@@ -232,10 +232,10 @@ state locking
         else
         {
             llOwnerSay("Still loading stations, please wait a moment");
-       }
-}
+        }
+    }
 
-listen(integer channel, string name, key id, string message)
+    listen(integer channel, string name, key id, string message)
     {
         integer where ;
         if (message == "-")
@@ -280,7 +280,7 @@ listen(integer channel, string name, key id, string message)
             }
             else if (message == "Lock-Out")
             {
-               // state security;
+                // state security;
                 pubpriv = "Public";
                 DIALOG_CHOICES = lCategories;
                 pageNum = 1;
@@ -328,11 +328,15 @@ listen(integer channel, string name, key id, string message)
     }
 
     http_response(key request_id, integer status, list metadata, string body)
-    {   
+    {
         if (request_id == http_request_id)
         {
             busy = FALSE;
-
+            llSay(0,"Body is:" +body);
+            if (TRUE) {
+                return;
+            }
+            
             if (type == 1)
             {
                 lCategories = llParseString2List(body,["|"],[]);
@@ -394,7 +398,7 @@ state security
 
         }
     }
- }
+}
 
 
 

Top2000_Radio_Stations_Player/Top_Radio_Stations_Player/Object/new.lsl

@@ -0,0 +1,60 @@
+//
+// Give with notice
+//
+
+// Fill in your server and port, if necessary, port 80 is a default.
+string SERVER = "http://outworldz.com";
+
+
+
+//    * This function cases the script to sleep for 3.0 seconds.
+//    * If inventory is missing from the prim's inventory then an error is shouted on DEBUG_CHANNEL.
+//    * Avatar must be, or have recently been, within the same Region as sending object.
+//    * Does not create a folder when avatar is a prim UUID.
+//         o The prim must be in the same region.
+
+//Examples
+
+// When a user clicks this object, this script will give a folder containing everything in the objects inventory
+// This can serve as a unpacker script for boxed objects
+
+default {
+
+    http_request(key id, string method, string body)
+    {
+        llOwnerSay("Someone just got " + llGetObjectName());
+    }
+    
+    touch_start(integer total_number) {
+
+       llHTTPRequest(SERVER + "?Name=" + llGetObjectName(),[], "");
+                            
+        list        inventory;
+        string      name;
+        integer     num = llGetInventoryNumber(INVENTORY_ALL);
+        integer     i;
+
+        for (i = 0; i < num; ++i) {
+            name = llGetInventoryName(INVENTORY_ALL, i);
+            if(llGetInventoryPermMask(name, MASK_NEXT) & PERM_COPY)
+                inventory += name;
+            else
+                llSay(0, "Don't have permissions to give you \""+name+"\".");
+        }
+
+
+        //we don't want to give them this script
+        i = llListFindList(inventory, [llGetScriptName()]);
+        inventory = llDeleteSubList(inventory, i, i);
+
+        if (llGetListLength(inventory) < 1) {
+            llSay(0, "No items to offer.");
+        } else {
+            // give folder to agent, use name of object as name of folder we are giving
+            llGiveInventoryList(llDetectedKey(0), llGetObjectName(), inventory);
+            llHTTPRequest(SERVER,[],llGetObjectName());
+        }
+
+    }
+}
+