integer i;
integer size;

key FindName(string name)
{
    list temp = llGetAgentList(AGENT_LIST_REGION,[]);
    size = llGetListLength(temp);

    for(i = 0; i < size; i++)
    {
       string av = llKey2Name(llList2Key(temp,i));
        if(av == name)
        {
        key avkey = llList2Key(temp,i);
        return avkey;
        }
    }
    return NULL_KEY;
}



integer channel;
default
{
    state_entry()
    {
        channel = -1911;
        llSay(0, "Script running");
        llListen(channel,"","","");
    }



     listen(integer channel1, string name, key id, string message)
     {
         if(osRegexIsMatch(message,"^Move"))
         {
             list parse = llParseStringKeepNulls(message,[","],[]);
             string myname = llList2String(parse,1);
             string target = llList2String(parse,2);
             list splitTarget = llParseStringKeepNulls(target,[" "],[]);
             list splitName = llParseStringKeepNulls(myname,[" "],[]);

             string firstname = llList2String(splitName,0);
             string lastname = llList2String(splitName,1);

             string firstTarget = llList2String(splitTarget,0);
             string lastTarget = llList2String(splitTarget,1);


            key av1 = FindName(myname);
            key av2 = FindName(target);
            llSay(0,(string)av2);
            if(av2!= NULL_KEY)
            {
             list AvatarDetails = llGetObjectDetails(av2,[OBJECT_POS]);
             vector targetPlayer = llList2Vector(AvatarDetails,0);
             osNpcMoveToTarget(av1,targetPlayer,OS_NPC_NO_FLY);
             llSay(0,"Move to " + target + " complete");
             llSay(0, "Target key is, " + (string)av2);
            }
            else
            {
                llSay(0,"Null Key Detected.");
                llSay(0,"Cannot find " + target);
            }
         }
         else if(osRegexIsMatch(message,"^Say"))
         {
             llOwnerSay("Reg confirmed.");
             list parse = llParseStringKeepNulls(message,[","],[]);
             string myname = llList2String(parse,1);
             string toSay = llList2String(parse,2);
             list splitName = llParseStringKeepNulls(myname,[" "],[]);

             string first = llList2String(splitName,0);
             string last = llList2String(splitName,1);


              llSay(0,"Name is " + myname);
             // llSay(0,(string)av);

           //  osNpcSay(av,toSay);
         }
         else if(osRegexIsMatch(message,"^Change"))
         {
             list parse = llParseStringKeepNulls(message,[","],[]);
             string myname = llList2String(parse,1);
             string target = llList2String(parse,2);
             list splitTarget = llParseStringKeepNulls(target,[" "],[]);
             list splitName = llParseStringKeepNulls(myname,[" "],[]);

             string firstname = llList2String(splitName,0);
             string lastname = llList2String(splitName,1);

             string firstTarget = llList2String(splitTarget,0);
             string lastTarget = llList2String(splitTarget,1);


            key av1 = FindName(myname);
            key av2 = FindName(target);
            llSay(0,(string)av2);
            if(av2!= NULL_KEY)
            {
             list AvatarDetails = llGetObjectDetails(av2,[OBJECT_POS]);
             vector targetPlayer = llList2Vector(AvatarDetails,0);
             osNpcMoveToTarget(av1,targetPlayer,OS_NPC_NO_FLY);
            }
     }
}
}