if (x mod 32 == 0 && y mod 32 == 0) {
    var dir;
    dir := keyboard_check(vk_right) - keyboard_check(vk_left);
    if (place_free(x + 32 * dir, y) && !(dir == 0)) {
        hspeed := 4 * dir;
    } else {
        dir := keyboard_check(vk_down) - keybard_check(vk_up);
        if (place_free(x, y + 32 * dir) && !(dir == 0)) {
            vspeed := 4 * dir;
        }
    }
}