key parent_key = NULL_KEY;
key toucher = NULL_KEY;

default{
	on_rez(integer r){
		llResetScript();
	}
	state_entry(){
		// Get the key of the object that rezzed us
		list details = llGetObjectDetails( llGetKey(), [OBJECT_REZZER_KEY]);
		parent_key = llList2Key(details, 0);
		// Now get the description of the rezzer
		list desc = llGetObjectDetails(parent_key, [OBJECT_DESC]);
		toucher = llList2Key(desc, 0);
		// IM the owner the uuid of the person who violated me
		llInstantMessage(llGetOwner(),"My rezzer was touched by "+(string)toucher);
	}
}