if distance_to_point(xp,yp)>4
{
r=0
var pt;
pt=path_add()
mp_grid_path(mcell,pt,x,y,xp,yp,true)
//mp_potential_settings(3,3,10,0)
r=floor(mdir-direction)
if r<0 {r=(360-(r+360))}
if r>3
  {
   mdir=scr_angle(mdir,direction,3)
   //mdir=point_direction(xprevious,yprevious,x,y)
   path_end()
  }
else
  {
   mdir=scr_angle(mdir,direction,3)
   direction=mdir
   path_start(pt,1,'',true)
   }
}

if place_free (x+1, y){
if place_free(x-1, y){
if place_free(x, y-1){
if place_free(x, y+1){
if distance_to_object(object2) < 100
{
direction = point_direction(x,y, object2.x, object2.y)
speed = 4;
}}}}}