Search the Community

Hello! There is such a script unpacker. for me it works fine, but when I give it to a friend, the first time it unpacks twice, and then as usual. why it happens? list lContents; string strFolderName = "A folder of goodies";// change to the name you want for your folder default { state_entry() {//some preliminary work to set things up //first, populate the lContents list string strThisScript = llGetScriptName();//note the name of this script, since you don't want to give that as part of the folder integer max = llGetInventoryNumber(INVENTORY_ALL);//note the number of items in the object's inventory integer counter = 0; do{ string str = llGetInventoryName(INVENTORY_ALL, counter);//check the name of each item if(str!=strThisScript){//and if it's not this script lContents +=[str];//add the name to lContents } } while(++counter < max);//and keep on doing this, advancing the counter each time, until all items have been checked. if(llStringLength(strFolderName)== 0){//sanity check -- if no folder name is provided strFolderName = llGetObjectName();//then use the name of this object for the folder } } changed(integer change) { if(change & CHANGED_INVENTORY){//if the contents of the object's inventory change llResetScript();//then reset the script in order to rebuild the list } else if(change & CHANGED_OWNER){//if the object's owner changes, give the folder to the new owner llGiveInventoryList(llGetOwner(), strFolderName,lContents);//give the folder to the new owner } } attach(key id) { if(id){//if someone attaches the object llGiveInventoryList(id, strFolderName,lContents);//give them the folder } } }