lslscripts/Kevin the Bird pet follower/Kevin/Object/Script.lsl

// :CATEGORY:Pets
// :NAME:Kevin the Bird pet follower
// :AUTHOR:Ferd Frederix
// :CREATED:2013-12-17 10:52:05
// :EDITED:2013-12-17 10:52:05
// :ID:1007
// :NUM:1559
// :REV:1
// :WORLD:Second Life
// :DESCRIPTION:
// This is from Kevin the bird - a Pet follower.  It stays in one area and runs and up yells hello.
// :CODE:
////////////////////////////////////////////
// Follow Me Script
//
// Written by Xylor Baysklef
// Adapted and added by Garth Fairlight
// Adapted by Ferd Frederix
////////////////////////////////////////////


float DIST = 10;    // how far to sense avatars
string GREET  = "39d0abf5-8921-8317-915c-2efcc87e0bfe";    // a sound for Meow
string BYE = "0098ae21-325a-ae76-522f-f66e844471c6";    // a sound for a meow

float X = -2.0; // usually tyhis far back
float Y = .0;   // rugth in the mioddle 
float posX;
float posY;

vector POSITION_OFFSET  = <0.0, 0.75, -0.8>; // Local coords
vector FLY_OFFSET =  <2.0, -2.75, 0.0>;
vector FLYANGLE = <80, 0, 10>;
float DAMP = 8;        // damping for flight
float TURNSPEED = 10.0;


vector startPos;
rotation startRot;
integer returning;

/////////////// CONSTANTS ///////////////////
vector last;
integer flag;
integer playchannel = 1;

string  FWD_DIRECTION   = "-y";
float   SCAN_REFRESH    = 0.2;
string FOLLOW   = "/follow";
string STAY     = "/stay";
integer FOLLOW_STOP     = 5000;
integer FOLLOW_START    = 5001;
float   MOVETO_INCREMENT    = 3.0;
///////////// END CONSTANTS /////////////////

///////////// GLOBAL VARIABLES ///////////////
key gOwner;
rotation gFwdRot;
float   gTau;
float   gMass;
integer count;
integer repeat;
/////////// END GLOBAL VARIABLES /////////////
float randBetween(float min, float max)
{
    return llFrand(max - min) + min;
}

help()
{
    llWhisper(0,"You can say the following commands:");
    llWhisper(0,"/follow <-- I will follow you around");
    llWhisper(0,"/stay <-- I will stay where I am.");
    llWhisper(0,"/help <-- I will repeat this message.");
    llWhisper(0,"if I lose you I will IM my position to you unless");
    llWhisper(0,"I am in a no script area, then I can do nothing.");
}

StartScanning() 
{
    llSetStatus(STATUS_PHYSICS, TRUE);
    llSensorRepeat("", "", AGENT, DIST, PI, SCAN_REFRESH);
}

StopScanning() 
{
    llSetStatus(STATUS_PHYSICS, FALSE);
    llSensorRemove();
}

// Move to a position far away from the current one.
MoveTo(vector target) 
{
    vector Pos = llGetPos();
    
    while (llVecDist(Pos, target) > MOVETO_INCREMENT) 
    {
        Pos += llVecNorm(target - Pos) * MOVETO_INCREMENT;
        llSetPos(Pos);
    }
    llSetPos(target);    
}

rotation GetFwdRot() 
{
    // Special case... 180 degrees gives a math error
    if (FWD_DIRECTION == "-x") 
    {
        return llAxisAngle2Rot(<0, 0, 1>, PI);
    }
    
    string Direction = llGetSubString(FWD_DIRECTION, 0, 0);
    string Axis = llToLower(llGetSubString(FWD_DIRECTION, 1, 1));
    
    vector Fwd;
    if (Axis == "x")
        Fwd = <1, 0, 0>;
    else if (Axis == "y")
        Fwd = <0, 1, 0>;
    else
        Fwd = <0, 0, 1>;
        
    if (Direction == "-")
        Fwd *= -1;
       
    return llRotBetween(Fwd, <1, 0, 0>); 
}

rotation GetRotation(rotation rot) 
{
    vector Fwd;
    Fwd = llRot2Fwd(rot);
    
    float Angle = llAtan2( Fwd.y, Fwd.x );
    return gFwdRot * llAxisAngle2Rot(<0, 0, 1>, Angle);
}

