// handling of duplicate objects in inventory.
//
// here we provide the function two objects. If they
// were cloned from the same file AND they have
// different instance numbers, we return "1", because
// they are duplicates, and not just one object. Otherwise,
// we return a "0". Note that 0 can mean the two objects
// were cloned from different files, and it can also mean
// that the objects provided are actually just one object
// in memory.
//
int query_dupes(object ob1,object ob2){
if(base_name(ob1) == base_name(ob2) && file_name(ob1) != file_name(ob2)) return 1;
else return 0;
}
// This function is supposed to return an array
// of objects in the inventory of "where" that
// are cloned from the same file as "ob"
object *get_dupes(object ob, object where){
object *allstuff,*dupes;
int i;
if(!where || !ob) {
//write("missing something");
return 0;
}
allstuff = all_inventory(where);
if(!sizeof(allstuff)) return 0;
if(member_array(ob,allstuff) == -1) return 0;
for(i=0;i<sizeof(allstuff);i++){
if( query_dupes(allstuff[i],ob) == 1 && !sizeof(dupes) ) dupes = ({allstuff[i]});
if( query_dupes(allstuff[i],ob) == 1 && sizeof(dupes) > 0 ) dupes += ({allstuff[i]});
}
if(sizeof(dupes) > 0) return dupes;
else return ({});
}
