{
  var xn,yn;
  xn = x + sin(direction*pi/180);
  yn = y + cos(direction*pi/180);
  if not place_meeting(xn,yn,obj_wall_basic)
    { x = xn; y = yn; }
}