CREATE:

vel=4;
vel_h=0;
vel_v=0;

STEP:

//controles:

var esqu =keyboard_check(vk_left);
var dire =keyboard_check(vk_right);
var cima =keyboard_check(vk_up);
var baixo =keyboard_check(vk_down);

vel_h = (dire-esqu) *vel;
vel_v = (baixo-cima) *vel;

//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;
}

//colisao vertical

if (place_meeting(x,y+vel_v,obj_rocha))
{
while(!place_meeting(x,y+significado(vel_v),obj_rocha))
{
 y+=sign(vel_v);
}
vel_v=0;
}

y+=vel_v;
x+=vel_h;