reset/output

integer type = 0;
say(string s){
    if(type == 0  || type == 5){
        llOwnerSay(s);
        return;
    }if(type == 1){
        llSay(0,s);
        return;
    }if(type == 2){
        llShout(0,s);
        return;
    }if(type == 3){
        llSetText(s,<1,1,1>,1);
        return;
    }if(type == 4){
        llWhisper(0,s);
        return;
    }
    llOwnerSay(s);
}
reset_all(integer silent){
    integer x = 0;
    string mn = llGetScriptName();
    integer num = llGetInventoryNumber(10);
    if(!silent)say("Resetting "+(string)(num-1)+" script(s).");
    for(;x<num;++x){
        string n = llGetInventoryName(10,x);
        if(!llGetScriptState(n))llSetScriptState(n,1);
        if(n!=name){
            if(silent && n == "2.)Input.lsl"){
            }else{
                llResetOtherScript(n);
            }
        }
    }
}
integer deleted;

integer chan0;
integer chan1;

integer desire_chan;

string name;

key owner;
default{
    on_rez(integer r){
        reset_all(1);
    }
    changed(integer c){
        if(c & CHANGED_OWNER){
            if(llGetInventoryType("2.)Input.lsl") & INVENTORY_SCRIPT){
                llSleep(.03);
                llResetOtherScript("2.)Input.lsl");
            }
            llResetScript();
        }if(c & CHANGED_REGION){
            reset_all(1);
        }
    }state_entry(){
        owner = llGetOwner();
        if(llGetInventoryType("//Eclipse.ntc")&INVENTORY_NOTECARD)llGiveInventory(owner,"//Eclipse.ntc");
        name=llGetScriptName();
        chan0 = -(((integer)("0x"+(string)owner)+4233)%DEBUG_CHANNEL);
        chan1 = -(((integer)("0x"+(string)owner)+3266)%DEBUG_CHANNEL);
        desire_chan = llListen(chan1,"","","");
        llListenControl(desire_chan,0);
    }link_message(integer s,integer n,string m,key i){
        if(n == -560){
            //llSay(0,m);
            say(m);
        }if(n == -420){
            m = llToLower(m);
            list parse = llParseString2List(m,[" "],[]);
            string p0 = llList2String(parse,0);
            string p1 = llList2String(parse,1);
            string pall = llDumpList2String(llList2List(parse,2,-1)," ");
            if(m == "reset all")reset_all(0);
            if(m == ".rs all")reset_all(0);
            if(p0 == "kill"){
                if(p1 == "all"){
                    llListenControl(desire_chan,1);
                    deleted = 0;
                    llRegionSay(chan0,"kill all");
                    say("Attempting to kill all objects in "+llGetRegionName()+". This may take a minute please be patient.");
                    llSetTimerEvent(10);
                    return;
                }
                if(p1 == "time"){
                    llListenControl(desire_chan,1);
                    deleted = 0;
                    llRegionSay(chan0,"time_death"+pall);
                    llSetTimerEvent((float)pall+5);
                    say("Setting death time to \""+pall+"\".  This may take a minute please be patient.");
                    return;
                }else{
                    llListenControl(desire_chan,1);
                    deleted = 0;
                    llRegionSay(chan0,m);
                    say("Attempting to delete all \""+llDumpList2String(llList2List(parse,1,-1)," ")+"(s)\" in "+llGetRegionName()+". This may take a minute please be patient.");
                    llSetTimerEvent(10);
                }
            }
            if(m == "clean up"){
                llListenControl(desire_chan,1);
                deleted = 0;
                llRegionSay(chan0,"kill all");
                say("Attempting to kill all objects in "+llGetRegionName()+". This may take a minute please be patient.");
                llSetTimerEvent(10);
                return;
            }
            if(p0 == "output"){
                type = llListFindList(["owner say","say","shout","set text","whisper","owner say"],[llDumpList2String(llList2List(parse,1,-1)," ")]);
                if(type == 3){
                    llMessageLinked(-1,-420,"text off","");
                }
                say("Ouput is now \""+llDumpList2String(llList2List(parse,1,-1)," ")+".\"");
            }
        }
    }
    listen(integer c,string n,key i,string m){
        if(m == "DELETE"){
            ++deleted;
        }
    }
    timer(){
        if(deleted > 0){
            say("Removed "+(string)deleted+" prim(s) from "+llGetRegionName()+".");
        }else{
            say("Unable to remove anything from "+llGetRegionName());
        }
        llSetTimerEvent(0.0);
        llListenControl(desire_chan,0);
    }
}