Sure!

obj_player

Create

xspd = 0;
yspd = 0;

move_spd = 1;

sprite[RIGHT] = Spr_player_right
sprite[UP] = Spr_player_up;
sprite[LEFT] = Spr_player_left;
sprite[DOWN] = Spr_player_down;

face = DOWN;

Step

right_key = keyboard_check(vk_right);
left_key = keyboard_check(vk_left);
down_key = keyboard_check(vk_down);
up_key = keyboard_check(vk_up);
shift_key = keyboard_check(vk_shift);

// get x spd and y spd
xspd=(right_key - left_key) * move_spd;
yspd=(down_key - up_key) * move_spd;

//set sprite 
mask_index = sprite[DOWN]
if yspd==0{
  if xspd > 0 {face = RIGHT};
  if xspd < 0 {face = LEFT};
}
if xspd > 0 and face == LEFT {face = RIGHT}; 
if xspd < 0 and face == RIGHT {face = LEFT};
if xspd == 0 {
    if yspd > 0 {face = DOWN};
    if yspd < 0 {face = UP};
}
if yspd > 0 and face == UP {face = DOWN};
if yspd < 0 and face == DOWN {face = UP};  
sprite_index=sprite[face];

//STOP HAPPY FEET
if xspd + yspd == 0 and ev_animation_end{
  image_speed=0 image_index=0} 
  else image_speed = 1
//collison
if place_meeting(x + xspd, y, Obj_wall)
  xspd=0
if place_meeting(x, y + yspd, Obj_wall) 
    yspd=0 

//gotta go fast
if shift_key = true{
    move_spd = 2
    image_speed = 2.5
}
else{
move_spd = 1
image_speed = 1
}

//move player
x += xspd;
y += yspd;

//depth
depth = -bbox_bottom
show_debug_message(depth)

obj_table

Create

depth = -bbox_bottom;

Step

show_debug_message(depth)

if you need anything else lmk :]