ともねこ実験室

integer gMax = 50;
integer gCnt;
list gName;
default{
	collision_start(integer n){
		integer i;
		for(i=0; i<n; i++){
			if(llDetectedType(i) & AGENT){
				string name = llDetectedName(i);
				if(llListFindList(gName, [name]) < 0){
					gCnt++;
					gName = gName + [name];
				}
			}
		}
		integer m = llGetListLength(gName);
		if(m > gMax){
			gName = llDeleteSubList(gName, m - gMax, gMax);
		}
	}
	touch_start(integer n){
		key id = llDetectedKey(0);
		if(llSameGroup(id)){
			llInstantMessage(id, "Counter: "+(string)gCnt);
		}
	}
}