Dejo ésto acá para hacer savedata.
var entityspeedx, entityspeedy, entitydirx, entitydiry, accel,
switch (keyboard_key)
{
case ord("A"):
entityspeedx = -4;
break;
case ord("D"):
entityspeedx = 4;
break;
case ord("W"):
entityspeedy = -4;
break;
case ord("S"):
entityspeedy = 4;
break;
case Keyboard_check_pressed VK_SHIFT :
accel = 0.5
break;
case !Keyboard_check_pressed VK_SHIFT :
accel = 1
}
entitydirx = entityspeedx × global.PauseBool x accel
entitydiry = entityspeedy x global.PauseBool x accel
If global.PauseBool != 0
X = X + entitydirx
Y = Y + entitydiry