eval int cnt=0;for(int i=1; i<sizeof(objects()); i++) {object env = environment(objects()[i]); if (objectp(env)){ if (env->GetDomain() == "innersea"){cnt++;};};};return cnt



# return number of objects in all domains from objects() list
eval mapping doms=([]);	foreach(object ob in objects()) {string dom = ob->GetDomain();if (member_array(dom, keys(doms)) == -1) {doms[dom] =1;} else {doms[dom]++;};};return doms


# return number of objects in all domains from objects() list -- goes one layer up in environment to find domain
eval mapping doms=([]); foreach(object ob in objects()) {string dom; if (objectp(environment(ob))) {dom = environment(ob)->GetDomain();}else{ dom = ob->GetDomain();};if (member_array(dom, keys(doms)) == -1) {doms[dom] =1;} else {doms[dom]++;};};return doms

eval object mel = find_player("melchezidek");array bad = ({});int cnt=0;foreach(object ob in objects()) {if (undefinedp(ob->GetDomain())) {mel->eventPrint(file_name(ob))};};return


# print all objects (to me) that have undefined GetDomain from objects()
eval object mel = find_player("melchezidek");  foreach(object ob in objects()) { if (undefinedp(ob->GetDomain())) {mel->eventPrint(file_name(ob));};};return


# print all objects (to me) that in the /domains/ directory
eval object mel = find_player("melchezidek");  foreach(object ob in objects()) { if (undefinedp(ob->GetDomain())) {if (strsrch(file_name(ob), "/domains/innersea") != -1) { ob->eventDestruct(); };};};return


eval mapping doms=([]); 
     foreach(object ob in objects()) {
	string dom; 
	if (objectp(environment(ob))) {
		dom = environment(ob)->GetDomain();
	} else { 
		dom = ob->GetDomain();
	};
	if (member_array(dom, keys(doms)) == -1) {
		doms[dom]=1;
	} else {
		doms[dom]++;
	};
};return doms