default 
{
    state_entry() 
    {
        posX = X;
        posY = Y;

        startPos = llGetPos();
        startRot = llGetRot();
        llCollisionSound("",0);
        llSetStatus(STATUS_PHANTOM, TRUE);
        gOwner = llGetOwner();
        gFwdRot = GetFwdRot();
        gMass = llGetMass();
        gTau = 0.2;
        llListen(0, "", "", "");
        llSetTimerEvent(1.5);
        StartScanning();
        llMoveToTarget(llGetPos(), gTau);
    }
    
    sensor(integer num_detected) 
    {
        rotation TargetRot;
        vector Pos = llDetectedPos(0);
        rotation Rot = llDetectedRot(0);
        vector size = llGetAgentSize(llDetectedKey(0));
        if((llGetAnimation(gOwner) == "Flying") || (llGetAnimation(gOwner) == "FlyingSlow"))
        {
            TargetRot = llEuler2Rot( FLYANGLE * DEG_TO_RAD) * GetRotation(Rot);
            POSITION_OFFSET  = FLY_OFFSET;
            llMessageLinked(LINK_THIS, playchannel, "fly", "");
        }
        else 
        { 
            TargetRot = GetRotation(Rot); 
            
            
            // update randimly sometimes
            if (llFrand(4) < 1)
            {
                posX = randBetween(0,X);
                posY = randBetween(0,2);
                if (llFrand(1) > 0.5)
                    posY = -posY;
            }
            
            
            POSITION_OFFSET  = <posX , posY, (-size.z / 2) + 0.1>;    

            vector pos = llGetPos();
            if (llVecDist(pos, last) > 1) 
            {
                last = pos;
                if (flag == 0) {
                    llMessageLinked(LINK_THIS, playchannel, "stand", "");
                    llSleep(1.0);
                }
                llMessageLinked(LINK_THIS, playchannel, "walk", "");
                flag++;
            }   
            else
            {
                if (flag)
                {
                    llMessageLinked(LINK_THIS, playchannel, "sit", "");
                    flag = 0;
                }
                
            } 
        }
        vector Offset = POSITION_OFFSET * Rot;
        Pos += Offset;
        
        if (llVecDist(startPos,Pos   ) > DIST)
        {
            if (returning) 
            {
                llTriggerSound(BYE,1.0);
                returning = FALSE;
            }
             //llLookAt(startPos,gTau * TURNSPEED, gTau);
             llRotLookAt(startRot, gTau * TURNSPEED, gTau);
            llMoveToTarget(startPos, gTau * DAMP);
        }
        else
        {
            if (! returning)
            {
                llTriggerSound(GREET,1.0);
                returning = TRUE;
            }
            //llLookAt(Pos,gTau * TURNSPEED, gTau);
            llRotLookAt(TargetRot, gTau * TURNSPEED, gTau);
            llMoveToTarget(Pos, gTau * DAMP);
        }
        
        
        count=0;
        repeat=0;
    }
        
 
    
    listen(integer channel, string name, key id, string mesg) 
    {
        mesg = llToLower(mesg);
        if ((id == gOwner) && (mesg == FOLLOW)) 
        {
            StartScanning();
        }
        else if ((id == gOwner) && (mesg == STAY)) 
        {
            StopScanning();
        }
        else if ((id == gOwner) && (mesg == "/help")) 
        {
            help();
        }
        else
        {
            integer stop;
            string word;
            integer check = FALSE;
            if((id==gOwner) || (name == llGetObjectName())) { check=TRUE;}
            if(check == FALSE)
            {
                do
                {
                    stop = llSubStringIndex(mesg, " ");
                    if(stop == -1) { stop = 0;}
                    word = llGetSubString(mesg, 0, stop - 1);
                    mesg = llDeleteSubString(mesg, 0, stop);
                    if((word=="brb") || (word=="afk"))
                    { 
                        llSay(0,"We wait, hurry back !");
                        stop = 0;
                    }
                    else if((word=="smoke") || (word=="joint"))
                    { 
                        llSay(0,"Can this one smoke?");
                        stop = 0;
                    }
                    else if((word=="cool") || (word=="kewl")) 
                    { 
                        llSay(0,word + ", yes yes yes ");
                        stop = 0;
                    }
                    else if((word=="hi") || (word=="hello") || (word=="Greetings") || (word=="howdy") || (word=="Gday") || (word=="hej")) 
                    { 
                        llSay(0,word + " " + name + ", :)");
                        stop = 0;
                    }
                    else if((word=="cya") || (word=="bye") || (word=="goodbye")) 
                    { 
                        llSay(0,word + " " + name + " :)");
                        stop = 0;
                    }
                    else if((word=="food") || (word=="eat") || (word=="ate")) 
                    { 
                        float rnd = llFrand(10.0);
                        if(rnd < 5) { llSay(0,"Can this one eat too?");}
                        else { llSay(0,name + ", This one is hungry !");}
                        stop = 0;
                    }
                    else if((word=="fuck") || (word=="Fuck") || (word=="FUCK"))
                    { 
                        llSay(0,"Ewwww, the F word");
                        stop = 0;
                    }
                    
                } while(stop != 0);
            }
        }
    }
    
    touch_start(integer num)
    {
        integer choice = (integer)llFrand(6.0);
        if(choice == 1) { llSay(0,"ALT+F4 will fix u Lag!");}
        else if(choice == 2) { llSay(0,"They touch this one!");}
        else if(choice == 3) { llSay(0,"Piss off !");}
        else if(choice == 4) { llSay(0,"U not my Master!");}
        else if(choice == 5) { llSay(0,"Dont touch my dick, plz !");}
        else { llSay(0,"Go play with u self !");}
    }                

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