list petUUIDs = [];

default
{
	on_rez(integer s)
	{
		llResetScript();
	}
	state_entry()
	{
		llListen(-748382747, "", NULL_KEY, "");
	}
	listen(integer chan, string name, key id, string msg)
	{
		//prim1UUID|prim2UUID|prim3UUID|prim4UUID|prim5UUID|prim6UUID|prim7UUID|prim8UUID|prim9UUID|prim10UUID|prim11UUID|prim12UUID|prim13UUID|prim14UUID|prim15UUID|prim16UUID
		if (llGetListLength(petUUIDs) == 0)
		{
			llOwnerSay("Successfully linked pet.");
		}
		petUUIDs = llParseString2List(msg, ["|"], []);
	}

	touch_start(integer s)
	{
		if (llGetListLength(petUUIDs) > 0)
		{
			//Element in petUUIDs: 0 = prim 1 UUID, 1 = prim 2 UUID... 15 = prim 16 UUID
			//Pass these UUIDs to llGetObjectDetails, to get that prim data
			list prim1Desc = llGetObjectDetails(llList2Key(petUUIDs, 0), [OBJECT_DESC]);
			list parsed1Desc = llParseString2List(llList2String(prim1Desc, 0), [" - "], []);

			llOwnerSay("prim1Desc: "+llDumpList2String(prim1Desc, ","));
			llOwnerSay("parsed1Desc: "+llDumpList2String(parsed1Desc, ","));

			llOwnerSay("Species: "+llList2String(parsed1Desc, 0));
			llOwnerSay("Element: "+llList2String(parsed1Desc, 1));


			list prim2Desc = llGetObjectDetails(llList2Key(petUUIDs, 1), [OBJECT_DESC]);
			list parsed2Desc = llParseString2List(llList2String(prim2Desc, 0), [";"], []);

			llOwnerSay("Creature ID: "+llList2String(parsed2Desc, 0));
			llOwnerSay("Element: "+llList2String(parsed2Desc, 1));
			llOwnerSay("Time caught: "+llList2String(parsed2Desc, 2));
			llOwnerSay("Affinity: "+llList2String(parsed2Desc, 3));

		}
		else
		{
			llOwnerSay("No pet detected yet.  Try reattach pet or wait 1 min.");
		}
	}
}