Inventory Dump (group access)

From ZenMondo Wormser, 1 Year ago, written in Linden Scripting, viewed 359 times.
URL http://flynnos.org/flynnbin/view/aa7b9838 Embed
Download Paste or View Raw
  1.  
  2.     touch_start(integer total_number)
  3.     {
  4.         if(llSameGroup(llDetectedKey(0)))
  5.         {
  6.        
  7.             integer counter = 0;
  8.             integer inventory_num = llGetInventoryNumber(INVENTORY_ALL);
  9.        
  10.             list inventory_list;
  11.        
  12.             while(counter < inventory_num)
  13.             {
  14.                 inventory_list = (inventory_list=[]) + inventory_list + llGetInventoryName(INVENTORY_ALL, counter);
  15.                 counter ++;
  16.             }
  17.        
  18.             list scriptname = [llGetScriptName()];
  19.        
  20.             integer index = llListFindList(inventory_list, scriptname);
  21.        
  22.             inventory_list = llDeleteSubList(inventory_list, index, index);
  23.        
  24.        
  25.             llGiveInventoryList(llDetectedKey(0), folder_name, inventory_list);
  26.        
  27.         }
  28.        
  29.         else
  30.         {
  31.             llSay(0, "You must belong to the same group as this item to receive items from this object.");
  32.         }
  33.        
  34.     }
  35. }

Reply to "Inventory Dump (group access)"

Here you can reply to the paste above

captcha