[script} trouver la n ième instance

//instance_nth(x,y,radiusmax,object,nth)
xx=argument0
yy=argument1
radiusmax=argument2
object=argument3
nth=argument4

inst_nb=0  //nombres d'instances détectées
radius=0    //rayon actuel du collision_circle
a=min(nth,instance_number(object))
if nth>a
{
return -1
exit
}
while inst_nb<a && radius<radiusmax
{
  while collision_circle(xx,yy,radius,object,1,1)<=0
    {radius+=1}
  ID[inst_nb]=collision_circle(xx,yy,radius,object,1,1)
    instance_deactivate_region(ID[inst_nb].x-5,ID[inst_nb].y-5,10,10,1,true)
inst_nb+=1
    }
if radius>=radiusmax
{
return -1
exit
}
instance_activate_all()
return ID[nth-1]