Target Crosshair HUD

A 2 prim HUD targets nearby players names, profiles and user key. Drop this into the root prim of 2 linked prims. Modify it to suit your particular use in another Hud, weapon, or whatever you want. <3 --Ackley Bing

// Target Crosshair HUD
// by Ackley Bing
// Save this script into the root prim of 2 linked prims
//
// This is based on my Basic Target Scanner HUD (http://wiki.secondlife.com/wiki/Basic_Target_Scanner_HUD)
// Now you get a crosshair that follows your target
// thanks to 
// HUD Dots Radar (http://wiki.secondlife.com/wiki/HUD_Dots_Radar)
//

integer AgentListindex;
key HUDtarget;
string showName;
string legName;
string dispName; 
key photoReq;
string missingtexture="1a6e02aa-23a8-7a5f-0525-44d724144f89";
float gFOV = 1.7320508075688774;
vector gOffScreen = <-1000., -1000., -1000.>;
integer HUDattachpoint=ATTACH_HUD_CENTER_1;
integer AgentCount()
{
    list AgentCountList;
    integer ownerindex;
    integer num_agents;
    AgentCountList=llGetAgentList(AGENT_LIST_REGION,[]);
    ownerindex=llListFindList( AgentCountList, (list)llGetOwner() );
    AgentCountList=llDeleteSubList( AgentCountList, ownerindex, ownerindex );
    num_agents = llGetListLength(AgentCountList);
    return num_agents;
}
key Identify(integer selected)
{
    list IdentifiedAgentList;
    integer ownerindex;
    key IdentifiedAgent;
    list nameParts;
    IdentifiedAgentList=llGetAgentList(AGENT_LIST_REGION,[]);
    ownerindex=llListFindList( IdentifiedAgentList, (list)llGetOwner() );
    IdentifiedAgentList=llDeleteSubList( IdentifiedAgentList, ownerindex, ownerindex );
    if ( llGetListLength(IdentifiedAgentList)==0 )
    {
        AgentListindex = 0;
        llSetText(" ", <1,1,1>, 1.0);
        llSetTexture(missingtexture, 0);
        return NULL_KEY;
    }
    else
    {
        if ( selected>llGetListLength(IdentifiedAgentList) )
        {
            AgentListindex = 0;
            IdentifiedAgent = llList2Key(IdentifiedAgentList, 0);
        }
        else IdentifiedAgent = llList2Key(IdentifiedAgentList, selected);
        legName = llKey2Name(IdentifiedAgent);
        nameParts = llParseString2List(legName,[" "],[]);
        if (llList2String(nameParts, 1) == "Resident") legName = llList2String(nameParts, 0);
        showName = legName;   
        dispName = llGetDisplayName(IdentifiedAgent);
        if (dispName) if (llToLower(dispName) != llToLower(legName)) llSetText(showName+"\n(" + dispName + ")\n"+(string)IdentifiedAgent, <1,1,1>, 1.0);
        else llSetText(showName+"\n"+(string)IdentifiedAgent, <1,1,1>, 1.0);
        llOwnerSay("("+(string)(AgentListindex+1)+"/"+(string)(AgentCount()) +") Current Target: secondlife:///app/agent/" + (string)IdentifiedAgent + "/inspect " + (string)IdentifiedAgent);
        photoReq=llHTTPRequest("http://world.secondlife.com/resident/"+(string)IdentifiedAgent,[],"");
        return IdentifiedAgent;
    }    
}
UpdateCrosshair(key lockedtarget)
{
    if (lockedtarget!=NULL_KEY)
    {
        list SuspectList=llGetAgentList(AGENT_LIST_REGION,[]);
        integer lockedtargetindex=llListFindList( SuspectList, (list)lockedtarget );
        if (lockedtargetindex>-1)
        {
            vector cPos = llGetCameraPos();
            rotation cRot = llGetCameraRot();
            vector targetPos = llList2Vector(llGetObjectDetails(lockedtarget,[OBJECT_POS]),0);
            vector childPos = Region2HUD(targetPos + <0,0,0.5>, cPos, cRot);
            if (childPos!=gOffScreen)
            {
                vector myPos = llGetPos();
                float dist = llRound(llVecDist(myPos, targetPos));
                vector localhudpos = llGetLocalPos();
                string crosshairtext;
                localhudpos = <localhudpos.z, localhudpos.y, localhudpos.x>;
                if (dispName) if (llToLower(dispName) != llToLower(legName)) crosshairtext = showName+"\n( " + dispName + " )\n"+(string)((integer)dist)+"m";
                else crosshairtext = showName+"\n"+(string)((integer)dist)+"m";
                llSetLinkPrimitiveParamsFast(2,[PRIM_POSITION,childPos-localhudpos,PRIM_COLOR,ALL_SIDES,llVecNorm(<dist,llAbs(64-(integer)dist),0>),1,PRIM_TEXT,crosshairtext,llVecNorm(<dist,llAbs(64-(integer)dist),0>),1]);
            }
            else llSetLinkPrimitiveParamsFast(2,[PRIM_POSITION,<.02,0,0>,PRIM_COLOR,ALL_SIDES,llVecNorm(<0,0,0>),0,PRIM_TEXT,"",llVecNorm(<0,0,0>),0]);
        }
        else
        {
            llSetTimerEvent(0.0);
            AgentListindex = 0;
            llSetLinkPrimitiveParamsFast(2,[PRIM_POSITION,<.02,0,0>,PRIM_COLOR,ALL_SIDES,llVecNorm(<0,0,0>),0,PRIM_TEXT,"",llVecNorm(<0,0,0>),0]);
            llSetText(" ", <1,1,1>, 1.0);
            llSetTexture(missingtexture, 0);
        }
    }
    else
    {
        llSetLinkPrimitiveParamsFast(2,[PRIM_POSITION,<.02,0,0>,PRIM_COLOR,ALL_SIDES,llVecNorm(<0,0,0>),0,PRIM_TEXT,"",llVecNorm(<0,0,0>),0]);
        llSetTimerEvent(0.0);
    }
}
vector Region2HUD(vector objPos, vector camPos, rotation camRot)
{
    objPos = (objPos - camPos) * (ZERO_ROTATION / camRot);
    objPos = <-objPos.y, objPos.z, objPos.x>;
    float Xcrosshair = (objPos.x * gFOV) / objPos.z;
    if (Xcrosshair > -3. && Xcrosshair < 3.)
    {
        float Ycrosshair = (objPos.y * gFOV) / objPos.z;
        if (Ycrosshair > -1. && Ycrosshair < 1.)
        {
            float Zcrosshair = (objPos.z - 2) / objPos.z;
            if (Zcrosshair > -1. && Zcrosshair < 1.) return <Ycrosshair / 2., -Xcrosshair / 2.,0>;
        }
    }
    return gOffScreen;
}
default
{
    state_entry()
    {
        AgentListindex=0;
        HUDtarget=NULL_KEY;
        llSetText("", <0.0, 1.0, 0.0>, 1.0);
        llSetTexture(missingtexture, 0);
        llSetLinkPrimitiveParamsFast(2,[PRIM_POSITION,<.02,0,0>,PRIM_COLOR,ALL_SIDES,llVecNorm(<0,0,0>),1,PRIM_TEXT,"",llVecNorm(<0,0,0>),0]);
        llSetTimerEvent(0.0);
        llRequestPermissions(llGetOwner(),PERMISSION_ATTACH|PERMISSION_TAKE_CONTROLS|PERMISSION_TRACK_CAMERA);
    }
    touch_start(integer n)
    {
        if ( llGetAttached() )
        {
            integer AgentTotal;
            AgentTotal = AgentCount();
            AgentListindex=AgentListindex+(llDetectedTouchFace(0)==1)-(llDetectedTouchFace(0)==3);
            AgentListindex = ((AgentListindex<0)*(AgentTotal-1))+((AgentListindex>=0)*(AgentListindex*(AgentListindex!=AgentTotal)));
            HUDtarget=Identify(AgentListindex);
            llSetTimerEvent(0.1);
        }
    }
    timer()
    {
        UpdateCrosshair(HUDtarget);
    }
    http_response(key request_id, integer status, list metadata, string body)
    {
        if( request_id == photoReq )
        {
            string photoID;
            integer StartIndex=llSubStringIndex(body,"<title>");
            integer EndIndex=llSubStringIndex(body,"</title>");
            if( StartIndex!=-1)
            {
                integer tempIndex=llSubStringIndex(body,"imageid")+18;
                if(tempIndex>17)photoID=llGetSubString(body,tempIndex,tempIndex+35);
            }
            if ( photoID==NULL_KEY || photoID=="" ) photoID=missingtexture;
            llSetTexture(photoID, 0);
        }
    }
    attach(key id)
    {
        if (id)
        {
            llSetScale(<0.1, 0.15, 0.1>);
            llSetPrimitiveParams([PRIM_TYPE, PRIM_TYPE_BOX, PRIM_HOLE_DEFAULT, <0.0, 1.0, 0.0>, 0.0, <0.0, 0.0, 0.0>, <2.0, 0.5, 1.0>, <0.0, 0.0, 0.0>, PRIM_ROT_LOCAL, <0.000000, -0.707107, 0.000000, 0.707107>, PRIM_COLOR, 0, <1.0,1.0,1.0>, 1.0, PRIM_COLOR, 1, <0.0,1.0,0.0>, 1.0, PRIM_COLOR, 3, <0.0,1.0,0.0>, 1.0, PRIM_COLOR, 2, <1.0,1.0,1.0>, 0.0, PRIM_COLOR, 4, <1.0,1.0,1.0>, 0.0]);
            llRotateTexture(270.0*DEG_TO_RAD,0);
            HUDattachpoint=llGetAttached();
            llRequestPermissions(llGetOwner(), PERMISSION_TAKE_CONTROLS|PERMISSION_TRACK_CAMERA);
        }
    }
    on_rez(integer param)
    {
        if ( !llGetAttached() )
        {
            AgentListindex=0;
            HUDtarget=NULL_KEY;
            llSetText("", <0.0, 1.0, 0.0>, 1.0);
            llSetTexture(missingtexture, 0);
            llSetLinkPrimitiveParamsFast(2,[PRIM_POSITION,<.02,0,0>,PRIM_COLOR,ALL_SIDES,llVecNorm(<0,0,0>),1,PRIM_TEXT,"",llVecNorm(<0,0,0>),0]);
            llSetTimerEvent(0.0);
            llRequestPermissions(llGetOwner(),PERMISSION_ATTACH);
        }
    }
    run_time_permissions(integer perms)
    {
        if ( perms & PERMISSION_ATTACH ) llAttachToAvatar(HUDattachpoint);
        if ( perms & PERMISSION_TAKE_CONTROLS ) llTakeControls(CONTROL_BACK, FALSE, TRUE);
    }
}