move_contact_solid(direction,abs(vspeed)); //Двигаем объект по директории его движения на модуль вертикальной скорости, пока он не столкнется с твердым объектом или пройдет заданное количество пикселей для движения. Так же можно использовать функцию move_contact_all(с осторожностью), если объект столкновения не твердый.
vspeed = 0; //Столкновение прошло, останавливаем объект.

repeat(argument1)
{
     if(place_meeting(x+cos(argument0),y+sin(argument0),argument2)) break;
     x-=cos(argument0);
     y-=sin(argument0);
}