if keyboard_check(ord("W"))
and shift=0
and collision_point(x,y-10,obj_block,1,1)<1
{y-=4}

if keyboard_check(ord("S"))
and shift=0
and collision_point(x,y+10,obj_block,1,1)<1
{y+=4}

if keyboard_check(ord("A"))
and shift=0
and collision_point(x-10,y,obj_block,1,1)<1
{x-=4}

if keyboard_check(ord("D"))
and shift=0
and collision_point(x+10,y,obj_block,1,1)<1
{x+=4}