//colisao horizontal
if (place_meeting(x+vel_h,y,obj_rocha))
{
    while(place_meeting(x+sign(vel_h),y,obj_rocha))
    {
        x+=sign(vel_h);
    }
    vel_h=0;

    if (place_meeting(x,y,obj_rochacomrosto))
    {
        while(!place_meeting(x+sign(vel_h),y,obj_rochacomrosto))
        {
            x+=sign(vel_h);
        }
        vel_h=0;
    }
    x+=vel_h;
}