lslscripts/swan tour guide/swan/more/tour guide 2.2.lsl

integer _debug = 0;

integer REZ = 3454;



vector TARGET = <-1.0,0,0.02>;
vector ROT = <0, -90, 0>;

list Line = [];


list lCoordinate = [];
list lDescriptions = [];
list lSounds = [];
list lCommands = [];
list lLinks = [];


// notecard reading
integer iIndexLines; 
string NOTECARD = "Route";        // the notecard for configuring

key kNoteCardLines;        // the key of the notecard
key kGetIndexLines;        // the key of the current line
integer i = 0;
integer count = 0;
integer timeout = 0;


float DAMPING = .2;   // .3

vector TargetLocation;


float INTERVAL = .050; // seconds to move

string SpeakThis;  // what is to be said
string PlayThis;  // what is to be Played

string strip( string str)
{        
    string out;
    integer i;
    
    //llOwnerSay("str = " + str);
    
    for ( ; i < llStringLength(str); i++)
    {
        out += llGetSubString(str,i,i);

        out = llStringTrim(out, STRING_TRIM);
        //llOwnerSay("out = " + out + " at " + (string) i);
    }
    return out;

}

string Getline(list Input, integer line)
{
    return strip(llList2String(Input, line));
}


default
{
    on_rez(integer param)
    {
        llResetScript();
    }
    
    changed( integer change )
    { 
        if (change & CHANGED_INVENTORY) 
        {    
       //     llResetScript();
        }
    }
    
    state_entry()
    {
        llSetAlpha(1.0,ALL_SIDES);
        llSetCameraEyeOffset(<0, 0, -5> );
        llSetCameraAtOffset(<0, 0, 1>);

        
        rotation rot     = llEuler2Rot(ROT * DEG_TO_RAD);     // convert the degrees to radians, then convert that vector into a rotation, rot30x 
        llSitTarget(TARGET, rot); // where they sit
        llSetPrimitiveParams([PRIM_PHYSICS, FALSE]);
        llSetBuoyancy(1);
        //llSetStatus(STATUS_ROTATE_X | STATUS_ROTATE_Y | STATUS_ROTATE_Z, FALSE);
        //llSetColor(<1,0,0>, ALL_SIDES);
        kNoteCardLines = llGetNumberOfNotecardLines(NOTECARD);
        kGetIndexLines = llGetNotecardLine(NOTECARD,0);

         
         llSay (0, "Tour guide initialising. Please wait.");
    }
    
     // read notecard on bootup
    dataserver(key queryid, string data)
    {

        vector TempLocation;
        if (queryid == kNoteCardLines)
        {
            iIndexLines = (integer) data;
        }

        if (queryid == kGetIndexLines)
        {
            if (data != EOF)
            {
                queryid = llGetNotecardLine(NOTECARD, i);
                list lLine = (llParseString2List(data, ["|"], []));
                //if (_debug )    llOwnerSay("Line = " + llDumpList2String(lLine,":"));

                float X = (float) Getline(lLine,1);
                if (X > 0)
                {
                    float Y = (float)Getline(lLine,2);
                    float Z = (float)Getline(lLine,3);
                    string Msg = llList2String(lLine,4);
                    string sUUID = Getline(lLine,5);
                    string sCommand = Getline(lLine,6);
                    string sLink = Getline(lLine,7);
    
                    TempLocation.x = X;
                    TempLocation.y = Y;
                    TempLocation.z = Z;
    
                    if (_debug) llOwnerSay((string)TempLocation);
    
                    lCoordinate = lCoordinate + [TempLocation];
                    lDescriptions = lDescriptions + [Msg];
                    lSounds +=  [sUUID];
                    lCommands += [sCommand];
                    lLinks += [sLink];
    
                    //TempDescription = llStringTrim( TempDescription, STRING_TRIM  );
                    //if (_debug )    llOwnerSay("Description = " + Msg);
    
                    integer locationLength = (llGetListLength(lCoordinate));
                    integer     InitPerCent = (integer) llRound(((float) locationLength / (float) iIndexLines) * 100);
                    llSetText("Initialising... \n" + (string) InitPerCent + "%" , <1,1,1>, 1.0);
                    if (InitPerCent == 100)
                    {
                        state Paused;
                    }
                   
                }
                else
                {
                    state Paused;
                }
                i++;
            }
            kGetIndexLines = llGetNotecardLine(NOTECARD,i);
            // (_debug ) llOwnerSay("Got " + (string) i);
        }
    }
    
    
    
                
    
    touch_start(integer total_number)
    {
        integer check = llGetListLength(lCoordinate);
        
        if (_debug) 
            llOwnerSay("List is " + (string) check + " destinations long");
        
        if (check >= iIndexLines)
        {
            state Paused;
        }
        
        if (check < iIndexLines)
        {
            llSay(0, "Hang on a sec, still initialising...");
        }        
    }
    
    state_exit()
    {
        llSetText("", <1,1,1>, 1.0);
        TargetLocation = (vector) llList2String(lCoordinate, 0);  // Look at 0th
        
        if (_debug) 
            llOwnerSay("Looking at Target Location = " + (string) TargetLocation);
        
    }    
}


state Paused
{
    state_entry()
    {
        llSay(0,"Ready");
    }

    link_message(integer sender,integer num,string msg, key id)    
    {
        if (msg =="sit")
        {
            llWhisper(0,"Please stay seated. Waiting 10 seconds for a passenger");
               
            llSleep(10.0);
                
            llShout(REZ,"rezswan");
            state moving;
        }
    }

    changed(integer change)
    {        
        if (change & CHANGED_INVENTORY)
        {
            llResetScript();
        }
    }   


    
    
}

