lslscripts/swan tour guide/swan/more/tour recorder script 1.1.lsl

// recorder


integer wanted = 0;
integer debugger =0;
list prims;


debug(string message)
{
    if (debugger)
        llOwnerSay(message);
}



string left(string src, string divider) {
    integer index = llSubStringIndex( src, divider );
    if(~index)
        return llDeleteSubString( src, index , -1);
    return src;
}

string right(string src, string divider) {
    integer index = llSubStringIndex( src, divider );
    if(~index)
        return llDeleteSubString( src, 0, index + llStringLength(divider) - 1);
    return src;
}



default
{
    state_entry()
    {
        llSetText("Click after setting up all tour prims.  \nShout on channel '/300 die' to clear all prims", <1.0, 1.0, 1.0>, 2.0);
        llListen(300,"","","");
    }

    touch_start(integer n)
    {
        llOwnerSay("Please wait");
        prims = [];
        wanted ++;
        llRegionSay(300,"where");
    }

    listen(integer channel,string name, key id, string message)
    {
        //debug(llGetObjectName() + " heard  " + message);
        if (wanted)
        {
            string l = left(message,"|");
            string r = right(message,"|");
            string text = right(r,"|");
            
            integer  isthere = llListFindList(prims,[(integer) l]);
            
            
            if (isthere > -1)
            {
                llOwnerSay("Error, there are two prims named " + l + ".  Please make sure each prim is uniquely numbered from - to N in sequence from the start prim to the finish prim. Gaps in the sequence are allowed.");
            }
            
            if (wanted)
            {
                prims += (integer) l;
                prims += (vector) r;
                prims += text;
                
            }
            llSetTimerEvent(5.0);
        }    
    }
    
    timer()
    {
        wanted = 0;
        llSetTimerEvent(0);
        integer i = 0;
        
        prims = llListSort(prims,3,1);
        
        for (i = 0; i < llGetListLength(prims); i+=3)
        {
            integer primnum = llList2Integer(prims,i);
            vector loc = llList2Vector(prims,i+1);
            string text = llList2String(prims,i+2);
            llOwnerSay(  "0|" + (string) loc.x + "|" + (string) loc.y + "|" + (string) loc.z + "|" + text +"||");

        }
        llOwnerSay("Copy the above lines to the notecard in the tour guide and reset it");         
                                

    }

    on_rez(integer p)
    {
        llResetScript();
    }
}