Jump to content

Recent Avatar Scanner


Ackley Bing
 Share

You are about to reply to a thread that has been inactive for 2588 days.

Please take a moment to consider if this thread is worth bumping.

Recommended Posts

Recent Avatar Scanner by Ackley Bing. Put this script in a prim. Wear the object as a HUD. Touch it to see a list of recently collected names. Stores up to 100 names. Adjust 100 to 1000 or whatever you want, just beware of script memory use or you will get a Stack Heap Collision. Modify it to suit your particular use in another Hud, weapon, or whatever you want. <3 --Ackley Bing

 

// Recent Avatar Scanner by Ackley Bing
// PUt this in a prim.  Wear as a HUD.
// Touch it to see your current list of Recent Avatars
list RecentAgents;
integer MaxRecent=100;
Process_Region_Agents()
{
list RegionAgents=llGetAgentList(AGENT_LIST_REGION,[]);
integer TotalAgentsInRegion=llGetListLength(RegionAgents);
integer i;
for(i=0;i<TotalAgentsInRegion;i++)
{
integer Test;
key Agent = llList2Key(RegionAgents, i);
Test=llListFindList(RecentAgents,[Agent]);
if (Test == -1 && Agent!=llGetOwner() )
{
//llOwnerSay("NEW AVATAR: secondlife:///app/agent/" + (string)Agent + "/inspect added to your RECENT AVATAR list");
RecentAgents += (key)Agent;
if (llGetListLength(RecentAgents)>MaxRecent) RecentAgents=llDeleteSubList(RecentAgents,0,0);
llSleep(0.03);
}
}
llSetTimerEvent((float)llGetListLength(RecentAgents)/8.0);
}
default
{
state_entry()
{
llSetTexture("6a571ff9-efba-7327-7bc3-0cf3b98bae37",4);
llSetTimerEvent(5.0);
}
timer()
{
llSetTimerEvent(0.0);
Process_Region_Agents();
}
touch_start(integer index)
{
integer TotalRecentAgents=llGetListLength(RecentAgents);
llOwnerSay ((string)TotalRecentAgents+" recent avatars:");
llSleep(0.03);
if (TotalRecentAgents)
{
integer i=0;
for (i;i<TotalRecentAgents;i++)
{
key recentagentskey=llList2Key(RecentAgents,i);
llOwnerSay ("secondlife:///app/agent/" + (string)recentagentskey + "/inspect ");
llSleep(.03);
}
}
}
attach(key id)
{
if (id) llRequestPermissions(llGetOwner(), PERMISSION_TAKE_CONTROLS );
}
changed(integer change)
{
if ( change & CHANGED_OWNER ) llResetScript();
}
run_time_permissions(integer perms)
{
if ( perms & PERMISSION_TAKE_CONTROLS ) llTakeControls(CONTROL_BACK, TRUE, TRUE);
}
}

 

  • Like 1
Link to comment
Share on other sites

You are about to reply to a thread that has been inactive for 2588 days.

Please take a moment to consider if this thread is worth bumping.

Please sign in to comment

You will be able to leave a comment after signing in



Sign In Now
 Share

×
×
  • Create New...