process rocket(x,y,angle);
Private
  temp_dist;
  temp_id;
  closest_dist;
  closest_id;
begin
  graph=1;
  loop
    closest_dist=MAX_INT;
    closest_id=0;
    while (temp_id=get_id(type enemy))
      if ((temp_dist=fget_dist(x,y,temp_id.x,temp_id.y))<closest_dist)
        closest_id=temp_id;
        closest_dist=temp_dist;
      end
    end
    if (exists(closest_id))
        angle=near_angle(angle,fget_angle(x,y,closest_id.x,closest_id.y),5000)
    end
    advance(10);
    frame;
  end
end