/*
**  Usage:
**      inst = find_team(object, team);
**
**  Arguments:
**      object    an object to look for
**      team      team to find
**
**  Returns:
**      inst      nearest instance of given (object) where
**                local variable "team" is the same as the
**                given (team), or keyword "noone" if
**                none found
**
**  copyright (c) 2006, John Leffingwell
**  www.planetxot.com
*/
var ds,selected;
ds = ds_priority_create();
ds_priority_add(ds,noone,100000);
with (argument0) if (team == argument1 && id != other.id) ds_priority_add(ds,id,distance_to_object(other.id));
selected = ds_priority_find_min(ds);
ds_priority_destroy(ds);
return selected;