instance_find_friend

COPY/// instance_find_friend(object)
//
//  Returns the nearest instance of an object whose local
//  variable "team" has the same value as calling instance,
//  or noone if no instance is found.
//
//      object      object to look for (or all), real
//
/// gmlscripts.pro/license
{
    var ds,selected;
    ds = ds_priority_create();
    ds_priority_add(ds,noone,100000000);
    with (argument0) {
        if (team == other.team && id != other.id) {
            ds_priority_add(ds,id,point_distance(x,y,other.x,other.y));
        }
    }
    selected = ds_priority_find_min(ds);
    ds_priority_destroy(ds);
    return selected;
}