Top Down Movement Code

///Movement

keyboard_set_map(ord("W"), vk_up);
keyboard_set_map(ord("A"), vk_left);
keyboard_set_map(ord("S"), vk_down);
keyboard_set_map(ord("D"), vk_right);

key_right = keyboard_check(vk_right);
key_left = -keyboard_check(vk_left);
key_up = -keyboard_check(vk_up);
key_down = keyboard_check(vk_down);

moveh = key_right+key_left;
movev = key_up+key_down;

hsp = lerp(hsp,moveh*spd,acc);
vsp = lerp(vsp,movev*spd,acc);

//Horizontal collision
if place_meeting(x + hsp, y, obj_wall)
{
    while !place_meeting(x + sign(hsp), y, obj_wall)
    {
        x += sign(hsp);
    }
    hsp = 0;
}
x += hsp;

//Vertical collision
if place_meeting(x, y + vsp, obj_wall)
{
    while !place_meeting(x, y + sign(vsp), obj_wall)
    {
        y += sign(vsp);
    }
    vsp = 0;
}
y += vsp;