//Create
arrObj=ds_list_create(); //список с объектами, которые будем обходить

nRad=1000; // радиус, в котором ищем (ну, сейчас пусть 1000 будет)

//Координаты. Изначально - такие, как у объекта
nX=x;
nY=y;

repeat(nCount)// nCount - сколько раз максимально можем прыгать по объектам
{
nMin=nRad;//ставим минимальное растояние - радиусом, чтобы дальше не искало
idObj=-1;//пока никакой объект мы не нашли
with (Object)//Обходим все объекты Object
{
  if (ds_list_find_index(other.arrObj, id)==-1) //если данного объекта нет в списке...
  {
   nDist=point_distance(other.nX, other.nY, x, y); //считаем расстояние
   if (nDist<other.nMin) //Если расстояние меньше минимума на текущий момент
   {
    other.nMin=nDist;//обновляем минимум
    other.idObj=id;//Записываем в переменную id объекта
   }
  }
}
if (idObj==-1)//если мы не нашли объектов поблизости..
{
  break; //то и не фиг дальше искать
}
//иначе
ds_list_add(arrObj,idObj);// добавляем его id в список
nX=idObj.x;//обновляем координаты, чтобы следующий ближайший объект считался от предыдущего, а не от первого
nY=idObj.y;
}
}