state moving
{

    state_entry()
    {
        llSetPrimitiveParams([PRIM_PHYSICS, TRUE]);
        
        
        if (_debug) llOwnerSay("State Moving entered, is pointing to target " + (string) TargetLocation );
        
        llLookAt(TargetLocation, 2, 1); 
        
        SpeakThis =  llList2String(lDescriptions, count);
        if (_debug) llOwnerSay("Speaking:" + SpeakThis);
        
        if (llStringLength(SpeakThis) > 1)
            llSay(0,SpeakThis);

        PlayThis =  llList2String(lSounds, count);
        if (_debug) llOwnerSay("Playing:" + PlayThis);
        if (llStringLength(PlayThis) > 1)
            llPlaySound(PlayThis,1.0);
            
        llSetTimerEvent(INTERVAL);
    }
    
    changed(integer change)
    {
         if (change & CHANGED_LINK) 
         { 
            key av = llAvatarOnSitTarget();
            //llWhisper(0,"Sit by " + (string) av);
            if (av) //evaluated as true if not NULL_KEY or invalid
            {
                
                state moving;
            }
            else
            {

                state end;
            }
        }
        if (change & CHANGED_INVENTORY)
        {
         //   llResetScript();
        }
    
    }    
    
    
    on_rez(integer param)
    {
        llResetScript();
    }
        
        
    timer() 
    {
        timeout ++;

        if (timeout%20 == 0)
            llMessageLinked(LINK_SET,0,"FLAP","");


        if (_debug)  llSetText("Timeout... \n" + (string) timeout, <1,1,1>, 1.0);
        
        if (llVecMag(llGetPos() - TargetLocation) > .49999)
        {
            if (timeout > 30/INTERVAL) // Time Out to contingency
            {
                if (_debug)    llOwnerSay("Timeout!");
                state setposition;
            }
            llMoveToTarget((llVecNorm(TargetLocation - llGetPos()) * 1) + llGetPos(), DAMPING);
        }
        
        if (llVecMag(llGetPos() - TargetLocation) < .49999)
        {
            if (_debug) llOwnerSay("At location: " + (string) llGetPos());
            state speaking;
        }

            
    }
    
    state_exit()
    {
        llSetTimerEvent(0);
        timeout = 0;
        i = 0;
    }
        
}

state setposition //contingency
{
    state_entry()
    {
            llSetPrimitiveParams([PRIM_PHYSICS, FALSE]);

            llSetTimerEvent(INTERVAL);        
    }
    
    changed(integer change)
    {
         if (change & CHANGED_LINK) 
         { 
            key av = llAvatarOnSitTarget();
            //llWhisper(0,"Sit by " + (string) av);
            if (av) //evaluated as true if not NULL_KEY or invalid
            {
                llWhisper(0,"Please stay seated");
            }
            else
            {
                state end;
            }
        }
        if (change & CHANGED_INVENTORY)
        {
         //  llResetScript();
        }
    
    }    
    



    timer() 
    {
        if (llVecMag(llGetPos() - TargetLocation) > .49999)
        {
            if (_debug )  llOwnerSay("setposition llLookAt: " + (string) TargetLocation);
                
            llSetPos((llVecNorm(TargetLocation - llGetPos()) * 0.5) + llGetPos());
            llLookAt(TargetLocation, 10, 10);
        }
        
        if (llVecMag(llGetPos() - TargetLocation) < .49999)
        {
            if (_debug)
                llOwnerSay("At location: " + (string) llGetPos());
            state speaking;
        }

    }
    state_exit()
    {
        llSetTimerEvent(0);
    }
       
}

state speaking
{

    state_entry()
    {
        count ++;
        
        if (count > (iIndexLines - 1))
            state end;
        
        if (count <= (iIndexLines - 1))
        {
            TargetLocation = (vector) llList2String(lCoordinate, count);        
            if (_debug) llOwnerSay("New Target: " + (string) TargetLocation);
            state moving;
        }
        
    }
    
   
    state_exit()
    {
        llSetTimerEvent(0);
    }
    
}

state end
{
    state_entry()
    {
        llMessageLinked(LINK_SET,0,"SIT","");
        llSetAlpha(1.0,ALL_SIDES);
        llSetTimerEvent(0);
        llSetPrimitiveParams([PRIM_PHYSICS, FALSE]);
        key av = llAvatarOnSitTarget();
        if (av) {//evaluated as true if not NULL_KEY or invalid
            llWhisper(0, llKey2Name(av) +" thank you for taking the tour");
            llStopAnimation("sit knees up2");
            llUnSit(av);
        }
    

        llSay(0, "Tour stopped.  It will disappear in one minute");
        llSetTimerEvent(60);
        
    }
    
    changed(integer change)
    {
         if (change & CHANGED_LINK) 
         { 
            key av = llAvatarOnSitTarget();
            //llWhisper(0,"Sit by " + (string) av);
            if (av) //evaluated as true if not NULL_KEY or invalid
            {
                llWhisper(0,"Please stay seated");
                state moving;
            }
            
        }
        if (change & CHANGED_INVENTORY)
        {
         //   llResetScript();
        }
        
    }    
    on_rez(integer param)
    {
        llResetScript();
    }


    timer() 
    {
         llDie();
    }
    
}