Anyways, they are nothing too special, I just found myself using them a lot so I figured I'd pass them on.
UTIL.copyscript:
CODE
// UTIL.copyscripts.lsl
// By Alondria LeFay
// Version 1.0
integer lhook;
integer ch = 7983424;
integer pin = 75645;
alInit(integer argi)
{
if (lhook)
{
llListenRemove(lhook);
}
llListen(ch,"","","");
llSay(0,"Drop UTIL.pastescripts into object to copy scripts to.");
}
alParse(integer channel, string name, key id, string message)
{
list args;
args=llParseString2List(message, [" "],[]);
string obj=llList2String(args,0);
args=llDeleteSubList(args,0,0);
if (obj == "paste")
{
string foo = llList2String(args,0);
integer pw = llList2Integer(args,1);
llSay(0,"Transfering Scripts...");
integer num = llGetInventoryNumber(INVENTORY_SCRIPT);
integer i;
list scripts;
for (i = 0; i < num; i = i + 1)
{
string tmps = llGetInventoryName(INVENTORY_SCRIPT,i);
if (tmps != llGetScriptName())
{
llRemoteLoadScriptPin(foo,tmps,pin, llGetScriptState(tmps),0);
}
}
llSay(0,"Done!");
llRemoveInventory(llGetScriptName());
}
}
default
{
on_rez(integer argi)
{
alInit(argi);
}
state_entry()
{
alInit(0);
}
listen(integer channel, string name, key id, string message)
{
alParse(channel, name, id, message);
}
}
UTIL.pastescripts:
CODE
// OBJ.SLAmp.API
// By Alondria LeFay
// Version 1.0
integer lhook;
integer ch = 7983424;
integer pin = 75645;
alInit(integer argi)
{
if (lhook)
{
llListenRemove(lhook);
}
llSetRemoteScriptAccessPin(pin);
llSay(ch,"paste " + (string)llGetKey());
llRemoveInventory(llGetScriptName());
}
default
{
on_rez(integer argi)
{
alInit(argi);
}
state_entry()
{
alInit(0);
}
}
UTIL.deletescripts
CODE
// UTIL.deletescripts.lsl
// By Alondria LeFay
// Version 1.0
integer lhook;
list scripts;
alInit(integer argi)
{
if (lhook)
{
llListenRemove(lhook);
}
llSay(0,"Deleting scripts....");
integer num = llGetInventoryNumber(INVENTORY_SCRIPT);
integer i;
for (i = 0; i < num; i = i + 1)
{
string tmps = llGetInventoryName(INVENTORY_SCRIPT,i);
if (tmps != llGetScriptName())
{
scripts = scripts + [ tmps ];
}
}
for (i = 0; i < llGetListLength(scripts); i = i + 1)
{
llRemoveInventory(llList2String(scripts,i));
}
llSay(0,"Done!");
llRemoveInventory(llGetScriptName());
}
default
{
on_rez(integer argi)
{
alInit(argi);
}
state_entry()
{
alInit(0);
}
}