1) Создаем в объекте событие шаг
2) Добавляем скрипт
if keyboard_check(ord('A')) {x-=3}
if keyboard_check(ord('D')) {x+=3}
if keyboard_check(ord('W')) {y-=3}
if keyboard_check(ord('S')) {y+=3}
3) Размещаем объект, тестируем управление!

Добавлено (29.03.2014, 08:23)
---------------------------------------------
if keyboard_check(ord('W'))
{
speed = 5;
}

if keyboard_check(ord('S'))
{
speed = -3;
}

if keyboard_check_released(vk_anykey)
{
speed = 0;
};

if keyboard_check(ord('A'))
{
x += lengthdir_x(3, direction+90)
y += lengthdir_y(3, direction+90)
}

if keyboard_check(ord('D'))
{
x += lengthdir_x(3, direction-90)
y += lengthdir_y(3, direction-90)
}