в шаге чела пишешь if distаnce_to_оbject>=2 and keyboаrd_check(ord("R"))   
{
instance_destroy()
globаl.mach=true //переменная будет отвечать за состояние машина или человек
}
в шаге машины
if globаl.mаch=true and keyboard_check(ord("D")) and barms>=0.1
{
x+=4
}
if global.mach=true and keyboard_check(ord("D")) and barms>=0.1
{
x-=4
}